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