3
V'íc x ã @ s d Z ddlZddlmZ ddlmZmZ ddlmZm Z m
Z
m Z m Z m
Z
mZmZmZmZ ddlmZ ddlmZ dd gZG d
d d eZG d d deZdS ) 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)Ú get_bool_optÚ get_list_opt)
ÚTextÚCommentÚOperatorÚKeywordÚNameÚStringÚNumberÚ PunctuationÚErrorÚ
Whitespace)ÚScanner)Ú Modula2LexerÚ DelphiLexerÚ
PortugolLexerc @ s: e Zd ZdZdZdgZddgZg ZdZdd Z d d
Z
d S ) r z;For Portugol, a Pascal dialect with keywords in Portuguese.ZPortugolÚportugolz*.algz
*.portugolz>https://www.apoioinformatica.inf.br/produtos/visualg/linguagemc K s& t j| f| tf |ddi| _d S )Nr T)r Ú__init__r Úlexer)ÚselfÚoptions© r ú:/tmp/pip-build-gk9425m9/Pygments/pygments/lexers/pascal.pyr ! s zPortugolLexer.__init__c C s | j j|S )N)r Úget_tokens_unprocessed)r Útextr r r r % s z$PortugolLexer.get_tokens_unprocessedN) Ú__name__Ú
__module__Ú __qualname__Ú__doc__ÚnameÚaliasesÚ filenamesÚ mimetypesÚurlr r r r r r r s c @ s
e Zd ZdZdZddddgZddgZd gZd`ZdaZ dbZ
ddCdddddFd d dHd$dJd+d.d/dKd0dMd:d;d=d>hZ dTdUdVd"dWdXddYdZd[d\d]d^d_d`dadbdcddhZ d
dedddfdgdhdidjdkdldmdndodphZ
dqdrdsdtdudvdwdxdydzd{d|d}d~ddddddd
ddddddddddddddddddddddddddd d¡d¢d£d¤d¥d¦d§d¨d©dªd7d«d¬dd®d¯d°d±d²d³d´dµd¶hGZdcdddedfdÅZdÆ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ã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 ddddddddhCZd d
d d d
dd dddddddddddddd d d d d d!d"d#d$d%d&d'd(d)d*d+d,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;d<d=d>d?d@dAdBdCdDdEdFdGdHdIdJdÌddKdLdMdNdOdPdQd dídRdSdTdñdUdVdWdXdYdZd[d\d]d^d_d`dadbdcdddddedfdgdhdidjdkdldmdndodpdqdrdsdtdudvdwdxdydzd{d|d}d~ddddddd
ddddddddddddddddddddddddddd d¡d¢d£d¤d¥d¦d'd,d§d¨d©dªd«d¬dd®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Ë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èdédêdëdìdídîdïdðdñdòdód5dôd6dõdöd÷dødùdúdûdüdýdþdÿd dd!dddddddd d
d d d
ddddddddddddAh ZdgZdXd¥dYdZhZd[d\ Zd]d^ Zd_S (h r aF
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ÚdelphiZpasZpascalZ objectpascalz*.pasz*.dprz
text/x-pascalÚabsoluteÚandÚarrayÚasmÚbeginÚbreakÚcaseÚconstÚ constructorÚcontinueÚ
destructorÚdivÚdoÚdowntoÚelseÚendÚfileÚforÚfunctionÚgotoÚifÚimplementationÚinÚ inheritedÚinlineÚ interfaceÚlabelÚmodÚnilÚnotÚobjectÚofÚonÚoperatorÚorÚpackedÚ procedureÚprogramÚrecordÚ reintroduceÚrepeatr ÚsetÚshlÚshrÚstringÚthenÚtoÚtypeÚunitÚuntilÚusesÚvarÚwhileÚwithÚxorÚasÚclassÚexceptÚexportsÚ finalizationÚfinallyÚinitializationÚisÚlibraryÚpropertyÚraiseÚ threadvarÚtryÚdisposeÚexitÚfalseÚnewÚtrueÚaliasZcdeclÚexportZ interruptZ nostackframeÚregisterZsafecallZ softfloatZstdcallÚvarargsr ZdynamicZnearZvirtualZexternalÚoverrideZ assemblerZabstractZcppdeclÚdefaultZfarZfar16ZforwardÚindexZ
oldfpccallZprivateZ protectedZ publishedÚpublicZansicharZ
ansistringÚboolÚbooleanZbyteZbyteboolZcardinalÚcharÚcompÚcurrencyÚdoubleZdwordÚextendedZint64ÚintegerZiunknownZlongboolZlongintZlongwordZ pansicharZ pansistringZpboolZpbooleanZpbyteZ
pbytearrayZ pcardinalZpcharZpcompZ pcurrencyZpdateZ pdatetimeZpdoubleZpdwordZ pextendedZphandleZpint64ZpintegerZplongintZ plongwordÚpointerZppointerZ pshortintZ pshortstringZpsingleZ psmallintZpstringZpvariantZ pwidecharZ pwidestringZpwordZ
pwordarrayZ pwordboolÚrealZreal48ZshortintZ shortstringZsingleZsmallintZtclassZtdateZ tdatetimeZtextfileZthandleZtobjectZttimeÚvariantZwidecharZ
widestringÚwordZwordboolÚabsÚacquireexceptionobjectÚaddrÚ
ansitoutf8ÚappendÚarctanÚassertÚassignedÚ
assignfileÚ beginthreadÚ blockreadÚ
blockwriteÚchdirÚchrÚcloseÚ closefileÚcomptocurrencyÚ comptodoubleÚconcatÚcopyÚcosÚdecÚdeleteÚ doubletocompÚ endthreadÚ enummodulesÚenumresourcemodulesÚeofÚeolnÚeraseÚ
exceptaddrÚ exceptobjectÚexcludeÚexpÚfileposÚfilesizeÚfillcharÚfinalizeÚfindclasshinstanceÚ
findhinstanceÚfindresourcehinstanceÚflushÚfracÚfreememÚ get8087cwÚgetdirÚ getlasterrorÚgetmemÚgetmemorymanagerÚgetmodulefilenameÚgetvariantmanagerÚhaltÚhiÚhighÚincÚincludeÚ
initializeÚinsertÚintÚioresultÚismemorymanagersetÚisvariantmanagersetÚlengthÚlnÚloÚlowÚmkdirÚmoveÚoddÚolestrtostringÚolestrtostrvarÚordÚ
paramcountÚparamstrÚpiÚposÚpredÚptrÚ
pucs4charsÚrandomÚ randomizeÚreadÚreadlnÚ
reallocmemÚreleaseexceptionobjectÚrenameÚresetÚrewriteÚrmdirÚroundÚrunerrorÚseekÚseekeofÚseekeolnÚ set8087cwÚ setlengthÚsetlinebreakstyleÚsetmemorymanagerÚ setstringÚ
settextbufÚsetvariantmanagerÚsinÚsizeofÚsliceÚsqrÚsqrtÚstrÚ stringofcharÚstringtoolestrÚstringtowidecharÚsuccÚswapÚtruncÚtruncateÚtypeinfoÚucs4stringtowidestringÚ
unicodetoutf8Ú uniquestringÚupcaseÚ
utf8decodeÚ
utf8encodeÚ
utf8toansiÚ
utf8tounicodeÚvalÚ
vararrayredimÚvarclearÚwidecharlentostringÚwidecharlentostrvarÚwidechartostringÚwidechartostrvarÚwidestringtoucs4stringÚwriteÚwritelnÚabortÚ addexitprocÚaddterminateprocÚadjustlinebreaksÚallocmemÚansicomparefilenameÚansicomparestrÚansicomparetextÚansidequotedstrÚansiextractquotedstrÚ ansilastcharÚ
ansilowercaseÚansilowercasefilenameÚansiposÚ
ansiquotedstrÚ ansisamestrÚ ansisametextÚ ansistrcompÚ ansistricompÚansistrlastcharÚ ansistrlcompÚ
ansistrlicompÚ ansistrlowerÚ
ansistrposÚ ansistrrscanÚ ansistrscanÚ ansistrupperÚ
ansiuppercaseÚansiuppercasefilenameÚ appendstrÚ assignstrÚbeepÚ booltostrÚbytetocharindexÚ
bytetocharlenÚbytetypeÚcallterminateprocsÚ
changefileextÚ
charlengthÚchartobyteindexÚ
chartobytelenÚ
comparememÚ
comparestrÚ comparetextÚ createdirÚ
createguidÚ currentyearÚ currtostrÚ
currtostrfÚdateÚdatetimetofiledateÚ
datetimetostrÚdatetimetostringÚdatetimetosystemtimeÚdatetimetotimestampÚ datetostrÚ dayofweekÚ
decodedateÚdecodedatefullyÚ
decodetimeÚ
deletefileÚdirectoryexistsÚdiskfreeÚdisksizeÚ
disposestrÚ
encodedateÚ
encodetimeÚexceptionerrormessageÚexcludetrailingbackslashÚ excludetrailingpathdelimiterÚexpandfilenameÚexpandfilenamecaseÚexpanduncfilenameÚextractfiledirÚextractfiledriveÚextractfileextÚextractfilenameÚextractfilepathÚextractrelativepathÚextractshortpathnameÚfileageÚ filecloseÚ
filecreateÚfiledatetodatetimeÚ
fileexistsÚ filegetattrÚ filegetdateÚfileisreadonlyÚfileopenÚfilereadÚ
filesearchÚfileseekÚ filesetattrÚ filesetdateÚfilesetreadonlyÚ filewriteÚfinalizepackageÚ findcloseÚfindcmdlineswitchÚ findfirstÚfindnextÚ floattocurrÚfloattodatetimeÚfloattodecimalÚ
floattostrÚ floattostrfÚ floattotextÚfloattotextfmtÚ
fmtloadstrÚfmtstrÚforcedirectoriesÚformatÚ formatbufÚ
formatcurrÚformatdatetimeÚ formatfloatÚ
freeandnilÚ
getcurrentdirÚgetenvironmentvariableÚgetfileversionÚgetformatsettingsÚgetlocaleformatsettingsÚ
getmodulenameÚgetpackagedescriptionÚgetpackageinfoÚgettimeÚ guidtostringÚ incamonthÚincludetrailingbackslashÚ includetrailingpathdelimiterÚincmonthÚinitializepackageÚinterlockeddecrementÚinterlockedexchangeÚinterlockedexchangeaddÚinterlockedincrementÚinttohexÚinttostrÚ isdelimiterÚ isequalguidÚ
isleapyearÚispathdelimiterÚ isvalididentÚ languagesÚ
lastdelimiterÚ loadpackageÚloadstrÚ lowercaseÚmsecstotimestampÚnewstrÚ
nextcharindexÚnowÚoutofmemoryerrorÚ quotedstrÚraiselastoserrorÚraiselastwin32errorÚ removedirÚ
renamefileÚ replacedateÚ replacetimeÚsafeloadlibraryÚ samefilenameÚsametextÚ
setcurrentdirÚ
showexceptionÚsleepÚstrallocÚ
strbufsizeÚ strbytetypeÚstrcatÚ
strcharlengthÚstrcompÚstrcopyÚ
strdisposeÚstrecopyÚstrendÚstrfmtÚstricompÚ
stringreplaceÚ stringtoguidÚstrlcatÚstrlcompÚstrlcopyÚstrlenÚstrlfmtÚ strlicompÚstrlowerÚstrmoveÚstrnewÚ strnextcharÚstrpasÚstrpcopyÚ strplcopyÚstrposÚstrrscanÚstrscanÚ strtoboolÚ strtobooldefÚ strtocurrÚ strtocurrdefÚ strtodateÚ strtodatedefÚ
strtodatetimeÚstrtodatetimedefÚ
strtofloatÚ
strtofloatdefÚstrtointÚ
strtoint64Ú
strtoint64defÚ strtointdefÚ strtotimeÚ strtotimedefÚstrupperÚsupportsÚsyserrormessageÚsystemtimetodatetimeÚ texttofloatÚtimeÚtimestamptodatetimeÚtimestamptomsecsÚ timetostrÚtrimÚtrimleftÚ trimrightÚ
tryencodedateÚ
tryencodetimeÚtryfloattocurrÚtryfloattodatetimeÚ trystrtoboolÚ trystrtocurrÚ trystrtodateÚtrystrtodatetimeÚ
trystrtofloatÚ trystrtointÚ
trystrtoint64Ú trystrtotimeÚ
unloadpackageÚ uppercaseÚwidecomparestrÚwidecomparetextÚ
widefmtstrÚ
wideformatÚ
wideformatbufÚ
widelowercaseÚ widesamestrÚ widesametextÚ
wideuppercaseÚ
win32checkÚwraptextÚactivateclassgroupÚ allocatehwndÚbintohexÚchecksynchronizeÚcollectionsequalÚcountgenerationsÚdeallocatehwndÚ equalrectÚextractstringsÚ findclassÚfindglobalcomponentÚgetclassÚgroupdescendantswithÚhextobinÚ
identtointÚinitinheritedcomponentÚ
inttoidentÚ invalidpointÚisuniqueglobalcomponentnameÚ linestartÚobjectbinarytotextÚobjectresourcetotextÚobjecttexttobinaryÚobjecttexttoresourceÚ pointsequalÚreadcomponentresÚreadcomponentresexÚreadcomponentresfileÚrectÚ
registerclassÚregisterclassaliasÚregisterclassesÚregistercomponentsÚregisterintegerconstsÚregisternoiconÚregisternonactivexÚ
smallpointÚstartclassgroupÚteststreamformatÚunregisterclassÚunregisterclassesÚunregisterintegerconstsÚunregistermoduleclassesÚwritecomponentresfileÚarccosÚarccoshÚarccotÚarccothÚarccscÚarccschÚarcsecÚarcsechÚarcsinÚarcsinhÚarctan2ÚarctanhÚceilÚ comparevalueÚcosecantÚcoshÚcotÚcotanÚcothÚcscÚcschÚ
cycletodegÚ cycletogradÚ
cycletoradÚ
degtocycleÚ degtogradÚdegtoradÚdivmodÚdoubledecliningbalanceÚ ensurerangeÚfloorÚfrexpÚ futurevalueÚgetexceptionmaskÚgetprecisionmodeÚ getroundmodeÚ gradtocycleÚ gradtodegÚ gradtoradÚhypotÚinrangeÚinterestpaymentÚ interestrateÚinternalrateofreturnÚintpowerÚ
isinfiniteÚisnanÚiszeroÚldexpÚlnxp1Úlog10Úlog2ÚlognÚmaxÚ maxintvalueÚmaxvalueÚmeanÚ
meanandstddevÚminÚ minintvalueÚminvalueÚmomentskewkurtosisÚnetpresentvalueÚnormÚnumberofperiodsÚpaymentÚ
periodpaymentÚpolyÚ
popnstddevÚ popnvarianceÚpowerÚ presentvalueÚ
radtocycleÚradtodegÚ radtogradÚrandgÚ randomrangeÚroundtoÚ samevalueÚsecÚsecantÚsechÚsetexceptionmaskÚsetprecisionmodeÚ setroundmodeÚsignÚ
simpleroundtoÚsincosÚsinhÚslndepreciationÚstddevÚsumÚsumintÚ sumofsquaresÚsumsandsquaresÚsyddepreciationÚtanÚtanhÚ
totalvarianceÚvariance)ÚSystemZSysUtilsZClassesZMathZahÚalZaxZbhÚblZbpZbxÚchZclZcr0Zcr1Zcr2Zcr3Zcr4ÚcsZcxZdhZdiÚdlZdr0Zdr1Zdr2Zdr3Zdr4Zdr5Zdr6Zdr7ZdsZdxZeaxZebpZebxZecxZediZedxÚesZesiZespÚfsZgsZmm0Zmm1Zmm2Zmm3Zmm4Zmm5Zmm6Zmm7ÚsiÚspÚssZst0Zst1Zst2Zst3Zst4Zst5Zst6Zst7Zxmm0Zxmm1Zxmm2Zxmm3Zxmm4Zxmm5Zxmm6Zxmm7ZaaaZaadZaamZaasZadcÚaddZarplZboundZbsfZbsrZbswapZbtZbtcZbtrZbtsÚcallZcbwZcdqZclcZcldÚcliZcltsZcmcZcmovaZcmovaeZcmovbZcmovbeZcmovcZcmovcxzZcmoveZcmovgZcmovgeZcmovlZcmovleZcmovnaZcmovnaeZcmovnbZcmovnbeZcmovncZcmovneZcmovngZcmovngeZcmovnlZcmovnleZcmovnoZcmovnpZcmovnsZcmovnzZcmovoZcmovpZcmovpeZcmovpoZcmovsZcmovzÚcmpZcmpsbZcmpsdZcmpswZcmpxchgZ
cmpxchg486Z cmpxchg8bZcpuidÚcwdZcwdeZdaaZdasZemmsZenterZhltZibtsZicebpZidivÚimulZinsbZinsdZinswZint01Zint03Zint1Zint3ZintoZinvdZinvlpgZiretZiretdZiretwÚjaZjaeZjbZjbeZjcZjcxzZjeZjecxzZjgZjgeZjlZjleZjmpÚjnaZjnaeZjnbZjnbeZjncZjneZjngZjngeZjnlZjnleZjnoZjnpZjnsZjnzZjoZjpZjpeZjpoZjsZjzZlahfZlarZlcallZldsZleaZleaveZlesZlfsZlgdtZlgsZlidtZljmpZlldtZlmswZloadallZ
loadall286ÚlockZlodsbZlodsdZlodswZloopZloopeZloopneZloopnzZloopzZlslZlssZltrZmovZmovdZmovqZmovsbZmovsdZmovswZmovsxZmovzxÚmulÚnegZnopÚoutZoutsbZoutsdZoutswÚpopZpopaZpopadZpopawZpopfZpopfdZpopfwÚpushZpushaZpushadZpushawZpushfZpushfdZpushfwZrclZrcrZrdmsrZrdpmcZrdshrZrdtscÚrepZrepeZrepneZrepnzZrepzÚretZretfZretnZrolZrorZrsdcZrsldtZrsmZsahfZsalZsalcZsarZsbbZscasbZscasdZscaswZsetaZsetaeZsetbZsetbeZsetcZsetcxzZseteZsetgZsetgeZsetlZsetleZsetnaZsetnaeZsetnbZsetnbeZsetncZsetneZsetngZsetngeZsetnlZsetnleZsetnoZsetnpZsetnsZsetnzZsetoZsetpZsetpeZsetpoZsetsZsetzZsgdtZshldZshrdZsidtZsldtZsmiZsmintZsmintoldZsmswZstcZstdZstiZstosbZstosdZstoswÚsubZsvdcZsvldtZsvtsZsyscallZsysenterZsysexitZsysretÚtestZud1Zud2ZumovZverrZverwÚwaitZwbinvdZwrmsrZwrshrZxaddZxbtsZxchgZxlatZxlatbÚ aleatorioÚ algoritmoÚarquivoÚateÚcasoÚ
cronometroÚdebugÚeÚecoÚenquantoÚentaoÚescolhaÚescrevaÚescrevalÚfacaÚfalsoÚ fimalgoritmoÚ fimenquantoÚ
fimescolhaÚ fimfuncaoÚfimparaÚfimprocedimentoÚ fimrepitaÚfimseÚfuncaoÚinicioÚ
interrompaÚleiaÚ limpatelaÚnaoÚouÚ outrocasoÚparaÚpassoÚpausaÚ procedimentoÚrepitaÚretorneÚseÚsenaoÚtimerÚvetorÚ
verdadeiroÚxouÚarcsenÚExpÚgraupradÚlogÚquadÚradpgrauÚraizqÚrandÚrandiÚsenÚTanÚascÚcaracÚ caracpnumÚcomprÚcopiaÚmaiuscÚminuscÚ numpcaracZinteiroZ caractereZlogicoc K sÔ t j| f| t | _t | _t|ddrN| jj| j | jj| j d| _ nd| _ t|ddrn| jj| j
t|ddr| jj| j t|ddr¢| jj| j x,t
|dt| jD ]}| jj| j| q¶W d S )Nr FTZ turbopascalr% Z
freepascalZunits)r r rO ÚkeywordsÚbuiltinsr ÚupdateÚPORTUGOL_KEYWORDSÚPORTUGOL_BUILTIN_TYPESÚ is_portugolÚTURBO_PASCAL_KEYWORDSÚDELPHI_KEYWORDSÚFREE_PASCAL_KEYWORDSr ÚlistÚ
BUILTIN_UNITS)r r rV r r r r s zDelphiLexer.__init__c c s, t |tjtjB tjB }dg}d}d}d}d}d}d} t }
ddg} xà|js&t} |d1 dkrÊ|jdrtt } qî| j
r¤|jdr¤|j j drt
j} nt
j} qî|jdr¸t
j} qî| j
rÐ|jd rÐt} qî| j
oà|jd
rþt} | rú|j d krúd} qî|jd rt} d}|s |rÆ|j d
kr<| d d7 < nX|j dkrZ| d d8 < n:|j dkrx| d d7 < n |j dkrÆ| d d8 < qî|jdrú|j j }
|
dkrÄtjj} qÆ|
| jkrt} | j
rð|
d2krd}d}n|sü|r:|
| jkr:| d dkr:| d dkr:d}d}ddg} t }
|
d3krJd} n<|
dkr`|jd n&|
dkrtd}d}n|
d4krød}d}qÆ| j
r°|r°|
| jkr°tj} qÆ| j
rØ|rØ|
d5krØtj} d}qÆ|r | j
rü|j d!rütj } n"tj } d}| j
rø|
j |j j nØ| j
r<|r<tj } d}n¼| j
rd| rdtj!} |
j |j j n|
|
krvtj!} n| j
r|
| j"krtj#} nf| j
r°|
| j$kr°tj#} nH| j
rÎ|
| j%krÎtj} n*| j
rô| rô|
| j&krôtj} nt} nÌ| j
r |jd"r t'} |jd# n¨| j
rD|jd$rDt'} |jd# n| j
rb|jd%rbt'j(} nd| j
r|jd&rt)j*} nF|jd'rt)j+} n2|jd(r¨t)j,} n t-|dkr¾|j. |j/ n$|d6 d#kr| j
r2|jd)rôt'j0} n<|jd"rt'} |j. n"|jd*r t'} n|j/ |j. nP|jd)rFt'j0} n<|jd$r`t'} |j. n"|jd+rrt'} n|j/ |j. nh| j
rî|d7 dkrî|jdr²t } n<|jd,rÎt} |j. n |jdrø|j j drðt
j} nt
j} nö|jdr t
j} nâ|jd$r(t'} |jd# nÆ|jd-r<tj!} n²|jdr~|j j }
|
| j1krdt} n|
| j2krxtj} nt} np|jd.rt} n^|jd r¢t} nL|jd&r¶t)j*} n8|jd'rÊt)j+} n$|jd(rÞt)j,} n|j/ |j. | j
r|j j3 r|j d/k}|j4| |j p d0fV qHW d S )8NÚinitialFr é z\s+z\{.*?\}|\(\*.*?\*\)ú$z//.*?$z/(<\-)|(>=)|(<=)|%|<|>|-|\+|\*|\=|(<>)|\/|\.|:|,z[-+*\/=<>:;,.@\^]ú;z [\(\)\[\]]+ú(ú)ú[ú]z[A-Za-z_][A-Za-z_0-9]*ÚresultrÇ rÒ Tr@ r9 r) rf rJ rG r8 r. r0 rÔ r z\s*\.\s*z\"rR ú'z\#(\d+|\$[0-9A-Fa-f]+)z\$[0-9A-Fa-f]+z\d+(?![eE]|\.[^.])z&\d+(\.\d+([eE][+-]?\d+)?|[eE][+-]?\d+)z''z[^\"]*z[^']*r5 z@@[A-Za-z_][A-Za-z_0-9]*z[-+*\/=<>:;,.@\^]+Ú.Ú éÿÿÿÿ)rÇ rÒ )r@ r9 )rJ rG r8 r. r0 )rÔ r r r )5r ÚreÚDOTALLÚ MULTILINEÚ
IGNORECASErO Zeosr
Úscanr ró ÚmatchÚ
startswithr ZPreprocZ MultilineÚSingler r Úlowerr ZBuiltinZPseudorî r ÚBLOCK_KEYWORDSr ÚFUNCTION_MODIFIERSr ZClassZFunctionr ZPropertyZLabelrò ÚTypeÚ
BUILTIN_TYPESÚ
DIRECTIVESrï r
ZCharr ZHexZIntegerZFloatÚlenr¨ Zget_charZEscapeÚASM_INSTRUCTIONSÚ
ASM_REGISTERSÚstripZ start_pos)r r ÚscannerÚstackZin_function_blockZin_property_blockZwas_dotZnext_token_is_functionZnext_token_is_propertyZcollect_labelsZ block_labelsZ
brace_balanceÚtokenZlowercase_namer r r r £ s`
z"DelphiLexer.get_tokens_unprocessedN)8r& r' r( r) r* r+ r, r- r. r/ r0 r1 r2 r3 r4 r5 r6 r7 r8 r9 r: r; r< r= r> r? r@ rA rB rC rD rE rF rG rH rI rJ rK rL rM rN r rO rP rQ rR rS rT rU rV rW rX rY rZ r[ r\ )r] r^ r_ r` ra rb rc rd re rF rf rg rh ri )rj rk rl rm rn )r r r
r r r r r r r r r r+ r r r r r r r r/ r r r r rj r r r r r r r r¡ r¢ r£ rk r¤ r¥ r¦ r§ r¨ r© rª r« r¬ r r® r¯ r° r± r² r³ r´ rµ r¶ r· r¸ r¹ rº r» r¼ r½ r¾ r¿ rÀ rÁ r rà rÄ rÅ rÆ rm rÇ rÈ rÉ rÊ rË rÌ rÍ rÎ rÏ rÐ rÑ rÒ rÓ rÔ rÕ rÖ r× rØ rÙ rÚ rÛ rÜ rÝ rÞ rß rà rá râ rã rä rå ræ rç rè ré rê rë rì rí rî rï rð rñ rò ró rô rõ rö r÷ rø rù rú rû rü rý rþ rÿ r r r r r r r r )ùr r r
r r r
r r r r r r r r r r r r r r r r r r r r! r" r# r$ r% r& r' r( r) r* r+ r, r- r. r/ r0 r1 r2 r3 r4 r5 r6 r7 r8 r9 r: r; r< r= r> r? r@ rA rB rC rD rE rF rG rH rI rJ rK rL rM rN rO rP rQ rR rS rT rU rV rW rX rY rZ r[ r\ r] r^ r_ r` ra rb rc rd re rf rg rh ri rj rk rl rm rn ro rp rq rr rs rt ru rv rw rx ry rz r{ r| r} r~ r r r r r r r
r r r r r r r r r r r r r r r r r r r r r r r r r r r r¡ r¢ r£ r¤ r¥ r¦ r§ r¨ r© rª r« r¬ r r® r¯ r° r± r² r³ r´ rµ r¶ r· r¸ r¹ rº r» r¼ r½ r¾ r¿ rÀ rÁ r rà rÄ rÅ rÆ rÇ rÈ rÉ rÊ rË rÌ rÍ rÎ rÏ rÐ rÑ rÒ rÓ rÔ rÕ rÖ r× rØ rÙ rÚ rÛ rÜ rÝ rÞ rß rà rá râ rã rä rå ræ rç rè ré rê rë rì rí rî rï rð rñ rò ró rô rõ rö r÷ rø rù rú rû rü rý rþ rÿ r ),r r r r r r r r r r
r r r
r r r r r r r r r r r r r r r r r r r r! r" r# r$ r% r& r' r( r) r* r+ r, )dr- r. r/ r0 r1 r2 r3 r4 r5 r6 r7 r8 r9 r: r; r< r= r> r? r@ rA rB rC rD rE rF rG rH rI rJ rK rL rM rN rO rP rQ rR rS rT rU rV rW rX rY rZ r[ r\ r] r^ r_ r` ra rb rc rd re rf rg rh ri rj rk rl rm rn ro rp rq rr rs rt ru rv rw rx ry rz r{ r| r} r~ r r r r r r r
r r r r r r r r r r r )Mr¯ r° r± r² r³ r´ rµ r¶ r· r¸ r¹ rº r» r¼ r½ r¾ r¿ rÀ rÁ r rà rÄ rÅ rÆ rÇ rÈ r½ rÉ rÊ rË rA rÌ rÍ rÎ rÏ rÐ rÑ rÒ rÓ rÔ rÕ rÖ r× rY rØ rÙ rÚ r1 rA r r- rÛ r r r> rÜ rÝ r½ rÞ ra rÍ rß rà rá râ rã rä rå ræ rç rè ré rê rë rì rí rÎ )r r r r r r! r" r# rô rõ rö r r r r rø r r rñ rò r r r r r r r ) sP
(($$$( "$ $$$$ )r r Zpygments.lexerr Z
pygments.utilr r Zpygments.tokenr r r r r r
r r r
r Zpygments.scannerr Zpygments.lexers.modula2r Ú__all__r r r r r r Ú<module> s 0