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

now start recording hashes of names

Browse source 
FossilOrigin-Name: 423a52eb748632e7b65ae6131ee9544410c35b4a20706b1d384ee4e908bdabc1
This commit is contained in:
crc 2023-02-05 16:38:04 +00:00
parent ba816665bd
commit 483edd55ae
6 changed files with 78 additions and 66 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
GNUmakefile
View file

@ -88,6 +88,7 @@ DEVICES += interface/block.retro
DEVICES += interface/deprecated.retro
DEVICES += interface/double.retro
DEVICES += interface/malloc.retro
DEVICES += interface/final.retro
# -------------------------------------------------------------

1
Makefile
View file

@ -73,6 +73,7 @@ DEVICES += interface/block.retro
DEVICES += interface/deprecated.retro
DEVICES += interface/double.retro
DEVICES += interface/malloc.retro
DEVICES += interface/final.retro
# -------------------------------------------------------------

7
interface/final.retro Normal file
View file

@ -0,0 +1,7 @@
~~~
[ &d:add-header #2 + call
d:last d:name @d:Hash-Function call d:last d:hash store
] &d:add-heaer set-hook
d:rehash
~~~

4
package/list.forth
View file

@ -17,7 +17,9 @@ data for words, and record this as part of the header.
[ script:current-file known? [ index ] [ record ] choose
[ &d:add-header #2 + call ] dip
d:last d:source store ] &d:add-header set-hook
d:last d:source store
d:last d:name @d:Hash-Function call d:last d:hash store
] &d:add-header set-hook
}}
~~~

129
vm/nga-c/image.c
View file

@ -10,8 +10,8 @@
#define CELL_MAX LLONG_MAX - 1
#endif
#endif
CELL ngaImageCells = 20284;
CELL ngaImage[] = { 1793,19793,20239,20283,202301,415,387,1247,1535,0,10995,0,10,1,10,2,10,3,10,
CELL ngaImageCells = 20319;
CELL ngaImage[] = { 1793,19816,20274,20318,202301,415,387,1247,1535,0,10995,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,163,180,268505089,65,64,285281281,0,65,2063,10,101384453,0,9,10,68485378,
@ -20,8 +20,8 @@ CELL ngaImage[] = { 1793,19793,20239,20283,202301,415,387,1247,1535,0,10995,0,10
1,251790353,101777669,1,17565186,109,524545,113,66,167838467,-1,134287105,3,61,659457,3,459023,130,2049,58,
25,2049,130,1793,137,2049,137,117506307,0,130,0,524545,28,135,168820993,0,149,1642241,149,134283523,
13,135,1793,130,524545,2049,130,1793,130,16846593,149,163,180,1793,66,16846593,149,135,180,1793,
66,7,10,659713,1,659713,2,659713,3,659713,4,659713,5,1793,20048,17108737,3,2,524559,130,
2049,130,2049,130,524545,0,130,524545,0,130,2049,144,1048838,2,1642241,10,7,19029,1247,167841793,
66,7,10,659713,1,659713,2,659713,3,659713,4,659713,5,1793,20071,17108737,3,2,524559,130,
2049,130,2049,130,524545,0,130,524545,0,130,2049,144,1048838,2,1642241,10,7,19052,1247,167841793,
216,11,17826049,0,216,2,15,25,524546,190,134287105,217,118,2305,218,459023,226,134287361,217,221,
659201,216,10,659969,7,2049,58,25,17694978,58,242,9,84152833,48,319750404,241,117507601,244,184618754,45,
25,16974851,-1,168886532,1,134284289,1,257,134284289,0,244,660227,32,0,0,115,105,103,105,108,
@ -170,7 +170,7 @@ CELL ngaImage[] = { 1793,19793,20239,20283,202301,415,387,1247,1535,0,10995,0,10
110,58,105,110,99,0,659713,1,10,3114,3139,168,11782,210720197721,110,58,100,101,99,0,
659969,1,10,3128,3158,168,11782,8246617666422322998,110,58,98,101,116,119,101,101,110,63,0,67503109,
1793,3166,67503109,67503109,2049,3106,10,1,3161,2049,2241,11,10,3142,3187,168,11782,249861296566813883,83,99,
111,112,101,76,105,115,116,0,20141,20195,10,3172,3198,168,11782,5864091,123,123,0,2049,
111,112,101,76,105,115,116,0,20176,20230,10,3172,3198,168,11782,5864091,123,123,0,2049,
1576,2,1,3187,2049,61,16,10,3190,3225,168,11782,-6305314778776785742,45,45,45,114,101,118,101,
97,108,45,45,45,0,2049,1576,1,3187,2049,3125,16,10,3207,3241,168,11782,5864159,125,
125,0,1,3187,2049,58,4,15,11,1793,3255,3841,3187,4097,2,10,1,3250,1793,3281,
@ -961,68 +961,69 @@ CELL ngaImage[] = { 1793,19793,20239,20283,202301,415,387,1247,1535,0,10995,0,10
43,0,1,8,19,17,10,18926,18968,168,0,1050530996183190288,109,101,109,58,102,101,116,99,
104,45,100,111,117,98,108,101,0,2,1,1,2049,18941,15,5,2049,18881,6,10,
18946,19001,168,0,1730340976492540563,109,101,109,58,115,116,111,114,101,45,100,111,117,98,108,
101,0,5,5,2049,2217,1,1,2049,18941,6,2049,18861,6,2049,18861,10,18979,19025,168,
19812,193470948,84,73,66,0,1,7,15,10,19016,19045,168,19812,8246457295145463473,105,109,97,103,101,
58,115,97,118,101,0,1,1000,2049,10534,2049,10515,10,19029,19063,168,0,210711039690,101,100,
105,116,63,0,2,1793,19070,1,8,11,10,1,19066,1793,19078,1,127,11,10,1,
19074,2049,2255,22,10,19052,19096,168,0,6953539406400,103,97,116,104,101,114,0,2049,19063,1,
17,1,4134,2049,66,10,19084,19116,168,0,210709415765,99,121,99,108,101,0,2049,10864,2049,
2217,4,8,2049,2644,25,3,2049,19096,1,19116,7,10,19029,19149,168,19812,-4557881830897049127,112,97,
114,115,101,45,117,110,116,105,108,0,1793,19161,2049,4451,2049,4234,2049,19116,771,2049,
4096,10,1,19151,2049,4260,10,19132,19177,168,19812,210726130610,115,58,103,101,116,0,1793,19199,
1793,19185,1,13,11,10,1,19181,1793,19193,1,10,11,10,1,19189,2049,2255,22,10,
1,19179,2049,19149,10,19166,19215,168,19812,210708950412,99,108,101,97,114,0,2049,4472,92,94,
91,50,74,92,94,91,48,59,48,72,0,1,19217,2049,8246,2049,10640,10,19204,19249,
156,19812,6952575930081,78,111,69,99,104,111,0,0,19237,19259,156,0,193454829,69,79,84,0,
0,19250,19274,156,0,7571133383038306,73,103,110,111,114,105,110,103,0,0,19260,19290,168,0,
249892406716047873,105,103,110,111,114,105,110,103,63,0,3841,19274,10,19275,19306,168,0,229486327000139,118,
101,114,115,105,111,110,0,3841,4,1,100,20,10,19293,19323,168,0,210710254026,100,111,
110,101,63,0,2,4097,19259,1793,19332,1,13,11,10,1,19328,1793,19340,1,10,11,
10,1,19336,1793,19348,1,32,11,10,1,19344,2049,2298,22,22,10,19312,19365,168,0,
6385195044,101,111,108,63,0,3841,19259,1793,19373,1,13,11,10,1,19369,1793,19381,1,10,
11,10,1,19377,2049,2255,22,10,19355,19399,168,0,6954126150804,118,97,108,105,100,63,0,
2,2049,104,2049,2812,10,19387,19420,168,0,249883998779477802,99,104,101,99,107,45,101,111,102,
0,2,1793,19427,1,-1,11,10,1,19423,1793,19435,1,4,11,10,1,19431,2049,2255,
22,1793,19445,2049,10931,10,1,19442,9,10,19405,19457,168,0,5863258,98,115,0,2049,4212,
1,2,2049,2675,1793,19469,2049,4160,3,10,1,19465,9,2049,4160,3,10,19449,19490,168,
0,7572242387256805,99,104,101,99,107,45,98,115,0,2,1793,19497,1,8,11,10,1,19493,
1793,19505,1,127,11,10,1,19501,2049,2255,22,1793,19515,2049,19457,10,1,19512,9,10,
19476,19530,168,0,210708806723,99,104,101,99,107,0,2049,19420,2049,19490,10,19519,19550,168,0,
249883994190734226,99,104,97,114,97,99,116,101,114,0,2049,10864,2,2049,4134,10,19535,19568,168,
0,6953366942559,98,117,102,102,101,114,0,1793,19578,2049,19025,2049,4234,8,2049,4096,10,1,
19570,2049,4260,10,19556,19599,168,0,8246863741238799215,114,101,97,100,45,116,111,107,101,110,0,
1793,19615,1793,19610,2049,19550,2049,19530,2049,19323,10,1,19603,2049,2397,10,1,19601,2049,19568,
2049,4587,10,19583,19633,168,0,210716150453,105,110,112,117,116,0,2049,19599,2049,19399,10,19622,
19651,168,0,229479082815460,112,114,111,99,101,115,115,0,2049,19290,1793,19669,771,2049,19365,1793,
19665,1,19274,2049,3931,10,1,19660,9,10,1,19655,2049,2862,1,415,1,17,2049,66,
10,19237,19688,180,19812,5861507,47,47,0,2049,16280,1,19274,2049,3916,10,19680,19707,168,19812,
6953343520347,98,97,110,110,101,114,0,2049,19306,2049,4472,82,69,84,82,79,32,49,50,
32,40,37,110,46,37,110,41,92,110,0,1,19711,2049,8246,2049,10640,2049,10716,2049,
1545,2049,10716,18,2049,1545,2049,4472,37,110,32,77,97,120,44,32,37,110,32,85,
115,101,100,44,32,37,110,32,70,114,101,101,92,110,0,1,19747,2049,8246,2049,
10640,10,19695,19793,168,19812,6953744547860,108,105,115,116,101,110,0,3841,19249,1793,19800,2049,19707,
10,1,19797,2049,74,2049,19633,2049,19651,1,19804,7,10,105,110,116,101,114,102,97,
99,101,47,114,101,116,114,111,45,117,110,105,120,46,114,101,116,114,111,0,
19781,19852,156,0,229441520490121,83,111,117,114,99,101,115,0,1,20089,0,0,0,0,0,
101,0,5,5,2049,2217,1,1,2049,18941,6,2049,18861,6,2049,18861,10,1793,19037,1,
192,1,2,17,8,2049,1576,2049,190,3841,10980,8,2049,1576,2049,188,16,10,1,19018,
18979,19048,168,19835,193470948,84,73,66,0,1,7,15,10,19039,19068,168,19835,8246457295145463473,105,109,
97,103,101,58,115,97,118,101,0,1,1000,2049,10534,2049,10515,10,19052,19086,168,0,
210711039690,101,100,105,116,63,0,2,1793,19093,1,8,11,10,1,19089,1793,19101,1,127,
11,10,1,19097,2049,2255,22,10,19075,19119,168,0,6953539406400,103,97,116,104,101,114,0,
2049,19086,1,17,1,4134,2049,66,10,19107,19139,168,0,210709415765,99,121,99,108,101,0,
2049,10864,2049,2217,4,8,2049,2644,25,3,2049,19119,1,19139,7,10,19052,19172,168,19835,
-4557881830897049127,112,97,114,115,101,45,117,110,116,105,108,0,1793,19184,2049,4451,2049,4234,2049,
19139,771,2049,4096,10,1,19174,2049,4260,10,19155,19200,168,19835,210726130610,115,58,103,101,116,
0,1793,19222,1793,19208,1,13,11,10,1,19204,1793,19216,1,10,11,10,1,19212,2049,
2255,22,10,1,19202,2049,19172,10,19189,19238,168,19835,210708950412,99,108,101,97,114,0,2049,
4472,92,94,91,50,74,92,94,91,48,59,48,72,0,1,19240,2049,8246,2049,10640,
10,19227,19272,156,19835,6952575930081,78,111,69,99,104,111,0,0,19260,19282,156,0,193454829,69,
79,84,0,0,19273,19297,156,0,7571133383038306,73,103,110,111,114,105,110,103,0,0,19283,
19313,168,0,249892406716047873,105,103,110,111,114,105,110,103,63,0,3841,19297,10,19298,19329,168,
0,229486327000139,118,101,114,115,105,111,110,0,3841,4,1,100,20,10,19316,19346,168,0,
210710254026,100,111,110,101,63,0,2,4097,19282,1793,19355,1,13,11,10,1,19351,1793,19363,
1,10,11,10,1,19359,1793,19371,1,32,11,10,1,19367,2049,2298,22,22,10,19335,
19388,168,0,6385195044,101,111,108,63,0,3841,19282,1793,19396,1,13,11,10,1,19392,1793,
19404,1,10,11,10,1,19400,2049,2255,22,10,19378,19422,168,0,6954126150804,118,97,108,105,
100,63,0,2,2049,104,2049,2812,10,19410,19443,168,0,249883998779477802,99,104,101,99,107,45,
101,111,102,0,2,1793,19450,1,-1,11,10,1,19446,1793,19458,1,4,11,10,1,
19454,2049,2255,22,1793,19468,2049,10931,10,1,19465,9,10,19428,19480,168,0,5863258,98,115,
0,2049,4212,1,2,2049,2675,1793,19492,2049,4160,3,10,1,19488,9,2049,4160,3,10,
19472,19513,168,0,7572242387256805,99,104,101,99,107,45,98,115,0,2,1793,19520,1,8,11,
10,1,19516,1793,19528,1,127,11,10,1,19524,2049,2255,22,1793,19538,2049,19480,10,1,
19535,9,10,19499,19553,168,0,210708806723,99,104,101,99,107,0,2049,19443,2049,19513,10,19542,
19573,168,0,249883994190734226,99,104,97,114,97,99,116,101,114,0,2049,10864,2,2049,4134,10,
19558,19591,168,0,6953366942559,98,117,102,102,101,114,0,1793,19601,2049,19048,2049,4234,8,2049,
4096,10,1,19593,2049,4260,10,19579,19622,168,0,8246863741238799215,114,101,97,100,45,116,111,107,
101,110,0,1793,19638,1793,19633,2049,19573,2049,19553,2049,19346,10,1,19626,2049,2397,10,1,
19624,2049,19591,2049,4587,10,19606,19656,168,0,210716150453,105,110,112,117,116,0,2049,19622,2049,
19422,10,19645,19674,168,0,229479082815460,112,114,111,99,101,115,115,0,2049,19313,1793,19692,771,
2049,19388,1793,19688,1,19297,2049,3931,10,1,19683,9,10,1,19678,2049,2862,1,415,1,
17,2049,66,10,19260,19711,180,19835,5861507,47,47,0,2049,16280,1,19297,2049,3916,10,19703,
19730,168,19835,6953343520347,98,97,110,110,101,114,0,2049,19329,2049,4472,82,69,84,82,79,
32,49,50,32,40,37,110,46,37,110,41,92,110,0,1,19734,2049,8246,2049,10640,
2049,10716,2049,1545,2049,10716,18,2049,1545,2049,4472,37,110,32,77,97,120,44,32,37,
110,32,85,115,101,100,44,32,37,110,32,70,114,101,101,92,110,0,1,19770,
2049,8246,2049,10640,10,19718,19816,168,19835,6953744547860,108,105,115,116,101,110,0,3841,19272,1793,
19823,2049,19730,10,1,19820,2049,74,2049,19656,2049,19674,1,19827,7,10,105,110,116,101,
114,102,97,99,101,47,114,101,116,114,111,45,117,110,105,120,46,114,101,116,
114,111,0,19804,19875,156,0,229441520490121,83,111,117,114,99,101,115,0,1,20124,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,19839,19992,168,0,6953711201841,107,110,111,119,110,63,0,2,1,19852,2049,9099,10,19980,
20009,168,0,210716136861,105,110,100,101,120,0,1,19852,4,2049,9416,1,19852,4,2049,9236,
10,19998,20032,168,0,6953974036516,114,101,99,111,114,100,0,2049,4500,2,1,19852,2049,3864,
3841,19852,1,19852,17,16,10,1793,20087,2049,16215,2049,19992,1793,20057,2049,20009,10,1,20054,
1793,20064,2049,20032,10,1,20061,2049,66,1793,20077,1,192,1,2,17,8,10,1,20070,
2049,2229,2049,1576,2049,186,16,10,1,20048,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,19781,20127,168,20089,229461403550098,
100,58,119,111,114,100,115,0,1793,20136,2049,190,2049,10640,2049,10610,10,1,20129,2049,
8491,10,20114,20159,168,20089,-3502157631813457253,100,58,119,111,114,100,115,45,119,105,116,104,0,
2049,1977,2049,5573,1793,20190,2049,190,2,2049,1977,2049,5286,1793,20179,2049,10640,2049,10610,10,
1,20174,1793,20185,3,10,1,20183,2049,66,10,1,20165,2049,8491,10,20141,20216,168,20089,
2818131571306626127,100,105,115,112,108,97,121,45,105,102,45,108,101,102,116,0,2,2049,1977,
2049,5519,1793,20228,2049,10640,2049,10610,10,1,20223,1793,20234,3,10,1,20232,2049,66,10,
20141,20267,168,20089,2947807019553410009,100,58,119,111,114,100,115,45,98,101,103,105,110,110,105,
110,103,45,119,105,116,104,0,2049,1977,2049,5573,1793,20278,2049,190,2049,20216,10,1,
20273,2049,8491,10,0 };
0,0,0,0,19862,20015,168,0,6953711201841,107,110,111,119,110,63,0,2,1,19875,2049,
9099,10,20003,20032,168,0,210716136861,105,110,100,101,120,0,1,19875,4,2049,9416,1,19875,
4,2049,9236,10,20021,20055,168,0,6953974036516,114,101,99,111,114,100,0,2049,4500,2,1,
19875,2049,3864,3841,19875,1,19875,17,16,10,1793,20122,2049,16215,2049,20015,1793,20080,2049,20032,
10,1,20077,1793,20087,2049,20055,10,1,20084,2049,66,1793,20100,1,192,1,2,17,8,
10,1,20093,2049,2229,2049,1576,2049,186,16,2049,1576,2049,190,3841,10980,8,2049,1576,2049,
188,16,10,1,20071,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,19804,20162,168,20124,229461403550098,100,58,119,111,114,
100,115,0,1793,20171,2049,190,2049,10640,2049,10610,10,1,20164,2049,8491,10,20149,20194,168,
20124,-3502157631813457253,100,58,119,111,114,100,115,45,119,105,116,104,0,2049,1977,2049,5573,1793,
20225,2049,190,2,2049,1977,2049,5286,1793,20214,2049,10640,2049,10610,10,1,20209,1793,20220,3,
10,1,20218,2049,66,10,1,20200,2049,8491,10,20176,20251,168,20124,2818131571306626127,100,105,115,112,
108,97,121,45,105,102,45,108,101,102,116,0,2,2049,1977,2049,5519,1793,20263,2049,
10640,2049,10610,10,1,20258,1793,20269,3,10,1,20267,2049,66,10,20176,20302,168,20124,2947807019553410009,
100,58,119,111,114,100,115,45,98,101,103,105,110,110,105,110,103,45,119,105,
116,104,0,2049,1977,2049,5573,1793,20313,2049,190,2049,20251,10,1,20308,2049,8491,10,0 };

2
vm/nga-c/repl.c
View file

@ -38,7 +38,7 @@
#endif
#ifndef IMAGE_SIZE
#define IMAGE_SIZE 524288 /* Amount of RAM, in cells */
#define IMAGE_SIZE 65536 /* Amount of RAM, in cells */
#endif
#ifndef ADDRESSES