1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
static const struct system_word vocab[80+1] = {
{ 0, (const byte *)"", 80+1},
{ 1, (const byte *)"$", c_dollar },
{ 1, (const byte *)"(", c_bra },
{ 1, (const byte *)")", c_ket },
{ 1, (const byte *)"*", c_multiply },
{ 1, (const byte *)"+", c_plus },
{ 1, (const byte *)"-", c_minus },
{ 1, (const byte *)"/", c_divide },
{ 1, (const byte *)"<", c_ls },
{ 1, (const byte *)"=", c_assign },
{ 1, (const byte *)">", c_gr },
{ 1, (const byte *)"?", c_debug },
{ 1, (const byte *)"[", c_leftslice },
{ 1, (const byte *)"]", c_rightslice },
{ 2, (const byte *)"!=", c_ne },
{ 2, (const byte *)"*=", c_multiplyassign },
{ 2, (const byte *)"+=", c_plusassign },
{ 2, (const byte *)"-=", c_minusassign },
{ 2, (const byte *)"->", c_sliceto },
{ 2, (const byte *)"/*", c_comment2 },
{ 2, (const byte *)"//", c_comment1 },
{ 2, (const byte *)"/=", c_divideassign },
{ 2, (const byte *)"<+", c_insert },
{ 2, (const byte *)"<-", c_slicefrom },
{ 2, (const byte *)"<=", c_le },
{ 2, (const byte *)"==", c_eq },
{ 2, (const byte *)"=>", c_assignto },
{ 2, (const byte *)">=", c_ge },
{ 2, (const byte *)"as", c_as },
{ 2, (const byte *)"do", c_do },
{ 2, (const byte *)"or", c_or },
{ 3, (const byte *)"and", c_and },
{ 3, (const byte *)"for", c_for },
{ 3, (const byte *)"get", c_get },
{ 3, (const byte *)"hex", c_hex },
{ 3, (const byte *)"hop", c_hop },
{ 3, (const byte *)"non", c_non },
{ 3, (const byte *)"not", c_not },
{ 3, (const byte *)"set", c_set },
{ 3, (const byte *)"try", c_try },
{ 4, (const byte *)"fail", c_fail },
{ 4, (const byte *)"goto", c_goto },
{ 4, (const byte *)"loop", c_loop },
{ 4, (const byte *)"next", c_next },
{ 4, (const byte *)"size", c_size },
{ 4, (const byte *)"test", c_test },
{ 4, (const byte *)"true", c_true },
{ 5, (const byte *)"among", c_among },
{ 5, (const byte *)"false", c_false },
{ 5, (const byte *)"limit", c_limit },
{ 5, (const byte *)"unset", c_unset },
{ 6, (const byte *)"atmark", c_atmark },
{ 6, (const byte *)"attach", c_attach },
{ 6, (const byte *)"cursor", c_cursor },
{ 6, (const byte *)"define", c_define },
{ 6, (const byte *)"delete", c_delete },
{ 6, (const byte *)"gopast", c_gopast },
{ 6, (const byte *)"insert", c_insert },
{ 6, (const byte *)"maxint", c_maxint },
{ 6, (const byte *)"minint", c_minint },
{ 6, (const byte *)"repeat", c_repeat },
{ 6, (const byte *)"sizeof", c_sizeof },
{ 6, (const byte *)"tomark", c_tomark },
{ 7, (const byte *)"atleast", c_atleast },
{ 7, (const byte *)"atlimit", c_atlimit },
{ 7, (const byte *)"decimal", c_decimal },
{ 7, (const byte *)"reverse", c_reverse },
{ 7, (const byte *)"setmark", c_setmark },
{ 7, (const byte *)"strings", c_strings },
{ 7, (const byte *)"tolimit", c_tolimit },
{ 8, (const byte *)"booleans", c_booleans },
{ 8, (const byte *)"integers", c_integers },
{ 8, (const byte *)"routines", c_routines },
{ 8, (const byte *)"setlimit", c_setlimit },
{ 9, (const byte *)"backwards", c_backwards },
{ 9, (const byte *)"externals", c_externals },
{ 9, (const byte *)"groupings", c_groupings },
{ 9, (const byte *)"stringdef", c_stringdef },
{ 9, (const byte *)"substring", c_substring },
{ 12, (const byte *)"backwardmode", c_backwardmode },
{ 13, (const byte *)"stringescapes", c_stringescapes }
};
|