a
T_p @ 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-2020 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 rQ rI r r/ rO rS r) r, r= rX rF r% r< rU r# rV rG rJ r; r9 > r assemblerZcdeclZvirtualZdynamicaliasZ softfloatZexternalZsafecallregisterZ nostackframeZnearr1 Z interruptZexportoverridenameZvarargsZstdcall> r ZpublicZforwardindexZfar protectedZprivateZcppdeclZ
oldfpccallr^ Z publishedr abstractZfar16>G ZbyteboolboolZ plongwordZpbooleanZ pansistringZpboolZpint64ZpvariantZdwordZ pcardinalZ pwidecharZwordZlongboolcompZ pwordboolZ shortstringZppointerZ pansicharZpstringZlongintZ pcurrencyZttimeZthandleZpcompZ pshortintZ pshortstringZ
widestringZ pdatetimeZdoublerealZtclassZpdateZ pwidestringZpcharZpdoubleZtextfileZ
ansistringZvariantZpointerZtdateZplongintZbyteZshortintZintegerZsmallintZpdwordZpintegerZpsingleZpwordZreal48ZcardinalZsinglerC Z
pbytearrayZ
pwordarrayZlongwordZcurrencyZ tdatetimeZiunknowncharZ pextendedZbooleanZphandleZpbyteZtobjectZwordboolZextendedZwidecharZansicharZ psmallintZint64)absZacquireexceptionobjectZaddrZ
ansitoutf8appendZarctanassertassignedZ
assignfileZ beginthreadZ blockreadZ
blockwriter chdirchrcloseZ closefileZcomptocurrencyZ comptodoubleconcatr$ copyZcosdecdeleterZ Z doubletocompZ endthreadZ enummodulesZenumresourcemoduleseofZeolnZeraseZ
exceptaddrZ exceptobjectZexcluder[ ZexpZfileposZfilesizeZfillcharfinalizeZfindclasshinstanceZ
findhinstanceZfindresourcehinstanceflushZfracZfreememZ get8087cwZgetdirZ getlasterrorZgetmemZgetmemorymanagerZgetmodulefilenameZgetvariantmanagerZhalthiZhighincr Z
initializeinsertintZioresultZismemorymanagersetZisvariantmanagersetZlengthZlnloZlowmkdirZmover\ 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 isvalididentZ 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 setroundmodeZsignZ
simpleroundtoZsincosZsinhZslndepreciationZstddevsumZsumintZ sumofsquaresZsumsandsquaresZsyddepreciationZtanZtanhZ
totalvarianceZvariance)ZSystemZSysUtilsZClassesZMath>C ZesiZeaxZesZspZst1ZahZalZxmm0ZcxZdr7ZbpZxmm1Zmm7ZdhZxmm7Zmm2ZclZdiZcr3ZespZmm6Zmm4ZcsZdlZmm0ZssZst5Zcr2ZaxZebpZxmm5Zxmm4ZsiZst3Zdr3Zmm3ZdxZcr0ZecxZdsZcr4Zdr5ZgsZmm5Zst2ZediZfsZst7Zdr4Zcr1Zdr1ZbhZst6Zst4ZchZdr6Zdr2ZebxZedxZxmm2Zxmm6Zdr0ZblZmm1ZbxZst0Zxmm3> ZsldtZjneZjnaeZpushawZmovdZpushfdZlcallZcmovnaeZpopfwZsetnleZintoZstiZstosdZpopawZsysexitry ZlmswZlahfZcmovpZmovswZlgdtZsetbZinvlpgZjgZsysretZlslZretfZint3ZsetncZrsmZsahfZcltsZjnlZmovZjpeZsetnzZcmovlZsetnoZibtsZleaveZcmovncZcallZrepeZjbZcmovbeZbtsZsetaZstcZxbtsZbtZint01ZidivZrepneloopZcmpZ
cmpxchg486ZoutswZsetpZjleZloadallZdasZjnbeZlidtZbsfZloopeZcmovnpZjcZscasdZjgeZsetnaeZjpoZpopfdZemmsZshrdZclcsubZleaZcmovoZsetlZsetneZlfsZpopadZrepZjecxzZbswapZrepnzZxlatbZcmovnbZinswZshldZrolZsidtZjnoZsvdcZrorZbsrZaasZcmovnsZlarZxlatZiretZjnzr: ZwbinvdZjaZsetsimulZcdqZjnbZwrmsrZsalboundZbtcpushZdaaZinsdZcmovzZsetpoZud1ZverwZaaaZloopnzZiretwZlodsdZmovqrM ZcmovnleZsetgeZsmintoldZcmpsdZaadZverrZcmovcZcmovnoZsetnaZsetngZcmpswZldsZadcZjnaZrclr0 ZiretdZseteZaamZsetleZsetnlZsvtsZpushfwZcmovngeZrdmsrZcliZlodsbZsetnpZrepzZsgdtZint03ZcwdeZcmovbZmovzxZjbeZicebpZpushaZbtrZljmpZcmpsbZlodswZretZsetnbZsalcZsetnsZsmswr& ZsysenterZcmovsZjeZsetzZloopnerB ZretnZcmovaeZjzZinvdZcbwZloopzZjngZrdtscZcmcZcmovaZcmovcxzZjcxzZoutsdZxaddZsetgoutnegZcmovpoZrcrZltrZmovsxZjncZjoZcmovneZsetngeZcmovgZcmovgeZhltZint1ZsbbZsetcZsmiZjaeZjngelockZrdpmcZrsdcZwrshrZpushfZcmovleZcmovngZscasbZud2ZsetbewaitZscaswZsvldtZenterZlssZmovsbZpopfZsmintZumovZjnleZsetocwdZpushadZinsbZcmpxchgZarplZjpZpopaZsetnbeZrsldtZjsZstdZsyscallpopaddZjnsZmovsdZstoswZjmpZcldr{ r ZjnpZcmovnaZcmoveZoutsbZcpuidZsetcxzZsarZjlr Zxchgrs ZstosbZ
loadall286ZlgsmulZsetaerA ZcmovnbeZnopZcmovnlZlldtr5 ZsetpeZ cmpxchg8bZcmovnzZlesZrdshrZcmovpetestc 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? ZoptionsrG r 8/usr/lib/python3/dist-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_KEYWORDSrk 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_unprocessed: s8
z"DelphiLexer.get_tokens_unprocessedN)__name__
__module__ __qualname____doc__rb 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))|=>|:=|[()|:;,.'])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 rb r r r r r r flagsr r
r r Z Declarationr r ZReservedr ZConstantr r ZWordZ 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