B
G
\ @ 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-2017 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 ZdZdZddddgZddgZd gZd
Zd Z d Z
e d
Z e dZ
e dZe dZdddddZe dZe dZdd Zdd Zd S ) 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.
ZDelphidelphiZpaspascalZ objectpascalz*.pasz*.dprz
text/x-pascal)8absoluteandarrayasmbeginbreakcaseconst constructorcontinue
destructordivdoZdowntoelseendfileforfunctiongotoifimplementationinZ inheritedinline interfacelabelmodZnilnotobjectofonoperatororZpacked procedureprogramrecordZ reintroducerepeatselfsetshlshrstringthentotypeunituntilusesvarwhilewithxor)asclassexceptZexports finalizationfinallyinitializationislibraryr8 propertyraise threadvartry)disposeexitZfalsenewtrue)r rO r" r# r% r) rQ r, r/ rS r3 rU r9 r; r< rV r= rX rF rG rI rJ )aliasZcdeclZexportr1 Z interruptZ nostackframer registerZsafecallZ softfloatZstdcallZvarargsnameZdynamicZnearZvirtualZexternaloverride assembler)r abstractrb Zcppdeclr ZfarZfar16ZforwardindexZ
oldfpccallZprivate protectedZ publishedZpublic)GZansicharZ
ansistringboolZbooleanZbyteZbyteboolZcardinalcharcompZcurrencyZdoubleZdwordZextendedZint64ZintegerZiunknownZlongboolZlongintZlongwordZ pansicharZ pansistringZpboolZpbooleanZpbyteZ
pbytearrayZ pcardinalZpcharZpcompZ pcurrencyZpdateZ pdatetimeZpdoubleZpdwordZ pextendedZphandleZpint64ZpintegerZplongintZ plongwordZpointerZppointerZ pshortintZ pshortstringZpsingleZ psmallintZpstringZpvariantZ pwidecharZ pwidestringZpwordZ
pwordarrayZ pwordboolrealZreal48ZshortintZ shortstringZsingleZsmallintrC ZtclassZtdateZ tdatetimeZtextfileZthandleZtobjectZttimeZvariantZwidecharZ
widestringZwordZwordbool)absZacquireexceptionobjectZaddrZ
ansitoutf8appendZarctanassertassignedZ
assignfileZ beginthreadZ blockreadZ
blockwriter chdirchrcloseZ closefileZcomptocurrencyZ comptodoubleconcatr$ copyZcosdecdeleterZ Z doubletocompZ endthreadZ enummodulesZenumresourcemoduleseofZeolnZeraseZ
exceptaddrZ exceptobjectZexcluder[ ZexpZfileposZfilesizeZfillcharfinalizeZfindclasshinstanceZ
findhinstanceZfindresourcehinstanceflushZfracZfreememZ get8087cwZgetdirZ getlasterrorZgetmemZgetmemorymanagerZgetmodulefilenameZgetvariantmanagerZhalthiZhighincr Z
initializeinsertintZioresultZismemorymanagersetZisvariantmanagersetlengthZlnloZlowmkdirZmover\ 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
currtostrfZdateZdatetimetofiledateZ
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
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 setroundmodeZsignZ
simpleroundtoZsincosZsinhZslndepreciationZstddevsumZsumintZ sumofsquaresZsumsandsquaresZsyddepreciationZtanZtanhZ
totalvarianceZvariance)ZSystemZSysUtilsZClassesZMath)CZahZalZaxZbhZblZbpZbxZchZclZcr0Zcr1Zcr2Zcr3Zcr4ZcsZcxZdhZdiZdlZdr0Zdr1Zdr2Zdr3Zdr4Zdr5Zdr6Zdr7ZdsZdxZeaxZebpZebxZecxZediZedxZesZesiZespZfsZgsZmm0Zmm1Zmm2Zmm3Zmm4Zmm5Zmm6Zmm7ZsiZspZssZst0Zst1Zst2Zst3Zst4Zst5Zst6Zst7Zxmm0Zxmm1Zxmm2Zxmm3Zxmm4Zxmm5Zxmm6Zxmm7( ZaaaZaadZaamZaasZadcaddr ZarplZboundZbsfZbsrZbswapZbtZbtcZbtrZbtsZcallZcbwZcdqZclcZcldZcliZcltsZcmcZcmovaZcmovaeZcmovbZcmovbeZcmovcZcmovcxzZcmoveZcmovgZcmovgeZcmovlZcmovleZcmovnaZcmovnaeZcmovnbZcmovnbeZcmovncZcmovneZcmovngZcmovngeZcmovnlZcmovnleZcmovnoZcmovnpZcmovnsZcmovnzZcmovoZcmovpZcmovpeZcmovpoZcmovsZcmovzZcmpZcmpsbZcmpsdZcmpswZcmpxchgZ
cmpxchg486Z cmpxchg8bZcpuidcwdZcwdeZdaaZdasrs r& ZemmsZenterZhltZibtsZicebpZidivimulr0 ry ZinsbZinsdZinswr{ Zint01Zint03Zint1Zint3ZintoZinvdZinvlpgZiretZiretdZiretwZjaZjaeZjbZjbeZjcjcxzr ZjeZjecxzZjgZjgeZjlZjleZjmpZjnaZjnaeZjnbZjnbeZjncZjneZjngZjngeZjnlZjnleZjnoZjnpZjnsZjnzZjoZjpZjpeZjpoZjsZjzZlahfZlarZlcallZldsZleaZleaveZlesZlfsZlgdtZlgsZlidtZljmpZlldtZlmswZloadallZ
loadall286lockZlodsbZlodsdZlodswloopZloopeZloopneZloopnzZloopzZlslZlssZltrZmovZmovdZmovqZmovsbZmovsdZmovswZmovsxZmovzxmulnegZnopr5 r: outZoutsbZoutsdZoutswpopZpopaZpopadZpopawZpopfZpopfdZpopfwpushZpushaZpushadZpushawZpushfZpushfdZpushfwZrclZrcrZrdmsrZrdpmcZrdshrZrdtscZrepZrepeZrepneZrepnzZrepzZretZretfZretnZrolZrorZrsdcZrsldtZrsmZsahfZsalZsalcZsarZsbbZscasbZscasdZscaswZsetaZsetaeZsetbZsetbeZsetcZsetcxzZseteZsetgZsetgeZsetlZsetleZsetnaZsetnaeZsetnbZsetnbeZsetncZsetneZsetngZsetngeZsetnlZsetnleZsetnoZsetnpZsetnsZsetnzZsetoZsetpZsetpeZsetpoZsetsZsetzZsgdtrA ZshldrB ZshrdZsidtZsldtZsmiZsmintZsmintoldZsmswZstcZstdZstiZstosbZstosdZstoswr subZsvdcZsvldtZsvtsZsyscallZsysenterZsysexitZsysrettestZud1Zud2ZumovZverrZverwwaitZwbinvdZwrmsrZwrshrZxaddZxbtsZxchgZxlatZxlatbrM c K s t j| f| t | _t|ddr0| j| j t|ddrJ| j| j t|ddrd| j| j t | _ x,t
|dt | j D ]}| j | j | qW d S )NZ turbopascalTr Z
freepascalZunits)
r __init__r@ keywordsr
updateTURBO_PASCAL_KEYWORDSDELPHI_KEYWORDSFREE_PASCAL_KEYWORDSbuiltinsr list
BUILTIN_UNITS)r? ZoptionsrG r 5lib/python3.7/site-packages/pygments/lexers/pascal.pyr - s zDelphiLexer.__init__c c s t |tjtjB tjB }dg}d}d}d}d}d}d} t }
ddg} x\|jst} |d dkr|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| d d
7 < nX|j
dkr.| d d
8 < n:|j
dkrL| d
d
7 < n |j
dkr| d
d
8 < qt|dr&|j
}
|
dkrtjj} q|
| jkr@t} |s|r|
| jkr| d dkr| d
dkrd}d}ddg} t }
|
dkrd} n<|
dkr|d n&|
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%} |d nn|d rVt%j&} nZ|d rjt'j(} nF|d r~t'j)} n2|d rt'j*} n t+|d
kr|, |- n|d dkr|d rt%j.} n<|drt%} |, n"|d!rt%} n|- |, n^|d dkrt|dr8t } n<|d"rTt} |, n |dr~|j
drvt j
} nt j} n|drt j} n|drt%} |d n|d#rtj } n|dr|j
}
|
| j/krt} n|
| j0krtj} nt} np|d$rt} n^|d r(t} nL|d r:;,.@\^];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: s.
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 r s4 !C
(
c @ s e Zd ZdZdZdddgZdddgZd gZej ej
B Z d
e fd e
jfd
e fd ejd
fdeeje ejdfdejfdeeje fdeeje dfdeeje e
jfdejfedddejfdejfdejfdejdfd ejd fd eeje d fd 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%fgd0eeej&fgd1ed2fd3ed4fd5ejd4fd6ej'fe d7gd8ejfd9ej'fd:e fd3ed4fgd3ed4fd1ed;fdejd?fd@eejed4fe d7gd3ed4fdAeeje ejfe d7gdBejd4fe d7gdCejd4fe(d4gdDed4fdEej)fdFefdGejfe d7gdHejfdIejfdJejd4fd3ed4fd1edKfdLej*fe d7gdMeej)e efdNe fdDed4fe d7gdO Z+dPS )Qr z9
For Ada source code.
.. versionadded:: 1.3
ZAdaZadaZada95Zada2005z*.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\()z#pop formal_partr z#popzis\bz "[^"]+"|\w+rootz (if|case|record|loop|select)z"[^"]+"|[\w.]+z\s+r z with|and|use)z#popr 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 ZWordZ Namespacer r r r r r r r r r r r Z Attributer r ZVariabler tokensr r r r r s
) 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