~crc_/retroforth

9ce0905bf22b81a34269f5c24e496e9581b125e3 — crc a month ago bedfd55
update url for unu information in warning

FossilOrigin-Name: f48cf697b656481796217926f04e7660aca715ac5ac3aa6d833057ee7cff9c32
2 files changed, 23 insertions(+), 8 deletions(-)

M vm/nga-c/image.c
M vm/nga-c/retro.c
M vm/nga-c/image.c => vm/nga-c/image.c +21 -6
@@ 10,8 10,8 @@
#define CELL_MAX LLONG_MAX - 1
#endif
#endif
CELL ngaImageCells = 17459;
CELL ngaImage[] = { 1793,16828,17415,17458,202111,405,377,1150,1535,0,10,1,10,2,10,3,10,4,10,
CELL ngaImageCells = 17751;
CELL ngaImage[] = { 1793,16828,17707,17750,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,16828,17415,17458,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,17168,17108737,3,2,524559,128,2049,128,2049,128,
                       10,659713,1,659713,2,659713,3,659713,4,1793,17460,17108737,3,2,524559,128,2049,128,2049,128,
                       524545,0,128,2049,142,168820998,2,16091,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,


@@ 171,7 171,7 @@ CELL ngaImage[] = { 1793,16828,17415,17458,202111,405,377,1150,1535,0,10,1,10,2,
                       0,659713,1,10,3130,3153,166,15347,110,58,100,101,99,0,659969,1,10,3143,3171,166,
                       15347,110,58,98,101,116,119,101,101,110,63,0,67503109,1793,3179,67503109,67503109,2049,3122,10,
                       1,3174,2049,2203,11,10,3156,3199,166,15347,83,99,111,112,101,76,105,115,116,0,
                       17269,17347,10,3185,3209,166,15347,123,123,0,2049,1573,2,1,3199,2049,59,16,10,3202,
                       17561,17639,10,3185,3209,166,15347,123,123,0,2049,1573,2,1,3199,2049,59,16,10,3202,
                       3235,166,15347,45,45,45,114,101,118,101,97,108,45,45,45,0,2049,1573,1,3199,
                       2049,3140,16,10,3218,3250,166,15347,125,125,0,1,3199,2049,56,4,15,11,1793,3264,
                       3841,3199,4097,2,10,1,3259,1793,3290,3841,3199,1793,3285,1,2,983567,1,3199,2049,3140,


@@ 227,7 227,7 @@ CELL ngaImage[] = { 1793,16828,17415,17458,202111,405,377,1150,1535,0,10,1,10,2,
                       83,116,114,105,110,103,115,0,32,4251,4286,154,15347,84,101,109,112,83,116,114,
                       105,110,103,77,97,120,0,512,4268,4299,166,15347,83,84,82,73,78,71,83,0,
                       2049,1544,3841,4267,3841,4286,19,18,10,4287,4320,154,0,67,117,114,114,101,110,116,
                       0,20,10,4308,4336,166,0,115,58,112,111,105,110,116,101,114,0,3841,4320,3841,
                       0,0,10,4308,4336,166,0,115,58,112,111,105,110,116,101,114,0,3841,4320,3841,
                       4286,19,2049,4299,17,10,4322,4356,166,0,115,58,110,101,120,116,0,1,4320,2049,
                       3854,3841,4320,3841,4267,11,1793,4372,1,0,4097,4320,10,1,4367,9,10,4287,4387,166,
                       15347,115,58,116,101,109,112,0,2,2049,102,2049,3140,2049,4336,4,2049,4000,2049,4336,


@@ 883,4 883,19 @@ CELL ngaImage[] = { 1793,16828,17415,17458,202111,405,377,1150,1535,0,10,1,10,2,
                       1,17374,1793,17385,3,10,1,17383,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,17269,17442,166,17390,
                       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,5499,1793,17453,2049,186,2049,17367,10,1,17448,2049,8517,10,0 };
                       116,104,0,2049,1953,2049,5499,1793,17453,2049,186,2049,17367,10,1,17448,2049,8517,10,1793,
                       17483,2049,15193,2049,4461,1793,17473,1,188,1,2,17,8,10,1,17466,2049,2192,2049,1573,
                       2049,184,16,10,1,17460,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,17415,17522,166,17485,100,58,119,111,114,
                       100,115,0,1793,17531,2049,186,2049,10641,2049,10613,10,1,17524,2049,8517,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,17510,17578,166,17536,100,58,119,111,114,100,115,45,119,105,116,104,0,2049,
                       1953,2049,5499,1793,17609,2049,186,2,2049,1953,2049,5002,1793,17598,2049,10641,2049,10613,10,1,
                       17593,1793,17604,3,10,1,17602,2049,64,10,1,17584,2049,8517,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,
                       17561,17659,166,17614,100,105,115,112,108,97,121,45,105,102,45,108,101,102,116,0,
                       2,2049,1953,2049,5447,1793,17671,2049,10641,2049,10613,10,1,17666,1793,17677,3,10,1,17675,
                       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,17561,17734,166,17682,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,5499,1793,
                       17745,2049,186,2049,17659,10,1,17740,2049,8517,10,0 };

M vm/nga-c/retro.c => vm/nga-c/retro.c +2 -2
@@ 1731,8 1731,8 @@ void include_file(char *fname, int run_tests) {
  if (codeBlocks == 0) {
    printf("warning: no code blocks found!\n");
    printf("         filename: %s\n", fname);
    printf("         see http://forth.works/share/f6b106a370683fd91bbafd1e804de645\n");
    printf("         for a brief summary of the unu code format used by retro\n");
    printf("         see http://unu.retroforth.org for a brief summary of\n");
    printf("         the unu code format used by retro\n");

  }
  codeBlocks = priorBlocks;