retro.c now treats tab as whitespace when including files

FossilOrigin-Name: 719a89d79908ef4df290ca99469a739b21dd5c21a6595934e5759560e8d6b784
This commit is contained in:
crc 2021-12-01 10:40:02 +00:00
parent e656d6240e
commit 9a5b3ea4ac
4 changed files with 575 additions and 613 deletions

View file

@ -1,52 +1,19 @@
# RetroForth 2021.11 Release Notes
# RetroForth 2022.1 Release Notes
# Core Language
- deprecated
NoEcho
- new words
h:fetch h:store w:fetch w:store
w:fetch-next w:store-next
h:fetch-next h:store-next
b:fetch-next b:store-next
s:fetch s:store
- dictionary
added d:source field
# VM
## nga-c: retro.c
- added optional support for multiple virtual processor cores
- started work on an optional ffi
- added optional support for unsigned numeric operations
- internal cleanups
- better error messages when socket device not present
- display warning when no code blocks are found in a source file
## nga-rust
- new implementation from bitmapper
- recognize TAB as whitespace when including files
# Documentation
- Updated Build instructions for Linux (re: FFI support & libdl)
- Updated the description & example for `a:to-string`
- `d:source` field now populated for all standard words
- fixed stack comment for `a:store`
# Other
- moved deprecated words to `interface/` instead of `package/extensions`
- added a tool to identify words missing `d:source` data
- start work on proper utf8 string support
- nga/unix: catch some signals for debugging purposes
- fix bugs in examplse
- retro-stats
- alternate-listener

File diff suppressed because it is too large Load diff

View file

@ -10,8 +10,8 @@
#define CELL_MAX LLONG_MAX - 1
#endif
#endif
CELL ngaImageCells = 16786;
CELL ngaImage[] = { 1793,16447,16742,16785,202111,405,377,1150,1535,0,10,1,10,2,10,3,10,4,10,
CELL ngaImageCells = 17078;
CELL ngaImage[] = { 1793,16447,17034,17077,202111,405,377,1150,1535,0,10,1,10,2,10,3,10,4,10,
5,10,6,10,7,10,8,10,11,10,12,10,13,10,14,10,15,10,16,10,
17,10,18,10,19,10,20,10,21,10,22,10,23,10,24,10,25,68223234,1,2575,
85000450,1,656912,161,178,268505089,63,62,285281281,0,63,2063,10,101384453,0,9,10,68485378,255,18350338,
@ -20,7 +20,7 @@ CELL ngaImage[] = { 1793,16447,16742,16785,202111,405,377,1150,1535,0,10,1,10,2,
101777669,1,17565186,107,524545,111,64,167838467,-1,134287105,3,59,659457,3,459023,128,2049,56,25,2049,
128,1793,135,2049,135,117506307,0,128,0,524545,26,133,168820993,0,147,1642241,147,134283523,11,133,
1793,128,524545,2049,128,1793,128,16846593,147,161,178,1793,64,16846593,147,133,178,1793,64,7,
10,659713,1,659713,2,659713,3,659713,4,1793,16495,17108737,3,2,524559,128,2049,128,2049,128,
10,659713,1,659713,2,659713,3,659713,4,1793,16787,17108737,3,2,524559,128,2049,128,2049,128,
524545,0,128,2049,142,168820998,2,15710,1150,167841793,206,9,17826049,0,206,2,15,25,524546,186,
134287105,207,116,2305,208,459023,216,134287361,207,211,659201,206,10,659969,7,2049,56,25,17694978,58,
232,9,84152833,48,319750404,231,117507601,234,184618754,45,25,16974851,-1,168886532,1,134284289,1,247,134284289,0,
@ -166,7 +166,7 @@ CELL ngaImage[] = { 1793,16447,16742,16785,202111,405,377,1150,1535,0,10,1,10,2,
14978,110,58,105,110,99,0,659713,1,10,3036,3059,166,14978,110,58,100,101,99,0,
659969,1,10,3049,3077,166,14978,110,58,98,101,116,119,101,101,110,63,0,67503109,1793,
3085,67503109,67503109,2049,3028,10,1,3080,2049,2203,11,10,3062,3105,166,14978,83,99,111,112,
101,76,105,115,116,0,16596,16674,10,3091,3115,166,14978,123,123,0,2049,1573,2,1,
101,76,105,115,116,0,16888,16966,10,3091,3115,166,14978,123,123,0,2049,1573,2,1,
3105,2049,59,16,10,3108,3141,166,14978,45,45,45,114,101,118,101,97,108,45,45,
45,0,2049,1573,1,3105,2049,3046,16,10,3124,3156,166,14978,125,125,0,1,3105,2049,
56,4,15,11,1793,3170,3841,3105,4097,2,10,1,3165,1793,3196,3841,3105,1793,3191,1,
@ -222,7 +222,7 @@ CELL ngaImage[] = { 1793,16447,16742,16785,202111,405,377,1150,1535,0,10,1,10,2,
154,14978,84,101,109,112,83,116,114,105,110,103,115,0,32,4157,4192,154,14978,84,
101,109,112,83,116,114,105,110,103,77,97,120,0,512,4174,4205,166,14978,83,84,
82,73,78,71,83,0,2049,1544,3841,4173,3841,4192,19,18,10,4193,4226,154,0,67,
117,114,114,101,110,116,0,6,10,4214,4242,166,0,115,58,112,111,105,110,116,
117,114,114,101,110,116,0,18,10,4214,4242,166,0,115,58,112,111,105,110,116,
101,114,0,3841,4226,3841,4192,19,2049,4205,17,10,4228,4262,166,0,115,58,110,101,
120,116,0,1,4226,2049,3760,3841,4226,3841,4173,11,1793,4278,1,0,4097,4226,10,1,
4273,9,10,4193,4293,166,14978,115,58,116,101,109,112,0,2,2049,102,2049,3046,2049,
@ -850,4 +850,18 @@ CELL ngaImage[] = { 1793,16447,16742,16785,202111,405,377,1150,1535,0,10,1,10,2,
99,116,45,119,111,114,100,115,45,108,105,115,116,105,110,103,46,102,111,114,
116,104,0,16596,16769,166,16717,100,58,119,111,114,100,115,45,98,101,103,105,110,
110,105,110,103,45,119,105,116,104,0,2049,1953,2049,5405,1793,16780,2049,186,2049,16694,
10,1,16775,2049,8423,10,0 };
10,1,16775,2049,8423,10,1793,16810,2049,14824,2049,4367,1793,16800,1,188,1,2,17,8,
10,1,16793,2049,2192,2049,1573,2049,184,16,10,1,16787,100,105,99,116,45,119,111,
114,100,115,45,108,105,115,116,105,110,103,46,102,111,114,116,104,0,16742,16849,
166,16812,100,58,119,111,114,100,115,0,1793,16858,2049,186,2049,10272,2049,10244,10,1,
16851,2049,8423,10,100,105,99,116,45,119,111,114,100,115,45,108,105,115,116,105,
110,103,46,102,111,114,116,104,0,16837,16905,166,16863,100,58,119,111,114,100,115,
45,119,105,116,104,0,2049,1953,2049,5405,1793,16936,2049,186,2,2049,1953,2049,4908,1793,
16925,2049,10272,2049,10244,10,1,16920,1793,16931,3,10,1,16929,2049,64,10,1,16911,2049,
8423,10,100,105,99,116,45,119,111,114,100,115,45,108,105,115,116,105,110,103,
46,102,111,114,116,104,0,16888,16986,166,16941,100,105,115,112,108,97,121,45,105,
102,45,108,101,102,116,0,2,2049,1953,2049,5353,1793,16998,2049,10272,2049,10244,10,1,
16993,1793,17004,3,10,1,17002,2049,64,10,100,105,99,116,45,119,111,114,100,115,
45,108,105,115,116,105,110,103,46,102,111,114,116,104,0,16888,17061,166,17009,100,
58,119,111,114,100,115,45,98,101,103,105,110,110,105,110,103,45,119,105,116,
104,0,2049,1953,2049,5405,1793,17072,2049,186,2049,16986,10,1,17067,2049,8423,10,0 };

View file

@ -1533,7 +1533,7 @@ void evaluate(char *s) {
---------------------------------------------------------------------*/
int not_eol(int c) {
return (c != 10) && (c != 13) && (c != 32) && (c != EOF) && (c != 0);
return (c != 9) && (c != 10) && (c != 13) && (c != 32) && (c != EOF) && (c != 0);
}
void read_token(FILE *file, char *token_buffer) {