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