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