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

Changed to 'cold, fixed site.

Browse Source
This commit is contained in:
Brad Nelson
2021-02-25 22:54:28 -08:00
parent 4c37483a07
commit 4eb59a4241
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ueforth/Makefile
View File

@ -288,7 +288,7 @@ $(DEPLOY)/app.yaml: $(ARDUINO)/ESP32forth.zip \
cp -r $(WINDOWS)/uEf64.exe $(DEPLOY)/downloads/uEf64.exe cp -r $(WINDOWS)/uEf64.exe $(DEPLOY)/downloads/uEf64.exe
cp -r $(RES)/eforth.ico $(DEPLOY)/downloads/favicon.ico cp -r $(RES)/eforth.ico $(DEPLOY)/downloads/favicon.ico
cp site/.gcloudignore $(DEPLOY) cp site/.gcloudignore $(DEPLOY)
cat site/ESPForth.html | \ cat site/ESP32Forth.html | \
sed "s/{{VERSION}}/${VERSION}/g" | \ sed "s/{{VERSION}}/${VERSION}/g" | \
sed "s/{{REVISION}}/${REVISION}/g" > $(DEPLOY)/ESP32Forth.html sed "s/{{REVISION}}/${REVISION}/g" > $(DEPLOY)/ESP32Forth.html
cat site/windows.html | \ cat site/windows.html | \

6
ueforth/common/filetools.fs
View File

@ -10,7 +10,7 @@ $4000 constant growth-gap
here growth-gap + growth-gap 1- + growth-gap 1- invert and constant saving-base here growth-gap + growth-gap 1- + growth-gap 1- invert and constant saving-base
: park-heap ( -- a ) saving-base ; : park-heap ( -- a ) saving-base ;
: park-forth ( -- a ) saving-base cell+ ; : park-forth ( -- a ) saving-base cell+ ;
: bootword ( -- a ) saving-base 2 cells + ; 0 bootword ! : 'cold ( -- a ) saving-base 2 cells + ; 0 'cold !
: save-name : save-name
'heap @ park-heap ! 'heap @ park-heap !
@ -25,7 +25,7 @@ here growth-gap + growth-gap 1- + growth-gap 1- invert and constant saving-base
r> close-file throw r> close-file throw
park-heap @ 'heap ! park-heap @ 'heap !
park-forth @ forth-wordlist ! park-forth @ forth-wordlist !
bootword @ dup if execute else drop then ; 'cold @ dup if execute else drop then ;
defer remember-filename defer remember-filename
: default-remember-filename s" myforth" ; : default-remember-filename s" myforth" ;
@ -36,7 +36,7 @@ forth definitions also internals
: save ( "name" -- ) bl parse save-name ; : save ( "name" -- ) bl parse save-name ;
: restore ( "name" -- ) bl parse restore-name ; : restore ( "name" -- ) bl parse restore-name ;
: remember remember-filename save-name ; : remember remember-filename save-name ;
: startup: ( "name" ) ' bootword ! remember ; : startup: ( "name" ) ' 'cold ! remember ;
: revive remember-filename restore-name ; : revive remember-filename restore-name ;
: reset remember-filename delete-file throw ; : reset remember-filename delete-file throw ;