A patch for J interpreter. I compiled a J interpreter by tcc with this
patch applied.
--- open-j.orig/p.c 2012-03-12 04:54:39.000000000 +0300
+++ open-j/p.c 2015-01-24 10:22:28.000000000 +0300
@@ -96,15 +96,15 @@
#define EDGE (MARK+ASGN+LPAR)
PT cases[] = {
- EDGE, VERB, NOUN, ANY, jtmonad, jtvmonad, 1,2,1,
- EDGE+AVN, VERB, VERB, NOUN, jtmonad, jtvmonad, 2,3,2,
- EDGE+AVN, NOUN, VERB, NOUN, jtdyad, jtvdyad, 1,3,2,
- EDGE+AVN, VERB+NOUN, ADV, ANY, jtadv, jtvadv, 1,2,1,
- EDGE+AVN, VERB+NOUN, CONJ, VERB+NOUN, jtconj, jtvconj, 1,3,1,
- EDGE+AVN, VERB+NOUN, VERB, VERB, jttrident, jtvfolk, 1,3,1,
- EDGE, CAVN, CAVN, ANY, jtbident, jtvhook, 1,2,1,
- NAME+NOUN, ASGN, CAVN, ANY, jtis, jtvis, 0,2,1,
- LPAR, CAVN, RPAR, ANY, jtpunc, jtvpunc, 0,2,0,
+ {EDGE, VERB, NOUN, ANY, jtmonad, jtvmonad, 1,2,1},
+ {EDGE+AVN, VERB, VERB, NOUN, jtmonad, jtvmonad, 2,3,2},
+ {EDGE+AVN, NOUN, VERB, NOUN, jtdyad, jtvdyad, 1,3,2},
+ {EDGE+AVN, VERB+NOUN, ADV, ANY, jtadv, jtvadv, 1,2,1},
+ {EDGE+AVN, VERB+NOUN, CONJ, VERB+NOUN, jtconj, jtvconj, 1,3,1},
+ {EDGE+AVN, VERB+NOUN, VERB, VERB, jttrident, jtvfolk, 1,3,1},
+ {EDGE, CAVN, CAVN, ANY, jtbident, jtvhook, 1,2,1},
+ {NAME+NOUN, ASGN, CAVN, ANY, jtis, jtvis, 0,2,1},
+ {LPAR, CAVN, RPAR, ANY, jtpunc, jtvpunc, 0,2,0},
};
_______________________________________________
Tinycc-devel mailing list
[email protected]
https://lists.nongnu.org/mailman/listinfo/tinycc-devel
