sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

eq, neq, gt, ge, lt, le

This commit is contained in:
Simon Forman 2023-02-06 13:09:37 -08:00
parent 05575d8a08
commit 708e5ad3f5
5 changed files with 309 additions and 249 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
implementations/C/Makefile
View File

@ -15,7 +15,7 @@ GPERF_OPTS = --readonly-tables --enum --includes --hash-function-name=keyword_ha
joy: ${OBJS} $(STATIC_GCLIB) joy: ${OBJS} $(STATIC_GCLIB)
joy.o: joy.h joy.o: joy.h definitions.h
definitions.c: defs.txt convert_defs.py definitions.c: defs.txt convert_defs.py
python convert_defs.py > $@ python convert_defs.py > $@

18
implementations/C/definitions.c
View File

@ -12,6 +12,12 @@ Declare a bunch of list pointers to eventually hold the body expressions
of the definitions. of the definitions.
*/ */
JoyList def_eq_body;
JoyList def_gt_body;
JoyList def_lt_body;
JoyList def_neq_body;
JoyList def_le_body;
JoyList def_ge_body;
JoyList def_abs_body; JoyList def_abs_body;
JoyList def_anamorphism_body; JoyList def_anamorphism_body;
JoyList def_app1_body; JoyList def_app1_body;
@ -110,6 +116,12 @@ void
init_defs(void) init_defs(void)
{ {
def_eq_body = text_to_expression("[false] [true] [false] cmp");
def_gt_body = text_to_expression("[true] [false] [false] cmp");
def_lt_body = text_to_expression("[false] [false] [true] cmp");
def_neq_body = text_to_expression("[true] [false] [true] cmp");
def_le_body = text_to_expression("[false] [true] [true] cmp");
def_ge_body = text_to_expression("[true] [true] [false] cmp");
def_abs_body = text_to_expression("dup 0 < [] [neg] branch"); def_abs_body = text_to_expression("dup 0 < [] [neg] branch");
def_anamorphism_body = text_to_expression("[pop []] swap [dip swons] genrec"); def_anamorphism_body = text_to_expression("[pop []] swap [dip swons] genrec");
def_app1_body = text_to_expression("grba infrst"); def_app1_body = text_to_expression("grba infrst");
@ -205,6 +217,12 @@ init_defs(void)
Last, a set of functions to go in the wordlist, one for each definition. Last, a set of functions to go in the wordlist, one for each definition.
*/ */
void def_eq(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_eq_body, expression); }
void def_gt(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_gt_body, expression); }
void def_lt(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_lt_body, expression); }
void def_neq(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_neq_body, expression); }
void def_le(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_le_body, expression); }
void def_ge(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_ge_body, expression); }
void def_abs(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_abs_body, expression); } void def_abs(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_abs_body, expression); }
void def_anamorphism(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_anamorphism_body, expression); } void def_anamorphism(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_anamorphism_body, expression); }
void def_app1(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_app1_body, expression); } void def_app1(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_app1_body, expression); }

6
implementations/C/definitions.h
View File

@ -3,6 +3,12 @@ Auto-generated file by convert_defs.py --header
Do not edit. Do not edit.
*/ */
void def_eq(JoyListPtr stack, JoyListPtr expression);
void def_gt(JoyListPtr stack, JoyListPtr expression);
void def_lt(JoyListPtr stack, JoyListPtr expression);
void def_neq(JoyListPtr stack, JoyListPtr expression);
void def_le(JoyListPtr stack, JoyListPtr expression);
void def_ge(JoyListPtr stack, JoyListPtr expression);
void def_abs(JoyListPtr stack, JoyListPtr expression); void def_abs(JoyListPtr stack, JoyListPtr expression);
void def_anamorphism(JoyListPtr stack, JoyListPtr expression); void def_anamorphism(JoyListPtr stack, JoyListPtr expression);
void def_app1(JoyListPtr stack, JoyListPtr expression); void def_app1(JoyListPtr stack, JoyListPtr expression);

6
implementations/C/defs.txt
View File

@ -1,3 +1,9 @@
eq [false] [true] [false] cmp
gt [true] [false] [false] cmp
lt [false] [false] [true] cmp
neq [true] [false] [true] cmp
le [false] [true] [true] cmp
ge [true] [true] [false] cmp
abs dup 0 < [] [neg] branch abs dup 0 < [] [neg] branch
anamorphism [pop []] swap [dip swons] genrec anamorphism [pop []] swap [dip swons] genrec
app1 grba infrst app1 grba infrst

526
implementations/C/keywords.c
View File

@ -1,6 +1,6 @@
/* ANSI-C code produced by gperf version 3.1 */ /* ANSI-C code produced by gperf version 3.1 */
/* Command-line: gperf --output-file=keywords.c --readonly-tables --enum --includes --hash-function-name=keyword_hash KEYWORDS.txt */ /* Command-line: gperf --output-file=keywords.c --readonly-tables --enum --includes --hash-function-name=keyword_hash KEYWORDS.txt */
/* Computed positions: -k'2-3,$' */ /* Computed positions: -k'1-3,$' */
#if !((' ' == 32) && ('!' == 33) && ('"' == 34) && ('#' == 35) \ #if !((' ' == 32) && ('!' == 33) && ('"' == 34) && ('#' == 35) \
&& ('%' == 37) && ('&' == 38) && ('\'' == 39) && ('(' == 40) \ && ('%' == 37) && ('&' == 38) && ('\'' == 39) && ('(' == 40) \
@ -36,7 +36,7 @@
#line 13 "KEYWORDS.txt" #line 13 "KEYWORDS.txt"
struct dict_entry; struct dict_entry;
#include <string.h> #include <string.h>
/* maximum key range = 189, duplicates = 0 */ /* maximum key range = 243, duplicates = 0 */
#ifdef __GNUC__ #ifdef __GNUC__
__inline __inline
@ -50,44 +50,45 @@ keyword_hash (register const char *str, register size_t len)
{ {
static const unsigned char asso_values[] = static const unsigned char asso_values[] =
{ {
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 80, 190, 190, 244, 244, 244, 244, 244, 244, 244, 65, 244, 244,
190, 190, 65, 40, 190, 10, 190, 5, 190, 105, 244, 244, 60, 50, 244, 30, 244, 25, 244, 70,
90, 70, 190, 190, 190, 190, 190, 190, 190, 190, 60, 35, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 35, 190, 244, 244, 244, 244, 244, 244, 244, 244, 5, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 55, 20, 65, 244, 244, 244, 244, 244, 244, 244, 25, 10, 0,
5, 35, 40, 30, 30, 0, 15, 90, 10, 10, 5, 30, 65, 105, 40, 15, 244, 85, 40, 25,
15, 5, 0, 15, 65, 20, 45, 15, 65, 50, 0, 15, 0, 50, 70, 30, 25, 0, 35, 75,
15, 75, 190, 25, 190, 190, 190, 190, 190, 190, 0, 10, 0, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 244, 244, 244, 244, 244, 244, 244, 244, 244, 244,
190, 190, 190, 190, 190, 190, 190 244, 244, 244, 244, 244, 244
}; };
register unsigned int hval = len; register unsigned int hval = len;
switch (hval) switch (hval)
{ {
default: default:
hval += asso_values[(unsigned char)str[2]+1]; hval += asso_values[(unsigned char)str[2]];
/*FALLTHROUGH*/ /*FALLTHROUGH*/
case 2: case 2:
hval += asso_values[(unsigned char)str[1]]; hval += asso_values[(unsigned char)str[1]];
/*FALLTHROUGH*/ /*FALLTHROUGH*/
case 1: case 1:
hval += asso_values[(unsigned char)str[0]];
break; break;
} }
return hval + asso_values[(unsigned char)str[len - 1]]; return hval + asso_values[(unsigned char)str[len - 1]];
@ -98,269 +99,298 @@ in_word_set (register const char *str, register size_t len)
{ {
enum enum
{ {
TOTAL_KEYWORDS = 109, TOTAL_KEYWORDS = 115,
MIN_WORD_LENGTH = 1, MIN_WORD_LENGTH = 1,
MAX_WORD_LENGTH = 14, MAX_WORD_LENGTH = 14,
MIN_HASH_VALUE = 1, MIN_HASH_VALUE = 1,
MAX_HASH_VALUE = 189 MAX_HASH_VALUE = 243
}; };
static const struct dict_entry wordlist[] = static const struct dict_entry wordlist[] =
{ {
{""}, {""},
#line 29 "KEYWORDS.txt" #line 129 "KEYWORDS.txt"
{"i", i_joyfunc},
#line 71 "KEYWORDS.txt"
{"ii", def_ii},
{""}, {""}, {""},
#line 19 "KEYWORDS.txt"
{"/", tdiv_q},
{""}, {""},
#line 30 "KEYWORDS.txt"
{"loop", loop},
{""},
#line 18 "KEYWORDS.txt"
{"-", sub},
{""}, {""},
#line 49 "KEYWORDS.txt"
{"clop", def_clop},
{""},
#line 123 "KEYWORDS.txt"
{"x", def_x}, {"x", def_x},
{""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 26 "KEYWORDS.txt"
{"dip", dip},
#line 20 "KEYWORDS.txt"
{"bool", truthy},
{""},
#line 44 "KEYWORDS.txt"
{"b", def_b},
#line 82 "KEYWORDS.txt"
{"pm", def_pm},
#line 31 "KEYWORDS.txt"
{"pop", pop},
#line 53 "KEYWORDS.txt"
{"dipd", def_dipd},
#line 85 "KEYWORDS.txt"
{"popop", def_popop},
#line 90 "KEYWORDS.txt"
{"quoted", def_quoted},
#line 86 "KEYWORDS.txt"
{"popopop", def_popopop},
#line 23 "KEYWORDS.txt"
{"cmp", cmp_joyfunc},
#line 83 "KEYWORDS.txt"
{"popd", def_popd},
#line 84 "KEYWORDS.txt"
{"popdd", def_popdd},
#line 87 "KEYWORDS.txt"
{"popopd", def_popopd},
#line 88 "KEYWORDS.txt"
{"popopdd", def_popopdd},
#line 27 "KEYWORDS.txt" #line 27 "KEYWORDS.txt"
{"dup", dup}, {"dup", dup},
#line 24 "KEYWORDS.txt"
{"cons", cons},
#line 78 "KEYWORDS.txt"
{"nulco", def_nulco},
#line 59 "KEYWORDS.txt"
{"dupdip", def_dupdip},
#line 55 "KEYWORDS.txt"
{"down_to_zero", def_down_to_zero},
#line 96 "KEYWORDS.txt"
{"run", def_run},
#line 57 "KEYWORDS.txt"
{"dupd", def_dupd},
#line 58 "KEYWORDS.txt"
{"dupdd", def_dupdd},
#line 17 "KEYWORDS.txt"
{"+", add},
#line 60 "KEYWORDS.txt"
{"dupdipd", def_dupdipd},
#line 108 "KEYWORDS.txt"
{"sum", def_sum},
#line 50 "KEYWORDS.txt"
{"codi", def_codi},
{""},
#line 118 "KEYWORDS.txt"
{"uncons", def_uncons},
{""},
#line 75 "KEYWORDS.txt"
{"mod", def_mod},
#line 93 "KEYWORDS.txt"
{"reco", def_reco},
{""},
#line 97 "KEYWORDS.txt"
{"second", def_second},
#line 62 "KEYWORDS.txt"
{"flatten", def_flatten},
#line 51 "KEYWORDS.txt"
{"codireco", def_codireco},
#line 41 "KEYWORDS.txt"
{"appN", def_appN},
#line 115 "KEYWORDS.txt"
{"third", def_third},
#line 37 "KEYWORDS.txt"
{"anamorphism", def_anamorphism},
{""}, {""}, {""}, {""},
#line 65 "KEYWORDS.txt"
{"dupdip", def_dupdip},
{""}, {""},
#line 63 "KEYWORDS.txt"
{"dupd", def_dupd},
#line 64 "KEYWORDS.txt"
{"dupdd", def_dupdd},
{""},
#line 66 "KEYWORDS.txt"
{"dupdipd", def_dupdipd},
#line 31 "KEYWORDS.txt"
{"pop", pop},
{""},
#line 91 "KEYWORDS.txt"
{"popop", def_popop},
#line 50 "KEYWORDS.txt"
{"b", def_b},
#line 92 "KEYWORDS.txt"
{"popopop", def_popopop},
#line 26 "KEYWORDS.txt"
{"dip", dip},
#line 89 "KEYWORDS.txt"
{"popd", def_popd},
#line 90 "KEYWORDS.txt"
{"popdd", def_popdd},
#line 93 "KEYWORDS.txt"
{"popopd", def_popopd},
#line 94 "KEYWORDS.txt"
{"popopdd", def_popopdd},
#line 23 "KEYWORDS.txt"
{"cmp", cmp_joyfunc},
#line 59 "KEYWORDS.txt"
{"dipd", def_dipd},
{""},
#line 29 "KEYWORDS.txt"
{"i", i_joyfunc},
{""}, {""},
#line 47 "KEYWORDS.txt"
{"appN", def_appN},
{""},
#line 124 "KEYWORDS.txt"
{"uncons", def_uncons},
#line 52 "KEYWORDS.txt" #line 52 "KEYWORDS.txt"
{"dinfrirst", def_dinfrirst}, {"ccccons", def_ccccons},
{""},
#line 56 "KEYWORDS.txt"
{"codi", def_codi},
#line 123 "KEYWORDS.txt"
{"unary", def_unary},
#line 51 "KEYWORDS.txt"
{"binary", def_binary},
{""},
#line 57 "KEYWORDS.txt"
{"codireco", def_codireco},
#line 125 "KEYWORDS.txt"
{"unit", def_unit},
{""}, {""},
#line 25 "KEYWORDS.txt" #line 25 "KEYWORDS.txt"
{"concat", concat}, {"concat", concat},
#line 77 "KEYWORDS.txt"
{"ii", def_ii},
{""},
#line 24 "KEYWORDS.txt"
{"cons", cons},
#line 53 "KEYWORDS.txt"
{"ccons", def_ccons},
#line 19 "KEYWORDS.txt"
{"/", tdiv_q},
#line 88 "KEYWORDS.txt"
{"pm", def_pm},
#line 81 "KEYWORDS.txt"
{"mod", def_mod},
#line 58 "KEYWORDS.txt"
{"dinfrirst", def_dinfrirst},
{""}, {""},
#line 85 "KEYWORDS.txt"
{"nullary", def_nullary},
{""},
#line 55 "KEYWORDS.txt"
{"clop", def_clop},
#line 84 "KEYWORDS.txt"
{"nulco", def_nulco},
#line 18 "KEYWORDS.txt"
{"-", sub},
#line 60 "KEYWORDS.txt"
{"disenstacken", def_disenstacken},
#line 126 "KEYWORDS.txt"
{"unquoted", def_unquoted},
#line 46 "KEYWORDS.txt"
{"app3", def_app3},
{""}, {""},
#line 127 "KEYWORDS.txt"
{"unswons", def_unswons},
#line 83 "KEYWORDS.txt"
{"not", def_not},
#line 67 "KEYWORDS.txt"
{"enstacken", def_enstacken},
{""}, {""},
#line 102 "KEYWORDS.txt"
{"split_at", def_split_at},
#line 100 "KEYWORDS.txt"
{"size", def_size},
#line 103 "KEYWORDS.txt" #line 103 "KEYWORDS.txt"
{"second", def_second},
#line 118 "KEYWORDS.txt"
{"tailrec", def_tailrec},
#line 102 "KEYWORDS.txt"
{"run", def_run},
#line 30 "KEYWORDS.txt"
{"loop", loop},
{""},
#line 96 "KEYWORDS.txt"
{"quoted", def_quoted},
#line 48 "KEYWORDS.txt"
{"at", def_at},
#line 87 "KEYWORDS.txt"
{"pam", def_pam},
#line 106 "KEYWORDS.txt"
{"size", def_size},
#line 75 "KEYWORDS.txt"
{"hypot", def_hypot},
#line 107 "KEYWORDS.txt"
{"spiral_next", def_spiral_next},
{""},
#line 114 "KEYWORDS.txt"
{"sum", def_sum},
#line 20 "KEYWORDS.txt"
{"bool", truthy},
{""},
#line 43 "KEYWORDS.txt"
{"anamorphism", def_anamorphism},
{""}, {""},
#line 45 "KEYWORDS.txt"
{"app2", def_app2},
#line 121 "KEYWORDS.txt"
{"third", def_third},
#line 111 "KEYWORDS.txt"
{"stackd", def_stackd},
#line 38 "KEYWORDS.txt"
{"lt", def_lt},
#line 113 "KEYWORDS.txt"
{"stuncons", def_stuncons},
#line 62 "KEYWORDS.txt"
{"drop", def_drop},
{""}, {""}, {""},
#line 42 "KEYWORDS.txt"
{"abs", def_abs},
#line 44 "KEYWORDS.txt"
{"app1", def_app1},
#line 105 "KEYWORDS.txt"
{"shunt", def_shunt},
#line 17 "KEYWORDS.txt"
{"+", add},
#line 40 "KEYWORDS.txt"
{"le", def_le},
#line 108 "KEYWORDS.txt"
{"split_at", def_split_at},
{""},
#line 109 "KEYWORDS.txt"
{"split_list", def_split_list}, {"split_list", def_split_list},
#line 54 "KEYWORDS.txt"
{"cleave", def_cleave},
{""}, {""},
#line 112 "KEYWORDS.txt"
{"step_zero", def_step_zero},
#line 78 "KEYWORDS.txt"
{"infra", def_infra},
#line 79 "KEYWORDS.txt"
{"infrst", def_infrst},
{""}, {""},
#line 122 "KEYWORDS.txt"
{"tuck", def_tuck},
#line 104 "KEYWORDS.txt"
{"shift", def_shift},
{""},
#line 95 "KEYWORDS.txt"
{"product", def_product},
#line 71 "KEYWORDS.txt"
{"gcd", def_gcd},
#line 99 "KEYWORDS.txt"
{"reco", def_reco},
{""},
#line 16 "KEYWORDS.txt" #line 16 "KEYWORDS.txt"
{"*", mul}, {"*", mul},
{""}, #line 61 "KEYWORDS.txt"
#line 77 "KEYWORDS.txt" {"down_to_zero", def_down_to_zero},
{"not", def_not}, #line 98 "KEYWORDS.txt"
#line 56 "KEYWORDS.txt"
{"drop", def_drop},
#line 28 "KEYWORDS.txt"
{"first", first},
#line 101 "KEYWORDS.txt"
{"spiral_next", def_spiral_next},
#line 54 "KEYWORDS.txt"
{"disenstacken", def_disenstacken},
{""},
#line 35 "KEYWORDS.txt"
{"swap", swap},
#line 110 "KEYWORDS.txt"
{"swons", def_swons},
#line 105 "KEYWORDS.txt"
{"stackd", def_stackd},
{""},
#line 92 "KEYWORDS.txt"
{"range_to_zero", def_range_to_zero}, {"range_to_zero", def_range_to_zero},
#line 119 "KEYWORDS.txt" {""}, {""},
{"unit", def_unit}, #line 70 "KEYWORDS.txt"
#line 109 "KEYWORDS.txt" {"fourth", def_fourth},
{"swapd", def_swapd}, #line 49 "KEYWORDS.txt"
{"average", def_average},
{""}, {""},
#line 97 "KEYWORDS.txt"
{"range", def_range},
#line 15 "KEYWORDS.txt" #line 15 "KEYWORDS.txt"
{"%", tdiv_r}, {"%", tdiv_r},
#line 80 "KEYWORDS.txt"
{"of", def_of},
#line 81 "KEYWORDS.txt"
{"pam", def_pam},
#line 61 "KEYWORDS.txt"
{"enstacken", def_enstacken},
#line 122 "KEYWORDS.txt"
{"while", def_while},
#line 45 "KEYWORDS.txt"
{"binary", def_binary},
#line 121 "KEYWORDS.txt"
{"unswons", def_unswons},
#line 36 "KEYWORDS.txt" #line 36 "KEYWORDS.txt"
{"abs", def_abs}, {"eq", def_eq},
#line 40 "KEYWORDS.txt"
{"app3", def_app3},
#line 47 "KEYWORDS.txt"
{"ccons", def_ccons},
#line 48 "KEYWORDS.txt"
{"cleave", def_cleave},
#line 42 "KEYWORDS.txt"
{"at", def_at},
#line 120 "KEYWORDS.txt"
{"unquoted", def_unquoted},
#line 70 "KEYWORDS.txt"
{"ifte", def_ifte},
#line 98 "KEYWORDS.txt"
{"shift", def_shift},
#line 73 "KEYWORDS.txt"
{"infrst", def_infrst},
#line 46 "KEYWORDS.txt"
{"ccccons", def_ccccons},
#line 76 "KEYWORDS.txt"
{"neg", def_neg},
#line 106 "KEYWORDS.txt"
{"step_zero", def_step_zero},
#line 91 "KEYWORDS.txt"
{"range", def_range},
{""},
#line 111 "KEYWORDS.txt"
{"swoncat", def_swoncat},
#line 104 "KEYWORDS.txt"
{"sqr", def_sqr},
#line 113 "KEYWORDS.txt"
{"take", def_take},
#line 72 "KEYWORDS.txt"
{"infra", def_infra},
#line 64 "KEYWORDS.txt"
{"fourth", def_fourth},
#line 79 "KEYWORDS.txt"
{"nullary", def_nullary},
#line 65 "KEYWORDS.txt"
{"gcd", def_gcd},
#line 39 "KEYWORDS.txt" #line 39 "KEYWORDS.txt"
{"app2", def_app2}, {"neq", def_neq},
{""}, #line 35 "KEYWORDS.txt"
#line 66 "KEYWORDS.txt" {"swap", swap},
{"genrec", def_genrec},
{""}, {""}, {""}, {""},
#line 116 "KEYWORDS.txt" #line 68 "KEYWORDS.txt"
{"tuck", def_tuck}, {"flatten", def_flatten},
#line 117 "KEYWORDS.txt"
{"unary", def_unary},
{""}, {""},
#line 89 "KEYWORDS.txt" #line 76 "KEYWORDS.txt"
{"product", def_product}, {"ifte", def_ifte},
{""}, #line 115 "KEYWORDS.txt"
#line 63 "KEYWORDS.txt" {"swapd", def_swapd},
{"fork", def_fork}, #line 72 "KEYWORDS.txt"
{"genrec", def_genrec},
#line 120 "KEYWORDS.txt"
{"ternary", def_ternary},
{""}, {""},
#line 22 "KEYWORDS.txt" #line 22 "KEYWORDS.txt"
{"clear", clear}, {"clear", clear},
{""},
#line 86 "KEYWORDS.txt"
{"of", def_of},
{""}, {""}, {""},
#line 21 "KEYWORDS.txt" #line 21 "KEYWORDS.txt"
{"branch", branch}, {"branch", branch},
#line 117 "KEYWORDS.txt"
{"swoncat", def_swoncat},
{""}, {""}, {""}, {""},
#line 38 "KEYWORDS.txt" #line 116 "KEYWORDS.txt"
{"app1", def_app1}, {"swons", def_swons},
#line 67 "KEYWORDS.txt"
{"grabN", def_grabN},
{""}, {""},
#line 94 "KEYWORDS.txt" #line 37 "KEYWORDS.txt"
{"reverse", def_reverse}, {"gt", def_gt},
{""}, {""},
#line 32 "KEYWORDS.txt" #line 32 "KEYWORDS.txt"
{"rest", rest}, {"rest", rest},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 114 "KEYWORDS.txt" #line 128 "KEYWORDS.txt"
{"ternary", def_ternary}, {"while", def_while},
#line 107 "KEYWORDS.txt"
{"stuncons", def_stuncons},
{""}, {""},
#line 69 "KEYWORDS.txt" #line 41 "KEYWORDS.txt"
{"hypot", def_hypot}, {"ge", def_ge},
{""}, {""},
#line 112 "KEYWORDS.txt" #line 119 "KEYWORDS.txt"
{"tailrec", def_tailrec}, {"take", def_take},
{""},
#line 74 "KEYWORDS.txt"
{"make_generator", def_make_generator},
#line 99 "KEYWORDS.txt"
{"shunt", def_shunt},
{""},
#line 43 "KEYWORDS.txt"
{"average", def_average},
{""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 95 "KEYWORDS.txt"
{"rrest", def_rrest},
{""}, {""}, {""}, {""},
#line 33 "KEYWORDS.txt" #line 33 "KEYWORDS.txt"
{"stack", stack}, {"stack", stack},
{""}, {""}, {""}, {""}, {""}, {""},
#line 100 "KEYWORDS.txt"
{"reverse", def_reverse},
{""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 28 "KEYWORDS.txt"
{"first", first},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
{""},
#line 101 "KEYWORDS.txt"
{"rrest", def_rrest},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 73 "KEYWORDS.txt"
{"grabN", def_grabN},
{""}, {""}, {""},
#line 74 "KEYWORDS.txt"
{"grba", def_grba},
{""}, {""}, {""}, {""},
#line 80 "KEYWORDS.txt"
{"make_generator", def_make_generator},
{""},
#line 34 "KEYWORDS.txt" #line 34 "KEYWORDS.txt"
{"swaack", swaack}, {"swaack", swaack},
{""},
#line 110 "KEYWORDS.txt"
{"sqr", def_sqr},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
{""}, {""}, {""}, {""}, #line 69 "KEYWORDS.txt"
#line 68 "KEYWORDS.txt" {"fork", def_fork},
{"grba", def_grba} {""}, {""}, {""},
#line 82 "KEYWORDS.txt"
{"neg", def_neg}
}; };
if (len <= MAX_WORD_LENGTH && len >= MIN_WORD_LENGTH) if (len <= MAX_WORD_LENGTH && len >= MIN_WORD_LENGTH)