perl/old/pptok/pptok.c

   1 /* Automatically generated from pptok.dat by ../pptok.pl */
   2 /* Do not edit */
   3
   4 #include "compiler.h"
   5 #include <inttypes.h>
   6 #include <ctype.h>
   7 #include "nasmlib.h"
   8 #include "hashtbl.h"
   9 #include "preproc.h"
  10
  11 const char * const pp_directives[103] = {
  12     "%elif",
  13     "%elifn",
  14     "%elifctx",
  15     "%elifnctx",
  16     "%elifdef",
  17     "%elifndef",
  18     "%elifempty",
  19     "%elifnempty",
  20     "%elifid",
  21     "%elifnid",
  22     "%elifidn",
  23     "%elifnidn",
  24     "%elifidni",
  25     "%elifnidni",
  26     "%elifmacro",
  27     "%elifnmacro",
  28     "%elifnum",
  29     "%elifnnum",
  30     "%elifstr",
  31     "%elifnstr",
  32     "%eliftoken",
  33     "%elifntoken",
  34     NULL,
  35     NULL,
  36     NULL,
  37     NULL,
  38     NULL,
  39     NULL,
  40     NULL,
  41     NULL,
  42     NULL,
  43     NULL,
  44     "%if",
  45     "%ifn",
  46     "%ifctx",
  47     "%ifnctx",
  48     "%ifdef",
  49     "%ifndef",
  50     "%ifempty",
  51     "%ifnempty",
  52     "%ifid",
  53     "%ifnid",
  54     "%ifidn",
  55     "%ifnidn",
  56     "%ifidni",
  57     "%ifnidni",
  58     "%ifmacro",
  59     "%ifnmacro",
  60     "%ifnum",
  61     "%ifnnum",
  62     "%ifstr",
  63     "%ifnstr",
  64     "%iftoken",
  65     "%ifntoken",
  66     NULL,
  67     NULL,
  68     NULL,
  69     NULL,
  70     NULL,
  71     NULL,
  72     NULL,
  73     NULL,
  74     NULL,
  75     NULL,
  76     "%arg",
  77     "%assign",
  78     "%clear",
  79     "%define",
  80     "%defstr",
  81     "%depend",
  82     "%else",
  83     "%endif",
  84     "%endm",
  85     "%endmacro",
  86     "%endrep",
  87     "%error",
  88     "%exitrep",
  89     "%fatal",
  90     "%iassign",
  91     "%idefine",
  92     "%idefstr",
  93     "%imacro",
  94     "%include",
  95     "%ixdefine",
  96     "%line",
  97     "%local",
  98     "%macro",
  99     "%pathsearch",
 100     "%pop",
 101     "%push",
 102     "%rep",
 103     "%repl",
 104     "%rotate",
 105     "%stacksize",
 106     "%strcat",
 107     "%strlen",
 108     "%substr",
 109     "%undef",
 110     "%unimacro",
 111     "%unmacro",
 112     "%use",
 113     "%warning",
 114     "%xdefine",
 115 };
 116 const uint8_t pp_directives_len[103] = {
 117     5,
 118     6,
 119     8,
 120     9,
 121     8,
 122     9,
 123     10,
 124     11,
 125     7,
 126     8,
 127     8,
 128     9,
 129     9,
 130     10,
 131     10,
 132     11,
 133     8,
 134     9,
 135     8,
 136     9,
 137     10,
 138     11,
 139     0,
 140     0,
 141     0,
 142     0,
 143     0,
 144     0,
 145     0,
 146     0,
 147     0,
 148     0,
 149     3,
 150     4,
 151     6,
 152     7,
 153     6,
 154     7,
 155     8,
 156     9,
 157     5,
 158     6,
 159     6,
 160     7,
 161     7,
 162     8,
 163     8,
 164     9,
 165     6,
 166     7,
 167     6,
 168     7,
 169     8,
 170     9,
 171     0,
 172     0,
 173     0,
 174     0,
 175     0,
 176     0,
 177     0,
 178     0,
 179     0,
 180     0,
 181     4,
 182     7,
 183     6,
 184     7,
 185     7,
 186     7,
 187     5,
 188     6,
 189     5,
 190     9,
 191     7,
 192     6,
 193     8,
 194     6,
 195     8,
 196     8,
 197     8,
 198     7,
 199     8,
 200     9,
 201     5,
 202     6,
 203     6,
 204     11,
 205     4,
 206     5,
 207     4,
 208     5,
 209     7,
 210     10,
 211     7,
 212     7,
 213     7,
 214     6,
 215     9,
 216     8,
 217     4,
 218     8,
 219     8,
 220 };
 221 enum preproc_token pp_token_hash(const char *token)
 222 {
 223 #define UNUSED 16383
 224     static const int16_t hash1[128] = {
 225         UNUSED,
 226         UNUSED,
 227         0,
 228         0,
 229         0,
 230         0,
 231         UNUSED,
 232         UNUSED,
 233         UNUSED,
 234         UNUSED,
 235         UNUSED,
 236         UNUSED,
 237         UNUSED,
 238         UNUSED,
 239         0,
 240         UNUSED,
 241         UNUSED,
 242         0,
 243         0,
 244         UNUSED,
 245         0,
 246         UNUSED,
 247         UNUSED,
 248         UNUSED,
 249         0,
 250         -47,
 251         UNUSED,
 252         0,
 253         UNUSED,
 254         -60,
 255         0,
 256         UNUSED,
 257         UNUSED,
 258         -44,
 259         UNUSED,
 260         UNUSED,
 261         -45,
 262         UNUSED,
 263         UNUSED,
 264         0,
 265         UNUSED,
 266         UNUSED,
 267         UNUSED,
 268         UNUSED,
 269         UNUSED,
 270         UNUSED,
 271         46,
 272         UNUSED,
 273         UNUSED,
 274         47,
 275         5,
 276         UNUSED,
 277         -49,
 278         65,
 279         UNUSED,
 280         UNUSED,
 281         0,
 282         UNUSED,
 283         UNUSED,
 284         38,
 285         UNUSED,
 286         26,
 287         0,
 288         UNUSED,
 289         6,
 290         35,
 291         UNUSED,
 292         UNUSED,
 293         UNUSED,
 294         38,
 295         UNUSED,
 296         125,
 297         UNUSED,
 298         0,
 299         UNUSED,
 300         36,
 301         15,
 302         0,
 303         120,
 304         -81,
 305         UNUSED,
 306         UNUSED,
 307         80,
 308         0,
 309         UNUSED,
 310         14,
 311         92,
 312         -60,
 313         -102,
 314         0,
 315         -12,
 316         -73,
 317         UNUSED,
 318         UNUSED,
 319         UNUSED,
 320         1,
 321         UNUSED,
 322         0,
 323         10,
 324         UNUSED,
 325         -141,
 326         UNUSED,
 327         100,
 328         UNUSED,
 329         77,
 330         UNUSED,
 331         41,
 332         82,
 333         UNUSED,
 334         19,
 335         0,
 336         UNUSED,
 337         UNUSED,
 338         UNUSED,
 339         UNUSED,
 340         UNUSED,
 341         UNUSED,
 342         UNUSED,
 343         9,
 344         87,
 345         -1,
 346         UNUSED,
 347         UNUSED,
 348         UNUSED,
 349         UNUSED,
 350         101,
 351         42,
 352         UNUSED,
 353     };
 354     static const int16_t hash2[128] = {
 355         UNUSED,
 356         0,
 357         UNUSED,
 358         0,
 359         UNUSED,
 360         UNUSED,
 361         0,
 362         UNUSED,
 363         UNUSED,
 364         0,
 365         UNUSED,
 366         UNUSED,
 367         UNUSED,
 368         UNUSED,
 369         UNUSED,
 370         UNUSED,
 371         UNUSED,
 372         0,
 373         81,
 374         UNUSED,
 375         64,
 376         UNUSED,
 377         0,
 378         UNUSED,
 379         0,
 380         0,
 381         UNUSED,
 382         UNUSED,
 383         UNUSED,
 384         64,
 385         UNUSED,
 386         UNUSED,
 387         UNUSED,
 388         UNUSED,
 389         UNUSED,
 390         0,
 391         121,
 392         0,
 393         UNUSED,
 394         15,
 395         94,
 396         63,
 397         UNUSED,
 398         114,
 399         UNUSED,
 400         178,
 401         UNUSED,
 402         UNUSED,
 403         UNUSED,
 404         0,
 405         UNUSED,
 406         -34,
 407         UNUSED,
 408         84,
 409         UNUSED,
 410         UNUSED,
 411         UNUSED,
 412         UNUSED,
 413         83,
 414         UNUSED,
 415         40,
 416         UNUSED,
 417         UNUSED,
 418         139,
 419         UNUSED,
 420         UNUSED,
 421         UNUSED,
 422         97,
 423         UNUSED,
 424         44,
 425         100,
 426         145,
 427         UNUSED,
 428         21,
 429         51,
 430         0,
 431         UNUSED,
 432         UNUSED,
 433         UNUSED,
 434         0,
 435         UNUSED,
 436         UNUSED,
 437         UNUSED,
 438         33,
 439         0,
 440         0,
 441         88,
 442         UNUSED,
 443         48,
 444         71,
 445         UNUSED,
 446         7,
 447         37,
 448         60,
 449         UNUSED,
 450         UNUSED,
 451         109,
 452         50,
 453         UNUSED,
 454         UNUSED,
 455         UNUSED,
 456         UNUSED,
 457         UNUSED,
 458         UNUSED,
 459         93,
 460         95,
 461         70,
 462         UNUSED,
 463         16,
 464         63,
 465         32,
 466         UNUSED,
 467         UNUSED,
 468         UNUSED,
 469         8,
 470         11,
 471         81,
 472         UNUSED,
 473         UNUSED,
 474         37,
 475         UNUSED,
 476         8,
 477         18,
 478         UNUSED,
 479         UNUSED,
 480         74,
 481         92,
 482         UNUSED,
 483     };
 484     uint32_t k1, k2;
 485     uint64_t crc;
 486     uint16_t ix;
 487
 488     crc = crc64i(UINT64_C(0xaee7ac5ccabdec91), token);
 489     k1 = (uint32_t)crc;
 490     k2 = (uint32_t)(crc >> 32);
 491
 492     ix = hash1[k1 & 0x7f] + hash2[k2 & 0x7f];
 493     if (ix >= 103)
 494         return PP_INVALID;
 495
 496     if (!pp_directives[ix] || nasm_stricmp(pp_directives[ix], token))
 497         return PP_INVALID;
 498
 499     return ix;
 500 }