a
;@b` @ s d Z ddlZddlmZmZmZmZmZmZm Z m
Z
ddl m Z m
Z
ddlmZmZmZmZmZmZmZmZmZ ddlmZ ddlmZ dd gZ G d
d deZ G d d d eZ dS ) z
pygments.lexers.pascal
~~~~~~~~~~~~~~~~~~~~~~
Lexers for Pascal family languages.
:copyright: Copyright 2006-2021 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 DelphiLexerAdaLexerc @ s e Zd ZdZdZg dZddgZdgZdZdZ d Z
h d
Z h d Z h d Z
h d
ZdddddZh dZh dZdd Zdd ZdS )r aj
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.
ZDelphi)delphiZpaspascalZ objectpascalz*.pasz*.dprz
text/x-pascal)8absoluteandarrayasmbeginbreakcaseconst constructorcontinue
destructordivdoZdowntoelseendfileforfunctiongotoifimplementationinZ inheritedinline interfacelabelmodZnilnotobjectofonoperatororZpacked procedureprogramrecordZ reintroducerepeatselfsetshlshrstringthentotypeunituntilusesvarwhilewithxor)asclassexceptZexports finalizationfinallyinitializationislibraryr8 propertyraise threadvartry)disposeexitZfalsenewtrue> r) r3 rS r# r, r" rX rF rQ rI rG r r; rO r= r9 rJ r< rV r/ rU r% > registerZcdeclZdynamicnameZvirtualZ interruptZexportZnearZstdcallr ZexternalZsafecallaliasZvarargsZ softfloatoverride assemblerZ nostackframer1 > ZpublicZfar16indexZcppdeclZprivateabstractZfarZ
oldfpccallrb r r protectedZ publishedZforward>G ZvariantZpbooleanZsmallintZ pcurrencyboolZ pcardinalZwordZbyteZcardinalZ pshortintZtdateZtextfileZttimeZpwordZlongwordZextendedZiunknownZplongintcompZlongboolZint64ZdwordZtclassZpboolZpcharcurrencyZpintegerZlongintrealZwordboolZ
pbytearrayZpbyteZphandleZ shortstringZ
widestringZwidecharZpdateZpcompZpvariantZpint64ZpsingleZpdoubleZbooleanZ plongwordZthandleZreal48Z pshortstringZ pdatetimeZbyteboolZ pwidestringZtobjectZ pansistringZ psmallintZ pwidecharZansicharZpointerZpstringZ pextendedZppointerZintegerZ pansicharZpdwordZsinglerC Z
ansistringZ pwordboolZshortintcharZ
pwordarrayZdoubleZ tdatetime)absZacquireexceptionobjectZaddrZ
ansitoutf8appendZarctanassertassignedZ
assignfileZ beginthreadZ blockreadZ
blockwriter chdirchrcloseZ closefileZcomptocurrencyZ comptodoubleconcatr$ copyZcosdecdeleterZ Z doubletocompZ endthreadZ enummodulesZenumresourcemoduleseofZeolnZeraseZ
exceptaddrZ exceptobjectZexcluder[ ZexpZfileposZfilesizeZfillcharfinalizeZfindclasshinstanceZ
findhinstanceZfindresourcehinstanceflushZfracZfreememZ get8087cwZgetdirZ getlasterrorZgetmemZgetmemorymanagerZgetmodulefilenameZgetvariantmanagerZhalthiZhighincr Z
initializeinsertintZioresultZismemorymanagersetZisvariantmanagersetlengthZlnloZlowmkdirmover\ ZoddZolestrtostringZolestrtostrvarordZ
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
currtostrfdateZdatetimetofiledateZ
datetimetostrZdatetimetostringZdatetimetosystemtimeZdatetimetotimestampZ datetostrZ dayofweekZ
decodedateZdecodedatefullyZ
decodetimeZ
deletefileZdirectoryexistsZdiskfreeZdisksizeZ
disposestrZ
encodedateZ
encodetimeZexceptionerrormessageZexcludetrailingbackslashZ excludetrailingpathdelimiterZexpandfilenameZexpandfilenamecaseZexpanduncfilenameZextractfiledirZextractfiledriveZextractfileextZextractfilenameZextractfilepathZextractrelativepathZextractshortpathnameZfileageZ filecloseZ
filecreateZfiledatetodatetimeZ
fileexistsZ filegetattrZ filegetdateZfileisreadonlyZfileopenZfilereadZ
filesearchZfileseekZ filesetattrZ filesetdateZfilesetreadonlyZ filewriteZfinalizepackageZ findcloseZfindcmdlineswitchZ findfirstZfindnextZ floattocurrZfloattodatetimeZfloattodecimalZ
floattostrZ floattostrfZ floattotextZfloattotextfmtZ
fmtloadstrZfmtstrZforcedirectoriesformatZ formatbufZ
formatcurrZformatdatetimeZ formatfloatZ
freeandnilZ
getcurrentdirZgetenvironmentvariableZgetfileversionZgetformatsettingsZgetlocaleformatsettings
getmodulenameZgetpackagedescriptionZgetpackageinfoZgettimeZ guidtostringZ incamonthZincludetrailingbackslashZ includetrailingpathdelimiterZincmonthZinitializepackageZinterlockeddecrementZinterlockedexchangeZinterlockedexchangeaddZinterlockedincrementZinttohexZinttostrZ isdelimiterZ isequalguidZ
isleapyearZispathdelimiterZ isvalidident languagesZ
lastdelimiterZ loadpackageZloadstrZ lowercaseZmsecstotimestampZnewstrZ
nextcharindexZnowZoutofmemoryerrorZ quotedstrZraiselastoserrorZraiselastwin32errorZ removedirZ
renamefileZ replacedateZ replacetimeZsafeloadlibraryZ samefilenameZsametextZ
setcurrentdirZ
showexceptionsleepZstrallocZ
strbufsizeZ strbytetypeZstrcatZ
strcharlengthZstrcompZstrcopyZ
strdisposeZstrecopyZstrendZstrfmtZstricompZ
stringreplaceZ stringtoguidZstrlcatZstrlcompZstrlcopyZstrlenZstrlfmtZ strlicompZstrlowerZstrmoveZstrnewZ strnextcharZstrpasZstrpcopyZ strplcopyZstrposZstrrscanZstrscanZ strtoboolZ strtobooldefZ strtocurrZ strtocurrdefZ strtodateZ strtodatedefZ
strtodatetimeZstrtodatetimedefZ
strtofloatZ
strtofloatdefZstrtointZ
strtoint64Z
strtoint64defZ strtointdefZ strtotimeZ strtotimedefZstrupperZsupportsZsyserrormessageZsystemtimetodatetimeZ texttofloattimeZtimestamptodatetimeZtimestamptomsecsZ 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)ZSystemZSysUtilsZClassesZMath>C ZesiZeaxZcr4Zst6ZebpZdr1ZecxZdr7Zdr6ZdlZmm7Zmm5Zst7ZalZmm6ZediZxmm0Zcr1Zcr2ZblZbpZst2Zmm0Zst0Zmm2Zst5ZgsZst4ZclZchZxmm3Zxmm5Zcr3ZebxZdhZdxZedxessiZst3Zxmm4ssZdr5csZdr2Zmm3Zdr0Zdr4Zmm4ZbhbxZxmm1Zxmm6Zmm1Zcr0ZahspZxmm7ZfsZdiZespaxZcxZst1ZdsZdr3Zxmm2> Z cmpxchg8bZcpuidZmovsxZmovzxmulZcmpxchgZrepzZcbwZbtclockZrclr& ZjmpZsetnaZrdtscZdasZud1ZjcZcmcZscaswZsmintZbsfZcmoveZxchgZjnaeZcmovpZsetgr ZcmovcxzZcmovnlZcmovnpZ
cmpxchg486ZpopfwZbtZsetngeZpushaZpushawZcmovngeZjgZbtsZwrshrZcmovnaeZbsrZloopeZjnpZcmovoZcmpsdZseteZcmovnbZjnlZsetncZsldtZcmovlZsarZintoZjecxzZxlatZwbinvdZsetoZlgsZoutsdZsvldtZiretZcldZadccwdZinsdZrolZcmovnaZcmovbeZjnznegZjnbZjcxzZinvlpgZloadallr0 Zcwdert outZlgdtZsysenterZjngerB ZjnbeZloopnzZjaeZemmsZ
loadall286ZcliZint01ZpopadZpushadwaitZaadZcmovleZstcZsysretZshldjaZmovZhltr ZicebpZaaaZloopzZcmovpoZpopaZcmovnbeZjlZjnsZmovswZaamZsahfr5 ZsetbeZmovqZint1ZcmovbZmovsdZlodswZcmovneZsmswZstiZarplZlarZsetpoZpopfZrepnzcallZud2ZlahfZidivZrorZsetnoimulZxaddZjncZcmovaZjbeZrdmsrpopZsetleZscasbZbtrZjleZsyscallZinsbZsysexitZstdZwrmsrZjnleZumovZibtsZstosbZcmovnleZsalZsetnpZsgdtZlcallZinvdZsetaZrdpmcZjzZoutswZinswZjploopZsetnsZsetcxzZsetpeZrsdcZcmovnzZaasZcmovaeZcmovzZxbtsZsmintoldZcmovnoZpopfdZleaveZpopawZcmpswZmovdZcmovsZjneZldsZcmovgeZsidtZcmovngZmovsbZjngZsetsr: ZleaZsalcZloopneZverrZdaar| ZsetgeZsetaeZoutsbcmpZrsmZsvdcZint3ZsetnaeZjeZcdqZcmovgZcmovpeZjpoZcmovnsZint03ZrepeZretnZrsldtZpushfwZretfZlidtZstoswZrdshrZpushfdZcmpsbZenterZshrdZverwZsetbZcltsZlesZjnaZcmovcZlssZsetnzZsetlZsetnbeZsetpsubZlodsbtestZlodsdZpushfZsetzZsetnlZsvtspushZiretwZstosdZsetnbZcmovncZlslZscasdretZlfsZrepZsmirz ZjgeZltrZsbbZlldtZxlatbZrcrrM addZjsZsetcZiretdZclcZbswapboundZsetnleZsetngZjoZnopZrepneZjpeZjbrA ZsetneZljmpZlmswZjnoc K s t j| fi | t | _t|ddr4| j| j t|ddrN| j| j t|ddrh| j| j t | _ t
|dt | j D ]}| j | j | qd S )NZ turbopascalTr Z
freepascalZunits)
r __init__r@ keywordsr
updateTURBO_PASCAL_KEYWORDSDELPHI_KEYWORDSFREE_PASCAL_KEYWORDSbuiltinsr list
BUILTIN_UNITS)r? optionsrG r 5lib/python3.9/site-packages/pygments/lexers/pascal.pyr , s zDelphiLexer.__init__c c s t |tjtjB tjB }dg}d}d}d}d}d}d} t }
ddg} |jst} |d dkr|drpt } qp|dr|j
drt j
} nt j} qp|drt j} qp|d rt} | r|j
d
krd} qp|d rht} d}|s|r|j
d kr | d d
7 < nX|j
dkr*| d d
8 < n:|j
dkrH| d
d
7 < n |j
dkr| d
d
8 < qp|dr"|j
}
|
dkrtjj} q|
| jv rt%} |d nn|d rRt%j&} nZ|d rft'j(} nF|d rzt'j)} n2|d rt'j*} n t+|d
kr|, |- n|d dkr|d rt%j.} n<|drt%} |, n"|d!rt%} n|- |, n^|d dkrp|dr4t } n<|d"rPt} |, n |drz|j
drrt j
} nt j} n|drt j} n|drt%} |d n|d#rtj } n|dr |j
}
|
| j/v rt} n|
| j0v rtj} nt} np|d$rt} n^|d r$t} nL|d r8t'j(} n8|d rLt'j)} n$|d r`t'j*} n|- |, |j
1 r|j
d%k}|j2| |j
pd&fV qDd S )'NinitialFr \s+z\{.*?\}|\(\*.*?\*\)$z//.*?$z[-+*\/=<>:;,.@\^];z [\(\)\[\]]+( )[]z[A-Za-z_][A-Za-z_0-9]*result)r3 r- Tr rV )r; r9 r, r# r% )r r z\s*\.\s*'rC 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[-+*\/=<>:;,.@\^]+. )3r reDOTALL MULTILINE
IGNORECASEr@ Zeosr scanr match
startswithr
PreprocZ MultilineSingler r lowerr ZBuiltinZPseudor r BLOCK_KEYWORDSrl FUNCTION_MODIFIERSr ClassFunctionZPropertyLabelr
BUILTIN_TYPESType
DIRECTIVESr r ZCharr HexIntegerFloatlenr Zget_charZEscapeASM_INSTRUCTIONS
ASM_REGISTERSstripZ start_pos)r? textscannerstackZin_function_blockZin_property_blockZwas_dotZnext_token_is_functionZnext_token_is_propertyZcollect_labelsZ block_labelsZ
brace_balancetokenZlowercase_namer r r get_tokens_unprocessed9 s8
z"DelphiLexer.get_tokens_unprocessedN)__name__
__module__ __qualname____doc__r_ aliases filenames mimetypesr r r r r r r r r r r r r r r r r s, !C
)
c @ s e Zd ZdZdZg dZg dZdgZej ej
B Z de fde
jfde fdejd fd
eeje ejd fd ejfd
eeje fdeeje dfdeeje e
jfdejfedddejfdejfdejfdejdfdejdfdeeje dfd eeje ee ejfd ej fd eej e ee ejfed ddd ejfd!e fe d"e d#d$e j fd%eee e!fd&efd'efd(e fg d)e"j#fd*e"j$fd+e"j%fgd,eeej&fgd-ed.fd/ed0fd1ejd0fd2ej'fe d3gd4ejfd5ej'fd6e fd/ed0fgd/ed0fd-ed7fd8ejfdejd9fd:ejd;fdejd0fe d3gd?ejd0fe(d0gd@ed0fdAej)fdBefdCejfe d3gdDejfdEejfdFejd0fd/ed0fd-edGfdHej*fe d3gdIeej)e efdJe fd@ed0fe d3gdK Z+dLS )Mr z9
For Ada source code.
.. versionadded:: 1.3
ZAda)ZadaZada95Zada2005)z*.adbz*.adsz*.adaz
text/x-adaz[^\S\n]+z--.*?\nzfunction|procedure|entry
subprogramz(subtype|type)(\s+)(\w+)type_defztask|protectedz(subtype)(\s+)z
(end)(\s+)r) z(pragma)(\s+)(\w+)z(true|false|null)\b)ZAddressZByteZBoolean CharacterZ
ControlledZCountZCursorZDurationZ File_ModeZ File_Typer Generatorr Z
Long_FloatZ Long_IntegerZLong_Long_FloatZLong_Long_IntegerZNaturalZPositiveZReference_TypeZ Short_FloatZ
Short_IntegerZShort_Short_FloatZShort_Short_Integerr ZWide_CharacterZ Wide_Stringz\b)suffixz,(and(\s+then)?|in|mod|not|or(\s+else)|rem)\bzgeneric|privatepackagezarray\b array_defz(with|use)(\s+)importz (\w+)(\s*)(:)(\s*)(constant)z<<\w+>>z0(\w+)(\s*)(:)(\s*)(declare|begin|loop|for|while))=r rk rd ZacceptaccessZaliasedallr Zatr bodyr! ZconstantZdeclareZdelayZdeltadigitsr' r( Zelsifr) entry exceptionr[ r2 r+ r- r. rT Zlimitedr r\ Znullr7 r: Zothersr Z
overridingZpragmare rW ranger= renamesZrequeuereturnreverseZselectZseparateZsomeZsubtypeZ synchronizedZtaskZtaggedZ terminaterD rF rH ZwhenrK rM )prefixr z"[^"]*" attributenumbersz'[^']'z(\w+)(\s*|[(,])z(<>|=>|:=|[()|:;,.'])z
[*<>+=/&-]z\n+z[0-9_]+#[0-9a-f_\.]+#z[0-9_]+\.[0-9_]*z[0-9_]+z(')(\w+)z\()#pop formal_partr r zis\bz "[^"]+"|\w+rootz (if|case|record|loop|select)z"[^"]+"|[\w.]+r r z with|and|use)r r zrecord\b
record_defz(null record)(;)z(\w+)(\s+)(range)z
end recordz[\w.]+z\)z\w+z,|:[^=]z(in|not|null|out|access)\br zis\s+new|renamesrT package_instantiationz([\w.]+)z("[^"]+"|\w+)(\s+)(=>)z[\w.\'"]) r r r r r) r r r
r r r r N),r r r r r_ r r r r r r flagsr r
r r Z Declarationr r ZReservedr ZConstantr r ZWord Namespacer r r r r r r r r r r r Z Attributer r ZVariabler tokensr r r r r s
6
) r r Zpygments.lexerr r r r r r r r Z
pygments.utilr
r Zpygments.tokenr r
r r r r r r r Zpygments.scannerr Zpygments.lexers.modula2r __all__r r r r r r s
(, g