alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding a default block source

Browse Source
This commit is contained in:
Brad Nelson
2021-01-29 09:23:11 -08:00
parent d07e580eda
commit 74ae2b8e18
2 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ueforth/arduino/autoboot.fs
View File

@ -1,2 +1,7 @@
( Change default block source on arduino )
: arduino-default-use s" /spiffs/blocks.fb" open-blocks ;
' arduino-default-use is default-use
( Check for autoexec.fs and run if present )
: autoexec ( a n -- ) s" /spiffs/autoexec.fs" ['] included catch 2drop drop ; : autoexec ( a n -- ) s" /spiffs/autoexec.fs" ['] included catch 2drop drop ;
autoexec autoexec

7
ueforth/common/blocks.fs
View File

@ -5,6 +5,9 @@ create block-data 1024 allot
block-fid 0< 0= if block-fid close-file throw -1 to block-fid then block-fid 0< 0= if block-fid close-file throw -1 to block-fid then
2dup r/w open-file if drop r/w create-file throw else nip nip then to block-fid ; 2dup r/w open-file if drop r/w create-file throw else nip nip then to block-fid ;
: use ( "name" -- ) bl parse open-blocks ; : use ( "name" -- ) bl parse open-blocks ;
: common-default-use s" blocks.fb" open-blocks ;
defer default-use ' common-default-use is default-use
: use?! block-fid 0< if default-use then ;
: grow-blocks ( n -- ) 1024 * block-fid file-size throw max block-fid resize-file throw ; : grow-blocks ( n -- ) 1024 * block-fid file-size throw max block-fid resize-file throw ;
: save-buffers : save-buffers
block-dirty if block-dirty if
@ -15,13 +18,13 @@ create block-data 1024 allot
then ; then ;
: clobber-line ( a -- a' ) dup 63 bl fill 63 + nl over c! 1+ ; : clobber-line ( a -- a' ) dup 63 bl fill 63 + nl over c! 1+ ;
: clobber ( a -- ) 15 for clobber-line next drop ; : clobber ( a -- ) 15 for clobber-line next drop ;
: block ( n -- a ) dup block-id = if drop block-data exit then : block ( n -- a ) use?! dup block-id = if drop block-data exit then
save-buffers dup grow-blocks save-buffers dup grow-blocks
dup 1024 * block-fid reposition-file throw dup 1024 * block-fid reposition-file throw
block-data clobber block-data clobber
block-data 1024 block-fid read-file throw drop block-data 1024 block-fid read-file throw drop
to block-id block-data ; to block-id block-data ;
: buffer ( n -- a ) dup block-id = if drop block-data exit then : buffer ( n -- a ) use?! dup block-id = if drop block-data exit then
save-buffers to block-id block-data ; save-buffers to block-id block-data ;
: empty-buffers -1 to block-id ; : empty-buffers -1 to block-id ;
: update -1 to block-dirty ; : update -1 to block-dirty ;