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