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