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