keywords.c

   1 /* -*- buffer-read-only: t -*-
   2  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
   3  * This file is built by regen/keywords.pl from its data.
   4  * Any changes made here will be lost!
   5  */
   6
   7 #include "EXTERN.h"
   8 #define PERL_IN_KEYWORDS_C
   9 #include "perl.h"
  10 #include "keywords.h"
  11
  12 I32
  13 Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords)
  14 {
  15   dVAR;
  16
  17   PERL_ARGS_ASSERT_KEYWORD;
  18
  19   switch (len)
  20   {
  21     case 1: /* 5 tokens of length 1 */
  22       switch (name[0])
  23       {
  24         case 'm':
  25           {                                       /* m                */
  26             return KEY_m;
  27           }
  28
  29         case 'q':
  30           {                                       /* q                */
  31             return KEY_q;
  32           }
  33
  34         case 's':
  35           {                                       /* s                */
  36             return KEY_s;
  37           }
  38
  39         case 'x':
  40           {                                       /* x                */
  41             return -KEY_x;
  42           }
  43
  44         case 'y':
  45           {                                       /* y                */
  46             return KEY_y;
  47           }
  48
  49         default:
  50           goto unknown;
  51       }
  52
  53     case 2: /* 18 tokens of length 2 */
  54       switch (name[0])
  55       {
  56         case 'd':
  57           if (name[1] == 'o')
  58           {                                       /* do               */
  59             return KEY_do;
  60           }
  61
  62           goto unknown;
  63
  64         case 'e':
  65           if (name[1] == 'q')
  66           {                                       /* eq               */
  67             return -KEY_eq;
  68           }
  69
  70           goto unknown;
  71
  72         case 'g':
  73           switch (name[1])
  74           {
  75             case 'e':
  76               {                                   /* ge               */
  77                 return -KEY_ge;
  78               }
  79
  80             case 't':
  81               {                                   /* gt               */
  82                 return -KEY_gt;
  83               }
  84
  85             default:
  86               goto unknown;
  87           }
  88
  89         case 'i':
  90           if (name[1] == 'f')
  91           {                                       /* if               */
  92             return KEY_if;
  93           }
  94
  95           goto unknown;
  96
  97         case 'l':
  98           switch (name[1])
  99           {
 100             case 'c':
 101               {                                   /* lc               */
 102                 return -KEY_lc;
 103               }
 104
 105             case 'e':
 106               {                                   /* le               */
 107                 return -KEY_le;
 108               }
 109
 110             case 't':
 111               {                                   /* lt               */
 112                 return -KEY_lt;
 113               }
 114
 115             default:
 116               goto unknown;
 117           }
 118
 119         case 'm':
 120           if (name[1] == 'y')
 121           {                                       /* my               */
 122             return KEY_my;
 123           }
 124
 125           goto unknown;
 126
 127         case 'n':
 128           switch (name[1])
 129           {
 130             case 'e':
 131               {                                   /* ne               */
 132                 return -KEY_ne;
 133               }
 134
 135             case 'o':
 136               {                                   /* no               */
 137                 return KEY_no;
 138               }
 139
 140             default:
 141               goto unknown;
 142           }
 143
 144         case 'o':
 145           if (name[1] == 'r')
 146           {                                       /* or               */
 147             return -KEY_or;
 148           }
 149
 150           goto unknown;
 151
 152         case 'q':
 153           switch (name[1])
 154           {
 155             case 'q':
 156               {                                   /* qq               */
 157                 return KEY_qq;
 158               }
 159
 160             case 'r':
 161               {                                   /* qr               */
 162                 return KEY_qr;
 163               }
 164
 165             case 'w':
 166               {                                   /* qw               */
 167                 return KEY_qw;
 168               }
 169
 170             case 'x':
 171               {                                   /* qx               */
 172                 return KEY_qx;
 173               }
 174
 175             default:
 176               goto unknown;
 177           }
 178
 179         case 't':
 180           if (name[1] == 'r')
 181           {                                       /* tr               */
 182             return KEY_tr;
 183           }
 184
 185           goto unknown;
 186
 187         case 'u':
 188           if (name[1] == 'c')
 189           {                                       /* uc               */
 190             return -KEY_uc;
 191           }
 192
 193           goto unknown;
 194
 195         default:
 196           goto unknown;
 197       }
 198
 199     case 3: /* 28 tokens of length 3 */
 200       switch (name[0])
 201       {
 202         case 'E':
 203           if (name[1] == 'N' &&
 204               name[2] == 'D')
 205           {                                       /* END              */
 206             return KEY_END;
 207           }
 208
 209           goto unknown;
 210
 211         case 'a':
 212           switch (name[1])
 213           {
 214             case 'b':
 215               if (name[2] == 's')
 216               {                                   /* abs              */
 217                 return -KEY_abs;
 218               }
 219
 220               goto unknown;
 221
 222             case 'n':
 223               if (name[2] == 'd')
 224               {                                   /* and              */
 225                 return -KEY_and;
 226               }
 227
 228               goto unknown;
 229
 230             default:
 231               goto unknown;
 232           }
 233
 234         case 'c':
 235           switch (name[1])
 236           {
 237             case 'h':
 238               if (name[2] == 'r')
 239               {                                   /* chr              */
 240                 return -KEY_chr;
 241               }
 242
 243               goto unknown;
 244
 245             case 'm':
 246               if (name[2] == 'p')
 247               {                                   /* cmp              */
 248                 return -KEY_cmp;
 249               }
 250
 251               goto unknown;
 252
 253             case 'o':
 254               if (name[2] == 's')
 255               {                                   /* cos              */
 256                 return -KEY_cos;
 257               }
 258
 259               goto unknown;
 260
 261             default:
 262               goto unknown;
 263           }
 264
 265         case 'd':
 266           if (name[1] == 'i' &&
 267               name[2] == 'e')
 268           {                                       /* die              */
 269             return -KEY_die;
 270           }
 271
 272           goto unknown;
 273
 274         case 'e':
 275           switch (name[1])
 276           {
 277             case 'o':
 278               if (name[2] == 'f')
 279               {                                   /* eof              */
 280                 return -KEY_eof;
 281               }
 282
 283               goto unknown;
 284
 285             case 'x':
 286               if (name[2] == 'p')
 287               {                                   /* exp              */
 288                 return -KEY_exp;
 289               }
 290
 291               goto unknown;
 292
 293             default:
 294               goto unknown;
 295           }
 296
 297         case 'f':
 298           if (name[1] == 'o' &&
 299               name[2] == 'r')
 300           {                                       /* for              */
 301             return KEY_for;
 302           }
 303
 304           goto unknown;
 305
 306         case 'h':
 307           if (name[1] == 'e' &&
 308               name[2] == 'x')
 309           {                                       /* hex              */
 310             return -KEY_hex;
 311           }
 312
 313           goto unknown;
 314
 315         case 'i':
 316           if (name[1] == 'n' &&
 317               name[2] == 't')
 318           {                                       /* int              */
 319             return -KEY_int;
 320           }
 321
 322           goto unknown;
 323
 324         case 'l':
 325           if (name[1] == 'o' &&
 326               name[2] == 'g')
 327           {                                       /* log              */
 328             return -KEY_log;
 329           }
 330
 331           goto unknown;
 332
 333         case 'm':
 334           if (name[1] == 'a' &&
 335               name[2] == 'p')
 336           {                                       /* map              */
 337             return KEY_map;
 338           }
 339
 340           goto unknown;
 341
 342         case 'n':
 343           if (name[1] == 'o' &&
 344               name[2] == 't')
 345           {                                       /* not              */
 346             return -KEY_not;
 347           }
 348
 349           goto unknown;
 350
 351         case 'o':
 352           switch (name[1])
 353           {
 354             case 'c':
 355               if (name[2] == 't')
 356               {                                   /* oct              */
 357                 return -KEY_oct;
 358               }
 359
 360               goto unknown;
 361
 362             case 'r':
 363               if (name[2] == 'd')
 364               {                                   /* ord              */
 365                 return -KEY_ord;
 366               }
 367
 368               goto unknown;
 369
 370             case 'u':
 371               if (name[2] == 'r')
 372               {                                   /* our              */
 373                 return KEY_our;
 374               }
 375
 376               goto unknown;
 377
 378             default:
 379               goto unknown;
 380           }
 381
 382         case 'p':
 383           if (name[1] == 'o')
 384           {
 385             switch (name[2])
 386             {
 387               case 'p':
 388                 {                                 /* pop              */
 389                   return -KEY_pop;
 390                 }
 391
 392               case 's':
 393                 {                                 /* pos              */
 394                   return KEY_pos;
 395                 }
 396
 397               default:
 398                 goto unknown;
 399             }
 400           }
 401
 402           goto unknown;
 403
 404         case 'r':
 405           if (name[1] == 'e' &&
 406               name[2] == 'f')
 407           {                                       /* ref              */
 408             return -KEY_ref;
 409           }
 410
 411           goto unknown;
 412
 413         case 's':
 414           switch (name[1])
 415           {
 416             case 'a':
 417               if (name[2] == 'y')
 418               {                                   /* say              */
 419                 return (all_keywords || FEATURE_IS_ENABLED("say") ? KEY_say : 0);
 420               }
 421
 422               goto unknown;
 423
 424             case 'i':
 425               if (name[2] == 'n')
 426               {                                   /* sin              */
 427                 return -KEY_sin;
 428               }
 429
 430               goto unknown;
 431
 432             case 'u':
 433               if (name[2] == 'b')
 434               {                                   /* sub              */
 435                 return KEY_sub;
 436               }
 437
 438               goto unknown;
 439
 440             default:
 441               goto unknown;
 442           }
 443
 444         case 't':
 445           if (name[1] == 'i' &&
 446               name[2] == 'e')
 447           {                                       /* tie              */
 448             return -KEY_tie;
 449           }
 450
 451           goto unknown;
 452
 453         case 'u':
 454           if (name[1] == 's' &&
 455               name[2] == 'e')
 456           {                                       /* use              */
 457             return KEY_use;
 458           }
 459
 460           goto unknown;
 461
 462         case 'v':
 463           if (name[1] == 'e' &&
 464               name[2] == 'c')
 465           {                                       /* vec              */
 466             return -KEY_vec;
 467           }
 468
 469           goto unknown;
 470
 471         case 'x':
 472           if (name[1] == 'o' &&
 473               name[2] == 'r')
 474           {                                       /* xor              */
 475             return -KEY_xor;
 476           }
 477
 478           goto unknown;
 479
 480         default:
 481           goto unknown;
 482       }
 483
 484     case 4: /* 41 tokens of length 4 */
 485       switch (name[0])
 486       {
 487         case 'C':
 488           if (name[1] == 'O' &&
 489               name[2] == 'R' &&
 490               name[3] == 'E')
 491           {                                       /* CORE             */
 492             return -KEY_CORE;
 493           }
 494
 495           goto unknown;
 496
 497         case 'I':
 498           if (name[1] == 'N' &&
 499               name[2] == 'I' &&
 500               name[3] == 'T')
 501           {                                       /* INIT             */
 502             return KEY_INIT;
 503           }
 504
 505           goto unknown;
 506
 507         case 'b':
 508           if (name[1] == 'i' &&
 509               name[2] == 'n' &&
 510               name[3] == 'd')
 511           {                                       /* bind             */
 512             return -KEY_bind;
 513           }
 514
 515           goto unknown;
 516
 517         case 'c':
 518           if (name[1] == 'h' &&
 519               name[2] == 'o' &&
 520               name[3] == 'p')
 521           {                                       /* chop             */
 522             return -KEY_chop;
 523           }
 524
 525           goto unknown;
 526
 527         case 'd':
 528           if (name[1] == 'u' &&
 529               name[2] == 'm' &&
 530               name[3] == 'p')
 531           {                                       /* dump             */
 532             return -KEY_dump;
 533           }
 534
 535           goto unknown;
 536
 537         case 'e':
 538           switch (name[1])
 539           {
 540             case 'a':
 541               if (name[2] == 'c' &&
 542                   name[3] == 'h')
 543               {                                   /* each             */
 544                 return -KEY_each;
 545               }
 546
 547               goto unknown;
 548
 549             case 'l':
 550               if (name[2] == 's' &&
 551                   name[3] == 'e')
 552               {                                   /* else             */
 553                 return KEY_else;
 554               }
 555
 556               goto unknown;
 557
 558             case 'v':
 559               if (name[2] == 'a' &&
 560                   name[3] == 'l')
 561               {                                   /* eval             */
 562                 return KEY_eval;
 563               }
 564
 565               goto unknown;
 566
 567             case 'x':
 568               switch (name[2])
 569               {
 570                 case 'e':
 571                   if (name[3] == 'c')
 572                   {                               /* exec             */
 573                     return -KEY_exec;
 574                   }
 575
 576                   goto unknown;
 577
 578                 case 'i':
 579                   if (name[3] == 't')
 580                   {                               /* exit             */
 581                     return -KEY_exit;
 582                   }
 583
 584                   goto unknown;
 585
 586                 default:
 587                   goto unknown;
 588               }
 589
 590             default:
 591               goto unknown;
 592           }
 593
 594         case 'f':
 595           if (name[1] == 'o' &&
 596               name[2] == 'r' &&
 597               name[3] == 'k')
 598           {                                       /* fork             */
 599             return -KEY_fork;
 600           }
 601
 602           goto unknown;
 603
 604         case 'g':
 605           switch (name[1])
 606           {
 607             case 'e':
 608               if (name[2] == 't' &&
 609                   name[3] == 'c')
 610               {                                   /* getc             */
 611                 return -KEY_getc;
 612               }
 613
 614               goto unknown;
 615
 616             case 'l':
 617               if (name[2] == 'o' &&
 618                   name[3] == 'b')
 619               {                                   /* glob             */
 620                 return KEY_glob;
 621               }
 622
 623               goto unknown;
 624
 625             case 'o':
 626               if (name[2] == 't' &&
 627                   name[3] == 'o')
 628               {                                   /* goto             */
 629                 return KEY_goto;
 630               }
 631
 632               goto unknown;
 633
 634             case 'r':
 635               if (name[2] == 'e' &&
 636                   name[3] == 'p')
 637               {                                   /* grep             */
 638                 return KEY_grep;
 639               }
 640
 641               goto unknown;
 642
 643             default:
 644               goto unknown;
 645           }
 646
 647         case 'j':
 648           if (name[1] == 'o' &&
 649               name[2] == 'i' &&
 650               name[3] == 'n')
 651           {                                       /* join             */
 652             return -KEY_join;
 653           }
 654
 655           goto unknown;
 656
 657         case 'k':
 658           switch (name[1])
 659           {
 660             case 'e':
 661               if (name[2] == 'y' &&
 662                   name[3] == 's')
 663               {                                   /* keys             */
 664                 return -KEY_keys;
 665               }
 666
 667               goto unknown;
 668
 669             case 'i':
 670               if (name[2] == 'l' &&
 671                   name[3] == 'l')
 672               {                                   /* kill             */
 673                 return -KEY_kill;
 674               }
 675
 676               goto unknown;
 677
 678             default:
 679               goto unknown;
 680           }
 681
 682         case 'l':
 683           switch (name[1])
 684           {
 685             case 'a':
 686               if (name[2] == 's' &&
 687                   name[3] == 't')
 688               {                                   /* last             */
 689                 return KEY_last;
 690               }
 691
 692               goto unknown;
 693
 694             case 'i':
 695               if (name[2] == 'n' &&
 696                   name[3] == 'k')
 697               {                                   /* link             */
 698                 return -KEY_link;
 699               }
 700
 701               goto unknown;
 702
 703             case 'o':
 704               if (name[2] == 'c' &&
 705                   name[3] == 'k')
 706               {                                   /* lock             */
 707                 return -KEY_lock;
 708               }
 709
 710               goto unknown;
 711
 712             default:
 713               goto unknown;
 714           }
 715
 716         case 'n':
 717           if (name[1] == 'e' &&
 718               name[2] == 'x' &&
 719               name[3] == 't')
 720           {                                       /* next             */
 721             return KEY_next;
 722           }
 723
 724           goto unknown;
 725
 726         case 'o':
 727           if (name[1] == 'p' &&
 728               name[2] == 'e' &&
 729               name[3] == 'n')
 730           {                                       /* open             */
 731             return -KEY_open;
 732           }
 733
 734           goto unknown;
 735
 736         case 'p':
 737           switch (name[1])
 738           {
 739             case 'a':
 740               if (name[2] == 'c' &&
 741                   name[3] == 'k')
 742               {                                   /* pack             */
 743                 return -KEY_pack;
 744               }
 745
 746               goto unknown;
 747
 748             case 'i':
 749               if (name[2] == 'p' &&
 750                   name[3] == 'e')
 751               {                                   /* pipe             */
 752                 return -KEY_pipe;
 753               }
 754
 755               goto unknown;
 756
 757             case 'u':
 758               if (name[2] == 's' &&
 759                   name[3] == 'h')
 760               {                                   /* push             */
 761                 return -KEY_push;
 762               }
 763
 764               goto unknown;
 765
 766             default:
 767               goto unknown;
 768           }
 769
 770         case 'r':
 771           switch (name[1])
 772           {
 773             case 'a':
 774               if (name[2] == 'n' &&
 775                   name[3] == 'd')
 776               {                                   /* rand             */
 777                 return -KEY_rand;
 778               }
 779
 780               goto unknown;
 781
 782             case 'e':
 783               switch (name[2])
 784               {
 785                 case 'a':
 786                   if (name[3] == 'd')
 787                   {                               /* read             */
 788                     return -KEY_read;
 789                   }
 790
 791                   goto unknown;
 792
 793                 case 'c':
 794                   if (name[3] == 'v')
 795                   {                               /* recv             */
 796                     return -KEY_recv;
 797                   }
 798
 799                   goto unknown;
 800
 801                 case 'd':
 802                   if (name[3] == 'o')
 803                   {                               /* redo             */
 804                     return KEY_redo;
 805                   }
 806
 807                   goto unknown;
 808
 809                 default:
 810                   goto unknown;
 811               }
 812
 813             default:
 814               goto unknown;
 815           }
 816
 817         case 's':
 818           switch (name[1])
 819           {
 820             case 'e':
 821               switch (name[2])
 822               {
 823                 case 'e':
 824                   if (name[3] == 'k')
 825                   {                               /* seek             */
 826                     return -KEY_seek;
 827                   }
 828
 829                   goto unknown;
 830
 831                 case 'n':
 832                   if (name[3] == 'd')
 833                   {                               /* send             */
 834                     return -KEY_send;
 835                   }
 836
 837                   goto unknown;
 838
 839                 default:
 840                   goto unknown;
 841               }
 842
 843             case 'o':
 844               if (name[2] == 'r' &&
 845                   name[3] == 't')
 846               {                                   /* sort             */
 847                 return KEY_sort;
 848               }
 849
 850               goto unknown;
 851
 852             case 'q':
 853               if (name[2] == 'r' &&
 854                   name[3] == 't')
 855               {                                   /* sqrt             */
 856                 return -KEY_sqrt;
 857               }
 858
 859               goto unknown;
 860
 861             case 't':
 862               if (name[2] == 'a' &&
 863                   name[3] == 't')
 864               {                                   /* stat             */
 865                 return -KEY_stat;
 866               }
 867
 868               goto unknown;
 869
 870             default:
 871               goto unknown;
 872           }
 873
 874         case 't':
 875           switch (name[1])
 876           {
 877             case 'e':
 878               if (name[2] == 'l' &&
 879                   name[3] == 'l')
 880               {                                   /* tell             */
 881                 return -KEY_tell;
 882               }
 883
 884               goto unknown;
 885
 886             case 'i':
 887               switch (name[2])
 888               {
 889                 case 'e':
 890                   if (name[3] == 'd')
 891                   {                               /* tied             */
 892                     return -KEY_tied;
 893                   }
 894
 895                   goto unknown;
 896
 897                 case 'm':
 898                   if (name[3] == 'e')
 899                   {                               /* time             */
 900                     return -KEY_time;
 901                   }
 902
 903                   goto unknown;
 904
 905                 default:
 906                   goto unknown;
 907               }
 908
 909             default:
 910               goto unknown;
 911           }
 912
 913         case 'w':
 914           switch (name[1])
 915           {
 916             case 'a':
 917               switch (name[2])
 918               {
 919                 case 'i':
 920                   if (name[3] == 't')
 921                   {                               /* wait             */
 922                     return -KEY_wait;
 923                   }
 924
 925                   goto unknown;
 926
 927                 case 'r':
 928                   if (name[3] == 'n')
 929                   {                               /* warn             */
 930                     return -KEY_warn;
 931                   }
 932
 933                   goto unknown;
 934
 935                 default:
 936                   goto unknown;
 937               }
 938
 939             case 'h':
 940               if (name[2] == 'e' &&
 941                   name[3] == 'n')
 942               {                                   /* when             */
 943                 return (all_keywords || FEATURE_IS_ENABLED("switch") ? KEY_when : 0);
 944               }
 945
 946               goto unknown;
 947
 948             default:
 949               goto unknown;
 950           }
 951
 952         default:
 953           goto unknown;
 954       }
 955
 956     case 5: /* 39 tokens of length 5 */
 957       switch (name[0])
 958       {
 959         case 'B':
 960           if (name[1] == 'E' &&
 961               name[2] == 'G' &&
 962               name[3] == 'I' &&
 963               name[4] == 'N')
 964           {                                       /* BEGIN            */
 965             return KEY_BEGIN;
 966           }
 967
 968           goto unknown;
 969
 970         case 'C':
 971           if (name[1] == 'H' &&
 972               name[2] == 'E' &&
 973               name[3] == 'C' &&
 974               name[4] == 'K')
 975           {                                       /* CHECK            */
 976             return KEY_CHECK;
 977           }
 978
 979           goto unknown;
 980
 981         case 'a':
 982           switch (name[1])
 983           {
 984             case 'l':
 985               if (name[2] == 'a' &&
 986                   name[3] == 'r' &&
 987                   name[4] == 'm')
 988               {                                   /* alarm            */
 989                 return -KEY_alarm;
 990               }
 991
 992               goto unknown;
 993
 994             case 't':
 995               if (name[2] == 'a' &&
 996                   name[3] == 'n' &&
 997                   name[4] == '2')
 998               {                                   /* atan2            */
 999                 return -KEY_atan2;
1000               }
1001
1002               goto unknown;
1003
1004             default:
1005               goto unknown;
1006           }
1007
1008         case 'b':
1009           switch (name[1])
1010           {
1011             case 'l':
1012               if (name[2] == 'e' &&
1013                   name[3] == 's' &&
1014                   name[4] == 's')
1015               {                                   /* bless            */
1016                 return -KEY_bless;
1017               }
1018
1019               goto unknown;
1020
1021             case 'r':
1022               if (name[2] == 'e' &&
1023                   name[3] == 'a' &&
1024                   name[4] == 'k')
1025               {                                   /* break            */
1026                 return (all_keywords || FEATURE_IS_ENABLED("switch") ? -KEY_break : 0);
1027               }
1028
1029               goto unknown;
1030
1031             default:
1032               goto unknown;
1033           }
1034
1035         case 'c':
1036           switch (name[1])
1037           {
1038             case 'h':
1039               switch (name[2])
1040               {
1041                 case 'd':
1042                   if (name[3] == 'i' &&
1043                       name[4] == 'r')
1044                   {                               /* chdir            */
1045                     return -KEY_chdir;
1046                   }
1047
1048                   goto unknown;
1049
1050                 case 'm':
1051                   if (name[3] == 'o' &&
1052                       name[4] == 'd')
1053                   {                               /* chmod            */
1054                     return -KEY_chmod;
1055                   }
1056
1057                   goto unknown;
1058
1059                 case 'o':
1060                   switch (name[3])
1061                   {
1062                     case 'm':
1063                       if (name[4] == 'p')
1064                       {                           /* chomp            */
1065                         return -KEY_chomp;
1066                       }
1067
1068                       goto unknown;
1069
1070                     case 'w':
1071                       if (name[4] == 'n')
1072                       {                           /* chown            */
1073                         return -KEY_chown;
1074                       }
1075
1076                       goto unknown;
1077
1078                     default:
1079                       goto unknown;
1080                   }
1081
1082                 default:
1083                   goto unknown;
1084               }
1085
1086             case 'l':
1087               if (name[2] == 'o' &&
1088                   name[3] == 's' &&
1089                   name[4] == 'e')
1090               {                                   /* close            */
1091                 return -KEY_close;
1092               }
1093
1094               goto unknown;
1095
1096             case 'r':
1097               if (name[2] == 'y' &&
1098                   name[3] == 'p' &&
1099                   name[4] == 't')
1100               {                                   /* crypt            */
1101                 return -KEY_crypt;
1102               }
1103
1104               goto unknown;
1105
1106             default:
1107               goto unknown;
1108           }
1109
1110         case 'e':
1111           if (name[1] == 'l' &&
1112               name[2] == 's' &&
1113               name[3] == 'i' &&
1114               name[4] == 'f')
1115           {                                       /* elsif            */
1116             return KEY_elsif;
1117           }
1118
1119           goto unknown;
1120
1121         case 'f':
1122           switch (name[1])
1123           {
1124             case 'c':
1125               if (name[2] == 'n' &&
1126                   name[3] == 't' &&
1127                   name[4] == 'l')
1128               {                                   /* fcntl            */
1129                 return -KEY_fcntl;
1130               }
1131
1132               goto unknown;
1133
1134             case 'l':
1135               if (name[2] == 'o' &&
1136                   name[3] == 'c' &&
1137                   name[4] == 'k')
1138               {                                   /* flock            */
1139                 return -KEY_flock;
1140               }
1141
1142               goto unknown;
1143
1144             default:
1145               goto unknown;
1146           }
1147
1148         case 'g':
1149           if (name[1] == 'i' &&
1150               name[2] == 'v' &&
1151               name[3] == 'e' &&
1152               name[4] == 'n')
1153           {                                       /* given            */
1154             return (all_keywords || FEATURE_IS_ENABLED("switch") ? KEY_given : 0);
1155           }
1156
1157           goto unknown;
1158
1159         case 'i':
1160           switch (name[1])
1161           {
1162             case 'n':
1163               if (name[2] == 'd' &&
1164                   name[3] == 'e' &&
1165                   name[4] == 'x')
1166               {                                   /* index            */
1167                 return -KEY_index;
1168               }
1169
1170               goto unknown;
1171
1172             case 'o':
1173               if (name[2] == 'c' &&
1174                   name[3] == 't' &&
1175                   name[4] == 'l')
1176               {                                   /* ioctl            */
1177                 return -KEY_ioctl;
1178               }
1179
1180               goto unknown;
1181
1182             default:
1183               goto unknown;
1184           }
1185
1186         case 'l':
1187           switch (name[1])
1188           {
1189             case 'o':
1190               if (name[2] == 'c' &&
1191                   name[3] == 'a' &&
1192                   name[4] == 'l')
1193               {                                   /* local            */
1194                 return KEY_local;
1195               }
1196
1197               goto unknown;
1198
1199             case 's':
1200               if (name[2] == 't' &&
1201                   name[3] == 'a' &&
1202                   name[4] == 't')
1203               {                                   /* lstat            */
1204                 return -KEY_lstat;
1205               }
1206
1207               goto unknown;
1208
1209             default:
1210               goto unknown;
1211           }
1212
1213         case 'm':
1214           if (name[1] == 'k' &&
1215               name[2] == 'd' &&
1216               name[3] == 'i' &&
1217               name[4] == 'r')
1218           {                                       /* mkdir            */
1219             return -KEY_mkdir;
1220           }
1221
1222           goto unknown;
1223
1224         case 'p':
1225           if (name[1] == 'r' &&
1226               name[2] == 'i' &&
1227               name[3] == 'n' &&
1228               name[4] == 't')
1229           {                                       /* print            */
1230             return KEY_print;
1231           }
1232
1233           goto unknown;
1234
1235         case 'r':
1236           switch (name[1])
1237           {
1238             case 'e':
1239               if (name[2] == 's' &&
1240                   name[3] == 'e' &&
1241                   name[4] == 't')
1242               {                                   /* reset            */
1243                 return -KEY_reset;
1244               }
1245
1246               goto unknown;
1247
1248             case 'm':
1249               if (name[2] == 'd' &&
1250                   name[3] == 'i' &&
1251                   name[4] == 'r')
1252               {                                   /* rmdir            */
1253                 return -KEY_rmdir;
1254               }
1255
1256               goto unknown;
1257
1258             default:
1259               goto unknown;
1260           }
1261
1262         case 's':
1263           switch (name[1])
1264           {
1265             case 'e':
1266               if (name[2] == 'm' &&
1267                   name[3] == 'o' &&
1268                   name[4] == 'p')
1269               {                                   /* semop            */
1270                 return -KEY_semop;
1271               }
1272
1273               goto unknown;
1274
1275             case 'h':
1276               if (name[2] == 'i' &&
1277                   name[3] == 'f' &&
1278                   name[4] == 't')
1279               {                                   /* shift            */
1280                 return -KEY_shift;
1281               }
1282
1283               goto unknown;
1284
1285             case 'l':
1286               if (name[2] == 'e' &&
1287                   name[3] == 'e' &&
1288                   name[4] == 'p')
1289               {                                   /* sleep            */
1290                 return -KEY_sleep;
1291               }
1292
1293               goto unknown;
1294
1295             case 'p':
1296               if (name[2] == 'l' &&
1297                   name[3] == 'i' &&
1298                   name[4] == 't')
1299               {                                   /* split            */
1300                 return KEY_split;
1301               }
1302
1303               goto unknown;
1304
1305             case 'r':
1306               if (name[2] == 'a' &&
1307                   name[3] == 'n' &&
1308                   name[4] == 'd')
1309               {                                   /* srand            */
1310                 return -KEY_srand;
1311               }
1312
1313               goto unknown;
1314
1315             case 't':
1316               switch (name[2])
1317               {
1318                 case 'a':
1319                   if (name[3] == 't' &&
1320                       name[4] == 'e')
1321                   {                               /* state            */
1322                     return (all_keywords || FEATURE_IS_ENABLED("state") ? KEY_state : 0);
1323                   }
1324
1325                   goto unknown;
1326
1327                 case 'u':
1328                   if (name[3] == 'd' &&
1329                       name[4] == 'y')
1330                   {                               /* study            */
1331                     return KEY_study;
1332                   }
1333
1334                   goto unknown;
1335
1336                 default:
1337                   goto unknown;
1338               }
1339
1340             default:
1341               goto unknown;
1342           }
1343
1344         case 't':
1345           if (name[1] == 'i' &&
1346               name[2] == 'm' &&
1347               name[3] == 'e' &&
1348               name[4] == 's')
1349           {                                       /* times            */
1350             return -KEY_times;
1351           }
1352
1353           goto unknown;
1354
1355         case 'u':
1356           switch (name[1])
1357           {
1358             case 'm':
1359               if (name[2] == 'a' &&
1360                   name[3] == 's' &&
1361                   name[4] == 'k')
1362               {                                   /* umask            */
1363                 return -KEY_umask;
1364               }
1365
1366               goto unknown;
1367
1368             case 'n':
1369               switch (name[2])
1370               {
1371                 case 'd':
1372                   if (name[3] == 'e' &&
1373                       name[4] == 'f')
1374                   {                               /* undef            */
1375                     return KEY_undef;
1376                   }
1377
1378                   goto unknown;
1379
1380                 case 't':
1381                   if (name[3] == 'i')
1382                   {
1383                     switch (name[4])
1384                     {
1385                       case 'e':
1386                         {                         /* untie            */
1387                           return -KEY_untie;
1388                         }
1389
1390                       case 'l':
1391                         {                         /* until            */
1392                           return KEY_until;
1393                         }
1394
1395                       default:
1396                         goto unknown;
1397                     }
1398                   }
1399
1400                   goto unknown;
1401
1402                 default:
1403                   goto unknown;
1404               }
1405
1406             case 't':
1407               if (name[2] == 'i' &&
1408                   name[3] == 'm' &&
1409                   name[4] == 'e')
1410               {                                   /* utime            */
1411                 return -KEY_utime;
1412               }
1413
1414               goto unknown;
1415
1416             default:
1417               goto unknown;
1418           }
1419
1420         case 'w':
1421           switch (name[1])
1422           {
1423             case 'h':
1424               if (name[2] == 'i' &&
1425                   name[3] == 'l' &&
1426                   name[4] == 'e')
1427               {                                   /* while            */
1428                 return KEY_while;
1429               }
1430
1431               goto unknown;
1432
1433             case 'r':
1434               if (name[2] == 'i' &&
1435                   name[3] == 't' &&
1436                   name[4] == 'e')
1437               {                                   /* write            */
1438                 return -KEY_write;
1439               }
1440
1441               goto unknown;
1442
1443             default:
1444               goto unknown;
1445           }
1446
1447         default:
1448           goto unknown;
1449       }
1450
1451     case 6: /* 33 tokens of length 6 */
1452       switch (name[0])
1453       {
1454         case 'a':
1455           if (name[1] == 'c' &&
1456               name[2] == 'c' &&
1457               name[3] == 'e' &&
1458               name[4] == 'p' &&
1459               name[5] == 't')
1460           {                                       /* accept           */
1461             return -KEY_accept;
1462           }
1463
1464           goto unknown;
1465
1466         case 'c':
1467           switch (name[1])
1468           {
1469             case 'a':
1470               if (name[2] == 'l' &&
1471                   name[3] == 'l' &&
1472                   name[4] == 'e' &&
1473                   name[5] == 'r')
1474               {                                   /* caller           */
1475                 return -KEY_caller;
1476               }
1477
1478               goto unknown;
1479
1480             case 'h':
1481               if (name[2] == 'r' &&
1482                   name[3] == 'o' &&
1483                   name[4] == 'o' &&
1484                   name[5] == 't')
1485               {                                   /* chroot           */
1486                 return -KEY_chroot;
1487               }
1488
1489               goto unknown;
1490
1491             default:
1492               goto unknown;
1493           }
1494
1495         case 'd':
1496           if (name[1] == 'e' &&
1497               name[2] == 'l' &&
1498               name[3] == 'e' &&
1499               name[4] == 't' &&
1500               name[5] == 'e')
1501           {                                       /* delete           */
1502             return KEY_delete;
1503           }
1504
1505           goto unknown;
1506
1507         case 'e':
1508           switch (name[1])
1509           {
1510             case 'l':
1511               if (name[2] == 's' &&
1512                   name[3] == 'e' &&
1513                   name[4] == 'i' &&
1514                   name[5] == 'f')
1515               {                                   /* elseif           */
1516                 Perl_ck_warner_d(aTHX_ packWARN(WARN_SYNTAX), "elseif should be elsif");
1517               }
1518
1519               goto unknown;
1520
1521             case 'x':
1522               if (name[2] == 'i' &&
1523                   name[3] == 's' &&
1524                   name[4] == 't' &&
1525                   name[5] == 's')
1526               {                                   /* exists           */
1527                 return KEY_exists;
1528               }
1529
1530               goto unknown;
1531
1532             default:
1533               goto unknown;
1534           }
1535
1536         case 'f':
1537           switch (name[1])
1538           {
1539             case 'i':
1540               if (name[2] == 'l' &&
1541                   name[3] == 'e' &&
1542                   name[4] == 'n' &&
1543                   name[5] == 'o')
1544               {                                   /* fileno           */
1545                 return -KEY_fileno;
1546               }
1547
1548               goto unknown;
1549
1550             case 'o':
1551               if (name[2] == 'r' &&
1552                   name[3] == 'm' &&
1553                   name[4] == 'a' &&
1554                   name[5] == 't')
1555               {                                   /* format           */
1556                 return KEY_format;
1557               }
1558
1559               goto unknown;
1560
1561             default:
1562               goto unknown;
1563           }
1564
1565         case 'g':
1566           if (name[1] == 'm' &&
1567               name[2] == 't' &&
1568               name[3] == 'i' &&
1569               name[4] == 'm' &&
1570               name[5] == 'e')
1571           {                                       /* gmtime           */
1572             return -KEY_gmtime;
1573           }
1574
1575           goto unknown;
1576
1577         case 'l':
1578           switch (name[1])
1579           {
1580             case 'e':
1581               if (name[2] == 'n' &&
1582                   name[3] == 'g' &&
1583                   name[4] == 't' &&
1584                   name[5] == 'h')
1585               {                                   /* length           */
1586                 return -KEY_length;
1587               }
1588
1589               goto unknown;
1590
1591             case 'i':
1592               if (name[2] == 's' &&
1593                   name[3] == 't' &&
1594                   name[4] == 'e' &&
1595                   name[5] == 'n')
1596               {                                   /* listen           */
1597                 return -KEY_listen;
1598               }
1599
1600               goto unknown;
1601
1602             default:
1603               goto unknown;
1604           }
1605
1606         case 'm':
1607           if (name[1] == 's' &&
1608               name[2] == 'g')
1609           {
1610             switch (name[3])
1611             {
1612               case 'c':
1613                 if (name[4] == 't' &&
1614                     name[5] == 'l')
1615                 {                                 /* msgctl           */
1616                   return -KEY_msgctl;
1617                 }
1618
1619                 goto unknown;
1620
1621               case 'g':
1622                 if (name[4] == 'e' &&
1623                     name[5] == 't')
1624                 {                                 /* msgget           */
1625                   return -KEY_msgget;
1626                 }
1627
1628                 goto unknown;
1629
1630               case 'r':
1631                 if (name[4] == 'c' &&
1632                     name[5] == 'v')
1633                 {                                 /* msgrcv           */
1634                   return -KEY_msgrcv;
1635                 }
1636
1637                 goto unknown;
1638
1639               case 's':
1640                 if (name[4] == 'n' &&
1641                     name[5] == 'd')
1642                 {                                 /* msgsnd           */
1643                   return -KEY_msgsnd;
1644                 }
1645
1646                 goto unknown;
1647
1648               default:
1649                 goto unknown;
1650             }
1651           }
1652
1653           goto unknown;
1654
1655         case 'p':
1656           if (name[1] == 'r' &&
1657               name[2] == 'i' &&
1658               name[3] == 'n' &&
1659               name[4] == 't' &&
1660               name[5] == 'f')
1661           {                                       /* printf           */
1662             return KEY_printf;
1663           }
1664
1665           goto unknown;
1666
1667         case 'r':
1668           switch (name[1])
1669           {
1670             case 'e':
1671               switch (name[2])
1672               {
1673                 case 'n':
1674                   if (name[3] == 'a' &&
1675                       name[4] == 'm' &&
1676                       name[5] == 'e')
1677                   {                               /* rename           */
1678                     return -KEY_rename;
1679                   }
1680
1681                   goto unknown;
1682
1683                 case 't':
1684                   if (name[3] == 'u' &&
1685                       name[4] == 'r' &&
1686                       name[5] == 'n')
1687                   {                               /* return           */
1688                     return KEY_return;
1689                   }
1690
1691                   goto unknown;
1692
1693                 default:
1694                   goto unknown;
1695               }
1696
1697             case 'i':
1698               if (name[2] == 'n' &&
1699                   name[3] == 'd' &&
1700                   name[4] == 'e' &&
1701                   name[5] == 'x')
1702               {                                   /* rindex           */
1703                 return -KEY_rindex;
1704               }
1705
1706               goto unknown;
1707
1708             default:
1709               goto unknown;
1710           }
1711
1712         case 's':
1713           switch (name[1])
1714           {
1715             case 'c':
1716               if (name[2] == 'a' &&
1717                   name[3] == 'l' &&
1718                   name[4] == 'a' &&
1719                   name[5] == 'r')
1720               {                                   /* scalar           */
1721                 return KEY_scalar;
1722               }
1723
1724               goto unknown;
1725
1726             case 'e':
1727               switch (name[2])
1728               {
1729                 case 'l':
1730                   if (name[3] == 'e' &&
1731                       name[4] == 'c' &&
1732                       name[5] == 't')
1733                   {                               /* select           */
1734                     return -KEY_select;
1735                   }
1736
1737                   goto unknown;
1738
1739                 case 'm':
1740                   switch (name[3])
1741                   {
1742                     case 'c':
1743                       if (name[4] == 't' &&
1744                           name[5] == 'l')
1745                       {                           /* semctl           */
1746                         return -KEY_semctl;
1747                       }
1748
1749                       goto unknown;
1750
1751                     case 'g':
1752                       if (name[4] == 'e' &&
1753                           name[5] == 't')
1754                       {                           /* semget           */
1755                         return -KEY_semget;
1756                       }
1757
1758                       goto unknown;
1759
1760                     default:
1761                       goto unknown;
1762                   }
1763
1764                 default:
1765                   goto unknown;
1766               }
1767
1768             case 'h':
1769               if (name[2] == 'm')
1770               {
1771                 switch (name[3])
1772                 {
1773                   case 'c':
1774                     if (name[4] == 't' &&
1775                         name[5] == 'l')
1776                     {                             /* shmctl           */
1777                       return -KEY_shmctl;
1778                     }
1779
1780                     goto unknown;
1781
1782                   case 'g':
1783                     if (name[4] == 'e' &&
1784                         name[5] == 't')
1785                     {                             /* shmget           */
1786                       return -KEY_shmget;
1787                     }
1788
1789                     goto unknown;
1790
1791                   default:
1792                     goto unknown;
1793                 }
1794               }
1795
1796               goto unknown;
1797
1798             case 'o':
1799               if (name[2] == 'c' &&
1800                   name[3] == 'k' &&
1801                   name[4] == 'e' &&
1802                   name[5] == 't')
1803               {                                   /* socket           */
1804                 return -KEY_socket;
1805               }
1806
1807               goto unknown;
1808
1809             case 'p':
1810               if (name[2] == 'l' &&
1811                   name[3] == 'i' &&
1812                   name[4] == 'c' &&
1813                   name[5] == 'e')
1814               {                                   /* splice           */
1815                 return -KEY_splice;
1816               }
1817
1818               goto unknown;
1819
1820             case 'u':
1821               if (name[2] == 'b' &&
1822                   name[3] == 's' &&
1823                   name[4] == 't' &&
1824                   name[5] == 'r')
1825               {                                   /* substr           */
1826                 return -KEY_substr;
1827               }
1828
1829               goto unknown;
1830
1831             case 'y':
1832               if (name[2] == 's' &&
1833                   name[3] == 't' &&
1834                   name[4] == 'e' &&
1835                   name[5] == 'm')
1836               {                                   /* system           */
1837                 return -KEY_system;
1838               }
1839
1840               goto unknown;
1841
1842             default:
1843               goto unknown;
1844           }
1845
1846         case 'u':
1847           if (name[1] == 'n')
1848           {
1849             switch (name[2])
1850             {
1851               case 'l':
1852                 switch (name[3])
1853                 {
1854                   case 'e':
1855                     if (name[4] == 's' &&
1856                         name[5] == 's')
1857                     {                             /* unless           */
1858                       return KEY_unless;
1859                     }
1860
1861                     goto unknown;
1862
1863                   case 'i':
1864                     if (name[4] == 'n' &&
1865                         name[5] == 'k')
1866                     {                             /* unlink           */
1867                       return -KEY_unlink;
1868                     }
1869
1870                     goto unknown;
1871
1872                   default:
1873                     goto unknown;
1874                 }
1875
1876               case 'p':
1877                 if (name[3] == 'a' &&
1878                     name[4] == 'c' &&
1879                     name[5] == 'k')
1880                 {                                 /* unpack           */
1881                   return -KEY_unpack;
1882                 }
1883
1884                 goto unknown;
1885
1886               default:
1887                 goto unknown;
1888             }
1889           }
1890
1891           goto unknown;
1892
1893         case 'v':
1894           if (name[1] == 'a' &&
1895               name[2] == 'l' &&
1896               name[3] == 'u' &&
1897               name[4] == 'e' &&
1898               name[5] == 's')
1899           {                                       /* values           */
1900             return -KEY_values;
1901           }
1902
1903           goto unknown;
1904
1905         default:
1906           goto unknown;
1907       }
1908
1909     case 7: /* 30 tokens of length 7 */
1910       switch (name[0])
1911       {
1912         case 'D':
1913           if (name[1] == 'E' &&
1914               name[2] == 'S' &&
1915               name[3] == 'T' &&
1916               name[4] == 'R' &&
1917               name[5] == 'O' &&
1918               name[6] == 'Y')
1919           {                                       /* DESTROY          */
1920             return KEY_DESTROY;
1921           }
1922
1923           goto unknown;
1924
1925         case '_':
1926           if (name[1] == '_')
1927           {
1928             switch (name[2])
1929             {
1930               case 'E':
1931                 if (name[3] == 'N' &&
1932                     name[4] == 'D' &&
1933                     name[5] == '_' &&
1934                     name[6] == '_')
1935                 {                                 /* __END__          */
1936                   return KEY___END__;
1937                 }
1938
1939                 goto unknown;
1940
1941               case 'S':
1942                 if (name[3] == 'U' &&
1943                     name[4] == 'B' &&
1944                     name[5] == '_' &&
1945                     name[6] == '_')
1946                 {                                 /* __SUB__          */
1947                   return (all_keywords || FEATURE_IS_ENABLED("__SUB__") ? -KEY___SUB__ : 0);
1948                 }
1949
1950                 goto unknown;
1951
1952               default:
1953                 goto unknown;
1954             }
1955           }
1956
1957           goto unknown;
1958
1959         case 'b':
1960           if (name[1] == 'i' &&
1961               name[2] == 'n' &&
1962               name[3] == 'm' &&
1963               name[4] == 'o' &&
1964               name[5] == 'd' &&
1965               name[6] == 'e')
1966           {                                       /* binmode          */
1967             return -KEY_binmode;
1968           }
1969
1970           goto unknown;
1971
1972         case 'c':
1973           if (name[1] == 'o' &&
1974               name[2] == 'n' &&
1975               name[3] == 'n' &&
1976               name[4] == 'e' &&
1977               name[5] == 'c' &&
1978               name[6] == 't')
1979           {                                       /* connect          */
1980             return -KEY_connect;
1981           }
1982
1983           goto unknown;
1984
1985         case 'd':
1986           switch (name[1])
1987           {
1988             case 'b':
1989               if (name[2] == 'm' &&
1990                   name[3] == 'o' &&
1991                   name[4] == 'p' &&
1992                   name[5] == 'e' &&
1993                   name[6] == 'n')
1994               {                                   /* dbmopen          */
1995                 return -KEY_dbmopen;
1996               }
1997
1998               goto unknown;
1999
2000             case 'e':
2001               if (name[2] == 'f')
2002               {
2003                 switch (name[3])
2004                 {
2005                   case 'a':
2006                     if (name[4] == 'u' &&
2007                         name[5] == 'l' &&
2008                         name[6] == 't')
2009                     {                             /* default          */
2010                       return (all_keywords || FEATURE_IS_ENABLED("switch") ? KEY_default : 0);
2011                     }
2012
2013                     goto unknown;
2014
2015                   case 'i':
2016                     if (name[4] == 'n' &&
2017                         name[5] == 'e' &&
2018                         name[6] == 'd')
2019                     {                             /* defined          */
2020                       return KEY_defined;
2021                     }
2022
2023                     goto unknown;
2024
2025                   default:
2026                     goto unknown;
2027                 }
2028               }
2029
2030               goto unknown;
2031
2032             default:
2033               goto unknown;
2034           }
2035
2036         case 'f':
2037           if (name[1] == 'o' &&
2038               name[2] == 'r' &&
2039               name[3] == 'e' &&
2040               name[4] == 'a' &&
2041               name[5] == 'c' &&
2042               name[6] == 'h')
2043           {                                       /* foreach          */
2044             return KEY_foreach;
2045           }
2046
2047           goto unknown;
2048
2049         case 'g':
2050           if (name[1] == 'e' &&
2051               name[2] == 't' &&
2052               name[3] == 'p')
2053           {
2054             switch (name[4])
2055             {
2056               case 'g':
2057                 if (name[5] == 'r' &&
2058                     name[6] == 'p')
2059                 {                                 /* getpgrp          */
2060                   return -KEY_getpgrp;
2061                 }
2062
2063                 goto unknown;
2064
2065               case 'p':
2066                 if (name[5] == 'i' &&
2067                     name[6] == 'd')
2068                 {                                 /* getppid          */
2069                   return -KEY_getppid;
2070                 }
2071
2072                 goto unknown;
2073
2074               default:
2075                 goto unknown;
2076             }
2077           }
2078
2079           goto unknown;
2080
2081         case 'l':
2082           if (name[1] == 'c' &&
2083               name[2] == 'f' &&
2084               name[3] == 'i' &&
2085               name[4] == 'r' &&
2086               name[5] == 's' &&
2087               name[6] == 't')
2088           {                                       /* lcfirst          */
2089             return -KEY_lcfirst;
2090           }
2091
2092           goto unknown;
2093
2094         case 'o':
2095           if (name[1] == 'p' &&
2096               name[2] == 'e' &&
2097               name[3] == 'n' &&
2098               name[4] == 'd' &&
2099               name[5] == 'i' &&
2100               name[6] == 'r')
2101           {                                       /* opendir          */
2102             return -KEY_opendir;
2103           }
2104
2105           goto unknown;
2106
2107         case 'p':
2108           if (name[1] == 'a' &&
2109               name[2] == 'c' &&
2110               name[3] == 'k' &&
2111               name[4] == 'a' &&
2112               name[5] == 'g' &&
2113               name[6] == 'e')
2114           {                                       /* package          */
2115             return KEY_package;
2116           }
2117
2118           goto unknown;
2119
2120         case 'r':
2121           if (name[1] == 'e')
2122           {
2123             switch (name[2])
2124             {
2125               case 'a':
2126                 if (name[3] == 'd' &&
2127                     name[4] == 'd' &&
2128                     name[5] == 'i' &&
2129                     name[6] == 'r')
2130                 {                                 /* readdir          */
2131                   return -KEY_readdir;
2132                 }
2133
2134                 goto unknown;
2135
2136               case 'q':
2137                 if (name[3] == 'u' &&
2138                     name[4] == 'i' &&
2139                     name[5] == 'r' &&
2140                     name[6] == 'e')
2141                 {                                 /* require          */
2142                   return KEY_require;
2143                 }
2144
2145                 goto unknown;
2146
2147               case 'v':
2148                 if (name[3] == 'e' &&
2149                     name[4] == 'r' &&
2150                     name[5] == 's' &&
2151                     name[6] == 'e')
2152                 {                                 /* reverse          */
2153                   return -KEY_reverse;
2154                 }
2155
2156                 goto unknown;
2157
2158               default:
2159                 goto unknown;
2160             }
2161           }
2162
2163           goto unknown;
2164
2165         case 's':
2166           switch (name[1])
2167           {
2168             case 'e':
2169               switch (name[2])
2170               {
2171                 case 'e':
2172                   if (name[3] == 'k' &&
2173                       name[4] == 'd' &&
2174                       name[5] == 'i' &&
2175                       name[6] == 'r')
2176                   {                               /* seekdir          */
2177                     return -KEY_seekdir;
2178                   }
2179
2180                   goto unknown;
2181
2182                 case 't':
2183                   if (name[3] == 'p' &&
2184                       name[4] == 'g' &&
2185                       name[5] == 'r' &&
2186                       name[6] == 'p')
2187                   {                               /* setpgrp          */
2188                     return -KEY_setpgrp;
2189                   }
2190
2191                   goto unknown;
2192
2193                 default:
2194                   goto unknown;
2195               }
2196
2197             case 'h':
2198               if (name[2] == 'm' &&
2199                   name[3] == 'r' &&
2200                   name[4] == 'e' &&
2201                   name[5] == 'a' &&
2202                   name[6] == 'd')
2203               {                                   /* shmread          */
2204                 return -KEY_shmread;
2205               }
2206
2207               goto unknown;
2208
2209             case 'p':
2210               if (name[2] == 'r' &&
2211                   name[3] == 'i' &&
2212                   name[4] == 'n' &&
2213                   name[5] == 't' &&
2214                   name[6] == 'f')
2215               {                                   /* sprintf          */
2216                 return -KEY_sprintf;
2217               }
2218
2219               goto unknown;
2220
2221             case 'y':
2222               switch (name[2])
2223               {
2224                 case 'm':
2225                   if (name[3] == 'l' &&
2226                       name[4] == 'i' &&
2227                       name[5] == 'n' &&
2228                       name[6] == 'k')
2229                   {                               /* symlink          */
2230                     return -KEY_symlink;
2231                   }
2232
2233                   goto unknown;
2234
2235                 case 's':
2236                   switch (name[3])
2237                   {
2238                     case 'c':
2239                       if (name[4] == 'a' &&
2240                           name[5] == 'l' &&
2241                           name[6] == 'l')
2242                       {                           /* syscall          */
2243                         return -KEY_syscall;
2244                       }
2245
2246                       goto unknown;
2247
2248                     case 'o':
2249                       if (name[4] == 'p' &&
2250                           name[5] == 'e' &&
2251                           name[6] == 'n')
2252                       {                           /* sysopen          */
2253                         return -KEY_sysopen;
2254                       }
2255
2256                       goto unknown;
2257
2258                     case 'r':
2259                       if (name[4] == 'e' &&
2260                           name[5] == 'a' &&
2261                           name[6] == 'd')
2262                       {                           /* sysread          */
2263                         return -KEY_sysread;
2264                       }
2265
2266                       goto unknown;
2267
2268                     case 's':
2269                       if (name[4] == 'e' &&
2270                           name[5] == 'e' &&
2271                           name[6] == 'k')
2272                       {                           /* sysseek          */
2273                         return -KEY_sysseek;
2274                       }
2275
2276                       goto unknown;
2277
2278                     default:
2279                       goto unknown;
2280                   }
2281
2282                 default:
2283                   goto unknown;
2284               }
2285
2286             default:
2287               goto unknown;
2288           }
2289
2290         case 't':
2291           if (name[1] == 'e' &&
2292               name[2] == 'l' &&
2293               name[3] == 'l' &&
2294               name[4] == 'd' &&
2295               name[5] == 'i' &&
2296               name[6] == 'r')
2297           {                                       /* telldir          */
2298             return -KEY_telldir;
2299           }
2300
2301           goto unknown;
2302
2303         case 'u':
2304           switch (name[1])
2305           {
2306             case 'c':
2307               if (name[2] == 'f' &&
2308                   name[3] == 'i' &&
2309                   name[4] == 'r' &&
2310                   name[5] == 's' &&
2311                   name[6] == 't')
2312               {                                   /* ucfirst          */
2313                 return -KEY_ucfirst;
2314               }
2315
2316               goto unknown;
2317
2318             case 'n':
2319               if (name[2] == 's' &&
2320                   name[3] == 'h' &&
2321                   name[4] == 'i' &&
2322                   name[5] == 'f' &&
2323                   name[6] == 't')
2324               {                                   /* unshift          */
2325                 return -KEY_unshift;
2326               }
2327
2328               goto unknown;
2329
2330             default:
2331               goto unknown;
2332           }
2333
2334         case 'w':
2335           if (name[1] == 'a' &&
2336               name[2] == 'i' &&
2337               name[3] == 't' &&
2338               name[4] == 'p' &&
2339               name[5] == 'i' &&
2340               name[6] == 'd')
2341           {                                       /* waitpid          */
2342             return -KEY_waitpid;
2343           }
2344
2345           goto unknown;
2346
2347         default:
2348           goto unknown;
2349       }
2350
2351     case 8: /* 26 tokens of length 8 */
2352       switch (name[0])
2353       {
2354         case 'A':
2355           if (name[1] == 'U' &&
2356               name[2] == 'T' &&
2357               name[3] == 'O' &&
2358               name[4] == 'L' &&
2359               name[5] == 'O' &&
2360               name[6] == 'A' &&
2361               name[7] == 'D')
2362           {                                       /* AUTOLOAD         */
2363             return KEY_AUTOLOAD;
2364           }
2365
2366           goto unknown;
2367
2368         case '_':
2369           if (name[1] == '_')
2370           {
2371             switch (name[2])
2372             {
2373               case 'D':
2374                 if (name[3] == 'A' &&
2375                     name[4] == 'T' &&
2376                     name[5] == 'A' &&
2377                     name[6] == '_' &&
2378                     name[7] == '_')
2379                 {                                 /* __DATA__         */
2380                   return KEY___DATA__;
2381                 }
2382
2383                 goto unknown;
2384
2385               case 'F':
2386                 if (name[3] == 'I' &&
2387                     name[4] == 'L' &&
2388                     name[5] == 'E' &&
2389                     name[6] == '_' &&
2390                     name[7] == '_')
2391                 {                                 /* __FILE__         */
2392                   return -KEY___FILE__;
2393                 }
2394
2395                 goto unknown;
2396
2397               case 'L':
2398                 if (name[3] == 'I' &&
2399                     name[4] == 'N' &&
2400                     name[5] == 'E' &&
2401                     name[6] == '_' &&
2402                     name[7] == '_')
2403                 {                                 /* __LINE__         */
2404                   return -KEY___LINE__;
2405                 }
2406
2407                 goto unknown;
2408
2409               default:
2410                 goto unknown;
2411             }
2412           }
2413
2414           goto unknown;
2415
2416         case 'c':
2417           switch (name[1])
2418           {
2419             case 'l':
2420               if (name[2] == 'o' &&
2421                   name[3] == 's' &&
2422                   name[4] == 'e' &&
2423                   name[5] == 'd' &&
2424                   name[6] == 'i' &&
2425                   name[7] == 'r')
2426               {                                   /* closedir         */
2427                 return -KEY_closedir;
2428               }
2429
2430               goto unknown;
2431
2432             case 'o':
2433               if (name[2] == 'n' &&
2434                   name[3] == 't' &&
2435                   name[4] == 'i' &&
2436                   name[5] == 'n' &&
2437                   name[6] == 'u' &&
2438                   name[7] == 'e')
2439               {                                   /* continue         */
2440                 return -KEY_continue;
2441               }
2442
2443               goto unknown;
2444
2445             default:
2446               goto unknown;
2447           }
2448
2449         case 'd':
2450           if (name[1] == 'b' &&
2451               name[2] == 'm' &&
2452               name[3] == 'c' &&
2453               name[4] == 'l' &&
2454               name[5] == 'o' &&
2455               name[6] == 's' &&
2456               name[7] == 'e')
2457           {                                       /* dbmclose         */
2458             return -KEY_dbmclose;
2459           }
2460
2461           goto unknown;
2462
2463         case 'e':
2464           if (name[1] == 'n' &&
2465               name[2] == 'd')
2466           {
2467             switch (name[3])
2468             {
2469               case 'g':
2470                 if (name[4] == 'r' &&
2471                     name[5] == 'e' &&
2472                     name[6] == 'n' &&
2473                     name[7] == 't')
2474                 {                                 /* endgrent         */
2475                   return -KEY_endgrent;
2476                 }
2477
2478                 goto unknown;
2479
2480               case 'p':
2481                 if (name[4] == 'w' &&
2482                     name[5] == 'e' &&
2483                     name[6] == 'n' &&
2484                     name[7] == 't')
2485                 {                                 /* endpwent         */
2486                   return -KEY_endpwent;
2487                 }
2488
2489                 goto unknown;
2490
2491               default:
2492                 goto unknown;
2493             }
2494           }
2495
2496           goto unknown;
2497
2498         case 'f':
2499           if (name[1] == 'o' &&
2500               name[2] == 'r' &&
2501               name[3] == 'm' &&
2502               name[4] == 'l' &&
2503               name[5] == 'i' &&
2504               name[6] == 'n' &&
2505               name[7] == 'e')
2506           {                                       /* formline         */
2507             return -KEY_formline;
2508           }
2509
2510           goto unknown;
2511
2512         case 'g':
2513           if (name[1] == 'e' &&
2514               name[2] == 't')
2515           {
2516             switch (name[3])
2517             {
2518               case 'g':
2519                 if (name[4] == 'r')
2520                 {
2521                   switch (name[5])
2522                   {
2523                     case 'e':
2524                       if (name[6] == 'n' &&
2525                           name[7] == 't')
2526                       {                           /* getgrent         */
2527                         return -KEY_getgrent;
2528                       }
2529
2530                       goto unknown;
2531
2532                     case 'g':
2533                       if (name[6] == 'i' &&
2534                           name[7] == 'd')
2535                       {                           /* getgrgid         */
2536                         return -KEY_getgrgid;
2537                       }
2538
2539                       goto unknown;
2540
2541                     case 'n':
2542                       if (name[6] == 'a' &&
2543                           name[7] == 'm')
2544                       {                           /* getgrnam         */
2545                         return -KEY_getgrnam;
2546                       }
2547
2548                       goto unknown;
2549
2550                     default:
2551                       goto unknown;
2552                   }
2553                 }
2554
2555                 goto unknown;
2556
2557               case 'l':
2558                 if (name[4] == 'o' &&
2559                     name[5] == 'g' &&
2560                     name[6] == 'i' &&
2561                     name[7] == 'n')
2562                 {                                 /* getlogin         */
2563                   return -KEY_getlogin;
2564                 }
2565
2566                 goto unknown;
2567
2568               case 'p':
2569                 if (name[4] == 'w')
2570                 {
2571                   switch (name[5])
2572                   {
2573                     case 'e':
2574                       if (name[6] == 'n' &&
2575                           name[7] == 't')
2576                       {                           /* getpwent         */
2577                         return -KEY_getpwent;
2578                       }
2579
2580                       goto unknown;
2581
2582                     case 'n':
2583                       if (name[6] == 'a' &&
2584                           name[7] == 'm')
2585                       {                           /* getpwnam         */
2586                         return -KEY_getpwnam;
2587                       }
2588
2589                       goto unknown;
2590
2591                     case 'u':
2592                       if (name[6] == 'i' &&
2593                           name[7] == 'd')
2594                       {                           /* getpwuid         */
2595                         return -KEY_getpwuid;
2596                       }
2597
2598                       goto unknown;
2599
2600                     default:
2601                       goto unknown;
2602                   }
2603                 }
2604
2605                 goto unknown;
2606
2607               default:
2608                 goto unknown;
2609             }
2610           }
2611
2612           goto unknown;
2613
2614         case 'r':
2615           if (name[1] == 'e' &&
2616               name[2] == 'a' &&
2617               name[3] == 'd')
2618           {
2619             switch (name[4])
2620             {
2621               case 'l':
2622                 if (name[5] == 'i' &&
2623                     name[6] == 'n')
2624                 {
2625                   switch (name[7])
2626                   {
2627                     case 'e':
2628                       {                           /* readline         */
2629                         return -KEY_readline;
2630                       }
2631
2632                     case 'k':
2633                       {                           /* readlink         */
2634                         return -KEY_readlink;
2635                       }
2636
2637                     default:
2638                       goto unknown;
2639                   }
2640                 }
2641
2642                 goto unknown;
2643
2644               case 'p':
2645                 if (name[5] == 'i' &&
2646                     name[6] == 'p' &&
2647                     name[7] == 'e')
2648                 {                                 /* readpipe         */
2649                   return -KEY_readpipe;
2650                 }
2651
2652                 goto unknown;
2653
2654               default:
2655                 goto unknown;
2656             }
2657           }
2658
2659           goto unknown;
2660
2661         case 's':
2662           switch (name[1])
2663           {
2664             case 'e':
2665               if (name[2] == 't')
2666               {
2667                 switch (name[3])
2668                 {
2669                   case 'g':
2670                     if (name[4] == 'r' &&
2671                         name[5] == 'e' &&
2672                         name[6] == 'n' &&
2673                         name[7] == 't')
2674                     {                             /* setgrent         */
2675                       return -KEY_setgrent;
2676                     }
2677
2678                     goto unknown;
2679
2680                   case 'p':
2681                     if (name[4] == 'w' &&
2682                         name[5] == 'e' &&
2683                         name[6] == 'n' &&
2684                         name[7] == 't')
2685                     {                             /* setpwent         */
2686                       return -KEY_setpwent;
2687                     }
2688
2689                     goto unknown;
2690
2691                   default:
2692                     goto unknown;
2693                 }
2694               }
2695
2696               goto unknown;
2697
2698             case 'h':
2699               switch (name[2])
2700               {
2701                 case 'm':
2702                   if (name[3] == 'w' &&
2703                       name[4] == 'r' &&
2704                       name[5] == 'i' &&
2705                       name[6] == 't' &&
2706                       name[7] == 'e')
2707                   {                               /* shmwrite         */
2708                     return -KEY_shmwrite;
2709                   }
2710
2711                   goto unknown;
2712
2713                 case 'u':
2714                   if (name[3] == 't' &&
2715                       name[4] == 'd' &&
2716                       name[5] == 'o' &&
2717                       name[6] == 'w' &&
2718                       name[7] == 'n')
2719                   {                               /* shutdown         */
2720                     return -KEY_shutdown;
2721                   }
2722
2723                   goto unknown;
2724
2725                 default:
2726                   goto unknown;
2727               }
2728
2729             case 'y':
2730               if (name[2] == 's' &&
2731                   name[3] == 'w' &&
2732                   name[4] == 'r' &&
2733                   name[5] == 'i' &&
2734                   name[6] == 't' &&
2735                   name[7] == 'e')
2736               {                                   /* syswrite         */
2737                 return -KEY_syswrite;
2738               }
2739
2740               goto unknown;
2741
2742             default:
2743               goto unknown;
2744           }
2745
2746         case 't':
2747           if (name[1] == 'r' &&
2748               name[2] == 'u' &&
2749               name[3] == 'n' &&
2750               name[4] == 'c' &&
2751               name[5] == 'a' &&
2752               name[6] == 't' &&
2753               name[7] == 'e')
2754           {                                       /* truncate         */
2755             return -KEY_truncate;
2756           }
2757
2758           goto unknown;
2759
2760         default:
2761           goto unknown;
2762       }
2763
2764     case 9: /* 10 tokens of length 9 */
2765       switch (name[0])
2766       {
2767         case 'U':
2768           if (name[1] == 'N' &&
2769               name[2] == 'I' &&
2770               name[3] == 'T' &&
2771               name[4] == 'C' &&
2772               name[5] == 'H' &&
2773               name[6] == 'E' &&
2774               name[7] == 'C' &&
2775               name[8] == 'K')
2776           {                                       /* UNITCHECK        */
2777             return KEY_UNITCHECK;
2778           }
2779
2780           goto unknown;
2781
2782         case 'e':
2783           switch (name[1])
2784           {
2785             case 'n':
2786               if (name[2] == 'd' &&
2787                   name[3] == 'n' &&
2788                   name[4] == 'e' &&
2789                   name[5] == 't' &&
2790                   name[6] == 'e' &&
2791                   name[7] == 'n' &&
2792                   name[8] == 't')
2793               {                                   /* endnetent        */
2794                 return -KEY_endnetent;
2795               }
2796
2797               goto unknown;
2798
2799             case 'v':
2800               if (name[2] == 'a' &&
2801                   name[3] == 'l' &&
2802                   name[4] == 'b' &&
2803                   name[5] == 'y' &&
2804                   name[6] == 't' &&
2805                   name[7] == 'e' &&
2806                   name[8] == 's')
2807               {                                   /* evalbytes        */
2808                 return (all_keywords || FEATURE_IS_ENABLED("evalbytes") ? -KEY_evalbytes : 0);
2809               }
2810
2811               goto unknown;
2812
2813             default:
2814               goto unknown;
2815           }
2816
2817         case 'g':
2818           if (name[1] == 'e' &&
2819               name[2] == 't' &&
2820               name[3] == 'n' &&
2821               name[4] == 'e' &&
2822               name[5] == 't' &&
2823               name[6] == 'e' &&
2824               name[7] == 'n' &&
2825               name[8] == 't')
2826           {                                       /* getnetent        */
2827             return -KEY_getnetent;
2828           }
2829
2830           goto unknown;
2831
2832         case 'l':
2833           if (name[1] == 'o' &&
2834               name[2] == 'c' &&
2835               name[3] == 'a' &&
2836               name[4] == 'l' &&
2837               name[5] == 't' &&
2838               name[6] == 'i' &&
2839               name[7] == 'm' &&
2840               name[8] == 'e')
2841           {                                       /* localtime        */
2842             return -KEY_localtime;
2843           }
2844
2845           goto unknown;
2846
2847         case 'p':
2848           if (name[1] == 'r' &&
2849               name[2] == 'o' &&
2850               name[3] == 't' &&
2851               name[4] == 'o' &&
2852               name[5] == 't' &&
2853               name[6] == 'y' &&
2854               name[7] == 'p' &&
2855               name[8] == 'e')
2856           {                                       /* prototype        */
2857             return KEY_prototype;
2858           }
2859
2860           goto unknown;
2861
2862         case 'q':
2863           if (name[1] == 'u' &&
2864               name[2] == 'o' &&
2865               name[3] == 't' &&
2866               name[4] == 'e' &&
2867               name[5] == 'm' &&
2868               name[6] == 'e' &&
2869               name[7] == 't' &&
2870               name[8] == 'a')
2871           {                                       /* quotemeta        */
2872             return -KEY_quotemeta;
2873           }
2874
2875           goto unknown;
2876
2877         case 'r':
2878           if (name[1] == 'e' &&
2879               name[2] == 'w' &&
2880               name[3] == 'i' &&
2881               name[4] == 'n' &&
2882               name[5] == 'd' &&
2883               name[6] == 'd' &&
2884               name[7] == 'i' &&
2885               name[8] == 'r')
2886           {                                       /* rewinddir        */
2887             return -KEY_rewinddir;
2888           }
2889
2890           goto unknown;
2891
2892         case 's':
2893           if (name[1] == 'e' &&
2894               name[2] == 't' &&
2895               name[3] == 'n' &&
2896               name[4] == 'e' &&
2897               name[5] == 't' &&
2898               name[6] == 'e' &&
2899               name[7] == 'n' &&
2900               name[8] == 't')
2901           {                                       /* setnetent        */
2902             return -KEY_setnetent;
2903           }
2904
2905           goto unknown;
2906
2907         case 'w':
2908           if (name[1] == 'a' &&
2909               name[2] == 'n' &&
2910               name[3] == 't' &&
2911               name[4] == 'a' &&
2912               name[5] == 'r' &&
2913               name[6] == 'r' &&
2914               name[7] == 'a' &&
2915               name[8] == 'y')
2916           {                                       /* wantarray        */
2917             return -KEY_wantarray;
2918           }
2919
2920           goto unknown;
2921
2922         default:
2923           goto unknown;
2924       }
2925
2926     case 10: /* 9 tokens of length 10 */
2927       switch (name[0])
2928       {
2929         case 'e':
2930           if (name[1] == 'n' &&
2931               name[2] == 'd')
2932           {
2933             switch (name[3])
2934             {
2935               case 'h':
2936                 if (name[4] == 'o' &&
2937                     name[5] == 's' &&
2938                     name[6] == 't' &&
2939                     name[7] == 'e' &&
2940                     name[8] == 'n' &&
2941                     name[9] == 't')
2942                 {                                 /* endhostent       */
2943                   return -KEY_endhostent;
2944                 }
2945
2946                 goto unknown;
2947
2948               case 's':
2949                 if (name[4] == 'e' &&
2950                     name[5] == 'r' &&
2951                     name[6] == 'v' &&
2952                     name[7] == 'e' &&
2953                     name[8] == 'n' &&
2954                     name[9] == 't')
2955                 {                                 /* endservent       */
2956                   return -KEY_endservent;
2957                 }
2958
2959                 goto unknown;
2960
2961               default:
2962                 goto unknown;
2963             }
2964           }
2965
2966           goto unknown;
2967
2968         case 'g':
2969           if (name[1] == 'e' &&
2970               name[2] == 't')
2971           {
2972             switch (name[3])
2973             {
2974               case 'h':
2975                 if (name[4] == 'o' &&
2976                     name[5] == 's' &&
2977                     name[6] == 't' &&
2978                     name[7] == 'e' &&
2979                     name[8] == 'n' &&
2980                     name[9] == 't')
2981                 {                                 /* gethostent       */
2982                   return -KEY_gethostent;
2983                 }
2984
2985                 goto unknown;
2986
2987               case 's':
2988                 switch (name[4])
2989                 {
2990                   case 'e':
2991                     if (name[5] == 'r' &&
2992                         name[6] == 'v' &&
2993                         name[7] == 'e' &&
2994                         name[8] == 'n' &&
2995                         name[9] == 't')
2996                     {                             /* getservent       */
2997                       return -KEY_getservent;
2998                     }
2999
3000                     goto unknown;
3001
3002                   case 'o':
3003                     if (name[5] == 'c' &&
3004                         name[6] == 'k' &&
3005                         name[7] == 'o' &&
3006                         name[8] == 'p' &&
3007                         name[9] == 't')
3008                     {                             /* getsockopt       */
3009                       return -KEY_getsockopt;
3010                     }
3011
3012                     goto unknown;
3013
3014                   default:
3015                     goto unknown;
3016                 }
3017
3018               default:
3019                 goto unknown;
3020             }
3021           }
3022
3023           goto unknown;
3024
3025         case 's':
3026           switch (name[1])
3027           {
3028             case 'e':
3029               if (name[2] == 't')
3030               {
3031                 switch (name[3])
3032                 {
3033                   case 'h':
3034                     if (name[4] == 'o' &&
3035                         name[5] == 's' &&
3036                         name[6] == 't' &&
3037                         name[7] == 'e' &&
3038                         name[8] == 'n' &&
3039                         name[9] == 't')
3040                     {                             /* sethostent       */
3041                       return -KEY_sethostent;
3042                     }
3043
3044                     goto unknown;
3045
3046                   case 's':
3047                     switch (name[4])
3048                     {
3049                       case 'e':
3050                         if (name[5] == 'r' &&
3051                             name[6] == 'v' &&
3052                             name[7] == 'e' &&
3053                             name[8] == 'n' &&
3054                             name[9] == 't')
3055                         {                         /* setservent       */
3056                           return -KEY_setservent;
3057                         }
3058
3059                         goto unknown;
3060
3061                       case 'o':
3062                         if (name[5] == 'c' &&
3063                             name[6] == 'k' &&
3064                             name[7] == 'o' &&
3065                             name[8] == 'p' &&
3066                             name[9] == 't')
3067                         {                         /* setsockopt       */
3068                           return -KEY_setsockopt;
3069                         }
3070
3071                         goto unknown;
3072
3073                       default:
3074                         goto unknown;
3075                     }
3076
3077                   default:
3078                     goto unknown;
3079                 }
3080               }
3081
3082               goto unknown;
3083
3084             case 'o':
3085               if (name[2] == 'c' &&
3086                   name[3] == 'k' &&
3087                   name[4] == 'e' &&
3088                   name[5] == 't' &&
3089                   name[6] == 'p' &&
3090                   name[7] == 'a' &&
3091                   name[8] == 'i' &&
3092                   name[9] == 'r')
3093               {                                   /* socketpair       */
3094                 return -KEY_socketpair;
3095               }
3096
3097               goto unknown;
3098
3099             default:
3100               goto unknown;
3101           }
3102
3103         default:
3104           goto unknown;
3105       }
3106
3107     case 11: /* 8 tokens of length 11 */
3108       switch (name[0])
3109       {
3110         case '_':
3111           if (name[1] == '_' &&
3112               name[2] == 'P' &&
3113               name[3] == 'A' &&
3114               name[4] == 'C' &&
3115               name[5] == 'K' &&
3116               name[6] == 'A' &&
3117               name[7] == 'G' &&
3118               name[8] == 'E' &&
3119               name[9] == '_' &&
3120               name[10] == '_')
3121           {                                       /* __PACKAGE__      */
3122             return -KEY___PACKAGE__;
3123           }
3124
3125           goto unknown;
3126
3127         case 'e':
3128           if (name[1] == 'n' &&
3129               name[2] == 'd' &&
3130               name[3] == 'p' &&
3131               name[4] == 'r' &&
3132               name[5] == 'o' &&
3133               name[6] == 't' &&
3134               name[7] == 'o' &&
3135               name[8] == 'e' &&
3136               name[9] == 'n' &&
3137               name[10] == 't')
3138           {                                       /* endprotoent      */
3139             return -KEY_endprotoent;
3140           }
3141
3142           goto unknown;
3143
3144         case 'g':
3145           if (name[1] == 'e' &&
3146               name[2] == 't')
3147           {
3148             switch (name[3])
3149             {
3150               case 'p':
3151                 switch (name[4])
3152                 {
3153                   case 'e':
3154                     if (name[5] == 'e' &&
3155                         name[6] == 'r' &&
3156                         name[7] == 'n' &&
3157                         name[8] == 'a' &&
3158                         name[9] == 'm' &&
3159                         name[10] == 'e')
3160                     {                             /* getpeername      */
3161                       return -KEY_getpeername;
3162                     }
3163
3164                     goto unknown;
3165
3166                   case 'r':
3167                     switch (name[5])
3168                     {
3169                       case 'i':
3170                         if (name[6] == 'o' &&
3171                             name[7] == 'r' &&
3172                             name[8] == 'i' &&
3173                             name[9] == 't' &&
3174                             name[10] == 'y')
3175                         {                         /* getpriority      */
3176                           return -KEY_getpriority;
3177                         }
3178
3179                         goto unknown;
3180
3181                       case 'o':
3182                         if (name[6] == 't' &&
3183                             name[7] == 'o' &&
3184                             name[8] == 'e' &&
3185                             name[9] == 'n' &&
3186                             name[10] == 't')
3187                         {                         /* getprotoent      */
3188                           return -KEY_getprotoent;
3189                         }
3190
3191                         goto unknown;
3192
3193                       default:
3194                         goto unknown;
3195                     }
3196
3197                   default:
3198                     goto unknown;
3199                 }
3200
3201               case 's':
3202                 if (name[4] == 'o' &&
3203                     name[5] == 'c' &&
3204                     name[6] == 'k' &&
3205                     name[7] == 'n' &&
3206                     name[8] == 'a' &&
3207                     name[9] == 'm' &&
3208                     name[10] == 'e')
3209                 {                                 /* getsockname      */
3210                   return -KEY_getsockname;
3211                 }
3212
3213                 goto unknown;
3214
3215               default:
3216                 goto unknown;
3217             }
3218           }
3219
3220           goto unknown;
3221
3222         case 's':
3223           if (name[1] == 'e' &&
3224               name[2] == 't' &&
3225               name[3] == 'p' &&
3226               name[4] == 'r')
3227           {
3228             switch (name[5])
3229             {
3230               case 'i':
3231                 if (name[6] == 'o' &&
3232                     name[7] == 'r' &&
3233                     name[8] == 'i' &&
3234                     name[9] == 't' &&
3235                     name[10] == 'y')
3236                 {                                 /* setpriority      */
3237                   return -KEY_setpriority;
3238                 }
3239
3240                 goto unknown;
3241
3242               case 'o':
3243                 if (name[6] == 't' &&
3244                     name[7] == 'o' &&
3245                     name[8] == 'e' &&
3246                     name[9] == 'n' &&
3247                     name[10] == 't')
3248                 {                                 /* setprotoent      */
3249                   return -KEY_setprotoent;
3250                 }
3251
3252                 goto unknown;
3253
3254               default:
3255                 goto unknown;
3256             }
3257           }
3258
3259           goto unknown;
3260
3261         default:
3262           goto unknown;
3263       }
3264
3265     case 12: /* 2 tokens of length 12 */
3266       if (name[0] == 'g' &&
3267           name[1] == 'e' &&
3268           name[2] == 't' &&
3269           name[3] == 'n' &&
3270           name[4] == 'e' &&
3271           name[5] == 't' &&
3272           name[6] == 'b' &&
3273           name[7] == 'y')
3274       {
3275         switch (name[8])
3276         {
3277           case 'a':
3278             if (name[9] == 'd' &&
3279                 name[10] == 'd' &&
3280                 name[11] == 'r')
3281             {                                     /* getnetbyaddr     */
3282               return -KEY_getnetbyaddr;
3283             }
3284
3285             goto unknown;
3286
3287           case 'n':
3288             if (name[9] == 'a' &&
3289                 name[10] == 'm' &&
3290                 name[11] == 'e')
3291             {                                     /* getnetbyname     */
3292               return -KEY_getnetbyname;
3293             }
3294
3295             goto unknown;
3296
3297           default:
3298             goto unknown;
3299         }
3300       }
3301
3302       goto unknown;
3303
3304     case 13: /* 4 tokens of length 13 */
3305       if (name[0] == 'g' &&
3306           name[1] == 'e' &&
3307           name[2] == 't')
3308       {
3309         switch (name[3])
3310         {
3311           case 'h':
3312             if (name[4] == 'o' &&
3313                 name[5] == 's' &&
3314                 name[6] == 't' &&
3315                 name[7] == 'b' &&
3316                 name[8] == 'y')
3317             {
3318               switch (name[9])
3319               {
3320                 case 'a':
3321                   if (name[10] == 'd' &&
3322                       name[11] == 'd' &&
3323                       name[12] == 'r')
3324                   {                               /* gethostbyaddr    */
3325                     return -KEY_gethostbyaddr;
3326                   }
3327
3328                   goto unknown;
3329
3330                 case 'n':
3331                   if (name[10] == 'a' &&
3332                       name[11] == 'm' &&
3333                       name[12] == 'e')
3334                   {                               /* gethostbyname    */
3335                     return -KEY_gethostbyname;
3336                   }
3337
3338                   goto unknown;
3339
3340                 default:
3341                   goto unknown;
3342               }
3343             }
3344
3345             goto unknown;
3346
3347           case 's':
3348             if (name[4] == 'e' &&
3349                 name[5] == 'r' &&
3350                 name[6] == 'v' &&
3351                 name[7] == 'b' &&
3352                 name[8] == 'y')
3353             {
3354               switch (name[9])
3355               {
3356                 case 'n':
3357                   if (name[10] == 'a' &&
3358                       name[11] == 'm' &&
3359                       name[12] == 'e')
3360                   {                               /* getservbyname    */
3361                     return -KEY_getservbyname;
3362                   }
3363
3364                   goto unknown;
3365
3366                 case 'p':
3367                   if (name[10] == 'o' &&
3368                       name[11] == 'r' &&
3369                       name[12] == 't')
3370                   {                               /* getservbyport    */
3371                     return -KEY_getservbyport;
3372                   }
3373
3374                   goto unknown;
3375
3376                 default:
3377                   goto unknown;
3378               }
3379             }
3380
3381             goto unknown;
3382
3383           default:
3384             goto unknown;
3385         }
3386       }
3387
3388       goto unknown;
3389
3390     case 14: /* 1 tokens of length 14 */
3391       if (name[0] == 'g' &&
3392           name[1] == 'e' &&
3393           name[2] == 't' &&
3394           name[3] == 'p' &&
3395           name[4] == 'r' &&
3396           name[5] == 'o' &&
3397           name[6] == 't' &&
3398           name[7] == 'o' &&
3399           name[8] == 'b' &&
3400           name[9] == 'y' &&
3401           name[10] == 'n' &&
3402           name[11] == 'a' &&
3403           name[12] == 'm' &&
3404           name[13] == 'e')
3405       {                                           /* getprotobyname   */
3406         return -KEY_getprotobyname;
3407       }
3408
3409       goto unknown;
3410
3411     case 16: /* 1 tokens of length 16 */
3412       if (name[0] == 'g' &&
3413           name[1] == 'e' &&
3414           name[2] == 't' &&
3415           name[3] == 'p' &&
3416           name[4] == 'r' &&
3417           name[5] == 'o' &&
3418           name[6] == 't' &&
3419           name[7] == 'o' &&
3420           name[8] == 'b' &&
3421           name[9] == 'y' &&
3422           name[10] == 'n' &&
3423           name[11] == 'u' &&
3424           name[12] == 'm' &&
3425           name[13] == 'b' &&
3426           name[14] == 'e' &&
3427           name[15] == 'r')
3428       {                                           /* getprotobynumber */
3429         return -KEY_getprotobynumber;
3430       }
3431
3432       goto unknown;
3433
3434     default:
3435       goto unknown;
3436   }
3437
3438 unknown:
3439   return 0;
3440 }
3441
3442 /* Generated from:
3443  * 76ce12941a02bdb120222155311eb8772ba4a4e8965a42ba347a077cac5b426e regen/keywords.pl
3444  * ex: set ro: */