1 Star 0 Fork 15

astesiaL/perl

forked from openKylin/perl 
加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
文件
克隆/下载
keywords.c 90.71 KB
一键复制 编辑 原始数据 按行查看 历史
xinjiahao 提交于 2024-03-10 12:24 . New upstream version 5.36.0
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508
/* -*- buffer-read-only: t -*-
* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
* This file is built by regen/keywords.pl from its data.
* Any changes made here will be lost!
*/
#include "EXTERN.h"
#define PERL_IN_KEYWORDS_C
#include "perl.h"
#include "keywords.h"
#include "feature.h"
I32
Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords)
{
PERL_ARGS_ASSERT_KEYWORD;
switch (len)
{
case 1: /* 5 tokens of length 1 */
switch (name[0])
{
case 'm':
{ /* m */
return KEY_m;
}
case 'q':
{ /* q */
return KEY_q;
}
case 's':
{ /* s */
return KEY_s;
}
case 'x':
{ /* x */
return -KEY_x;
}
case 'y':
{ /* y */
return KEY_y;
}
default:
goto unknown;
}
case 2: /* 19 tokens of length 2 */
switch (name[0])
{
case 'd':
if (name[1] == 'o')
{ /* do */
return KEY_do;
}
goto unknown;
case 'e':
if (name[1] == 'q')
{ /* eq */
return -KEY_eq;
}
goto unknown;
case 'f':
if (name[1] == 'c')
{ /* fc */
return (all_keywords || FEATURE_FC_IS_ENABLED ? -KEY_fc : 0);
}
goto unknown;
case 'g':
switch (name[1])
{
case 'e':
{ /* ge */
return -KEY_ge;
}
case 't':
{ /* gt */
return -KEY_gt;
}
default:
goto unknown;
}
case 'i':
if (name[1] == 'f')
{ /* if */
return KEY_if;
}
goto unknown;
case 'l':
switch (name[1])
{
case 'c':
{ /* lc */
return -KEY_lc;
}
case 'e':
{ /* le */
return -KEY_le;
}
case 't':
{ /* lt */
return -KEY_lt;
}
default:
goto unknown;
}
case 'm':
if (name[1] == 'y')
{ /* my */
return KEY_my;
}
goto unknown;
case 'n':
switch (name[1])
{
case 'e':
{ /* ne */
return -KEY_ne;
}
case 'o':
{ /* no */
return KEY_no;
}
default:
goto unknown;
}
case 'o':
if (name[1] == 'r')
{ /* or */
return -KEY_or;
}
goto unknown;
case 'q':
switch (name[1])
{
case 'q':
{ /* qq */
return KEY_qq;
}
case 'r':
{ /* qr */
return KEY_qr;
}
case 'w':
{ /* qw */
return KEY_qw;
}
case 'x':
{ /* qx */
return KEY_qx;
}
default:
goto unknown;
}
case 't':
if (name[1] == 'r')
{ /* tr */
return KEY_tr;
}
goto unknown;
case 'u':
if (name[1] == 'c')
{ /* uc */
return -KEY_uc;
}
goto unknown;
default:
goto unknown;
}
case 3: /* 30 tokens of length 3 */
switch (name[0])
{
case 'E':
if (name[1] == 'N' &&
name[2] == 'D')
{ /* END */
return KEY_END;
}
goto unknown;
case 'a':
switch (name[1])
{
case 'b':
if (name[2] == 's')
{ /* abs */
return -KEY_abs;
}
goto unknown;
case 'n':
if (name[2] == 'd')
{ /* and */
return -KEY_and;
}
goto unknown;
default:
goto unknown;
}
case 'c':
switch (name[1])
{
case 'h':
if (name[2] == 'r')
{ /* chr */
return -KEY_chr;
}
goto unknown;
case 'm':
if (name[2] == 'p')
{ /* cmp */
return -KEY_cmp;
}
goto unknown;
case 'o':
if (name[2] == 's')
{ /* cos */
return -KEY_cos;
}
goto unknown;
default:
goto unknown;
}
case 'd':
if (name[1] == 'i' &&
name[2] == 'e')
{ /* die */
return -KEY_die;
}
goto unknown;
case 'e':
switch (name[1])
{
case 'o':
if (name[2] == 'f')
{ /* eof */
return -KEY_eof;
}
goto unknown;
case 'x':
if (name[2] == 'p')
{ /* exp */
return -KEY_exp;
}
goto unknown;
default:
goto unknown;
}
case 'f':
if (name[1] == 'o' &&
name[2] == 'r')
{ /* for */
return KEY_for;
}
goto unknown;
case 'h':
if (name[1] == 'e' &&
name[2] == 'x')
{ /* hex */
return -KEY_hex;
}
goto unknown;
case 'i':
switch (name[1])
{
case 'n':
if (name[2] == 't')
{ /* int */
return -KEY_int;
}
goto unknown;
case 's':
if (name[2] == 'a')
{ /* isa */
return (all_keywords || FEATURE_ISA_IS_ENABLED ? -KEY_isa : 0);
}
goto unknown;
default:
goto unknown;
}
case 'l':
if (name[1] == 'o' &&
name[2] == 'g')
{ /* log */
return -KEY_log;
}
goto unknown;
case 'm':
if (name[1] == 'a' &&
name[2] == 'p')
{ /* map */
return KEY_map;
}
goto unknown;
case 'n':
if (name[1] == 'o' &&
name[2] == 't')
{ /* not */
return -KEY_not;
}
goto unknown;
case 'o':
switch (name[1])
{
case 'c':
if (name[2] == 't')
{ /* oct */
return -KEY_oct;
}
goto unknown;
case 'r':
if (name[2] == 'd')
{ /* ord */
return -KEY_ord;
}
goto unknown;
case 'u':
if (name[2] == 'r')
{ /* our */
return KEY_our;
}
goto unknown;
default:
goto unknown;
}
case 'p':
if (name[1] == 'o')
{
switch (name[2])
{
case 'p':
{ /* pop */
return -KEY_pop;
}
case 's':
{ /* pos */
return KEY_pos;
}
default:
goto unknown;
}
}
goto unknown;
case 'r':
if (name[1] == 'e' &&
name[2] == 'f')
{ /* ref */
return -KEY_ref;
}
goto unknown;
case 's':
switch (name[1])
{
case 'a':
if (name[2] == 'y')
{ /* say */
return (all_keywords || FEATURE_SAY_IS_ENABLED ? KEY_say : 0);
}
goto unknown;
case 'i':
if (name[2] == 'n')
{ /* sin */
return -KEY_sin;
}
goto unknown;
case 'u':
if (name[2] == 'b')
{ /* sub */
return KEY_sub;
}
goto unknown;
default:
goto unknown;
}
case 't':
switch (name[1])
{
case 'i':
if (name[2] == 'e')
{ /* tie */
return -KEY_tie;
}
goto unknown;
case 'r':
if (name[2] == 'y')
{ /* try */
return (all_keywords || FEATURE_TRY_IS_ENABLED ? KEY_try : 0);
}
goto unknown;
default:
goto unknown;
}
case 'u':
if (name[1] == 's' &&
name[2] == 'e')
{ /* use */
return KEY_use;
}
goto unknown;
case 'v':
if (name[1] == 'e' &&
name[2] == 'c')
{ /* vec */
return -KEY_vec;
}
goto unknown;
case 'x':
if (name[1] == 'o' &&
name[2] == 'r')
{ /* xor */
return -KEY_xor;
}
goto unknown;
default:
goto unknown;
}
case 4: /* 40 tokens of length 4 */
switch (name[0])
{
case 'I':
if (name[1] == 'N' &&
name[2] == 'I' &&
name[3] == 'T')
{ /* INIT */
return KEY_INIT;
}
goto unknown;
case 'b':
if (name[1] == 'i' &&
name[2] == 'n' &&
name[3] == 'd')
{ /* bind */
return -KEY_bind;
}
goto unknown;
case 'c':
if (name[1] == 'h' &&
name[2] == 'o' &&
name[3] == 'p')
{ /* chop */
return -KEY_chop;
}
goto unknown;
case 'd':
if (name[1] == 'u' &&
name[2] == 'm' &&
name[3] == 'p')
{ /* dump */
return -KEY_dump;
}
goto unknown;
case 'e':
switch (name[1])
{
case 'a':
if (name[2] == 'c' &&
name[3] == 'h')
{ /* each */
return -KEY_each;
}
goto unknown;
case 'l':
if (name[2] == 's' &&
name[3] == 'e')
{ /* else */
return KEY_else;
}
goto unknown;
case 'v':
if (name[2] == 'a' &&
name[3] == 'l')
{ /* eval */
return KEY_eval;
}
goto unknown;
case 'x':
switch (name[2])
{
case 'e':
if (name[3] == 'c')
{ /* exec */
return -KEY_exec;
}
goto unknown;
case 'i':
if (name[3] == 't')
{ /* exit */
return -KEY_exit;
}
goto unknown;
default:
goto unknown;
}
default:
goto unknown;
}
case 'f':
if (name[1] == 'o' &&
name[2] == 'r' &&
name[3] == 'k')
{ /* fork */
return -KEY_fork;
}
goto unknown;
case 'g':
switch (name[1])
{
case 'e':
if (name[2] == 't' &&
name[3] == 'c')
{ /* getc */
return -KEY_getc;
}
goto unknown;
case 'l':
if (name[2] == 'o' &&
name[3] == 'b')
{ /* glob */
return KEY_glob;
}
goto unknown;
case 'o':
if (name[2] == 't' &&
name[3] == 'o')
{ /* goto */
return KEY_goto;
}
goto unknown;
case 'r':
if (name[2] == 'e' &&
name[3] == 'p')
{ /* grep */
return KEY_grep;
}
goto unknown;
default:
goto unknown;
}
case 'j':
if (name[1] == 'o' &&
name[2] == 'i' &&
name[3] == 'n')
{ /* join */
return -KEY_join;
}
goto unknown;
case 'k':
switch (name[1])
{
case 'e':
if (name[2] == 'y' &&
name[3] == 's')
{ /* keys */
return -KEY_keys;
}
goto unknown;
case 'i':
if (name[2] == 'l' &&
name[3] == 'l')
{ /* kill */
return -KEY_kill;
}
goto unknown;
default:
goto unknown;
}
case 'l':
switch (name[1])
{
case 'a':
if (name[2] == 's' &&
name[3] == 't')
{ /* last */
return KEY_last;
}
goto unknown;
case 'i':
if (name[2] == 'n' &&
name[3] == 'k')
{ /* link */
return -KEY_link;
}
goto unknown;
case 'o':
if (name[2] == 'c' &&
name[3] == 'k')
{ /* lock */
return -KEY_lock;
}
goto unknown;
default:
goto unknown;
}
case 'n':
if (name[1] == 'e' &&
name[2] == 'x' &&
name[3] == 't')
{ /* next */
return KEY_next;
}
goto unknown;
case 'o':
if (name[1] == 'p' &&
name[2] == 'e' &&
name[3] == 'n')
{ /* open */
return -KEY_open;
}
goto unknown;
case 'p':
switch (name[1])
{
case 'a':
if (name[2] == 'c' &&
name[3] == 'k')
{ /* pack */
return -KEY_pack;
}
goto unknown;
case 'i':
if (name[2] == 'p' &&
name[3] == 'e')
{ /* pipe */
return -KEY_pipe;
}
goto unknown;
case 'u':
if (name[2] == 's' &&
name[3] == 'h')
{ /* push */
return -KEY_push;
}
goto unknown;
default:
goto unknown;
}
case 'r':
switch (name[1])
{
case 'a':
if (name[2] == 'n' &&
name[3] == 'd')
{ /* rand */
return -KEY_rand;
}
goto unknown;
case 'e':
switch (name[2])
{
case 'a':
if (name[3] == 'd')
{ /* read */
return -KEY_read;
}
goto unknown;
case 'c':
if (name[3] == 'v')
{ /* recv */
return -KEY_recv;
}
goto unknown;
case 'd':
if (name[3] == 'o')
{ /* redo */
return KEY_redo;
}
goto unknown;
default:
goto unknown;
}
default:
goto unknown;
}
case 's':
switch (name[1])
{
case 'e':
switch (name[2])
{
case 'e':
if (name[3] == 'k')
{ /* seek */
return -KEY_seek;
}
goto unknown;
case 'n':
if (name[3] == 'd')
{ /* send */
return -KEY_send;
}
goto unknown;
default:
goto unknown;
}
case 'o':
if (name[2] == 'r' &&
name[3] == 't')
{ /* sort */
return KEY_sort;
}
goto unknown;
case 'q':
if (name[2] == 'r' &&
name[3] == 't')
{ /* sqrt */
return -KEY_sqrt;
}
goto unknown;
case 't':
if (name[2] == 'a' &&
name[3] == 't')
{ /* stat */
return -KEY_stat;
}
goto unknown;
default:
goto unknown;
}
case 't':
switch (name[1])
{
case 'e':
if (name[2] == 'l' &&
name[3] == 'l')
{ /* tell */
return -KEY_tell;
}
goto unknown;
case 'i':
switch (name[2])
{
case 'e':
if (name[3] == 'd')
{ /* tied */
return -KEY_tied;
}
goto unknown;
case 'm':
if (name[3] == 'e')
{ /* time */
return -KEY_time;
}
goto unknown;
default:
goto unknown;
}
default:
goto unknown;
}
case 'w':
switch (name[1])
{
case 'a':
switch (name[2])
{
case 'i':
if (name[3] == 't')
{ /* wait */
return -KEY_wait;
}
goto unknown;
case 'r':
if (name[3] == 'n')
{ /* warn */
return -KEY_warn;
}
goto unknown;
default:
goto unknown;
}
case 'h':
if (name[2] == 'e' &&
name[3] == 'n')
{ /* when */
return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_when : 0);
}
goto unknown;
default:
goto unknown;
}
default:
goto unknown;
}
case 5: /* 41 tokens of length 5 */
switch (name[0])
{
case 'B':
if (name[1] == 'E' &&
name[2] == 'G' &&
name[3] == 'I' &&
name[4] == 'N')
{ /* BEGIN */
return KEY_BEGIN;
}
goto unknown;
case 'C':
if (name[1] == 'H' &&
name[2] == 'E' &&
name[3] == 'C' &&
name[4] == 'K')
{ /* CHECK */
return KEY_CHECK;
}
goto unknown;
case 'a':
switch (name[1])
{
case 'l':
if (name[2] == 'a' &&
name[3] == 'r' &&
name[4] == 'm')
{ /* alarm */
return -KEY_alarm;
}
goto unknown;
case 't':
if (name[2] == 'a' &&
name[3] == 'n' &&
name[4] == '2')
{ /* atan2 */
return -KEY_atan2;
}
goto unknown;
default:
goto unknown;
}
case 'b':
switch (name[1])
{
case 'l':
if (name[2] == 'e' &&
name[3] == 's' &&
name[4] == 's')
{ /* bless */
return -KEY_bless;
}
goto unknown;
case 'r':
if (name[2] == 'e' &&
name[3] == 'a' &&
name[4] == 'k')
{ /* break */
return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? -KEY_break : 0);
}
goto unknown;
default:
goto unknown;
}
case 'c':
switch (name[1])
{
case 'a':
if (name[2] == 't' &&
name[3] == 'c' &&
name[4] == 'h')
{ /* catch */
return (all_keywords || FEATURE_TRY_IS_ENABLED ? KEY_catch : 0);
}
goto unknown;
case 'h':
switch (name[2])
{
case 'd':
if (name[3] == 'i' &&
name[4] == 'r')
{ /* chdir */
return -KEY_chdir;
}
goto unknown;
case 'm':
if (name[3] == 'o' &&
name[4] == 'd')
{ /* chmod */
return -KEY_chmod;
}
goto unknown;
case 'o':
switch (name[3])
{
case 'm':
if (name[4] == 'p')
{ /* chomp */
return -KEY_chomp;
}
goto unknown;
case 'w':
if (name[4] == 'n')
{ /* chown */
return -KEY_chown;
}
goto unknown;
default:
goto unknown;
}
default:
goto unknown;
}
case 'l':
if (name[2] == 'o' &&
name[3] == 's' &&
name[4] == 'e')
{ /* close */
return -KEY_close;
}
goto unknown;
case 'r':
if (name[2] == 'y' &&
name[3] == 'p' &&
name[4] == 't')
{ /* crypt */
return -KEY_crypt;
}
goto unknown;
default:
goto unknown;
}
case 'd':
if (name[1] == 'e' &&
name[2] == 'f' &&
name[3] == 'e' &&
name[4] == 'r')
{ /* defer */
return (all_keywords || FEATURE_DEFER_IS_ENABLED ? KEY_defer : 0);
}
goto unknown;
case 'e':
if (name[1] == 'l' &&
name[2] == 's' &&
name[3] == 'i' &&
name[4] == 'f')
{ /* elsif */
return KEY_elsif;
}
goto unknown;
case 'f':
switch (name[1])
{
case 'c':
if (name[2] == 'n' &&
name[3] == 't' &&
name[4] == 'l')
{ /* fcntl */
return -KEY_fcntl;
}
goto unknown;
case 'l':
if (name[2] == 'o' &&
name[3] == 'c' &&
name[4] == 'k')
{ /* flock */
return -KEY_flock;
}
goto unknown;
default:
goto unknown;
}
case 'g':
if (name[1] == 'i' &&
name[2] == 'v' &&
name[3] == 'e' &&
name[4] == 'n')
{ /* given */
return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_given : 0);
}
goto unknown;
case 'i':
switch (name[1])
{
case 'n':
if (name[2] == 'd' &&
name[3] == 'e' &&
name[4] == 'x')
{ /* index */
return -KEY_index;
}
goto unknown;
case 'o':
if (name[2] == 'c' &&
name[3] == 't' &&
name[4] == 'l')
{ /* ioctl */
return -KEY_ioctl;
}
goto unknown;
default:
goto unknown;
}
case 'l':
switch (name[1])
{
case 'o':
if (name[2] == 'c' &&
name[3] == 'a' &&
name[4] == 'l')
{ /* local */
return KEY_local;
}
goto unknown;
case 's':
if (name[2] == 't' &&
name[3] == 'a' &&
name[4] == 't')
{ /* lstat */
return -KEY_lstat;
}
goto unknown;
default:
goto unknown;
}
case 'm':
if (name[1] == 'k' &&
name[2] == 'd' &&
name[3] == 'i' &&
name[4] == 'r')
{ /* mkdir */
return -KEY_mkdir;
}
goto unknown;
case 'p':
if (name[1] == 'r' &&
name[2] == 'i' &&
name[3] == 'n' &&
name[4] == 't')
{ /* print */
return KEY_print;
}
goto unknown;
case 'r':
switch (name[1])
{
case 'e':
if (name[2] == 's' &&
name[3] == 'e' &&
name[4] == 't')
{ /* reset */
return -KEY_reset;
}
goto unknown;
case 'm':
if (name[2] == 'd' &&
name[3] == 'i' &&
name[4] == 'r')
{ /* rmdir */
return -KEY_rmdir;
}
goto unknown;
default:
goto unknown;
}
case 's':
switch (name[1])
{
case 'e':
if (name[2] == 'm' &&
name[3] == 'o' &&
name[4] == 'p')
{ /* semop */
return -KEY_semop;
}
goto unknown;
case 'h':
if (name[2] == 'i' &&
name[3] == 'f' &&
name[4] == 't')
{ /* shift */
return -KEY_shift;
}
goto unknown;
case 'l':
if (name[2] == 'e' &&
name[3] == 'e' &&
name[4] == 'p')
{ /* sleep */
return -KEY_sleep;
}
goto unknown;
case 'p':
if (name[2] == 'l' &&
name[3] == 'i' &&
name[4] == 't')
{ /* split */
return KEY_split;
}
goto unknown;
case 'r':
if (name[2] == 'a' &&
name[3] == 'n' &&
name[4] == 'd')
{ /* srand */
return -KEY_srand;
}
goto unknown;
case 't':
switch (name[2])
{
case 'a':
if (name[3] == 't' &&
name[4] == 'e')
{ /* state */
return (all_keywords || FEATURE_STATE_IS_ENABLED ? KEY_state : 0);
}
goto unknown;
case 'u':
if (name[3] == 'd' &&
name[4] == 'y')
{ /* study */
return KEY_study;
}
goto unknown;
default:
goto unknown;
}
default:
goto unknown;
}
case 't':
if (name[1] == 'i' &&
name[2] == 'm' &&
name[3] == 'e' &&
name[4] == 's')
{ /* times */
return -KEY_times;
}
goto unknown;
case 'u':
switch (name[1])
{
case 'm':
if (name[2] == 'a' &&
name[3] == 's' &&
name[4] == 'k')
{ /* umask */
return -KEY_umask;
}
goto unknown;
case 'n':
switch (name[2])
{
case 'd':
if (name[3] == 'e' &&
name[4] == 'f')
{ /* undef */
return KEY_undef;
}
goto unknown;
case 't':
if (name[3] == 'i')
{
switch (name[4])
{
case 'e':
{ /* untie */
return -KEY_untie;
}
case 'l':
{ /* until */
return KEY_until;
}
default:
goto unknown;
}
}
goto unknown;
default:
goto unknown;
}
case 't':
if (name[2] == 'i' &&
name[3] == 'm' &&
name[4] == 'e')
{ /* utime */
return -KEY_utime;
}
goto unknown;
default:
goto unknown;
}
case 'w':
switch (name[1])
{
case 'h':
if (name[2] == 'i' &&
name[3] == 'l' &&
name[4] == 'e')
{ /* while */
return KEY_while;
}
goto unknown;
case 'r':
if (name[2] == 'i' &&
name[3] == 't' &&
name[4] == 'e')
{ /* write */
return -KEY_write;
}
goto unknown;
default:
goto unknown;
}
default:
goto unknown;
}
case 6: /* 33 tokens of length 6 */
switch (name[0])
{
case 'a':
if (name[1] == 'c' &&
name[2] == 'c' &&
name[3] == 'e' &&
name[4] == 'p' &&
name[5] == 't')
{ /* accept */
return -KEY_accept;
}
goto unknown;
case 'c':
switch (name[1])
{
case 'a':
if (name[2] == 'l' &&
name[3] == 'l' &&
name[4] == 'e' &&
name[5] == 'r')
{ /* caller */
return -KEY_caller;
}
goto unknown;
case 'h':
if (name[2] == 'r' &&
name[3] == 'o' &&
name[4] == 'o' &&
name[5] == 't')
{ /* chroot */
return -KEY_chroot;
}
goto unknown;
default:
goto unknown;
}
case 'd':
if (name[1] == 'e' &&
name[2] == 'l' &&
name[3] == 'e' &&
name[4] == 't' &&
name[5] == 'e')
{ /* delete */
return KEY_delete;
}
goto unknown;
case 'e':
switch (name[1])
{
case 'l':
if (name[2] == 's' &&
name[3] == 'e' &&
name[4] == 'i' &&
name[5] == 'f')
{ /* elseif */
Perl_ck_warner_d(aTHX_ packWARN(WARN_SYNTAX), "elseif should be elsif");
}
goto unknown;
case 'x':
if (name[2] == 'i' &&
name[3] == 's' &&
name[4] == 't' &&
name[5] == 's')
{ /* exists */
return KEY_exists;
}
goto unknown;
default:
goto unknown;
}
case 'f':
switch (name[1])
{
case 'i':
if (name[2] == 'l' &&
name[3] == 'e' &&
name[4] == 'n' &&
name[5] == 'o')
{ /* fileno */
return -KEY_fileno;
}
goto unknown;
case 'o':
if (name[2] == 'r' &&
name[3] == 'm' &&
name[4] == 'a' &&
name[5] == 't')
{ /* format */
return KEY_format;
}
goto unknown;
default:
goto unknown;
}
case 'g':
if (name[1] == 'm' &&
name[2] == 't' &&
name[3] == 'i' &&
name[4] == 'm' &&
name[5] == 'e')
{ /* gmtime */
return -KEY_gmtime;
}
goto unknown;
case 'l':
switch (name[1])
{
case 'e':
if (name[2] == 'n' &&
name[3] == 'g' &&
name[4] == 't' &&
name[5] == 'h')
{ /* length */
return -KEY_length;
}
goto unknown;
case 'i':
if (name[2] == 's' &&
name[3] == 't' &&
name[4] == 'e' &&
name[5] == 'n')
{ /* listen */
return -KEY_listen;
}
goto unknown;
default:
goto unknown;
}
case 'm':
if (name[1] == 's' &&
name[2] == 'g')
{
switch (name[3])
{
case 'c':
if (name[4] == 't' &&
name[5] == 'l')
{ /* msgctl */
return -KEY_msgctl;
}
goto unknown;
case 'g':
if (name[4] == 'e' &&
name[5] == 't')
{ /* msgget */
return -KEY_msgget;
}
goto unknown;
case 'r':
if (name[4] == 'c' &&
name[5] == 'v')
{ /* msgrcv */
return -KEY_msgrcv;
}
goto unknown;
case 's':
if (name[4] == 'n' &&
name[5] == 'd')
{ /* msgsnd */
return -KEY_msgsnd;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 'p':
if (name[1] == 'r' &&
name[2] == 'i' &&
name[3] == 'n' &&
name[4] == 't' &&
name[5] == 'f')
{ /* printf */
return KEY_printf;
}
goto unknown;
case 'r':
switch (name[1])
{
case 'e':
switch (name[2])
{
case 'n':
if (name[3] == 'a' &&
name[4] == 'm' &&
name[5] == 'e')
{ /* rename */
return -KEY_rename;
}
goto unknown;
case 't':
if (name[3] == 'u' &&
name[4] == 'r' &&
name[5] == 'n')
{ /* return */
return KEY_return;
}
goto unknown;
default:
goto unknown;
}
case 'i':
if (name[2] == 'n' &&
name[3] == 'd' &&
name[4] == 'e' &&
name[5] == 'x')
{ /* rindex */
return -KEY_rindex;
}
goto unknown;
default:
goto unknown;
}
case 's':
switch (name[1])
{
case 'c':
if (name[2] == 'a' &&
name[3] == 'l' &&
name[4] == 'a' &&
name[5] == 'r')
{ /* scalar */
return KEY_scalar;
}
goto unknown;
case 'e':
switch (name[2])
{
case 'l':
if (name[3] == 'e' &&
name[4] == 'c' &&
name[5] == 't')
{ /* select */
return -KEY_select;
}
goto unknown;
case 'm':
switch (name[3])
{
case 'c':
if (name[4] == 't' &&
name[5] == 'l')
{ /* semctl */
return -KEY_semctl;
}
goto unknown;
case 'g':
if (name[4] == 'e' &&
name[5] == 't')
{ /* semget */
return -KEY_semget;
}
goto unknown;
default:
goto unknown;
}
default:
goto unknown;
}
case 'h':
if (name[2] == 'm')
{
switch (name[3])
{
case 'c':
if (name[4] == 't' &&
name[5] == 'l')
{ /* shmctl */
return -KEY_shmctl;
}
goto unknown;
case 'g':
if (name[4] == 'e' &&
name[5] == 't')
{ /* shmget */
return -KEY_shmget;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 'o':
if (name[2] == 'c' &&
name[3] == 'k' &&
name[4] == 'e' &&
name[5] == 't')
{ /* socket */
return -KEY_socket;
}
goto unknown;
case 'p':
if (name[2] == 'l' &&
name[3] == 'i' &&
name[4] == 'c' &&
name[5] == 'e')
{ /* splice */
return -KEY_splice;
}
goto unknown;
case 'u':
if (name[2] == 'b' &&
name[3] == 's' &&
name[4] == 't' &&
name[5] == 'r')
{ /* substr */
return -KEY_substr;
}
goto unknown;
case 'y':
if (name[2] == 's' &&
name[3] == 't' &&
name[4] == 'e' &&
name[5] == 'm')
{ /* system */
return -KEY_system;
}
goto unknown;
default:
goto unknown;
}
case 'u':
if (name[1] == 'n')
{
switch (name[2])
{
case 'l':
switch (name[3])
{
case 'e':
if (name[4] == 's' &&
name[5] == 's')
{ /* unless */
return KEY_unless;
}
goto unknown;
case 'i':
if (name[4] == 'n' &&
name[5] == 'k')
{ /* unlink */
return -KEY_unlink;
}
goto unknown;
default:
goto unknown;
}
case 'p':
if (name[3] == 'a' &&
name[4] == 'c' &&
name[5] == 'k')
{ /* unpack */
return -KEY_unpack;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 'v':
if (name[1] == 'a' &&
name[2] == 'l' &&
name[3] == 'u' &&
name[4] == 'e' &&
name[5] == 's')
{ /* values */
return -KEY_values;
}
goto unknown;
default:
goto unknown;
}
case 7: /* 31 tokens of length 7 */
switch (name[0])
{
case 'D':
if (name[1] == 'E' &&
name[2] == 'S' &&
name[3] == 'T' &&
name[4] == 'R' &&
name[5] == 'O' &&
name[6] == 'Y')
{ /* DESTROY */
return KEY_DESTROY;
}
goto unknown;
case '_':
if (name[1] == '_')
{
switch (name[2])
{
case 'E':
if (name[3] == 'N' &&
name[4] == 'D' &&
name[5] == '_' &&
name[6] == '_')
{ /* __END__ */
return KEY___END__;
}
goto unknown;
case 'S':
if (name[3] == 'U' &&
name[4] == 'B' &&
name[5] == '_' &&
name[6] == '_')
{ /* __SUB__ */
return (all_keywords || FEATURE___SUB___IS_ENABLED ? -KEY___SUB__ : 0);
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 'b':
if (name[1] == 'i' &&
name[2] == 'n' &&
name[3] == 'm' &&
name[4] == 'o' &&
name[5] == 'd' &&
name[6] == 'e')
{ /* binmode */
return -KEY_binmode;
}
goto unknown;
case 'c':
if (name[1] == 'o' &&
name[2] == 'n' &&
name[3] == 'n' &&
name[4] == 'e' &&
name[5] == 'c' &&
name[6] == 't')
{ /* connect */
return -KEY_connect;
}
goto unknown;
case 'd':
switch (name[1])
{
case 'b':
if (name[2] == 'm' &&
name[3] == 'o' &&
name[4] == 'p' &&
name[5] == 'e' &&
name[6] == 'n')
{ /* dbmopen */
return -KEY_dbmopen;
}
goto unknown;
case 'e':
if (name[2] == 'f')
{
switch (name[3])
{
case 'a':
if (name[4] == 'u' &&
name[5] == 'l' &&
name[6] == 't')
{ /* default */
return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_default : 0);
}
goto unknown;
case 'i':
if (name[4] == 'n' &&
name[5] == 'e' &&
name[6] == 'd')
{ /* defined */
return KEY_defined;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
default:
goto unknown;
}
case 'f':
switch (name[1])
{
case 'i':
if (name[2] == 'n' &&
name[3] == 'a' &&
name[4] == 'l' &&
name[5] == 'l' &&
name[6] == 'y')
{ /* finally */
return (all_keywords || FEATURE_TRY_IS_ENABLED ? KEY_finally : 0);
}
goto unknown;
case 'o':
if (name[2] == 'r' &&
name[3] == 'e' &&
name[4] == 'a' &&
name[5] == 'c' &&
name[6] == 'h')
{ /* foreach */
return KEY_foreach;
}
goto unknown;
default:
goto unknown;
}
case 'g':
if (name[1] == 'e' &&
name[2] == 't' &&
name[3] == 'p')
{
switch (name[4])
{
case 'g':
if (name[5] == 'r' &&
name[6] == 'p')
{ /* getpgrp */
return -KEY_getpgrp;
}
goto unknown;
case 'p':
if (name[5] == 'i' &&
name[6] == 'd')
{ /* getppid */
return -KEY_getppid;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 'l':
if (name[1] == 'c' &&
name[2] == 'f' &&
name[3] == 'i' &&
name[4] == 'r' &&
name[5] == 's' &&
name[6] == 't')
{ /* lcfirst */
return -KEY_lcfirst;
}
goto unknown;
case 'o':
if (name[1] == 'p' &&
name[2] == 'e' &&
name[3] == 'n' &&
name[4] == 'd' &&
name[5] == 'i' &&
name[6] == 'r')
{ /* opendir */
return -KEY_opendir;
}
goto unknown;
case 'p':
if (name[1] == 'a' &&
name[2] == 'c' &&
name[3] == 'k' &&
name[4] == 'a' &&
name[5] == 'g' &&
name[6] == 'e')
{ /* package */
return KEY_package;
}
goto unknown;
case 'r':
if (name[1] == 'e')
{
switch (name[2])
{
case 'a':
if (name[3] == 'd' &&
name[4] == 'd' &&
name[5] == 'i' &&
name[6] == 'r')
{ /* readdir */
return -KEY_readdir;
}
goto unknown;
case 'q':
if (name[3] == 'u' &&
name[4] == 'i' &&
name[5] == 'r' &&
name[6] == 'e')
{ /* require */
return KEY_require;
}
goto unknown;
case 'v':
if (name[3] == 'e' &&
name[4] == 'r' &&
name[5] == 's' &&
name[6] == 'e')
{ /* reverse */
return -KEY_reverse;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 's':
switch (name[1])
{
case 'e':
switch (name[2])
{
case 'e':
if (name[3] == 'k' &&
name[4] == 'd' &&
name[5] == 'i' &&
name[6] == 'r')
{ /* seekdir */
return -KEY_seekdir;
}
goto unknown;
case 't':
if (name[3] == 'p' &&
name[4] == 'g' &&
name[5] == 'r' &&
name[6] == 'p')
{ /* setpgrp */
return -KEY_setpgrp;
}
goto unknown;
default:
goto unknown;
}
case 'h':
if (name[2] == 'm' &&
name[3] == 'r' &&
name[4] == 'e' &&
name[5] == 'a' &&
name[6] == 'd')
{ /* shmread */
return -KEY_shmread;
}
goto unknown;
case 'p':
if (name[2] == 'r' &&
name[3] == 'i' &&
name[4] == 'n' &&
name[5] == 't' &&
name[6] == 'f')
{ /* sprintf */
return -KEY_sprintf;
}
goto unknown;
case 'y':
switch (name[2])
{
case 'm':
if (name[3] == 'l' &&
name[4] == 'i' &&
name[5] == 'n' &&
name[6] == 'k')
{ /* symlink */
return -KEY_symlink;
}
goto unknown;
case 's':
switch (name[3])
{
case 'c':
if (name[4] == 'a' &&
name[5] == 'l' &&
name[6] == 'l')
{ /* syscall */
return -KEY_syscall;
}
goto unknown;
case 'o':
if (name[4] == 'p' &&
name[5] == 'e' &&
name[6] == 'n')
{ /* sysopen */
return -KEY_sysopen;
}
goto unknown;
case 'r':
if (name[4] == 'e' &&
name[5] == 'a' &&
name[6] == 'd')
{ /* sysread */
return -KEY_sysread;
}
goto unknown;
case 's':
if (name[4] == 'e' &&
name[5] == 'e' &&
name[6] == 'k')
{ /* sysseek */
return -KEY_sysseek;
}
goto unknown;
default:
goto unknown;
}
default:
goto unknown;
}
default:
goto unknown;
}
case 't':
if (name[1] == 'e' &&
name[2] == 'l' &&
name[3] == 'l' &&
name[4] == 'd' &&
name[5] == 'i' &&
name[6] == 'r')
{ /* telldir */
return -KEY_telldir;
}
goto unknown;
case 'u':
switch (name[1])
{
case 'c':
if (name[2] == 'f' &&
name[3] == 'i' &&
name[4] == 'r' &&
name[5] == 's' &&
name[6] == 't')
{ /* ucfirst */
return -KEY_ucfirst;
}
goto unknown;
case 'n':
if (name[2] == 's' &&
name[3] == 'h' &&
name[4] == 'i' &&
name[5] == 'f' &&
name[6] == 't')
{ /* unshift */
return -KEY_unshift;
}
goto unknown;
default:
goto unknown;
}
case 'w':
if (name[1] == 'a' &&
name[2] == 'i' &&
name[3] == 't' &&
name[4] == 'p' &&
name[5] == 'i' &&
name[6] == 'd')
{ /* waitpid */
return -KEY_waitpid;
}
goto unknown;
default:
goto unknown;
}
case 8: /* 26 tokens of length 8 */
switch (name[0])
{
case 'A':
if (name[1] == 'U' &&
name[2] == 'T' &&
name[3] == 'O' &&
name[4] == 'L' &&
name[5] == 'O' &&
name[6] == 'A' &&
name[7] == 'D')
{ /* AUTOLOAD */
return KEY_AUTOLOAD;
}
goto unknown;
case '_':
if (name[1] == '_')
{
switch (name[2])
{
case 'D':
if (name[3] == 'A' &&
name[4] == 'T' &&
name[5] == 'A' &&
name[6] == '_' &&
name[7] == '_')
{ /* __DATA__ */
return KEY___DATA__;
}
goto unknown;
case 'F':
if (name[3] == 'I' &&
name[4] == 'L' &&
name[5] == 'E' &&
name[6] == '_' &&
name[7] == '_')
{ /* __FILE__ */
return -KEY___FILE__;
}
goto unknown;
case 'L':
if (name[3] == 'I' &&
name[4] == 'N' &&
name[5] == 'E' &&
name[6] == '_' &&
name[7] == '_')
{ /* __LINE__ */
return -KEY___LINE__;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 'c':
switch (name[1])
{
case 'l':
if (name[2] == 'o' &&
name[3] == 's' &&
name[4] == 'e' &&
name[5] == 'd' &&
name[6] == 'i' &&
name[7] == 'r')
{ /* closedir */
return -KEY_closedir;
}
goto unknown;
case 'o':
if (name[2] == 'n' &&
name[3] == 't' &&
name[4] == 'i' &&
name[5] == 'n' &&
name[6] == 'u' &&
name[7] == 'e')
{ /* continue */
return -KEY_continue;
}
goto unknown;
default:
goto unknown;
}
case 'd':
if (name[1] == 'b' &&
name[2] == 'm' &&
name[3] == 'c' &&
name[4] == 'l' &&
name[5] == 'o' &&
name[6] == 's' &&
name[7] == 'e')
{ /* dbmclose */
return -KEY_dbmclose;
}
goto unknown;
case 'e':
if (name[1] == 'n' &&
name[2] == 'd')
{
switch (name[3])
{
case 'g':
if (name[4] == 'r' &&
name[5] == 'e' &&
name[6] == 'n' &&
name[7] == 't')
{ /* endgrent */
return -KEY_endgrent;
}
goto unknown;
case 'p':
if (name[4] == 'w' &&
name[5] == 'e' &&
name[6] == 'n' &&
name[7] == 't')
{ /* endpwent */
return -KEY_endpwent;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 'f':
if (name[1] == 'o' &&
name[2] == 'r' &&
name[3] == 'm' &&
name[4] == 'l' &&
name[5] == 'i' &&
name[6] == 'n' &&
name[7] == 'e')
{ /* formline */
return -KEY_formline;
}
goto unknown;
case 'g':
if (name[1] == 'e' &&
name[2] == 't')
{
switch (name[3])
{
case 'g':
if (name[4] == 'r')
{
switch (name[5])
{
case 'e':
if (name[6] == 'n' &&
name[7] == 't')
{ /* getgrent */
return -KEY_getgrent;
}
goto unknown;
case 'g':
if (name[6] == 'i' &&
name[7] == 'd')
{ /* getgrgid */
return -KEY_getgrgid;
}
goto unknown;
case 'n':
if (name[6] == 'a' &&
name[7] == 'm')
{ /* getgrnam */
return -KEY_getgrnam;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 'l':
if (name[4] == 'o' &&
name[5] == 'g' &&
name[6] == 'i' &&
name[7] == 'n')
{ /* getlogin */
return -KEY_getlogin;
}
goto unknown;
case 'p':
if (name[4] == 'w')
{
switch (name[5])
{
case 'e':
if (name[6] == 'n' &&
name[7] == 't')
{ /* getpwent */
return -KEY_getpwent;
}
goto unknown;
case 'n':
if (name[6] == 'a' &&
name[7] == 'm')
{ /* getpwnam */
return -KEY_getpwnam;
}
goto unknown;
case 'u':
if (name[6] == 'i' &&
name[7] == 'd')
{ /* getpwuid */
return -KEY_getpwuid;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 'r':
if (name[1] == 'e' &&
name[2] == 'a' &&
name[3] == 'd')
{
switch (name[4])
{
case 'l':
if (name[5] == 'i' &&
name[6] == 'n')
{
switch (name[7])
{
case 'e':
{ /* readline */
return -KEY_readline;
}
case 'k':
{ /* readlink */
return -KEY_readlink;
}
default:
goto unknown;
}
}
goto unknown;
case 'p':
if (name[5] == 'i' &&
name[6] == 'p' &&
name[7] == 'e')
{ /* readpipe */
return -KEY_readpipe;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 's':
switch (name[1])
{
case 'e':
if (name[2] == 't')
{
switch (name[3])
{
case 'g':
if (name[4] == 'r' &&
name[5] == 'e' &&
name[6] == 'n' &&
name[7] == 't')
{ /* setgrent */
return -KEY_setgrent;
}
goto unknown;
case 'p':
if (name[4] == 'w' &&
name[5] == 'e' &&
name[6] == 'n' &&
name[7] == 't')
{ /* setpwent */
return -KEY_setpwent;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 'h':
switch (name[2])
{
case 'm':
if (name[3] == 'w' &&
name[4] == 'r' &&
name[5] == 'i' &&
name[6] == 't' &&
name[7] == 'e')
{ /* shmwrite */
return -KEY_shmwrite;
}
goto unknown;
case 'u':
if (name[3] == 't' &&
name[4] == 'd' &&
name[5] == 'o' &&
name[6] == 'w' &&
name[7] == 'n')
{ /* shutdown */
return -KEY_shutdown;
}
goto unknown;
default:
goto unknown;
}
case 'y':
if (name[2] == 's' &&
name[3] == 'w' &&
name[4] == 'r' &&
name[5] == 'i' &&
name[6] == 't' &&
name[7] == 'e')
{ /* syswrite */
return -KEY_syswrite;
}
goto unknown;
default:
goto unknown;
}
case 't':
if (name[1] == 'r' &&
name[2] == 'u' &&
name[3] == 'n' &&
name[4] == 'c' &&
name[5] == 'a' &&
name[6] == 't' &&
name[7] == 'e')
{ /* truncate */
return -KEY_truncate;
}
goto unknown;
default:
goto unknown;
}
case 9: /* 10 tokens of length 9 */
switch (name[0])
{
case 'U':
if (name[1] == 'N' &&
name[2] == 'I' &&
name[3] == 'T' &&
name[4] == 'C' &&
name[5] == 'H' &&
name[6] == 'E' &&
name[7] == 'C' &&
name[8] == 'K')
{ /* UNITCHECK */
return KEY_UNITCHECK;
}
goto unknown;
case 'e':
switch (name[1])
{
case 'n':
if (name[2] == 'd' &&
name[3] == 'n' &&
name[4] == 'e' &&
name[5] == 't' &&
name[6] == 'e' &&
name[7] == 'n' &&
name[8] == 't')
{ /* endnetent */
return -KEY_endnetent;
}
goto unknown;
case 'v':
if (name[2] == 'a' &&
name[3] == 'l' &&
name[4] == 'b' &&
name[5] == 'y' &&
name[6] == 't' &&
name[7] == 'e' &&
name[8] == 's')
{ /* evalbytes */
return (all_keywords || FEATURE_EVALBYTES_IS_ENABLED ? -KEY_evalbytes : 0);
}
goto unknown;
default:
goto unknown;
}
case 'g':
if (name[1] == 'e' &&
name[2] == 't' &&
name[3] == 'n' &&
name[4] == 'e' &&
name[5] == 't' &&
name[6] == 'e' &&
name[7] == 'n' &&
name[8] == 't')
{ /* getnetent */
return -KEY_getnetent;
}
goto unknown;
case 'l':
if (name[1] == 'o' &&
name[2] == 'c' &&
name[3] == 'a' &&
name[4] == 'l' &&
name[5] == 't' &&
name[6] == 'i' &&
name[7] == 'm' &&
name[8] == 'e')
{ /* localtime */
return -KEY_localtime;
}
goto unknown;
case 'p':
if (name[1] == 'r' &&
name[2] == 'o' &&
name[3] == 't' &&
name[4] == 'o' &&
name[5] == 't' &&
name[6] == 'y' &&
name[7] == 'p' &&
name[8] == 'e')
{ /* prototype */
return KEY_prototype;
}
goto unknown;
case 'q':
if (name[1] == 'u' &&
name[2] == 'o' &&
name[3] == 't' &&
name[4] == 'e' &&
name[5] == 'm' &&
name[6] == 'e' &&
name[7] == 't' &&
name[8] == 'a')
{ /* quotemeta */
return -KEY_quotemeta;
}
goto unknown;
case 'r':
if (name[1] == 'e' &&
name[2] == 'w' &&
name[3] == 'i' &&
name[4] == 'n' &&
name[5] == 'd' &&
name[6] == 'd' &&
name[7] == 'i' &&
name[8] == 'r')
{ /* rewinddir */
return -KEY_rewinddir;
}
goto unknown;
case 's':
if (name[1] == 'e' &&
name[2] == 't' &&
name[3] == 'n' &&
name[4] == 'e' &&
name[5] == 't' &&
name[6] == 'e' &&
name[7] == 'n' &&
name[8] == 't')
{ /* setnetent */
return -KEY_setnetent;
}
goto unknown;
case 'w':
if (name[1] == 'a' &&
name[2] == 'n' &&
name[3] == 't' &&
name[4] == 'a' &&
name[5] == 'r' &&
name[6] == 'r' &&
name[7] == 'a' &&
name[8] == 'y')
{ /* wantarray */
return -KEY_wantarray;
}
goto unknown;
default:
goto unknown;
}
case 10: /* 9 tokens of length 10 */
switch (name[0])
{
case 'e':
if (name[1] == 'n' &&
name[2] == 'd')
{
switch (name[3])
{
case 'h':
if (name[4] == 'o' &&
name[5] == 's' &&
name[6] == 't' &&
name[7] == 'e' &&
name[8] == 'n' &&
name[9] == 't')
{ /* endhostent */
return -KEY_endhostent;
}
goto unknown;
case 's':
if (name[4] == 'e' &&
name[5] == 'r' &&
name[6] == 'v' &&
name[7] == 'e' &&
name[8] == 'n' &&
name[9] == 't')
{ /* endservent */
return -KEY_endservent;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 'g':
if (name[1] == 'e' &&
name[2] == 't')
{
switch (name[3])
{
case 'h':
if (name[4] == 'o' &&
name[5] == 's' &&
name[6] == 't' &&
name[7] == 'e' &&
name[8] == 'n' &&
name[9] == 't')
{ /* gethostent */
return -KEY_gethostent;
}
goto unknown;
case 's':
switch (name[4])
{
case 'e':
if (name[5] == 'r' &&
name[6] == 'v' &&
name[7] == 'e' &&
name[8] == 'n' &&
name[9] == 't')
{ /* getservent */
return -KEY_getservent;
}
goto unknown;
case 'o':
if (name[5] == 'c' &&
name[6] == 'k' &&
name[7] == 'o' &&
name[8] == 'p' &&
name[9] == 't')
{ /* getsockopt */
return -KEY_getsockopt;
}
goto unknown;
default:
goto unknown;
}
default:
goto unknown;
}
}
goto unknown;
case 's':
switch (name[1])
{
case 'e':
if (name[2] == 't')
{
switch (name[3])
{
case 'h':
if (name[4] == 'o' &&
name[5] == 's' &&
name[6] == 't' &&
name[7] == 'e' &&
name[8] == 'n' &&
name[9] == 't')
{ /* sethostent */
return -KEY_sethostent;
}
goto unknown;
case 's':
switch (name[4])
{
case 'e':
if (name[5] == 'r' &&
name[6] == 'v' &&
name[7] == 'e' &&
name[8] == 'n' &&
name[9] == 't')
{ /* setservent */
return -KEY_setservent;
}
goto unknown;
case 'o':
if (name[5] == 'c' &&
name[6] == 'k' &&
name[7] == 'o' &&
name[8] == 'p' &&
name[9] == 't')
{ /* setsockopt */
return -KEY_setsockopt;
}
goto unknown;
default:
goto unknown;
}
default:
goto unknown;
}
}
goto unknown;
case 'o':
if (name[2] == 'c' &&
name[3] == 'k' &&
name[4] == 'e' &&
name[5] == 't' &&
name[6] == 'p' &&
name[7] == 'a' &&
name[8] == 'i' &&
name[9] == 'r')
{ /* socketpair */
return -KEY_socketpair;
}
goto unknown;
default:
goto unknown;
}
default:
goto unknown;
}
case 11: /* 8 tokens of length 11 */
switch (name[0])
{
case '_':
if (name[1] == '_' &&
name[2] == 'P' &&
name[3] == 'A' &&
name[4] == 'C' &&
name[5] == 'K' &&
name[6] == 'A' &&
name[7] == 'G' &&
name[8] == 'E' &&
name[9] == '_' &&
name[10] == '_')
{ /* __PACKAGE__ */
return -KEY___PACKAGE__;
}
goto unknown;
case 'e':
if (name[1] == 'n' &&
name[2] == 'd' &&
name[3] == 'p' &&
name[4] == 'r' &&
name[5] == 'o' &&
name[6] == 't' &&
name[7] == 'o' &&
name[8] == 'e' &&
name[9] == 'n' &&
name[10] == 't')
{ /* endprotoent */
return -KEY_endprotoent;
}
goto unknown;
case 'g':
if (name[1] == 'e' &&
name[2] == 't')
{
switch (name[3])
{
case 'p':
switch (name[4])
{
case 'e':
if (name[5] == 'e' &&
name[6] == 'r' &&
name[7] == 'n' &&
name[8] == 'a' &&
name[9] == 'm' &&
name[10] == 'e')
{ /* getpeername */
return -KEY_getpeername;
}
goto unknown;
case 'r':
switch (name[5])
{
case 'i':
if (name[6] == 'o' &&
name[7] == 'r' &&
name[8] == 'i' &&
name[9] == 't' &&
name[10] == 'y')
{ /* getpriority */
return -KEY_getpriority;
}
goto unknown;
case 'o':
if (name[6] == 't' &&
name[7] == 'o' &&
name[8] == 'e' &&
name[9] == 'n' &&
name[10] == 't')
{ /* getprotoent */
return -KEY_getprotoent;
}
goto unknown;
default:
goto unknown;
}
default:
goto unknown;
}
case 's':
if (name[4] == 'o' &&
name[5] == 'c' &&
name[6] == 'k' &&
name[7] == 'n' &&
name[8] == 'a' &&
name[9] == 'm' &&
name[10] == 'e')
{ /* getsockname */
return -KEY_getsockname;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 's':
if (name[1] == 'e' &&
name[2] == 't' &&
name[3] == 'p' &&
name[4] == 'r')
{
switch (name[5])
{
case 'i':
if (name[6] == 'o' &&
name[7] == 'r' &&
name[8] == 'i' &&
name[9] == 't' &&
name[10] == 'y')
{ /* setpriority */
return -KEY_setpriority;
}
goto unknown;
case 'o':
if (name[6] == 't' &&
name[7] == 'o' &&
name[8] == 'e' &&
name[9] == 'n' &&
name[10] == 't')
{ /* setprotoent */
return -KEY_setprotoent;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
default:
goto unknown;
}
case 12: /* 2 tokens of length 12 */
if (name[0] == 'g' &&
name[1] == 'e' &&
name[2] == 't' &&
name[3] == 'n' &&
name[4] == 'e' &&
name[5] == 't' &&
name[6] == 'b' &&
name[7] == 'y')
{
switch (name[8])
{
case 'a':
if (name[9] == 'd' &&
name[10] == 'd' &&
name[11] == 'r')
{ /* getnetbyaddr */
return -KEY_getnetbyaddr;
}
goto unknown;
case 'n':
if (name[9] == 'a' &&
name[10] == 'm' &&
name[11] == 'e')
{ /* getnetbyname */
return -KEY_getnetbyname;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 13: /* 4 tokens of length 13 */
if (name[0] == 'g' &&
name[1] == 'e' &&
name[2] == 't')
{
switch (name[3])
{
case 'h':
if (name[4] == 'o' &&
name[5] == 's' &&
name[6] == 't' &&
name[7] == 'b' &&
name[8] == 'y')
{
switch (name[9])
{
case 'a':
if (name[10] == 'd' &&
name[11] == 'd' &&
name[12] == 'r')
{ /* gethostbyaddr */
return -KEY_gethostbyaddr;
}
goto unknown;
case 'n':
if (name[10] == 'a' &&
name[11] == 'm' &&
name[12] == 'e')
{ /* gethostbyname */
return -KEY_gethostbyname;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 's':
if (name[4] == 'e' &&
name[5] == 'r' &&
name[6] == 'v' &&
name[7] == 'b' &&
name[8] == 'y')
{
switch (name[9])
{
case 'n':
if (name[10] == 'a' &&
name[11] == 'm' &&
name[12] == 'e')
{ /* getservbyname */
return -KEY_getservbyname;
}
goto unknown;
case 'p':
if (name[10] == 'o' &&
name[11] == 'r' &&
name[12] == 't')
{ /* getservbyport */
return -KEY_getservbyport;
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
default:
goto unknown;
}
}
goto unknown;
case 14: /* 1 tokens of length 14 */
if (name[0] == 'g' &&
name[1] == 'e' &&
name[2] == 't' &&
name[3] == 'p' &&
name[4] == 'r' &&
name[5] == 'o' &&
name[6] == 't' &&
name[7] == 'o' &&
name[8] == 'b' &&
name[9] == 'y' &&
name[10] == 'n' &&
name[11] == 'a' &&
name[12] == 'm' &&
name[13] == 'e')
{ /* getprotobyname */
return -KEY_getprotobyname;
}
goto unknown;
case 16: /* 1 tokens of length 16 */
if (name[0] == 'g' &&
name[1] == 'e' &&
name[2] == 't' &&
name[3] == 'p' &&
name[4] == 'r' &&
name[5] == 'o' &&
name[6] == 't' &&
name[7] == 'o' &&
name[8] == 'b' &&
name[9] == 'y' &&
name[10] == 'n' &&
name[11] == 'u' &&
name[12] == 'm' &&
name[13] == 'b' &&
name[14] == 'e' &&
name[15] == 'r')
{ /* getprotobynumber */
return -KEY_getprotobynumber;
}
goto unknown;
default:
goto unknown;
}
unknown:
return 0;
}
/* Generated from:
* b680fb3a27b173b65d9c4e534ad92897c925e336476879a6be1da18ac55cbe8b regen/keywords.pl
* ex: set ro: */
Loading...
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化
1
https://gitee.com/astesiaL/perl.git
git@gitee.com:astesiaL/perl.git
astesiaL
perl
perl
upstream

搜索帮助