From e13efe10df9d4ea1179b5004bb14dda3ac654d16 Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Fri, 24 Jan 2020 16:01:30 +0000
Subject: [PATCH] interpret can now be patched via set-hook

FossilOrigin-Name: f29878d25d749923a647a17dd2c9216d62c87de63f258aa62cc04b635c390afd
---
 image/rx.muri          |   5 +++
 ngaImage               | Bin 37800 -> 37800 bytes
 vm/nga-c/retro-image.c |  82 ++++++++++++++++++++---------------------
 3 files changed, 46 insertions(+), 41 deletions(-)

diff --git a/image/rx.muri b/image/rx.muri
index 53ec341..4ef9415 100644
--- a/image/rx.muri
+++ b/image/rx.muri
@@ -1180,6 +1180,8 @@ i feju....
 d 0
 
 : interpret:prefix
+i ........
+i ........
 i lifezr..
 r prefix:handler
 i lifeliad
@@ -1205,6 +1207,9 @@ i liju....
 r choose
 
 : interpret
+i liju....
+r _interpret
+: _interpret
 i dulistli
 r input:source
 r prefix?
diff --git a/ngaImage b/ngaImage
index 1c50a8188657117ad09fd9b38fc064c052c368de..bcf5593075f3ccba0ac8c1beb194657ad0ae7222 100644
GIT binary patch
delta 793
zcmYjOUr3X26#ee!{(alGX=Y8EA8V{yvetachoSalNtsVQh%FdN<->}?@JTQNpNf<N
zqi`WUgwj7+>!Be8fj*S<P(cwAL=ycWhy^_qJ#_AJ(1COB@1A?^w|m**g1NY0-d{Gw
zDzBKcrpKrO$K5?!b7B~Sq<9TuKV{8l1-IPWWCSbjIcG_mKEtT|mtC?+Oq!Q)(KEQS
z#10ix6?NWICm-X?wO)fXkK?B&A<J;QQCUSd<11tt*D&FY$U3g`{S_5&#QDLg?fg=K
zJVlO?y`<t7s@}L|@P~G=DnObd9TuxyT9HXo(M)YOvuY_7h%j=#&C-qwzNiype=jxd
z=g2eU2&w2m$rqMRJoQCnA3plx(hbXsN*_9`NZS!k_Hn}^ot<PxM~I`yT3yyKyQ)lc
zvoIc7tul(|Rz}8Q`QtK$ls_$3k@Y9qX6Zagr*1Gxo+K4Fal;>x+o;g_0ACm%qb(5K
z@{E4<O_O`nNW8>AAl&_ioe5UDQGJ_t)SQhiht*1apqARuvi~IG6XpY5@(phT3Hc4N
zqvAr$PKu2IJK+vD=p`jPifeX@#BkTnxYN`w)igWUB0Y!&d*v{4!L%I14C84$VH`u1
zaT2jmLN22}6n7Umm&dtKTIMj%cn2>+hvX5Q#$^90dqr-hx9N?F*VO9w*8iC`YLo2g
zrSJJJY|NZztysrQ<B77X>5o@Fm!<W)ONywrXQWV0ImuDUV`%Dt<jeC@s~#zq^H(yS
Ezf0koxBvhE

delta 782
zcmYjOUr1AN6u#%WyWP9ZP1DddFAJ6}nakFT*b<|MvLd9Xk{D6hACX07j|Kf92|_SG
zFu@@9<O+;rg&+h8mPk-kgb0;H5%toa2ZO+ezGDvh;5)zH`ObIl?;LJn%q)zV4`xiU
zicif^6Q`~1p(A1#9i;dSV~2q$Yn>d!TkDQHsiJKdkN!J7QYofk7?Zf^?WiATg^H<)
zI`65Imp+~=wK7@L2g{d`CrJ5XGK>9;FOg%M$AB*?i@3}C7tHyh?ss;r=a+`bQ{;KF
zjZ`c_?6|W`#|CD@kcw!7#b-BaMkYx`h}tHes-;vQs?cj!NiD9~G1p~%Gc~OrCC`vu
zq@o_vc8xS*!H&vSEZK2sLBxs4PP91D$X<5t;`_Jh+(Krwg*bqm)9f5%Rh2<bR)ZO*
zR!-o(laW3|{BgO0R)3S+K+d0t+@iCcPMx5eJV`3@823kI40Cke#~;QiGz4O6pV6<r
zL9$Ve#0z8tHLY)0xyVc>DowLM&0U@Huv&=^)KaTj_Mc>Y!bG51zT#UTA-_=>jERAC
zFex^&!Gu*+rkhL$V<-fx#l_=b#!6DVx}w#USIah}%iE+Kz2!}E2zkaXyka~H2{p+D
zq(ce0j?Pfr8e(4$E>j)F1Y-doL;K_*QsLyDS=L54neL`LDqd47?OXaY^VBY}rklRw
zeQ34k9CO7Y^5Nt78LlXLDwcinxhS<iJTih`br~5drrcz=^q{kUxAYYA{m;EJQp^ox
Gyng|G@0-*B

diff --git a/vm/nga-c/retro-image.c b/vm/nga-c/retro-image.c
index dd8228a..b8b2802 100644
--- a/vm/nga-c/retro-image.c
+++ b/vm/nga-c/retro-image.c
@@ -20,40 +20,40 @@ CELL ngaImage[] = { 1793,14340,14884,14926,202004,0,10,1,10,2,10,3,10,4,10,5,10,
                        2049,197,2049,158,459023,131,285282049,3,2,134287105,124,276,524545,1793,105,16846593,3,0,105,8,
                        659201,3,524545,25,110,17043201,3,7,2049,110,2049,105,268505092,124,1642241,124,656131,659201,3,524545,
                        7,110,2049,105,459009,19,110,459009,54,110,459009,15,110,459009,17,110,1793,5,10,524546,
-                       158,134284303,160,1807,1025,1642241,227,285282049,343,1,459012,338,117509889,177,338,134287105,343,197,16845825,0,
-                       351,335,1793,64,17826050,343,247,8,117506305,344,354,64,2116,11340,11700,11400,13685,13104,12432,12402,
-                       9603,9801,11514,11413,11110,12528,11948,10302,13340,9700,13455,12753,10500,10670,12654,13320,11960,13908,10088,10605,
-                       11865,11025,0,2049,197,987393,1,1793,105,524546,439,2049,437,2049,437,17891588,2,439,8,17045505,
-                       -24,-16,17043736,-8,1118488,1793,105,17043202,1,169021201,2049,56,25,33883396,101450758,6404,459011,429,34668804,2,
-                       2049,426,524545,371,429,302056196,371,659969,1,0,9,150,100,117,112,0,448,11,150,100,
-                       114,111,112,0,455,13,150,115,119,97,112,0,463,21,150,99,97,108,108,0,
-                       471,26,150,101,113,63,0,479,28,150,45,101,113,63,0,486,30,150,108,116,
-                       63,0,494,32,150,103,116,63,0,501,34,150,102,101,116,99,104,0,508,36,
-                       150,115,116,111,114,101,0,517,38,150,43,0,526,40,150,45,0,531,42,150,
-                       42,0,536,44,150,47,109,111,100,0,541,46,150,97,110,100,0,549,48,150,
-                       111,114,0,556,50,150,120,111,114,0,562,52,150,115,104,105,102,116,0,569,
-                       329,156,112,117,115,104,0,578,332,156,112,111,112,0,586,326,156,48,59,0,
-                       593,56,144,102,101,116,99,104,45,110,101,120,116,0,599,59,144,115,116,111,
-                       114,101,45,110,101,120,116,0,613,218,144,115,58,116,111,45,110,117,109,98,
-                       101,114,0,627,93,144,115,58,101,113,63,0,642,79,144,115,58,108,101,110,
-                       103,116,104,0,651,64,144,99,104,111,111,115,101,0,663,72,150,105,102,0,
-                       673,70,144,45,105,102,0,679,258,156,112,114,101,102,105,120,58,40,0,686,
-                       124,131,67,111,109,112,105,108,101,114,0,698,3,131,72,101,97,112,0,710,
-                       105,144,44,0,718,119,144,115,44,0,723,125,156,59,0,729,285,156,91,0,
-                       734,301,156,93,0,739,2,131,68,105,99,116,105,111,110,97,114,121,0,744,
-                       157,144,100,58,108,105,110,107,0,758,158,144,100,58,120,116,0,768,160,144,
-                       100,58,99,108,97,115,115,0,776,162,144,100,58,110,97,109,101,0,787,144,
-                       144,99,108,97,115,115,58,119,111,114,100,0,797,156,144,99,108,97,115,115,
-                       58,109,97,99,114,111,0,811,131,144,99,108,97,115,115,58,100,97,116,97,
-                       0,826,164,144,100,58,97,100,100,45,104,101,97,100,101,114,0,840,259,156,
-                       112,114,101,102,105,120,58,35,0,856,265,156,112,114,101,102,105,120,58,58,
-                       0,868,279,156,112,114,101,102,105,120,58,38,0,880,263,156,112,114,101,102,
-                       105,120,58,36,0,892,316,156,114,101,112,101,97,116,0,904,318,156,97,103,
-                       97,105,110,0,914,363,144,105,110,116,101,114,112,114,101,116,0,923,197,144,
-                       100,58,108,111,111,107,117,112,0,936,150,144,99,108,97,115,115,58,112,114,
-                       105,109,105,116,105,118,101,0,948,4,131,86,101,114,115,105,111,110,0,967,
-                       408,144,105,0,978,105,144,100,0,983,128,156,988,402,144,114,0,991,335,144,
-                       101,114,114,58,110,111,116,102,111,117,110,100,0,0,0,0,0,0,0,0,
+                       158,134284303,160,1807,1025,0,0,1642241,227,285282049,343,1,459012,338,117509889,177,338,134287105,343,197,
+                       16845825,0,353,335,1793,64,1793,367,17826050,343,247,8,117506305,344,356,64,2116,11340,11700,11400,
+                       13685,13104,12432,12402,9603,9801,11514,11413,11110,12528,11948,10302,13340,9700,13455,12753,10500,10670,12654,13320,
+                       11960,13908,10088,10605,11865,11025,0,2049,197,987393,1,1793,105,524546,443,2049,441,2049,441,17891588,
+                       2,443,8,17045505,-24,-16,17043736,-8,1118488,1793,105,17043202,1,169021201,2049,56,25,33883396,101450758,6404,
+                       459011,433,34668804,2,2049,430,524545,375,433,302056196,375,659969,1,0,9,150,100,117,112,0,
+                       452,11,150,100,114,111,112,0,459,13,150,115,119,97,112,0,467,21,150,99,
+                       97,108,108,0,475,26,150,101,113,63,0,483,28,150,45,101,113,63,0,490,
+                       30,150,108,116,63,0,498,32,150,103,116,63,0,505,34,150,102,101,116,99,
+                       104,0,512,36,150,115,116,111,114,101,0,521,38,150,43,0,530,40,150,45,
+                       0,535,42,150,42,0,540,44,150,47,109,111,100,0,545,46,150,97,110,100,
+                       0,553,48,150,111,114,0,560,50,150,120,111,114,0,566,52,150,115,104,105,
+                       102,116,0,573,329,156,112,117,115,104,0,582,332,156,112,111,112,0,590,326,
+                       156,48,59,0,597,56,144,102,101,116,99,104,45,110,101,120,116,0,603,59,
+                       144,115,116,111,114,101,45,110,101,120,116,0,617,218,144,115,58,116,111,45,
+                       110,117,109,98,101,114,0,631,93,144,115,58,101,113,63,0,646,79,144,115,
+                       58,108,101,110,103,116,104,0,655,64,144,99,104,111,111,115,101,0,667,72,
+                       150,105,102,0,677,70,144,45,105,102,0,683,258,156,112,114,101,102,105,120,
+                       58,40,0,690,124,131,67,111,109,112,105,108,101,114,0,702,3,131,72,101,
+                       97,112,0,714,105,144,44,0,722,119,144,115,44,0,727,125,156,59,0,733,
+                       285,156,91,0,738,301,156,93,0,743,2,131,68,105,99,116,105,111,110,97,
+                       114,121,0,748,157,144,100,58,108,105,110,107,0,762,158,144,100,58,120,116,
+                       0,772,160,144,100,58,99,108,97,115,115,0,780,162,144,100,58,110,97,109,
+                       101,0,791,144,144,99,108,97,115,115,58,119,111,114,100,0,801,156,144,99,
+                       108,97,115,115,58,109,97,99,114,111,0,815,131,144,99,108,97,115,115,58,
+                       100,97,116,97,0,830,164,144,100,58,97,100,100,45,104,101,97,100,101,114,
+                       0,844,259,156,112,114,101,102,105,120,58,35,0,860,265,156,112,114,101,102,
+                       105,120,58,58,0,872,279,156,112,114,101,102,105,120,58,38,0,884,263,156,
+                       112,114,101,102,105,120,58,36,0,896,316,156,114,101,112,101,97,116,0,908,
+                       318,156,97,103,97,105,110,0,918,365,144,105,110,116,101,114,112,114,101,116,
+                       0,927,197,144,100,58,108,111,111,107,117,112,0,940,150,144,99,108,97,115,
+                       115,58,112,114,105,109,105,116,105,118,101,0,952,4,131,86,101,114,115,105,
+                       111,110,0,971,412,144,105,0,982,105,144,100,0,987,128,156,992,406,144,114,
+                       0,995,335,144,101,114,114,58,110,111,116,102,111,117,110,100,0,0,0,0,
                        0,0,0,0,0,0,105,109,97,103,101,58,115,97,118,101,0,103,101,0,
                        116,0,110,103,45,119,105,116,104,0,104,0,79,85,78,68,0,125,126,0,
                        72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,0,
@@ -79,7 +79,7 @@ CELL ngaImage[] = { 1793,14340,14884,14926,202004,0,10,1,10,2,10,3,10,4,10,5,10,
                        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,996,1543,144,
+                       0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1000,1543,144,
                        69,79,77,0,1,-3,15,10,1536,1556,144,100,101,112,116,104,0,1,-1,15,
                        10,1547,1570,144,100,58,108,97,115,116,0,1,2,15,10,1560,1588,144,100,58,
                        108,97,115,116,60,120,116,62,0,2049,1570,2049,158,15,10,1574,1611,144,100,58,
@@ -95,8 +95,8 @@ CELL ngaImage[] = { 1793,14340,14884,14926,202004,0,10,1,10,2,10,3,10,4,10,5,10,
                        2049,105,2049,105,10,1761,1799,144,99,111,109,112,105,108,101,58,114,101,116,0,
                        1,10,2049,105,10,1784,1818,144,99,111,109,112,105,108,105,110,103,63,0,1,
                        124,15,10,1804,1834,156,112,114,101,102,105,120,58,96,0,2049,218,2049,105,10,
-                       1822,1851,156,112,114,101,102,105,120,58,92,0,2049,408,10,1839,1866,156,112,114,
-                       101,102,105,120,58,94,0,2049,402,10,1854,1877,144,104,101,114,101,0,1,3,
+                       1822,1851,156,112,114,101,102,105,120,58,92,0,2049,412,10,1839,1866,156,112,114,
+                       101,102,105,120,58,94,0,2049,406,10,1854,1877,144,104,101,114,101,0,1,3,
                        15,10,1869,1893,156,112,114,101,102,105,120,58,64,0,2049,197,2049,158,15,2049,
                        1818,1793,1909,1,3841,2049,105,2049,105,10,1,1902,1793,1915,15,10,1,1913,2049,64,
                        10,1881,1932,156,112,114,101,102,105,120,58,33,0,2049,197,2049,158,15,2049,1818,
@@ -432,8 +432,8 @@ CELL ngaImage[] = { 1793,14340,14884,14926,202004,0,10,1,10,2,10,3,10,4,10,5,10,
                        8497,8535,144,99,111,117,110,116,45,116,111,107,101,110,115,0,1793,8541,1,32,
                        11,10,1,8537,2049,4315,2049,79,10,8519,8562,144,110,101,120,116,45,116,111,107,
                        101,110,0,1,32,2049,6141,10,8548,8585,144,112,114,111,99,101,115,115,45,116,
-                       111,107,101,110,115,0,1793,8611,2049,8562,4,1793,8604,2,2049,79,2049,2583,1,363,
-                       1,11,2049,64,10,1,8592,2049,2106,2049,2893,10,1,8587,2049,2281,2049,363,10,8460,
+                       111,107,101,110,115,0,1793,8611,2049,8562,4,1793,8604,2,2049,79,2049,2583,1,365,
+                       1,11,2049,64,10,1,8592,2049,2106,2049,2893,10,1,8587,2049,2281,2049,365,10,8460,
                        8632,144,115,58,101,118,97,108,117,97,116,101,0,2049,8513,2049,4562,2049,8513,2,
                        2049,8535,2049,8585,10,8618,8652,131,70,108,97,103,0,0,8644,8664,144,99,111,109,
                        112,97,114,101,0,67440386,184946434,10,8653,8677,144,108,101,110,103,116,104,0,659202,10,
@@ -455,7 +455,7 @@ CELL ngaImage[] = { 1793,14340,14884,14926,202004,0,10,1,10,2,10,3,10,4,10,5,10,
                        17,1,2,18,15,10,8970,9006,144,116,105,109,101,115,60,119,105,116,104,45,
                        105,110,100,101,120,62,0,2049,8918,4,1793,9022,25,33886721,1,2053,1542,2049,8902,1,
                        9011,7,10,1,9011,8,3,2049,8939,10,8985,9037,156,104,111,111,107,0,2049,3667,
-                       108,105,106,117,46,46,46,46,0,1,9039,2049,408,2049,1877,2049,2893,2049,105,10,
+                       108,105,106,117,46,46,46,46,0,1,9039,2049,412,2049,1877,2049,2893,2049,105,10,
                        9029,9071,144,115,101,116,45,104,111,111,107,0,2049,2893,16,10,9059,9085,144,117,
                        110,104,111,111,107,0,2049,2893,2,2049,2893,4,16,10,9075,9109,144,105,111,58,
                        101,110,117,109,101,114,97,116,101,0,27,10,9093,9123,144,105,111,58,113,117,
@@ -715,7 +715,7 @@ CELL ngaImage[] = { 1793,14340,14884,14926,202004,0,10,1,10,2,10,3,10,4,10,5,10,
                        144,114,101,97,100,45,116,111,107,101,110,0,1793,14207,1793,14202,2049,14146,2049,14128,
                        2049,13989,10,1,14195,2049,2256,10,1,14193,2049,14162,2049,3745,10,14177,14223,144,105,110,
                        112,117,116,0,2049,14191,2049,14028,10,14214,14239,144,112,114,111,99,101,115,115,0,
-                       1,363,1,11,2049,64,10,13951,14256,144,98,97,110,110,101,114,0,2049,13974,2049,
+                       1,365,1,11,2049,64,10,13951,14256,144,98,97,110,110,101,114,0,2049,13974,2049,
                        3667,82,69,84,82,79,32,49,50,32,40,37,110,46,37,110,41,92,110,0,
                        1,14260,2049,6548,2049,9257,2049,1543,2049,1877,18,2049,1877,2049,1543,2049,3667,37,110,32,
                        77,97,120,44,32,37,110,32,85,115,101,100,44,32,37,110,32,70,114,101,