crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

use s:const in Atua

Browse source 
FossilOrigin-Name: a7bfb1b8925733a03972bd71906e26ad996064ebc4755ee7cfe64b9ac2651fb3
This commit is contained in:
crc 2017-10-20 13:37:36 +00:00
parent 2ddce97006
commit 0346968c74
2 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
example/Atua-WWW.forth
View file

@ -35,10 +35,10 @@ Atua needs to know:
- The maximum file size
````
'/home/crc/atua s:keep 'PATH const
'/gophermap s:keep 'DEFAULT-INDEX const
'/home/crc/atua 'PATH s:const
'/gophermap 'DEFAULT-INDEX s:const
#1024 'MAX-SELECTOR-LENGTH const
#65535 #4 * 'MAX-FILE-SIZE const
#65535 #8 * 'MAX-FILE-SIZE const
````
# I/O Words

12
example/Atua.forth
View file

@ -31,12 +31,12 @@ Atua needs to know:
- The maximum file size
````
'/home/crc/atua s:keep 'PATH const
'/gophermap s:keep 'DEFAULT-INDEX const
#1024 'MAX-SELECTOR-LENGTH const
#1000000 #4 * 'MAX-FILE-SIZE const
'forthworks.com s:keep 'SERVER const
'70 s:keep 'PORT const
'/home/crc/atua 'PATH s:const
'/gophermap 'DEFAULT-INDEX s:const
#1024 'MAX-SELECTOR-LENGTH const
#1000000 #4 * 'MAX-FILE-SIZE const
'forthworks.com 'SERVER s:const
'70 'PORT s:const
````
# I/O Words