o
a` @ 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.
Delphi)delphipaspascal objectpascalz*.pasz*.dprz
text/x-pascal)8absoluteandarrayasmbeginbreakcaseconst constructorcontinue
destructordivdodowntoelseendfileforfunctiongotoifimplementationin inheritedinline interfacelabelmodnilnotobjectofonoperatororpacked procedureprogramrecord reintroducerepeatselfsetshlshrstringthentotypeunituntilusesvarwhilewithxor)asclassexceptexports finalizationfinallyinitializationislibraryr> propertyraise threadvartry)disposeexitfalsenewtrue> r- rR rN rO rQ r" rW r% r8 rD r^ rC r0 r? r_ rB ra r( r& rZ r3 r\ > namenearaliascdeclexportr6 r dynamicstdcallvarargsvirtualexternaloverrideregistersafecall assembler interrupt softfloat nostackframe> farfar16indexpubliccppdeclr forwardprivater abstractru protected published
oldfpccall>G boolbytecharcomprealworddwordint64pboolpbytepcharpcomppdatepwordtdatettimedoublepdwordpint64real48singlerK tclassbooleanintegerlongintpdoublephandlepointerpsinglepstringthandletobjectvariantansicharbyteboolcardinalcurrencyextendediunknownlongboollongwordpbooleanpintegerplongintppointerpvariantshortintsmallinttextfilewidecharwordbool pansichar pcardinal pcurrency pdatetime pextended plongword pshortint psmallint pwidechar pwordbool tdatetime
ansistring
pbytearray
pwordarray
widestring pansistring pwidestring shortstring pshortstring)absacquireexceptionobjectaddr
ansitoutf8appendarctanassertassigned
assignfile beginthread blockread
blockwriter# chdirchrclose closefilecomptocurrency comptodoubleconcatr' copycosdecdeleterc doubletocomp endthread enummodulesenumresourcemoduleseofeolnerase
exceptaddr exceptobjectexcluderd expfileposfilesizefillcharfinalizefindclasshinstance
findhinstancefindresourcehinstanceflushfracfreemem get8087cwgetdir getlasterrorgetmemgetmemorymanagergetmodulefilenamegetvariantmanagerhalthihighincr
initializeinsertintioresultismemorymanagersetisvariantmanagersetlengthlnlolowmkdirmoverf oddolestrtostringolestrtostrvarord
paramcountparamstrpipospredptr
pucs4charsrandom randomizereadreadln
reallocmemreleaseexceptionobjectrenameresetrewritermdirroundrunerrorseekseekeofseekeoln set8087cw setlengthsetlinebreakstylesetmemorymanager setstring
settextbufsetvariantmanagersinsizeofslicesqrsqrtstr stringofcharstringtoolestrstringtowidecharsuccswaptrunctruncatetypeinfoucs4stringtowidestring
unicodetoutf8 uniquestringupcase
utf8decode
utf8encode
utf8toansi
utf8tounicodeval
vararrayredimvarclearwidecharlentostringwidecharlentostrvarwidechartostringwidechartostrvarwidestringtoucs4stringwritewriteln)abort addexitprocaddterminateprocadjustlinebreaksallocmemansicomparefilenameansicomparestransicomparetextansidequotedstransiextractquotedstr ansilastchar
ansilowercaseansilowercasefilenameansipos
ansiquotedstr ansisamestr ansisametext ansistrcomp ansistricompansistrlastchar ansistrlcomp
ansistrlicomp ansistrlower
ansistrpos ansistrrscan ansistrscan ansistrupper
ansiuppercaseansiuppercasefilename appendstr assignstrbeep booltostrbytetocharindex
bytetocharlenbytetypecallterminateprocs
changefileext
charlengthchartobyteindex
chartobytelen
comparemem
comparestr comparetext createdir
createguid currentyear currtostr
currtostrfdatedatetimetofiledate
datetimetostrdatetimetostringdatetimetosystemtimedatetimetotimestamp datetostr dayofweek
decodedatedecodedatefully
decodetime
deletefiledirectoryexistsdiskfreedisksize
disposestr
encodedate
encodetimeexceptionerrormessageexcludetrailingbackslash excludetrailingpathdelimiterexpandfilenameexpandfilenamecaseexpanduncfilenameextractfiledirextractfiledriveextractfileextextractfilenameextractfilepathextractrelativepathextractshortpathnamefileage fileclose
filecreatefiledatetodatetime
fileexists filegetattr filegetdatefileisreadonlyfileopenfileread
filesearchfileseek filesetattr filesetdatefilesetreadonly filewritefinalizepackage findclosefindcmdlineswitch findfirstfindnext floattocurrfloattodatetimefloattodecimal
floattostr floattostrf floattotextfloattotextfmt
fmtloadstrfmtstrforcedirectoriesformat formatbuf
formatcurrformatdatetime formatfloat
freeandnil
getcurrentdirgetenvironmentvariablegetfileversiongetformatsettingsgetlocaleformatsettings
getmodulenamegetpackagedescriptiongetpackageinfogettime guidtostring incamonthincludetrailingbackslash includetrailingpathdelimiterincmonthinitializepackageinterlockeddecrementinterlockedexchangeinterlockedexchangeaddinterlockedincrementinttohexinttostr isdelimiter isequalguid
isleapyearispathdelimiter isvalidident languages
lastdelimiter loadpackageloadstr lowercasemsecstotimestampnewstr
nextcharindexnowoutofmemoryerror quotedstrraiselastoserrorraiselastwin32error removedir
renamefile replacedate replacetimesafeloadlibrary samefilenamesametext
setcurrentdir
showexceptionsleepstralloc
strbufsize strbytetypestrcat
strcharlengthstrcompstrcopy
strdisposestrecopystrendstrfmtstricomp
stringreplace stringtoguidstrlcatstrlcompstrlcopystrlenstrlfmt strlicompstrlowerstrmovestrnew strnextcharstrpasstrpcopy strplcopystrposstrrscanstrscan strtobool strtobooldef strtocurr strtocurrdef strtodate strtodatedef
strtodatetimestrtodatetimedef
strtofloat
strtofloatdefstrtoint
strtoint64
strtoint64def strtointdef strtotime strtotimedefstruppersupportssyserrormessagesystemtimetodatetime texttofloattimetimestamptodatetimetimestamptomsecs timetostrtrimtrimleft trimright
tryencodedate
tryencodetimetryfloattocurrtryfloattodatetime trystrtobool trystrtocurr trystrtodatetrystrtodatetime
trystrtofloat trystrtoint
trystrtoint64 trystrtotime
unloadpackage uppercasewidecomparestrwidecomparetext
widefmtstr
wideformat
wideformatbuf
widelowercase widesamestr widesametext
wideuppercase
win32checkwraptext),activateclassgroup allocatehwndbintohexchecksynchronizecollectionsequalcountgenerationsdeallocatehwnd equalrectextractstrings findclassfindglobalcomponentgetclassgroupdescendantswithhextobin
identtointinitinheritedcomponent
inttoident invalidpointisuniqueglobalcomponentname linestartobjectbinarytotextobjectresourcetotextobjecttexttobinaryobjecttexttoresource pointsequalreadcomponentresreadcomponentresexreadcomponentresfilerect
registerclassregisterclassaliasregisterclassesregistercomponentsregisterintegerconstsregisternoiconregisternonactivex
smallpointstartclassgroupteststreamformatunregisterclassunregisterclassesunregisterintegerconstsunregistermoduleclasseswritecomponentresfile)darccosarccosharccotarccotharccscarccscharcsecarcsecharcsinarcsinharctan2arctanhceil comparevaluecosecantcoshcotcotancothcsccsch
cycletodeg cycletograd
cycletorad
degtocycle degtograddegtoraddivmoddoubledecliningbalance ensurerangefloorfrexp futurevaluegetexceptionmaskgetprecisionmode getroundmode gradtocycle gradtodeg gradtoradhypotinrangeinterestpayment interestrateinternalrateofreturnintpower
isinfiniteisnaniszeroldexplnxp1log10log2lognmax maxintvaluemaxvaluemean
meanandstddevmin minintvalueminvaluemomentskewkurtosisnetpresentvaluenormnumberofperiodspayment
periodpaymentpoly
popnstddev popnvariancepower presentvalue
radtocycleradtodeg radtogradrandg randomrangeroundto samevaluesecsecantsechsetexceptionmasksetprecisionmode setroundmodesign
simpleroundtosincossinhslndepreciationstddevsumsumint sumofsquaressumsandsquaressyddepreciationtantanh
totalvariancevariance)SystemSysUtilsClassesMath>C ahalaxbhblbpbxchclcscxdhdidldsdxesfsgssispsscr0cr1cr2cr3cr4dr0dr1dr2dr3dr4dr5dr6dr7eaxebpebxecxediedxesiespmm0mm1mm2mm3mm4mm5mm6mm7st0st1st2st3st4st5st6st7xmm0xmm1xmm2xmm3xmm4xmm5xmm6xmm7> btr4 jajbjcjejgjljojpjsjzr@ aaaaadaamaasadcaddr bsfbsrbtcbtrbtscbwcdqclccldclicmccmpcwddaadasr r) hltr r jaejbejgejlejmpjnajnbjncjnejngjnljnojnpjnsjnzjpejpolarldslealeslfslgslsllssltrmovmulnegnopr; outpoprclrcrrepretrolrorrsmsalsarsbbrI rJ smistcstdstir3 subud1ud2rU arplcallcltscwdeemmsibtsidivimulinsbinsdinswint1int3intoinvdiretjcxzjnaejnbejngejnlelahflgdtlidtljmplldtlmswlockloopmovdmovqpopapopfpushreperepzretfretnrsdcsahfsalcsetasetbsetcsetesetgsetlsetosetpsetssetzsgdtshldshrdsidtsldtsmswsvdcsvtstestumovverrverwwaitxaddxbtsxchgxlatboundbswapcmovacmovbcmovccmovecmovgcmovlcmovocmovpcmovscmovzcmpsbcmpsdcmpswcpuidentericebpint01int03iretdiretwjecxzlcallleavelodsblodsdlodswloopeloopzmovsbmovsdmovswmovsxmovzxoutsboutsdoutswpopadpopawpopfdpopfwpushapushfrdmsrrdpmcrdshrrdtscrepnerepnzrsldtscasbscasdscaswsetaesetbesetgesetlesetnasetnbsetncsetnesetngsetnlsetnosetnpsetnssetnzsetpesetposmintstosbstosdstoswsvldtwrmsrwrshrxlatbcmovaecmovbecmovgecmovlecmovnacmovnbcmovnccmovnecmovngcmovnlcmovnocmovnpcmovnscmovnzcmovpecmovpoinvlpgloopneloopnzpushadpushawpushfdpushfwsetcxzsetnaesetnbesetngesetnlesysretwbinvdcmovcxzcmovnaecmovnbecmovngecmovnlecmpxchgloadallsyscallsysexitsmintoldsysenter cmpxchg8b
cmpxchg486
loadall286c K s t j| fi | t | _t|ddr| j| j t|ddr'| j| j t|ddr4| j| j t | _ t
|dt | j D ] }| j | j | qAd S )N turbopascalTr
freepascalunits)
r __init__rH keywordsr
updateTURBO_PASCAL_KEYWORDSDELPHI_KEYWORDSFREE_PASCAL_KEYWORDSbuiltinsr list
BUILTIN_UNITS)rG optionsrO r; 8/usr/lib/python3/dist-packages/pygments/lexers/pascal.pyr1 , s zDelphiLexer.__init__c c s t |tjtjB tjB }dg}d}d}d}d}d}d} t }
ddg} |jst} |d dkr|dr9t } n|drN|j
drIt j
} nut j} np|drXt j} nf|d rjt} | rh|j
d
krhd} nT|d rt} d}|sw|r|j
d kr| d d
7 < n8|j
dkr| d d
8 < n)|j
dkr| d
d
7 < n|j
dkr| d
d
8 < n |dr|j
}
|
dkrtjj} n|
| jv rt} |s|r|
| jv r| d dkr| d
dkrd}d}ddg} t }
|
dv rd} n|
dkr|d n|
dkrd}d}n|
dv rd}d}n|r(|
| jv r(tj} n|r7|
dv r7tj} d}n|rL|drEtj } nytj } d}nr|rVtj } d}nh| rftj } |
|j
nX|
|
v rptj } nN|
| j!v r{tj"} nC|
| j#v rtj} n8|s|
| j$v rtj} n*t} n&|drt%} |d n|d rt%j&} n |d rt'j(} n|d rt'j)} n|d rt'j*} nt+|d
kr|, |- n|d dkr|d rt%j.} n|drt%} |, n|d!rt%} n|- |, n|d dkr|dr!t } n|d"r.t} |, n|drC|j
dr?t j
} nt j} n{|drMt j} nq|dr[t%} |d nc|d#retj } nY|dr|j
}
|
| j/v ryt} nE|
| j0v rtj} n;t} n8|d$rt} n/|d rt} n&|d rt'j(} n |d rt'j)} n|d rt'j*} n|- |, |j
1 r|j
d%k}|j2| |j
pd&fV |jr'd S d S )'NinitialFr \s+z\{.*?\}|\(\*.*?\*\)$z//.*?$z[-+*\/=<>:;,.@\^];z [\(\)\[\]]+( )[]z[A-Za-z_][A-Za-z_0-9]*result)r8 r1 Tr! r_ )rB r? r0 r& r( )r rL z\s*\.\s*'rK 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
IGNORECASErH eosr scanr match
startswithr
Preproc MultilineSingler r lowerr BuiltinPseudor2 r BLOCK_KEYWORDSr FUNCTION_MODIFIERSr ClassFunctionPropertyLabelr.
BUILTIN_TYPESType
DIRECTIVESr7 r Charr HexIntegerFloatlenr^ get_charEscapeASM_INSTRUCTIONS
ASM_REGISTERSstrip start_pos)rG textscannerstackin_function_blockin_property_blockwas_dotnext_token_is_functionnext_token_is_propertycollect_labels block_labels
brace_balancetokenlowercase_namer; r; r< get_tokens_unprocessed9 s:
z"DelphiLexer.get_tokens_unprocessedN)__name__
__module__ __qualname____doc__rh aliases filenames mimetypesr4 r5 r6 rY rZ ra r_ r9 rj ri r1 rz 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
Ada)adaada95ada2005)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)AddressByteBoolean Character
ControlledCountCursorDuration File_Mode File_Typere Generatorrd
Long_Float Long_IntegerLong_Long_FloatLong_Long_IntegerNaturalPositiveReference_Type Short_Float
Short_IntegerShort_Short_FloatShort_Short_Integerr Wide_Character 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))=rN r r acceptaccessaliasedallr atr" bodyr$ constantdeclaredelaydeltadigitsr* r, elsifr- entry exceptionrd r7 r/ r1 r2 r] limitedr rf nullr= r@ othersr]
overridingpragmar r` rangerD renamesrequeuereturnreverseselectseparatesomesubtype synchronizedtasktagged terminaterL rN rP whenrS rU )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_partrA 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|renamesr] 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~ rh r r r rK rM rN flagsr r
rU r Declarationr r` ReservedrS Constantr r Word Namespacer r r^ r r r r r r rc re rd Attributer\ r Variabler[ tokensr; r; r; r< r s
6
) r~ rK pygments.lexerr r r r r r r r
pygments.utilr
r pygments.tokenr r
r r r r r r r pygments.scannerr pygments.lexers.modula2r __all__r r r; r; r; r< s
(, g