implementations/C/keywords.c

   1 /* ANSI-C code produced by gperf version 3.1 */
   2 /* Command-line: gperf --output-file=keywords.c --readonly-tables --enum --includes --hash-function-name=keyword_hash KEYWORDS.txt  */
   3 /* Computed positions: -k'1-3,$' */
   4
   5 #if !((' ' == 32) && ('!' == 33) && ('"' == 34) && ('#' == 35) \
   6       && ('%' == 37) && ('&' == 38) && ('\'' == 39) && ('(' == 40) \
   7       && (')' == 41) && ('*' == 42) && ('+' == 43) && (',' == 44) \
   8       && ('-' == 45) && ('.' == 46) && ('/' == 47) && ('0' == 48) \
   9       && ('1' == 49) && ('2' == 50) && ('3' == 51) && ('4' == 52) \
  10       && ('5' == 53) && ('6' == 54) && ('7' == 55) && ('8' == 56) \
  11       && ('9' == 57) && (':' == 58) && (';' == 59) && ('<' == 60) \
  12       && ('=' == 61) && ('>' == 62) && ('?' == 63) && ('A' == 65) \
  13       && ('B' == 66) && ('C' == 67) && ('D' == 68) && ('E' == 69) \
  14       && ('F' == 70) && ('G' == 71) && ('H' == 72) && ('I' == 73) \
  15       && ('J' == 74) && ('K' == 75) && ('L' == 76) && ('M' == 77) \
  16       && ('N' == 78) && ('O' == 79) && ('P' == 80) && ('Q' == 81) \
  17       && ('R' == 82) && ('S' == 83) && ('T' == 84) && ('U' == 85) \
  18       && ('V' == 86) && ('W' == 87) && ('X' == 88) && ('Y' == 89) \
  19       && ('Z' == 90) && ('[' == 91) && ('\\' == 92) && (']' == 93) \
  20       && ('^' == 94) && ('_' == 95) && ('a' == 97) && ('b' == 98) \
  21       && ('c' == 99) && ('d' == 100) && ('e' == 101) && ('f' == 102) \
  22       && ('g' == 103) && ('h' == 104) && ('i' == 105) && ('j' == 106) \
  23       && ('k' == 107) && ('l' == 108) && ('m' == 109) && ('n' == 110) \
  24       && ('o' == 111) && ('p' == 112) && ('q' == 113) && ('r' == 114) \
  25       && ('s' == 115) && ('t' == 116) && ('u' == 117) && ('v' == 118) \
  26       && ('w' == 119) && ('x' == 120) && ('y' == 121) && ('z' == 122) \
  27       && ('{' == 123) && ('|' == 124) && ('}' == 125) && ('~' == 126))
  28 /* The character set is not based on ISO-646.  */
  29 #error "gperf generated tables don't work with this execution character set. Please report a bug to <bug-gperf@gnu.org>."
  30 #endif
  31
  32 #line 9 "KEYWORDS.txt"
  33
  34 #include "joy.h"
  35 #include "definitions.h"
  36 #line 13 "KEYWORDS.txt"
  37 struct dict_entry;
  38 #include <string.h>
  39 /* maximum key range = 359, duplicates = 0 */
  40
  41 #ifdef __GNUC__
  42 __inline
  43 #else
  44 #ifdef __cplusplus
  45 inline
  46 #endif
  47 #endif
  48 static unsigned int
  49 keyword_hash (register const char *str, register size_t len)
  50 {
  51   static const unsigned short asso_values[] =
  52     {
  53       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  54       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  55       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  56       360, 360, 360,  35, 360, 360, 360,  60, 360, 360,
  57       360, 360,  30,  85, 360,  45, 360,  20,  60,  35,
  58         0,  25, 360, 360, 360, 360, 360, 360, 360, 360,
  59        10,  90,   0,  80, 360, 360, 360, 360, 360, 360,
  60       360, 360, 360, 360, 360, 360, 360, 360,  20, 360,
  61       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  62       360, 360,  30, 360, 360,  90, 360, 100,  70,   0,
  63         5,  30,  40, 115,  15,  15, 360,  50,  40,  60,
  64         0,  15,   0,  85,  70,  30,  25,   0,  95,  30,
  65        25,  10,  20,  40, 360,   0, 360, 360, 360, 360,
  66       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  67       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  68       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  69       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  70       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  71       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  72       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  73       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  74       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  75       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  76       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  77       360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
  78       360, 360, 360, 360, 360, 360
  79     };
  80   register unsigned int hval = len;
  81
  82   switch (hval)
  83     {
  84       default:
  85         hval += asso_values[(unsigned char)str[2]];
  86       /*FALLTHROUGH*/
  87       case 2:
  88         hval += asso_values[(unsigned char)str[1]];
  89       /*FALLTHROUGH*/
  90       case 1:
  91         hval += asso_values[(unsigned char)str[0]];
  92         break;
  93     }
  94   return hval + asso_values[(unsigned char)str[len - 1]];
  95 }
  96
  97 const struct dict_entry *
  98 in_word_set (register const char *str, register size_t len)
  99 {
 100   enum
 101     {
 102       TOTAL_KEYWORDS = 169,
 103       MIN_WORD_LENGTH = 1,
 104       MAX_WORD_LENGTH = 15,
 105       MIN_HASH_VALUE = 1,
 106       MAX_HASH_VALUE = 359
 107     };
 108
 109   static const struct dict_entry wordlist[] =
 110     {
 111       {""},
 112 #line 16 "KEYWORDS.txt"
 113       {">", def_gt},
 114 #line 133 "KEYWORDS.txt"
 115       {">>", def_GREATER_THAN_SIGN_GREATER_THAN_SIGN},
 116       {""}, {""}, {""}, {""}, {""},
 117 #line 41 "KEYWORDS.txt"
 118       {"dup", dup},
 119       {""}, {""},
 120 #line 90 "KEYWORDS.txt"
 121       {"dupdip", def_dupdip},
 122 #line 19 "KEYWORDS.txt"
 123       {"<>", def_neq},
 124       {""},
 125 #line 88 "KEYWORDS.txt"
 126       {"dupd", def_dupd},
 127 #line 87 "KEYWORDS.txt"
 128       {"dupdd", def_dupdd},
 129       {""},
 130 #line 89 "KEYWORDS.txt"
 131       {"dupdipd", def_dupdipd},
 132 #line 46 "KEYWORDS.txt"
 133       {"pop", pop},
 134       {""},
 135 #line 121 "KEYWORDS.txt"
 136       {"popop", def_popop},
 137 #line 17 "KEYWORDS.txt"
 138       {"<", def_lt},
 139 #line 120 "KEYWORDS.txt"
 140       {"popopop", def_popopop},
 141 #line 40 "KEYWORDS.txt"
 142       {"dip", dip},
 143 #line 117 "KEYWORDS.txt"
 144       {"popd", def_popd},
 145 #line 116 "KEYWORDS.txt"
 146       {"popdd", def_popdd},
 147 #line 119 "KEYWORDS.txt"
 148       {"popopd", def_popopd},
 149 #line 118 "KEYWORDS.txt"
 150       {"popopdd", def_popopdd},
 151       {""},
 152 #line 82 "KEYWORDS.txt"
 153       {"dipd", def_dipd},
 154       {""},
 155 #line 43 "KEYWORDS.txt"
 156       {"i", i_joyfunc},
 157 #line 104 "KEYWORDS.txt"
 158       {"<<", def_LESS_THAN_SIGN_LESS_THAN_SIGN},
 159       {""}, {""}, {""},
 160 #line 157 "KEYWORDS.txt"
 161       {"uncons", def_uncons},
 162 #line 75 "KEYWORDS.txt"
 163       {"ccccons", def_ccccons},
 164       {""},
 165 #line 79 "KEYWORDS.txt"
 166       {"codi", def_codi},
 167       {""},
 168 #line 30 "KEYWORDS.txt"
 169       {"/", fdiv_q},
 170 #line 51 "KEYWORDS.txt"
 171       {"fn", fn},
 172 #line 80 "KEYWORDS.txt"
 173       {"codireco", def_codireco},
 174 #line 158 "KEYWORDS.txt"
 175       {"unit", def_unit},
 176       {""},
 177 #line 39 "KEYWORDS.txt"
 178       {"concat", concat},
 179 #line 101 "KEYWORDS.txt"
 180       {"ii", def_ii},
 181       {""},
 182 #line 38 "KEYWORDS.txt"
 183       {"cons", cons},
 184 #line 76 "KEYWORDS.txt"
 185       {"ccons", def_ccons},
 186 #line 163 "KEYWORDS.txt"
 187       {"x", def_x},
 188       {""},
 189 #line 62 "KEYWORDS.txt"
 190       {"<{}", def_LESS_THAN_SIGN_LEFT_CURLY_BRACKET_RIGHT_CURLY_BRACKET},
 191 #line 81 "KEYWORDS.txt"
 192       {"dinfrirst", def_dinfrirst},
 193 #line 99 "KEYWORDS.txt"
 194       {"hypot", def_hypot},
 195       {""},
 196 #line 109 "KEYWORDS.txt"
 197       {"nullary", def_nullary},
 198       {""},
 199 #line 78 "KEYWORDS.txt"
 200       {"clop", def_clop},
 201 #line 108 "KEYWORDS.txt"
 202       {"nulco", def_nulco},
 203 #line 24 "KEYWORDS.txt"
 204       {"*", mul},
 205 #line 83 "KEYWORDS.txt"
 206       {"disenstacken", def_disenstacken},
 207 #line 37 "KEYWORDS.txt"
 208       {"cmp", cmp_joyfunc},
 209 #line 63 "KEYWORDS.txt"
 210       {"<<{}", def_LESS_THAN_SIGN_LESS_THAN_SIGN_LEFT_CURLY_BRACKET_RIGHT_CURLY_BRACKET},
 211 #line 154 "KEYWORDS.txt"
 212       {"third", def_third},
 213       {""},
 214 #line 161 "KEYWORDS.txt"
 215       {"unswons", def_unswons},
 216 #line 107 "KEYWORDS.txt"
 217       {"not", def_not},
 218 #line 91 "KEYWORDS.txt"
 219       {"enstacken", def_enstacken},
 220       {""},
 221 #line 135 "KEYWORDS.txt"
 222       {"second", def_second},
 223 #line 182 "KEYWORDS.txt"
 224       {"\\/", def_REVERSE_SOLIDUS_SOLIDUS},
 225 #line 134 "KEYWORDS.txt"
 226       {"run", def_run},
 227 #line 45 "KEYWORDS.txt"
 228       {"loop", loop},
 229 #line 137 "KEYWORDS.txt"
 230       {"shunt", def_shunt},
 231 #line 94 "KEYWORDS.txt"
 232       {"fourth", def_fourth},
 233 #line 85 "KEYWORDS.txt"
 234       {"down_to_zero", def_down_to_zero},
 235       {""},
 236 #line 155 "KEYWORDS.txt"
 237       {"tuck", def_tuck},
 238       {""},
 239 #line 140 "KEYWORDS.txt"
 240       {"spiral_next", def_spiral_next},
 241 #line 181 "KEYWORDS.txt"
 242       {"/\\", def_SOLIDUS_REVERSE_SOLIDUS},
 243 #line 44 "KEYWORDS.txt"
 244       {"inscribe", inscribe},
 245 #line 110 "KEYWORDS.txt"
 246       {"null", def_null},
 247       {""},
 248 #line 103 "KEYWORDS.txt"
 249       {"infrst", def_infrst},
 250 #line 160 "KEYWORDS.txt"
 251       {"unstack", def_unstack},
 252 #line 23 "KEYWORDS.txt"
 253       {"mod", fdiv_r},
 254 #line 164 "KEYWORDS.txt"
 255       {"step", def_step},
 256 #line 136 "KEYWORDS.txt"
 257       {"shift", def_shift},
 258 #line 28 "KEYWORDS.txt"
 259       {"-", sub},
 260 #line 54 "KEYWORDS.txt"
 261       {"lt", def_lt},
 262 #line 146 "KEYWORDS.txt"
 263       {"stuncons", def_stuncons},
 264 #line 86 "KEYWORDS.txt"
 265       {"drop", def_drop},
 266 #line 162 "KEYWORDS.txt"
 267       {"while", def_while},
 268       {""},
 269 #line 111 "KEYWORDS.txt"
 270       {"of", def_of},
 271 #line 159 "KEYWORDS.txt"
 272       {"unquoted", def_unquoted},
 273 #line 138 "KEYWORDS.txt"
 274       {"size", def_size},
 275       {""},
 276 #line 74 "KEYWORDS.txt"
 277       {"binary", def_binary},
 278 #line 56 "KEYWORDS.txt"
 279       {"le", def_le},
 280 #line 141 "KEYWORDS.txt"
 281       {"split_at", def_split_at},
 282 #line 68 "KEYWORDS.txt"
 283       {"app2", def_app2},
 284 #line 142 "KEYWORDS.txt"
 285       {"split_list", def_split_list},
 286 #line 77 "KEYWORDS.txt"
 287       {"cleave", def_cleave},
 288 #line 149 "KEYWORDS.txt"
 289       {"swoncat", def_swoncat},
 290       {""},
 291 #line 145 "KEYWORDS.txt"
 292       {"step_zero", def_step_zero},
 293 #line 150 "KEYWORDS.txt"
 294       {"swons", def_swons},
 295 #line 123 "KEYWORDS.txt"
 296       {"quoted", def_quoted},
 297       {""},
 298 #line 66 "KEYWORDS.txt"
 299       {"and", def_and},
 300 #line 100 "KEYWORDS.txt"
 301       {"ifte", def_ifte},
 302 #line 156 "KEYWORDS.txt"
 303       {"unary", def_unary},
 304 #line 32 "KEYWORDS.txt"
 305       {"lshift", lshift},
 306 #line 122 "KEYWORDS.txt"
 307       {"product", def_product},
 308 #line 27 "KEYWORDS.txt"
 309       {"add", add},
 310 #line 126 "KEYWORDS.txt"
 311       {"reco", def_reco},
 312       {""},
 313 #line 22 "KEYWORDS.txt"
 314       {"%", fdiv_r},
 315 #line 115 "KEYWORDS.txt"
 316       {"pm", def_pm},
 317       {""},
 318 #line 70 "KEYWORDS.txt"
 319       {"appN", def_appN},
 320       {""},
 321 #line 84 "KEYWORDS.txt"
 322       {"divmod", def_divmod},
 323 #line 59 "KEYWORDS.txt"
 324       {"!-", def_EXCLAMATION_MARK_HYPHEN_MINUS},
 325 #line 95 "KEYWORDS.txt"
 326       {"gcd", def_gcd},
 327 #line 69 "KEYWORDS.txt"
 328       {"app3", def_app3},
 329 #line 130 "KEYWORDS.txt"
 330       {"roll>", def_roll_GREATER_THAN_SIGN},
 331 #line 131 "KEYWORDS.txt"
 332       {"rollup", def_rollup},
 333       {""},
 334 #line 128 "KEYWORDS.txt"
 335       {"rolldown", def_rolldown},
 336       {""},
 337 #line 168 "KEYWORDS.txt"
 338       {"times", def_times},
 339       {""},
 340 #line 61 "KEYWORDS.txt"
 341       {"--", def_HYPHEN_MINUS_HYPHEN_MINUS},
 342       {""},
 343 #line 67 "KEYWORDS.txt"
 344       {"app1", def_app1},
 345 #line 129 "KEYWORDS.txt"
 346       {"roll<", def_roll_LESS_THAN_SIGN},
 347 #line 73 "KEYWORDS.txt"
 348       {"b", def_b},
 349 #line 153 "KEYWORDS.txt"
 350       {"ternary", def_ternary},
 351 #line 25 "KEYWORDS.txt"
 352       {"mul", mul},
 353 #line 34 "KEYWORDS.txt"
 354       {"bool", truthy},
 355 #line 36 "KEYWORDS.txt"
 356       {"clear", clear},
 357 #line 33 "KEYWORDS.txt"
 358       {"rshift", rshift},
 359 #line 151 "KEYWORDS.txt"
 360       {"tailrec", def_tailrec},
 361       {""}, {""}, {""},
 362 #line 96 "KEYWORDS.txt"
 363       {"genrec", def_genrec},
 364 #line 71 "KEYWORDS.txt"
 365       {"at", def_at},
 366 #line 147 "KEYWORDS.txt"
 367       {"sum", def_sum},
 368       {""},
 369 #line 42 "KEYWORDS.txt"
 370       {"first", first},
 371       {""},
 372 #line 112 "KEYWORDS.txt"
 373       {"or", def_or},
 374       {""},
 375 #line 47 "KEYWORDS.txt"
 376       {"rest", rest},
 377 #line 102 "KEYWORDS.txt"
 378       {"infra", def_infra},
 379 #line 58 "KEYWORDS.txt"
 380       {"?", def_QUESTION_MARK},
 381 #line 171 "KEYWORDS.txt"
 382       {"_timest", def__timest},
 383 #line 172 "KEYWORDS.txt"
 384       {"map", def_map},
 385 #line 50 "KEYWORDS.txt"
 386       {"swap", swap},
 387       {""},
 388 #line 144 "KEYWORDS.txt"
 389       {"stackd", def_stackd},
 390 #line 53 "KEYWORDS.txt"
 391       {"gt", def_gt},
 392       {""}, {""},
 393 #line 148 "KEYWORDS.txt"
 394       {"swapd", def_swapd},
 395 #line 26 "KEYWORDS.txt"
 396       {"+", add},
 397 #line 170 "KEYWORDS.txt"
 398       {"_times1", def__times1},
 399 #line 29 "KEYWORDS.txt"
 400       {"sub", sub},
 401       {""}, {""},
 402 #line 167 "KEYWORDS.txt"
 403       {"_stept", def__stept},
 404 #line 57 "KEYWORDS.txt"
 405       {"ge", def_ge},
 406       {""},
 407 #line 93 "KEYWORDS.txt"
 408       {"fork", def_fork},
 409 #line 179 "KEYWORDS.txt"
 410       {"_isnt_two_bools", def__isnt_two_bools},
 411 #line 15 "KEYWORDS.txt"
 412       {"=", def_eq},
 413 #line 21 "KEYWORDS.txt"
 414       {">=", def_ge},
 415 #line 183 "KEYWORDS.txt"
 416       {"xor", def_xor},
 417       {""},
 418 #line 178 "KEYWORDS.txt"
 419       {"_isnt_bool", def__isnt_bool},
 420 #line 166 "KEYWORDS.txt"
 421       {"_step1", def__step1},
 422 #line 92 "KEYWORDS.txt"
 423       {"flatten", def_flatten},
 424       {""}, {""}, {""}, {""},
 425 #line 20 "KEYWORDS.txt"
 426       {"<=", def_le},
 427       {""}, {""}, {""}, {""},
 428 #line 169 "KEYWORDS.txt"
 429       {"_times0", def__times0},
 430 #line 125 "KEYWORDS.txt"
 431       {"range_to_zero", def_range_to_zero},
 432       {""},
 433 #line 132 "KEYWORDS.txt"
 434       {"rrest", def_rrest},
 435       {""},
 436 #line 52 "KEYWORDS.txt"
 437       {"eq", def_eq},
 438 #line 55 "KEYWORDS.txt"
 439       {"neq", def_neq},
 440       {""},
 441 #line 124 "KEYWORDS.txt"
 442       {"range", def_range},
 443       {""}, {""}, {""},
 444 #line 152 "KEYWORDS.txt"
 445       {"take", def_take},
 446 #line 48 "KEYWORDS.txt"
 447       {"stack", stack},
 448 #line 165 "KEYWORDS.txt"
 449       {"_step0", def__step0},
 450       {""},
 451 #line 31 "KEYWORDS.txt"
 452       {"div", fdiv_q},
 453 #line 113 "KEYWORDS.txt"
 454       {"over", def_over},
 455       {""},
 456 #line 49 "KEYWORDS.txt"
 457       {"swaack", swaack},
 458 #line 18 "KEYWORDS.txt"
 459       {"!=", def_neq},
 460       {""}, {""}, {""}, {""}, {""},
 461 #line 114 "KEYWORDS.txt"
 462       {"pam", def_pam},
 463       {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
 464 #line 127 "KEYWORDS.txt"
 465       {"reverse", def_reverse},
 466 #line 64 "KEYWORDS.txt"
 467       {"abs", def_abs},
 468 #line 180 "KEYWORDS.txt"
 469       {"_\\/_", def___REVERSE_SOLIDUS_SOLIDUS__},
 470 #line 139 "KEYWORDS.txt"
 471       {"small", def_small},
 472       {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
 473       {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
 474       {""},
 475 #line 177 "KEYWORDS.txt"
 476       {"_map2", def__map2},
 477       {""},
 478 #line 60 "KEYWORDS.txt"
 479       {"++", def_PLUS_SIGN_PLUS_SIGN},
 480 #line 143 "KEYWORDS.txt"
 481       {"sqr", def_sqr},
 482       {""}, {""},
 483 #line 35 "KEYWORDS.txt"
 484       {"branch", branch},
 485 #line 72 "KEYWORDS.txt"
 486       {"average", def_average},
 487 #line 106 "KEYWORDS.txt"
 488       {"neg", def_neg},
 489       {""}, {""}, {""}, {""}, {""}, {""}, {""},
 490 #line 65 "KEYWORDS.txt"
 491       {"anamorphism", def_anamorphism},
 492       {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
 493       {""}, {""}, {""}, {""},
 494 #line 174 "KEYWORDS.txt"
 495       {"_mape", def__mape},
 496       {""}, {""}, {""}, {""},
 497 #line 176 "KEYWORDS.txt"
 498       {"_map1", def__map1},
 499       {""}, {""}, {""},
 500 #line 105 "KEYWORDS.txt"
 501       {"make_generator", def_make_generator},
 502       {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
 503       {""}, {""}, {""}, {""}, {""}, {""},
 504 #line 97 "KEYWORDS.txt"
 505       {"grabN", def_grabN},
 506       {""}, {""}, {""}, {""},
 507 #line 175 "KEYWORDS.txt"
 508       {"_map0", def__map0},
 509       {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
 510       {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
 511       {""},
 512 #line 173 "KEYWORDS.txt"
 513       {"_map?", def__map_QUESTION_MARK},
 514       {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
 515       {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
 516       {""}, {""}, {""}, {""}, {""},
 517 #line 98 "KEYWORDS.txt"
 518       {"grba", def_grba}
 519     };
 520
 521   if (len <= MAX_WORD_LENGTH && len >= MIN_WORD_LENGTH)
 522     {
 523       register unsigned int key = keyword_hash (str, len);
 524
 525       if (key <= MAX_HASH_VALUE)
 526         {
 527           register const char *s = wordlist[key].name;
 528
 529           if (*str == *s && !strncmp (str + 1, s + 1, len - 1) && s[len] == '\0')
 530             return &wordlist[key];
 531         }
 532     }
 533   return 0;
 534 }