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

unstack

This commit is contained in:
Simon Forman 2023-02-08 15:06:12 -08:00
parent 2be2d00e6b
commit b1d7a34eab
5 changed files with 189 additions and 176 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
implementations/C/KEYWORDS.txt
View File

@ -147,6 +147,7 @@ unary, def_unary
uncons, def_uncons uncons, def_uncons
unit, def_unit unit, def_unit
unquoted, def_unquoted unquoted, def_unquoted
unstack, def_unstack
unswons, def_unswons unswons, def_unswons
while, def_while while, def_while
x, def_x x, def_x

5
implementations/C/definitions.c
View File

@ -114,6 +114,7 @@ JoyList def_unary_body;
JoyList def_uncons_body; JoyList def_uncons_body;
JoyList def_unit_body; JoyList def_unit_body;
JoyList def_unquoted_body; JoyList def_unquoted_body;
JoyList def_unstack_body;
JoyList def_unswons_body; JoyList def_unswons_body;
JoyList def_while_body; JoyList def_while_body;
JoyList def_x_body; JoyList def_x_body;
@ -173,7 +174,7 @@ init_defs(void)
def_codireco_body = text_to_expression("codi reco"); def_codireco_body = text_to_expression("codi reco");
def_dinfrirst_body = text_to_expression("dip infrst"); def_dinfrirst_body = text_to_expression("dip infrst");
def_dipd_body = text_to_expression("[dip] codi"); def_dipd_body = text_to_expression("[dip] codi");
def_disenstacken_body = text_to_expression("? [uncons ?] loop pop"); def_disenstacken_body = text_to_expression("swaack pop");
def_down_to_zero_body = text_to_expression("[0 >] [dup --] while"); def_down_to_zero_body = text_to_expression("[0 >] [dup --] while");
def_drop_body = text_to_expression("[rest] times"); def_drop_body = text_to_expression("[rest] times");
def_dupd_body = text_to_expression("[dup] dip"); def_dupd_body = text_to_expression("[dup] dip");
@ -243,6 +244,7 @@ init_defs(void)
def_uncons_body = text_to_expression("[first] [rest] cleave"); def_uncons_body = text_to_expression("[first] [rest] cleave");
def_unit_body = text_to_expression("[] cons"); def_unit_body = text_to_expression("[] cons");
def_unquoted_body = text_to_expression("[i] dip"); def_unquoted_body = text_to_expression("[i] dip");
def_unstack_body = text_to_expression("[[] swaack] dip swoncat swaack pop");
def_unswons_body = text_to_expression("uncons swap"); def_unswons_body = text_to_expression("uncons swap");
def_while_body = text_to_expression("swap nulco dupdipd concat loop"); def_while_body = text_to_expression("swap nulco dupdipd concat loop");
def_x_body = text_to_expression("dup i"); def_x_body = text_to_expression("dup i");
@ -369,6 +371,7 @@ void def_unary(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression)
void def_uncons(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_uncons_body, expression); } void def_uncons(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_uncons_body, expression); }
void def_unit(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_unit_body, expression); } void def_unit(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_unit_body, expression); }
void def_unquoted(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_unquoted_body, expression); } void def_unquoted(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_unquoted_body, expression); }
void def_unstack(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_unstack_body, expression); }
void def_unswons(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_unswons_body, expression); } void def_unswons(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_unswons_body, expression); }
void def_while(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_while_body, expression); } void def_while(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_while_body, expression); }
void def_x(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_x_body, expression); } void def_x(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_x_body, expression); }

1
implementations/C/definitions.h
View File

@ -105,6 +105,7 @@ void def_unary(JoyListPtr stack, JoyListPtr expression);
void def_uncons(JoyListPtr stack, JoyListPtr expression); void def_uncons(JoyListPtr stack, JoyListPtr expression);
void def_unit(JoyListPtr stack, JoyListPtr expression); void def_unit(JoyListPtr stack, JoyListPtr expression);
void def_unquoted(JoyListPtr stack, JoyListPtr expression); void def_unquoted(JoyListPtr stack, JoyListPtr expression);
void def_unstack(JoyListPtr stack, JoyListPtr expression);
void def_unswons(JoyListPtr stack, JoyListPtr expression); void def_unswons(JoyListPtr stack, JoyListPtr expression);
void def_while(JoyListPtr stack, JoyListPtr expression); void def_while(JoyListPtr stack, JoyListPtr expression);
void def_x(JoyListPtr stack, JoyListPtr expression); void def_x(JoyListPtr stack, JoyListPtr expression);

3
implementations/C/defs.txt
View File

@ -30,7 +30,7 @@ codi cons dip
codireco codi reco codireco codi reco
dinfrirst dip infrst dinfrirst dip infrst
dipd [dip] codi dipd [dip] codi
disenstacken ? [uncons ?] loop pop disenstacken swaack pop
down_to_zero [0 >] [dup --] while down_to_zero [0 >] [dup --] while
drop [rest] times drop [rest] times
dupd [dup] dip dupd [dup] dip
@ -100,6 +100,7 @@ unary nullary popd
uncons [first] [rest] cleave uncons [first] [rest] cleave
unit [] cons unit [] cons
unquoted [i] dip unquoted [i] dip
unstack [[] swaack] dip swoncat swaack pop
unswons uncons swap unswons uncons swap
while swap nulco dupdipd concat loop while swap nulco dupdipd concat loop
x dup i x dup i

355
implementations/C/keywords.c
View File

@ -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 = 294, duplicates = 0 */ /* maximum key range = 299, duplicates = 0 */
#ifdef __GNUC__ #ifdef __GNUC__
__inline __inline
@ -50,32 +50,32 @@ keyword_hash (register const char *str, register size_t len)
{ {
static const unsigned short asso_values[] = static const unsigned short asso_values[] =
{ {
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 40, 295, 295, 295, 95, 60, 295, 300, 300, 300, 10, 300, 300, 300, 60, 65, 300,
295, 295, 80, 10, 295, 0, 295, 60, 110, 35, 300, 300, 45, 25, 300, 0, 300, 30, 95, 125,
20, 60, 295, 295, 295, 295, 295, 295, 295, 295, 15, 35, 300, 300, 300, 300, 300, 300, 300, 300,
90, 20, 30, 85, 295, 295, 295, 295, 295, 295, 85, 90, 50, 10, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 0, 295, 300, 300, 300, 300, 300, 300, 300, 300, 0, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 5, 295, 60, 55, 0, 300, 300, 300, 300, 300, 10, 300, 60, 55, 0,
5, 30, 40, 105, 5, 15, 295, 50, 40, 25, 5, 30, 40, 110, 100, 15, 300, 5, 40, 25,
0, 15, 0, 110, 70, 30, 25, 0, 65, 95, 0, 15, 0, 115, 70, 30, 25, 0, 5, 90,
25, 75, 25, 45, 45, 0, 295, 295, 295, 295, 20, 75, 5, 30, 10, 0, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295, 295, 295, 295, 295, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300,
295, 295, 295, 295, 295, 295 300, 300, 300, 300, 300, 300
}; };
register unsigned int hval = len; register unsigned int hval = len;
@ -99,11 +99,11 @@ in_word_set (register const char *str, register size_t len)
{ {
enum enum
{ {
TOTAL_KEYWORDS = 152, TOTAL_KEYWORDS = 153,
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 = 294 MAX_HASH_VALUE = 299
}; };
static const struct dict_entry wordlist[] = static const struct dict_entry wordlist[] =
@ -119,7 +119,9 @@ in_word_set (register const char *str, register size_t len)
{""}, {""}, {""}, {""},
#line 85 "KEYWORDS.txt" #line 85 "KEYWORDS.txt"
{"dupdip", def_dupdip}, {"dupdip", def_dupdip},
{""}, {""}, #line 59 "KEYWORDS.txt"
{"!-", def_EXCLAMATION_MARK_HYPHEN_MINUS},
{""},
#line 83 "KEYWORDS.txt" #line 83 "KEYWORDS.txt"
{"dupd", def_dupd}, {"dupd", def_dupd},
#line 84 "KEYWORDS.txt" #line 84 "KEYWORDS.txt"
@ -132,8 +134,8 @@ in_word_set (register const char *str, register size_t len)
{""}, {""},
#line 110 "KEYWORDS.txt" #line 110 "KEYWORDS.txt"
{"popop", def_popop}, {"popop", def_popop},
#line 26 "KEYWORDS.txt" #line 55 "KEYWORDS.txt"
{"+", add}, {"?", def_QUESTION_MARK},
#line 111 "KEYWORDS.txt" #line 111 "KEYWORDS.txt"
{"popopop", def_popopop}, {"popopop", def_popopop},
#line 38 "KEYWORDS.txt" #line 38 "KEYWORDS.txt"
@ -153,9 +155,13 @@ in_word_set (register const char *str, register size_t len)
{""}, {""},
#line 41 "KEYWORDS.txt" #line 41 "KEYWORDS.txt"
{"i", i_joyfunc}, {"i", i_joyfunc},
#line 57 "KEYWORDS.txt" #line 58 "KEYWORDS.txt"
{"++", def_PLUS_SIGN_PLUS_SIGN}, {"||", def_VERTICAL_LINE_VERTICAL_LINE},
{""}, {""}, {""}, #line 31 "KEYWORDS.txt"
{"div", tdiv_q},
#line 145 "KEYWORDS.txt"
{"tuck", def_tuck},
{""},
#line 147 "KEYWORDS.txt" #line 147 "KEYWORDS.txt"
{"uncons", def_uncons}, {"uncons", def_uncons},
#line 72 "KEYWORDS.txt" #line 72 "KEYWORDS.txt"
@ -164,10 +170,10 @@ in_word_set (register const char *str, register size_t len)
#line 76 "KEYWORDS.txt" #line 76 "KEYWORDS.txt"
{"codi", def_codi}, {"codi", def_codi},
{""}, {""},
#line 15 "KEYWORDS.txt" #line 153 "KEYWORDS.txt"
{"=", def_eq}, {"x", def_x},
#line 59 "KEYWORDS.txt" #line 150 "KEYWORDS.txt"
{"!-", def_EXCLAMATION_MARK_HYPHEN_MINUS}, {"unstack", def_unstack},
#line 77 "KEYWORDS.txt" #line 77 "KEYWORDS.txt"
{"codireco", def_codireco}, {"codireco", def_codireco},
#line 148 "KEYWORDS.txt" #line 148 "KEYWORDS.txt"
@ -182,33 +188,28 @@ in_word_set (register const char *str, register size_t len)
{"cons", cons}, {"cons", cons},
#line 73 "KEYWORDS.txt" #line 73 "KEYWORDS.txt"
{"ccons", def_ccons}, {"ccons", def_ccons},
#line 152 "KEYWORDS.txt" #line 26 "KEYWORDS.txt"
{"x", def_x}, {"+", add},
#line 107 "KEYWORDS.txt" #line 107 "KEYWORDS.txt"
{"pm", def_pm}, {"pm", def_pm},
#line 23 "KEYWORDS.txt" #line 23 "KEYWORDS.txt"
{"mod", tdiv_r}, {"mod", tdiv_r},
#line 78 "KEYWORDS.txt" #line 78 "KEYWORDS.txt"
{"dinfrirst", def_dinfrirst}, {"dinfrirst", def_dinfrirst},
#line 144 "KEYWORDS.txt" {""}, {""}, {""}, {""},
{"third", def_third},
{""}, {""}, {""},
#line 75 "KEYWORDS.txt" #line 75 "KEYWORDS.txt"
{"clop", def_clop}, {"clop", def_clop},
#line 103 "KEYWORDS.txt" #line 103 "KEYWORDS.txt"
{"nulco", def_nulco}, {"nulco", def_nulco},
#line 16 "KEYWORDS.txt" #line 30 "KEYWORDS.txt"
{">", def_gt}, {"/", tdiv_q},
#line 80 "KEYWORDS.txt" #line 80 "KEYWORDS.txt"
{"disenstacken", def_disenstacken}, {"disenstacken", def_disenstacken},
{""}, {""},
#line 67 "KEYWORDS.txt" #line 67 "KEYWORDS.txt"
{"appN", def_appN}, {"appN", def_appN},
#line 128 "KEYWORDS.txt" {""}, {""},
{"shunt", def_shunt}, #line 151 "KEYWORDS.txt"
#line 90 "KEYWORDS.txt"
{"fourth", def_fourth},
#line 150 "KEYWORDS.txt"
{"unswons", def_unswons}, {"unswons", def_unswons},
#line 102 "KEYWORDS.txt" #line 102 "KEYWORDS.txt"
{"not", def_not}, {"not", def_not},
@ -217,63 +218,61 @@ in_word_set (register const char *str, register size_t len)
{""}, {""},
#line 126 "KEYWORDS.txt" #line 126 "KEYWORDS.txt"
{"second", def_second}, {"second", def_second},
#line 21 "KEYWORDS.txt" {""},
{">=", def_ge},
#line 125 "KEYWORDS.txt" #line 125 "KEYWORDS.txt"
{"run", def_run}, {"run", def_run},
#line 42 "KEYWORDS.txt" #line 42 "KEYWORDS.txt"
{"loop", loop}, {"loop", loop},
{""}, {""}, {""}, {""},
#line 160 "KEYWORDS.txt" #line 57 "KEYWORDS.txt"
{"_timest", def__timest}, {"++", def_PLUS_SIGN_PLUS_SIGN},
#line 27 "KEYWORDS.txt" #line 27 "KEYWORDS.txt"
{"add", add}, {"add", add},
#line 145 "KEYWORDS.txt"
{"tuck", def_tuck},
#line 127 "KEYWORDS.txt"
{"shift", def_shift},
#line 130 "KEYWORDS.txt"
{"spiral_next", def_spiral_next},
#line 18 "KEYWORDS.txt"
{"!=", def_neq},
#line 137 "KEYWORDS.txt"
{"sum", def_sum},
#line 65 "KEYWORDS.txt" #line 65 "KEYWORDS.txt"
{"app2", def_app2}, {"app2", def_app2},
{""}, {""},
#line 130 "KEYWORDS.txt"
{"spiral_next", def_spiral_next},
#line 161 "KEYWORDS.txt"
{"_timest", def__timest},
#line 137 "KEYWORDS.txt"
{"sum", def_sum},
#line 129 "KEYWORDS.txt"
{"size", def_size},
{""},
#line 99 "KEYWORDS.txt" #line 99 "KEYWORDS.txt"
{"infrst", def_infrst}, {"infrst", def_infrst},
#line 159 "KEYWORDS.txt" {""},
{"_times1", def__times1}, #line 162 "KEYWORDS.txt"
#line 161 "KEYWORDS.txt"
{"map", def_map}, {"map", def_map},
#line 153 "KEYWORDS.txt" #line 154 "KEYWORDS.txt"
{"step", def_step}, {"step", def_step},
{""}, {""},
#line 156 "KEYWORDS.txt" #line 24 "KEYWORDS.txt"
{"_stept", def__stept}, {"*", mul},
#line 50 "KEYWORDS.txt" #line 50 "KEYWORDS.txt"
{"lt", def_lt}, {"lt", def_lt},
#line 136 "KEYWORDS.txt" #line 136 "KEYWORDS.txt"
{"stuncons", def_stuncons}, {"stuncons", def_stuncons},
#line 82 "KEYWORDS.txt" #line 82 "KEYWORDS.txt"
{"drop", def_drop}, {"drop", def_drop},
{""}, {""}, {""},
#line 157 "KEYWORDS.txt"
{"_stept", def__stept},
#line 105 "KEYWORDS.txt" #line 105 "KEYWORDS.txt"
{"of", def_of}, {"of", def_of},
{""}, {""},
#line 64 "KEYWORDS.txt" #line 66 "KEYWORDS.txt"
{"app1", def_app1}, {"app3", def_app3},
#line 157 "KEYWORDS.txt" #line 158 "KEYWORDS.txt"
{"times", def_times}, {"times", def_times},
#line 155 "KEYWORDS.txt" #line 16 "KEYWORDS.txt"
{"_step1", def__step1}, {">", def_gt},
#line 52 "KEYWORDS.txt" #line 52 "KEYWORDS.txt"
{"le", def_le}, {"le", def_le},
#line 131 "KEYWORDS.txt" #line 131 "KEYWORDS.txt"
{"split_at", def_split_at}, {"split_at", def_split_at},
#line 129 "KEYWORDS.txt" {""},
{"size", def_size},
#line 132 "KEYWORDS.txt" #line 132 "KEYWORDS.txt"
{"split_list", def_split_list}, {"split_list", def_split_list},
#line 74 "KEYWORDS.txt" #line 74 "KEYWORDS.txt"
@ -284,8 +283,8 @@ in_word_set (register const char *str, register size_t len)
{"mul", mul}, {"mul", mul},
#line 135 "KEYWORDS.txt" #line 135 "KEYWORDS.txt"
{"step_zero", def_step_zero}, {"step_zero", def_step_zero},
#line 95 "KEYWORDS.txt" #line 163 "KEYWORDS.txt"
{"hypot", def_hypot}, {"_map?", def__map_QUESTION_MARK},
#line 70 "KEYWORDS.txt" #line 70 "KEYWORDS.txt"
{"b", def_b}, {"b", def_b},
#line 68 "KEYWORDS.txt" #line 68 "KEYWORDS.txt"
@ -294,160 +293,164 @@ in_word_set (register const char *str, register size_t len)
{"pam", def_pam}, {"pam", def_pam},
#line 96 "KEYWORDS.txt" #line 96 "KEYWORDS.txt"
{"ifte", def_ifte}, {"ifte", def_ifte},
#line 166 "KEYWORDS.txt" #line 167 "KEYWORDS.txt"
{"_map2", def__map2}, {"_map2", def__map2},
{""}, {""},
#line 114 "KEYWORDS.txt" #line 114 "KEYWORDS.txt"
{"product", def_product}, {"product", def_product},
#line 91 "KEYWORDS.txt" #line 60 "KEYWORDS.txt"
{"gcd", def_gcd}, {"<{}", def_LESS_THAN_SIGN_LEFT_CURLY_BRACKET_RIGHT_CURLY_BRACKET},
#line 118 "KEYWORDS.txt" #line 118 "KEYWORDS.txt"
{"reco", def_reco}, {"reco", def_reco},
#line 98 "KEYWORDS.txt" #line 98 "KEYWORDS.txt"
{"infra", def_infra}, {"infra", def_infra},
#line 30 "KEYWORDS.txt" #line 22 "KEYWORDS.txt"
{"/", tdiv_q}, {"%", tdiv_r},
#line 104 "KEYWORDS.txt" #line 104 "KEYWORDS.txt"
{"nullary", def_nullary}, {"nullary", def_nullary},
#line 149 "KEYWORDS.txt" #line 91 "KEYWORDS.txt"
{"unquoted", def_unquoted}, {"gcd", def_gcd},
#line 66 "KEYWORDS.txt" #line 142 "KEYWORDS.txt"
{"app3", def_app3}, {"take", def_take},
#line 163 "KEYWORDS.txt" #line 45 "KEYWORDS.txt"
{"_mape", def__mape}, {"stack", stack},
#line 134 "KEYWORDS.txt" #line 134 "KEYWORDS.txt"
{"stackd", def_stackd}, {"stackd", def_stackd},
{""}, {""}, {""},
#line 149 "KEYWORDS.txt"
{"unquoted", def_unquoted},
#line 32 "KEYWORDS.txt" #line 32 "KEYWORDS.txt"
{"bool", truthy}, {"bool", truthy},
#line 165 "KEYWORDS.txt" #line 164 "KEYWORDS.txt"
{"_map1", def__map1}, {"_mape", def__mape},
#line 122 "KEYWORDS.txt" #line 122 "KEYWORDS.txt"
{"rollup", def_rollup}, {"rollup", def_rollup},
#line 20 "KEYWORDS.txt" #line 69 "KEYWORDS.txt"
{"<=", def_le}, {"average", def_average},
#line 123 "KEYWORDS.txt" #line 123 "KEYWORDS.txt"
{"rolldown", def_rolldown}, {"rolldown", def_rolldown},
#line 89 "KEYWORDS.txt"
{"fork", def_fork},
{""}, {""}, {""}, {""},
#line 115 "KEYWORDS.txt"
{"quoted", def_quoted},
#line 58 "KEYWORDS.txt"
{"||", def_VERTICAL_LINE_VERTICAL_LINE},
#line 60 "KEYWORDS.txt"
{"<{}", def_LESS_THAN_SIGN_LEFT_CURLY_BRACKET_RIGHT_CURLY_BRACKET},
{""},
#line 146 "KEYWORDS.txt"
{"unary", def_unary},
#line 92 "KEYWORDS.txt"
{"genrec", def_genrec},
#line 81 "KEYWORDS.txt" #line 81 "KEYWORDS.txt"
{"down_to_zero", def_down_to_zero}, {"down_to_zero", def_down_to_zero},
{""}, {""},
#line 146 "KEYWORDS.txt"
{"unary", def_unary},
#line 115 "KEYWORDS.txt"
{"quoted", def_quoted},
#line 119 "KEYWORDS.txt"
{"reverse", def_reverse},
#line 29 "KEYWORDS.txt" #line 29 "KEYWORDS.txt"
{"sub", sub}, {"sub", sub},
{""}, {""},
#line 34 "KEYWORDS.txt" #line 34 "KEYWORDS.txt"
{"clear", clear}, {"clear", clear},
{""}, #line 92 "KEYWORDS.txt"
{"genrec", def_genrec},
#line 88 "KEYWORDS.txt" #line 88 "KEYWORDS.txt"
{"flatten", def_flatten}, {"flatten", def_flatten},
{""}, {""}, {""}, {""},
#line 151 "KEYWORDS.txt" #line 144 "KEYWORDS.txt"
{"while", def_while}, {"third", def_third},
#line 71 "KEYWORDS.txt" #line 71 "KEYWORDS.txt"
{"binary", def_binary}, {"binary", def_binary},
#line 19 "KEYWORDS.txt" #line 159 "KEYWORDS.txt"
{"<>", def_neq}, {"_times0", def__times0},
#line 31 "KEYWORDS.txt" {""}, {""},
{"div", tdiv_q},
{""},
#line 40 "KEYWORDS.txt" #line 40 "KEYWORDS.txt"
{"first", first}, {"first", first},
#line 63 "KEYWORDS.txt" #line 63 "KEYWORDS.txt"
{"anamorphism", def_anamorphism}, {"anamorphism", def_anamorphism},
#line 49 "KEYWORDS.txt" {""},
{"gt", def_gt},
#line 117 "KEYWORDS.txt" #line 117 "KEYWORDS.txt"
{"range_to_zero", def_range_to_zero}, {"range_to_zero", def_range_to_zero},
#line 44 "KEYWORDS.txt" #line 44 "KEYWORDS.txt"
{"rest", rest}, {"rest", rest},
#line 120 "KEYWORDS.txt" #line 128 "KEYWORDS.txt"
{"roll>", def_roll_GREATER_THAN_SIGN}, {"shunt", def_shunt},
#line 24 "KEYWORDS.txt" #line 90 "KEYWORDS.txt"
{"*", mul}, {"fourth", def_fourth},
#line 158 "KEYWORDS.txt" #line 49 "KEYWORDS.txt"
{"_times0", def__times0}, {"gt", def_gt},
{""}, {""}, {""}, {""},
#line 116 "KEYWORDS.txt" #line 116 "KEYWORDS.txt"
{"range", def_range}, {"range", def_range},
{""}, #line 155 "KEYWORDS.txt"
#line 53 "KEYWORDS.txt" {"_step0", def__step0},
{"ge", def_ge},
{""},
#line 142 "KEYWORDS.txt"
{"take", def_take},
#line 45 "KEYWORDS.txt"
{"stack", stack},
#line 55 "KEYWORDS.txt"
{"?", def_QUESTION_MARK},
#line 140 "KEYWORDS.txt" #line 140 "KEYWORDS.txt"
{"swoncat", def_swoncat}, {"swoncat", def_swoncat},
{""}, {""}, {""}, {""},
#line 139 "KEYWORDS.txt" #line 139 "KEYWORDS.txt"
{"swons", def_swons}, {"swons", def_swons},
#line 154 "KEYWORDS.txt"
{"_step0", def__step0},
{""},
#line 62 "KEYWORDS.txt"
{"abs", def_abs},
#line 89 "KEYWORDS.txt"
{"fork", def_fork},
#line 162 "KEYWORDS.txt"
{"_map?", def__map_QUESTION_MARK},
#line 17 "KEYWORDS.txt" #line 17 "KEYWORDS.txt"
{"<", def_lt}, {"<", def_lt},
#line 56 "KEYWORDS.txt" #line 53 "KEYWORDS.txt"
{"&&", def_AMPERSAND_AMPERSAND}, {"ge", def_ge},
{""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 100 "KEYWORDS.txt"
{"make_generator", def_make_generator},
#line 127 "KEYWORDS.txt"
{"shift", def_shift},
{""}, {""},
#line 62 "KEYWORDS.txt"
{"abs", def_abs},
{""},
#line 120 "KEYWORDS.txt"
{"roll>", def_roll_GREATER_THAN_SIGN},
#line 15 "KEYWORDS.txt"
{"=", def_eq},
#line 160 "KEYWORDS.txt"
{"_times1", def__times1},
{""},
#line 47 "KEYWORDS.txt" #line 47 "KEYWORDS.txt"
{"swap", swap}, {"swap", swap},
{""},
#line 22 "KEYWORDS.txt"
{"%", tdiv_r},
#line 69 "KEYWORDS.txt"
{"average", def_average},
{""}, {""}, {""}, {""},
#line 19 "KEYWORDS.txt"
{"<>", def_neq},
{""},
#line 64 "KEYWORDS.txt"
{"app1", def_app1},
#line 138 "KEYWORDS.txt" #line 138 "KEYWORDS.txt"
{"swapd", def_swapd}, {"swapd", def_swapd},
#line 33 "KEYWORDS.txt" #line 46 "KEYWORDS.txt"
{"branch", branch}, {"swaack", swaack},
{""}, {""}, {""}, #line 18 "KEYWORDS.txt"
{"!=", def_neq},
{""}, {""},
#line 165 "KEYWORDS.txt"
{"_map0", def__map0},
#line 156 "KEYWORDS.txt"
{"_step1", def__step1},
#line 56 "KEYWORDS.txt"
{"&&", def_AMPERSAND_AMPERSAND},
{""}, {""},
#line 124 "KEYWORDS.txt" #line 124 "KEYWORDS.txt"
{"rrest", def_rrest}, {"rrest", def_rrest},
{""}, {""}, {""}, {""},
#line 119 "KEYWORDS.txt" #line 61 "KEYWORDS.txt"
{"reverse", def_reverse}, {"<<{}", def_LESS_THAN_SIGN_LESS_THAN_SIGN_LEFT_CURLY_BRACKET_RIGHT_CURLY_BRACKET},
{""}, {""}, #line 95 "KEYWORDS.txt"
#line 164 "KEYWORDS.txt" {"hypot", def_hypot},
{"_map0", def__map0},
{""}, {""},
#line 143 "KEYWORDS.txt" #line 143 "KEYWORDS.txt"
{"ternary", def_ternary}, {"ternary", def_ternary},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
{""}, {""},
#line 100 "KEYWORDS.txt"
{"make_generator", def_make_generator},
#line 121 "KEYWORDS.txt" #line 121 "KEYWORDS.txt"
{"roll<", def_roll_LESS_THAN_SIGN}, {"roll<", def_roll_LESS_THAN_SIGN},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 61 "KEYWORDS.txt"
{"<<{}", def_LESS_THAN_SIGN_LESS_THAN_SIGN_LEFT_CURLY_BRACKET_RIGHT_CURLY_BRACKET},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
{""}, #line 166 "KEYWORDS.txt"
{"_map1", def__map1},
{""}, {""}, {""}, {""}, {""}, {""},
#line 21 "KEYWORDS.txt"
{">=", def_ge},
{""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 152 "KEYWORDS.txt"
{"while", def_while},
{""}, {""}, {""}, {""},
#line 93 "KEYWORDS.txt" #line 93 "KEYWORDS.txt"
{"grabN", def_grabN}, {"grabN", def_grabN},
#line 46 "KEYWORDS.txt" {""}, {""}, {""}, {""}, {""}, {""}, {""},
{"swaack", swaack},
{""},
#line 101 "KEYWORDS.txt" #line 101 "KEYWORDS.txt"
{"neg", def_neg}, {"neg", def_neg},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
@ -455,14 +458,18 @@ in_word_set (register const char *str, register size_t len)
{"eq", def_eq}, {"eq", def_eq},
#line 51 "KEYWORDS.txt" #line 51 "KEYWORDS.txt"
{"neq", def_neq}, {"neq", def_neq},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 20 "KEYWORDS.txt"
{"<=", def_le},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
{""}, {""}, {""}, {""},
#line 133 "KEYWORDS.txt" #line 133 "KEYWORDS.txt"
{"sqr", def_sqr}, {"sqr", def_sqr},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
{""}, #line 33 "KEYWORDS.txt"
{"branch", branch},
{""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 94 "KEYWORDS.txt" #line 94 "KEYWORDS.txt"
{"grba", def_grba} {"grba", def_grba}
}; };