Re-root site.

esp32/autoboot.fs

@@ -0,0 +1,33 @@
+\ Copyright 2021 Bradley D. Nelson
+\
+\ Licensed under the Apache License, Version 2.0 (the "License");
+\ you may not use this file except in compliance with the License.
+\ You may obtain a copy of the License at
+\
+\     http://www.apache.org/licenses/LICENSE-2.0
+\
+\ Unless required by applicable law or agreed to in writing, software
+\ distributed under the License is distributed on an "AS IS" BASIS,
+\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+\ See the License for the specific language governing permissions and
+\ limitations under the License.
+
+internals definitions
+
+( Change default block source on arduino )
+: arduino-default-use s" /spiffs/blocks.fb" open-blocks ;
+' arduino-default-use is default-use
+
+( Setup remember file )
+: arduino-remember-filename   s" /spiffs/myforth" ;
+' arduino-remember-filename is remember-filename
+
+( Check for autoexec.fs and run if present.
+  Failing that, try to revive save image. )
+: autoexec
+   300 for key? if rdrop exit then 10 ms next
+   s" /spiffs/autoexec.fs" ['] included catch 2drop drop
+   ['] revive catch drop ;
+' autoexec ( leave on the stack for fini.fs )
+
+forth definitions