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