B bh@sdZddlZddlmZmZmZmZmZmZm Z m Z ddl m Z m Z ddlmZmZmZmZmZmZmZmZmZddlmZddlmZdgZGd ddeZdS) z pygments.lexers.pascal ~~~~~~~~~~~~~~~~~~~~~~ Lexers for Pascal family languages. :copyright: Copyright 2006-2022 by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. N)Lexer RegexLexerincludebygroupswordsusingthisdefault) get_bool_opt get_list_opt) TextCommentOperatorKeywordNameStringNumber PunctuationError)Scanner) Modula2Lexer DelphiLexerc@seZdZdZdZddddgZddgZd gZd Zd Z d Z d ddddddddddddddddddd d!d"hZ d#d$d%d&d'd(dd)d*d+d,d-d.d/d0d1d2d3d4hZ d5d6d4d7d8d9d:d;dd?d@dAhZ dBdCdDdEdFdGdHdIdJdKdLdMdNdOdPdQdRdSdTdUdVdWdXdYdZd[d\d]d^d_d`dadbdcdddedfdgdhdidjdkdldmdndodpdqdrdsdtdudvdwdxdydzd{d|d}d~ddddddddddhGZdddddZdddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddhCZddddddddddddddddddddddddddddddddddddddddddddddddddddddddd d d d d ddddddddddddddddddd d!d"d#d$d%d&d'd(d)d*d+d,d-d.d/d0d1d2d2d3d4d5d6d7d8d9d:d;d<d=d>d?d@dAdBdCdDdEdFdGdHdIdJdKdLdMdNdOdPdQdRdSdTdUdVdWdXdYdZd[d\d]d^d_d`dadbdcdddedfdgdhdidjdkdldmdndodpdqdrdsdtdudvdwdxdydzd{d|d}d~dddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddÐdĐdŐdƐdǐdȐdɐdʐdːd̐d͐dΐdϐdАdѐdҐdӐdԐdՐd֐dאdؐdِdڐdېdܐdݐdސdߐdddddddddddddhZddZddZdS(raF For Delphi (Borland Object Pascal), Turbo Pascal and Free Pascal source code. Additional options accepted: `turbopascal` Highlight Turbo Pascal specific keywords (default: ``True``). `delphi` Highlight Borland Delphi specific keywords (default: ``True``). `freepascal` Highlight Free Pascal specific keywords (default: ``True``). `units` A list of units that should be considered builtin, supported are ``System``, ``SysUtils``, ``Classes`` and ``Math``. Default is to consider all of them builtin. ZDelphidelphiZpasZpascalZ objectpascalz*.pasz*.dprz text/x-pascal)8absoluteandZarrayasmbeginbreakZcaseconst constructorcontinue destructordivZdoZdowntoelseendfileforfunctiongotoifimplementationinZ inheritedinlineZ interfacelabelmodZnilnotobjectZofonoperatororZpacked procedureprogramrecordZ reintroducerepeatselfsetshlshrstringZthentotypeunitZuntilusesvarwhilewithxor)asclassexceptZexports finalizationfinallyinitializationislibraryr1propertyraise threadvartry)disposeexitZfalsenewtruerrFrrr!r$rHr'r*rJr-rLr2r4r5rMr6rOr>r?r@rAaliasZcdeclZexportr,Z interruptZ nostackframeregisterZsafecallZ softfloatZstdcallZvarargsnameZdynamicZnearZvirtualZexternaloverrideZ assemblerrZabstractZcppdeclr ZfarZfar16ZforwardindexZ oldfpccallZprivateZ protectedZ publishedZpublicZansicharZ ansistringboolZbooleanZbyteZbyteboolZcardinalcharcompcurrencyZdoubleZdwordZextendedZint64ZintegerZiunknownZlongboolZlongintZlongwordZ pansicharZ pansistringZpboolZpbooleanZpbyteZ pbytearrayZ pcardinalZpcharZpcompZ pcurrencyZpdateZ pdatetimeZpdoubleZpdwordZ pextendedZphandleZpint64ZpintegerZplongintZ plongwordZpointerZppointerZ pshortintZ pshortstringZpsingleZ psmallintZpstringZpvariantZ pwidecharZ pwidestringZpwordZ pwordarrayZ pwordboolrealZreal48ZshortintZ shortstringZsingleZsmallintr<ZtclassZtdateZ tdatetimeZtextfileZthandleZtobjectZttimeZvariantZwidecharZ widestringZwordZwordbool)absZacquireexceptionobjectZaddrZ ansitoutf8appendZarctanassertassignedZ assignfileZ beginthreadZ blockreadZ blockwriterchdirchrcloseZ closefileZcomptocurrencyZ comptodoubleconcatr copyZcosdecdeleterQZ doubletocompZ endthreadZ enummodulesZenumresourcemoduleseofZeolnZeraseZ exceptaddrZ exceptobjectZexcluderRZexpZfileposZfilesizeZfillcharfinalizeZfindclasshinstanceZ findhinstanceZfindresourcehinstanceflushZfracZfreememZ get8087cwZgetdirZ getlasterrorZgetmemZgetmemorymanagerZgetmodulefilenameZgetvariantmanagerZhalthiZhighincrZ initializeinsertintZioresultZismemorymanagersetZisvariantmanagersetlengthZlnloZlowmkdirZmoverSZoddZolestrtostringZolestrtostrvarordZ paramcountZparamstrZpiposZpredZptrZ pucs4charsZrandomZ randomizereadZreadlnZ reallocmemZreleaseexceptionobjectrenameresetZrewritermdirroundZrunerrorseekZseekeofZseekeolnZ set8087cwZ setlengthZsetlinebreakstyleZsetmemorymanagerZ setstringZ settextbufZsetvariantmanagerZsinZsizeofsliceZsqrZsqrtstrZ stringofcharZstringtoolestrZstringtowidecharZsuccZswapZtrunctruncateZtypeinfoZucs4stringtowidestringZ unicodetoutf8Z uniquestringZupcaseZ utf8decodeZ utf8encodeZ utf8toansiZ utf8tounicodevalZ vararrayredimZvarclearZwidecharlentostringZwidecharlentostrvarZwidechartostringZwidechartostrvarZwidestringtoucs4stringwriteZwriteln)abortZ addexitprocZaddterminateprocZadjustlinebreaksZallocmemZansicomparefilenameZansicomparestrZansicomparetextZansidequotedstrZansiextractquotedstrZ ansilastcharZ ansilowercaseZansilowercasefilenameZansiposZ ansiquotedstrZ ansisamestrZ ansisametextZ ansistrcompZ ansistricompZansistrlastcharZ ansistrlcompZ ansistrlicompZ ansistrlowerZ ansistrposZ ansistrrscanZ ansistrscanZ ansistrupperZ ansiuppercaseZansiuppercasefilenameZ appendstrZ assignstrZbeepZ booltostrZbytetocharindexZ bytetocharlenZbytetypeZcallterminateprocsZ changefileextZ charlengthZchartobyteindexZ chartobytelenZ comparememZ comparestrZ comparetextZ createdirZ createguidZ currentyearZ currtostrZ currtostrfZdateZdatetimetofiledateZ datetimetostrZdatetimetostringZdatetimetosystemtimeZdatetimetotimestampZ datetostrZ dayofweekZ decodedateZdecodedatefullyZ decodetimeZ deletefileZdirectoryexistsZdiskfreeZdisksizeZ disposestrZ encodedateZ encodetimeZexceptionerrormessageZexcludetrailingbackslashZexcludetrailingpathdelimiterZexpandfilenameZexpandfilenamecaseZexpanduncfilenameZextractfiledirZextractfiledriveZextractfileextZextractfilenameZextractfilepathZextractrelativepathZextractshortpathnameZfileageZ filecloseZ filecreateZfiledatetodatetimeZ fileexistsZ filegetattrZ filegetdateZfileisreadonlyZfileopenZfilereadZ filesearchZfileseekZ filesetattrZ filesetdateZfilesetreadonlyZ filewriteZfinalizepackageZ findcloseZfindcmdlineswitchZ findfirstZfindnextZ floattocurrZfloattodatetimeZfloattodecimalZ floattostrZ floattostrfZ floattotextZfloattotextfmtZ fmtloadstrZfmtstrZforcedirectoriesformatZ formatbufZ formatcurrZformatdatetimeZ formatfloatZ freeandnilZ getcurrentdirZgetenvironmentvariableZgetfileversionZgetformatsettingsZgetlocaleformatsettings getmodulenameZgetpackagedescriptionZgetpackageinfoZgettimeZ guidtostringZ incamonthZincludetrailingbackslashZincludetrailingpathdelimiterZincmonthZinitializepackageZinterlockeddecrementZinterlockedexchangeZinterlockedexchangeaddZinterlockedincrementZinttohexZinttostrZ isdelimiterZ isequalguidZ isleapyearZispathdelimiterZ isvalidident languagesZ lastdelimiterZ loadpackageZloadstrZ lowercaseZmsecstotimestampZnewstrZ nextcharindexZnowZoutofmemoryerrorZ quotedstrZraiselastoserrorZraiselastwin32errorZ removedirZ renamefileZ replacedateZ replacetimeZsafeloadlibraryZ samefilenameZsametextZ setcurrentdirZ showexceptionZsleepZstrallocZ strbufsizeZ strbytetypeZstrcatZ strcharlengthZstrcompZstrcopyZ strdisposeZstrecopyZstrendZstrfmtZstricompZ stringreplaceZ stringtoguidZstrlcatZstrlcompZstrlcopyZstrlenZstrlfmtZ strlicompZstrlowerZstrmoveZstrnewZ strnextcharZstrpasZstrpcopyZ strplcopyZstrposZstrrscanZstrscanZ strtoboolZ strtobooldefZ strtocurrZ strtocurrdefZ strtodateZ strtodatedefZ strtodatetimeZstrtodatetimedefZ strtofloatZ strtofloatdefZstrtointZ strtoint64Z strtoint64defZ strtointdefZ strtotimeZ strtotimedefZstrupperZsupportsZsyserrormessageZsystemtimetodatetimeZ texttofloatZtimeZtimestamptodatetimeZtimestamptomsecsZ timetostrZtrimZtrimleftZ trimrightZ tryencodedateZ tryencodetimeZtryfloattocurrZtryfloattodatetimeZ trystrtoboolZ trystrtocurrZ trystrtodateZtrystrtodatetimeZ trystrtofloatZ trystrtointZ trystrtoint64Z trystrtotimeZ unloadpackageZ uppercaseZwidecomparestrZwidecomparetextZ widefmtstrZ wideformatZ wideformatbufZ widelowercaseZ widesamestrZ widesametextZ wideuppercaseZ win32checkZwraptext),ZactivateclassgroupZ allocatehwndZbintohexZchecksynchronizeZcollectionsequalZcountgenerationsZdeallocatehwndZ equalrectZextractstringsZ findclassZfindglobalcomponentZgetclassZgroupdescendantswithZhextobinZ identtointZinitinheritedcomponentZ inttoidentZ invalidpointZisuniqueglobalcomponentnameZ linestartZobjectbinarytotextZobjectresourcetotextZobjecttexttobinaryZobjecttexttoresourceZ pointsequalZreadcomponentresZreadcomponentresexZreadcomponentresfileZrectZ registerclassZregisterclassaliasZregisterclassesZregistercomponentsZregisterintegerconstsZregisternoiconZregisternonactivexZ smallpointZstartclassgroupZteststreamformatZunregisterclassZunregisterclassesZunregisterintegerconstsZunregistermoduleclassesZwritecomponentresfile)dZarccosZarccoshZarccotZarccothZarccscZarccschZarcsecZarcsechZarcsinZarcsinhZarctan2ZarctanhZceilZ comparevalueZcosecantZcoshZcotZcotanZcothZcscZcschZ cycletodegZ cycletogradZ cycletoradZ degtocycleZ degtogradZdegtoraddivmodZdoubledecliningbalanceZ ensurerangeZfloorZfrexpZ futurevalueZgetexceptionmaskZgetprecisionmodeZ getroundmodeZ gradtocycleZ gradtodegZ gradtoradZhypotZinrangeZinterestpaymentZ interestrateZinternalrateofreturnZintpowerZ isinfiniteZisnanZiszeroZldexpZlnxp1Zlog10Zlog2ZlognmaxZ maxintvalueZmaxvalueZmeanZ meanandstddevminZ minintvalueZminvalueZmomentskewkurtosisZnetpresentvalueZnormZnumberofperiodsZpaymentZ periodpaymentZpolyZ popnstddevZ popnvarianceZpowerZ presentvalueZ radtocycleZradtodegZ radtogradZrandgZ randomrangeZroundtoZ samevalueZsecZsecantZsechZsetexceptionmaskZsetprecisionmodeZ setroundmodesignZ simpleroundtoZsincosZsinhZslndepreciationZstddevsumZsumintZ sumofsquaresZsumsandsquaresZsyddepreciationZtanZtanhZ totalvarianceZvariance)ZSystemZSysUtilsZClassesZMathZahZalZaxZbhZblZbpZbxZchZclZcr0Zcr1Zcr2Zcr3Zcr4csZcxZdhZdiZdlZdr0Zdr1Zdr2Zdr3Zdr4Zdr5Zdr6Zdr7ZdsZdxZeaxZebpZebxZecxZediZedxesZesiZespZfsZgsZmm0Zmm1Zmm2Zmm3Zmm4Zmm5Zmm6Zmm7sispssZst0Zst1Zst2Zst3Zst4Zst5Zst6Zst7Zxmm0Zxmm1Zxmm2Zxmm3Zxmm4Zxmm5Zxmm6Zxmm7ZaaaZaadZaamZaasZadcaddrZarplZboundZbsfZbsrZbswapZbtZbtcZbtrZbtsZcallZcbwZcdqZclcZcldZcliZcltsZcmcZcmovaZcmovaeZcmovbZcmovbeZcmovcZcmovcxzZcmoveZcmovgZcmovgeZcmovlZcmovleZcmovnaZcmovnaeZcmovnbZcmovnbeZcmovncZcmovneZcmovngZcmovngeZcmovnlZcmovnleZcmovnoZcmovnpZcmovnsZcmovnzZcmovoZcmovpZcmovpeZcmovpoZcmovsZcmovzZcmpZcmpsbZcmpsdZcmpswZcmpxchgZ cmpxchg486Z cmpxchg8bZcpuidcwdZcwdeZdaaZdasrhr"ZemmsZenterZhltZibtsZicebpZidivimulr+rnZinsbZinsdZinswrpZint01Zint03Zint1Zint3ZintoZinvdZinvlpgZiretZiretdZiretwjaZjaeZjbZjbeZjcZjcxzZjeZjecxzZjgZjgeZjlZjleZjmpZjnaZjnaeZjnbZjnbeZjncZjneZjngZjngeZjnlZjnleZjnoZjnpZjnsZjnzZjoZjpZjpeZjpoZjsZjzZlahfZlarZlcallZldsZleaZleaveZlesZlfsZlgdtZlgsZlidtZljmpZlldtZlmswZloadallZ loadall286lockZlodsbZlodsdZlodswZloopZloopeZloopneZloopnzZloopzZlslZlssZltrZmovZmovdZmovqZmovsbZmovsdZmovswZmovsxZmovzxmulnegZnopr/r3outZoutsbZoutsdZoutswpopZpopaZpopadZpopawZpopfZpopfdZpopfwpushZpushaZpushadZpushawZpushfZpushfdZpushfwZrclZrcrZrdmsrZrdpmcZrdshrZrdtscZrepZrepeZrepneZrepnzZrepzretZretfZretnZrolZrorZrsdcZrsldtZrsmZsahfZsalZsalcZsarZsbbZscasbZscasdZscaswZsetaZsetaeZsetbZsetbeZsetcZsetcxzZseteZsetgZsetgeZsetlZsetleZsetnaZsetnaeZsetnbZsetnbeZsetncZsetneZsetngZsetngeZsetnlZsetnleZsetnoZsetnpZsetnsZsetnzZsetoZsetpZsetpeZsetpoZsetsZsetzZsgdtr:Zshldr;ZshrdZsidtZsldtZsmiZsmintZsmintoldZsmswZstcZstdZstiZstosbZstosdZstoswr}subZsvdcZsvldtZsvtsZsyscallZsysenterZsysexitZsysrettestZud1Zud2ZumovZverrZverwwaitZwbinvdZwrmsrZwrshrZxaddZxbtsZxchgZxlatZxlatbrDcKstj|f|t|_t|ddr0|j|jt|ddrJ|j|jt|ddrd|j|jt|_ x,t |dt |j D]}|j |j |qWdS)NZ turbopascalTrZ freepascalZunits) r__init__r9keywordsr updateTURBO_PASCAL_KEYWORDSDELPHI_KEYWORDSFREE_PASCAL_KEYWORDSbuiltinsr list BUILTIN_UNITS)r8optionsr?r5lib/python3.7/site-packages/pygments/lexers/pascal.pyr,s   zDelphiLexer.__init__ccst|tjtjBtjB}dg}d}d}d}d}d}d} t} ddg} x\|jst} |ddkr|drtt } qt|dr|j drt j } nt j} qt|drt j} qt|d rt} | r|j d krd} qt|d rlt} d}|s|r|j d kr| dd 7<nX|j dkr.| dd 8<n:|j dkrL| d d 7<n|j dkr| d d 8<qt|dr&|j } | dkrtjj} q| |jkr@t} |s|r| |jkr| ddkr| d dkrd}d}ddg} t} | dkrd} n<| dkr|dn&| dkr,d}d}n| dkr$d}d}n|rZ| |jkrZtj} n|rv| dkrvtj} d}n|r|drtj} n tj} d}n|rtj} d}nv| rtj} | |j nX| | krtj} nF| |j!krtj"} n2| |j#krtj} n|s | |j$kr tj} nt} n|drBt%} |dnn|drVt%j&} nZ|drjt'j(} nF|dr~t'j)} n2|drt'j*} nt+|d kr|,|-n|ddkr|d rt%j.} n<|drt%} |,n"|d!rt%} n|-|,n^|ddkrt|dr8t } n<|d"rTt} |,n |dr~|j drvt j } nt j} n|drt j} n|drt%} |dn|d#rtj} n|dr|j } | |j/krt} n| |j0krtj} nt} np|d$rt} n^|d r(t} nL|dr:;,.@\^];z [\(\)\[\]]+()[]z[A-Za-z_][A-Za-z_0-9]*result)r-r(TrrM)r4r2r'rr!)rvrz\s*\.\s*'r<z\#(\d+|\$[0-9A-Fa-f]+)z\$[0-9A-Fa-f]+z\d+(?![eE]|\.[^.])z&\d+(\.\d+([eE][+-]?\d+)?|[eE][+-]?\d+)z''z[^']*r$z@@[A-Za-z_][A-Za-z_0-9]*z[-+*\/=<>:;,.@\^]+.)3rreDOTALL MULTILINE IGNORECASEr9Zeosrscanr match startswithr ZPreprocZ MultilineSinglerrlowerrZBuiltinZPseudorrBLOCK_KEYWORDSr`FUNCTION_MODIFIERSrZClassZFunctionZPropertyZLabelr BUILTIN_TYPESZType DIRECTIVESrrZCharrZHexZIntegerZFloatlenrZget_charZEscapeASM_INSTRUCTIONS ASM_REGISTERSstripZ start_pos)r8textscannerstackZin_function_blockZin_property_blockZwas_dotZnext_token_is_functionZnext_token_is_propertyZcollect_labelsZ block_labelsZ brace_balancetokenZlowercase_namerrrget_tokens_unprocessed9s.                                                               z"DelphiLexer.get_tokens_unprocessedN)__name__ __module__ __qualname____doc__rWaliases filenamesZ mimetypesrrrrrrrrrrrrrrrrrs                      !C   $   $$$$  $         )rrZpygments.lexerrrrrrrrr Z pygments.utilr r Zpygments.tokenr r rrrrrrrZpygments.scannerrZpygments.lexers.modula2r__all__rrrrr s(,