| Server IP : 127.0.0.1 / Your IP : 216.73.216.109 Web Server : Apache/2.4.54 (Win64) OpenSSL/1.1.1q PHP/8.1.10 System : Windows NT DESKTOP-E5T4RUN 10.0 build 19045 (Windows 10) AMD64 User : SERVERWEB ( 0) PHP Version : 8.1.10 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/cygwin64/lib/python3.9/site-packages/pygments/lexers/__pycache__/ |
Upload File : |
a
SҼa` � @ s� d dl Z d dlmZmZmZmZmZmZmZm Z d dl
m Z m Z d dl
mZmZmZmZmZmZmZmZmZ d dlmZ d dlmZ ddgZG d d� de�Z G d
d� de�Z dS ) � N)�Lexer�
RegexLexer�include�bygroups�words�using�this�default)� get_bool_opt� get_list_opt) �Text�Comment�Operator�Keyword�Name�String�Number� Punctuation�Error)�Scanner)� Modula2Lexer� DelphiLexer�AdaLexerc @ s� e Zd ZdZg d�ZddgZdgZdZdZdZ h d �Z
h d
�Z h d �Z h d �Z
d
dddd�Zh d�Zh d�Zdd� Zdd� ZdS )r ZDelphi)�delphiZpas�pascalZ objectpascalz*.pasz*.dprz
text/x-pascal)8�absolute�and�array�asm�begin�break�case�const� constructor�continue�
destructor�div�doZdownto�else�end�file�for�function�goto�if�implementation�inZ inherited�inline� interface�label�modZnil�not�object�of�on�operator�orZpacked� procedure�program�recordZ reintroduce�repeat�self�set�shl�shr�string�then�to�type�unit�until�uses�var�while�with�xor)�as�class�exceptZexports� finalization�finally�initialization�is�libraryr8 �property�raise� threadvar�try)�dispose�exitZfalse�new�true> r/ r< r# rG rF r% r3 r r; rX rJ rO r= rU rS rQ r9 rI r) r" rV r, > ZnearZ interrupt�nameZcdeclZ softfloat�registerZvarargsZstdcallr1 ZsafecallZexportr �aliasZ nostackframe�overrideZdynamicZexternalZvirtual� assembler> Z
oldfpccallr �index�abstractZfar16Z publishedZforward� protectedZfarZpublicrb r ZprivateZcppdecl>G ZsmallintZlongintZansicharZpdoubleZdoubleZ pwordboolZiunknownZpstringZplongintZttimeZ pshortstringZphandleZ pcardinalZtobjectZ
pwordarrayZpbyteZpcharZ pwidestringZcardinalZthandleZ pshortintZpsingleZ
widestringZ
ansistringZ pextendedZ psmallintZpcompZpint64ZtclassZ shortstringZbooleanZlongword�currency�realZtextfile�boolZreal48ZtdateZwordZbytebool�charZpintegerZ pwidecharZsingleZpboolZpdwordZbyteZ pansistringZpbooleanZint64ZdwordZpdateZpvariantZ pansicharZ pdatetimeZ plongwordZwordbool�compZshortintZ
pbytearrayZvariantZwidecharZintegerZpwordZ tdatetimeZextendedZlongboolZppointerZpointerZ pcurrencyrC )��absZacquireexceptionobjectZaddrZ
ansitoutf8�appendZarctan�assert�assignedZ
assignfileZ beginthreadZ blockreadZ
blockwriter �chdir�chr�closeZ closefileZcomptocurrencyZ comptodouble�concatr$ �copyZcos�dec�deleterZ Z doubletocompZ endthreadZ enummodulesZenumresourcemodules�eofZeolnZeraseZ
exceptaddrZ exceptobjectZexcluder[ ZexpZfileposZfilesizeZfillcharZfinalizeZfindclasshinstanceZ
findhinstanceZfindresourcehinstance�flushZfracZfreememZ get8087cwZgetdirZ getlasterrorZgetmemZgetmemorymanagerZgetmodulefilenameZgetvariantmanagerZhalt�hiZhigh�incr Z
initialize�insert�intZioresultZismemorymanagersetZisvariantmanagerset�lengthZln�loZlow�mkdir�mover\ ZoddZolestrtostringZolestrtostrvar�ordZ
paramcountZparamstrZpi�posZpredZptrZ
pucs4charsZrandomZ randomize�readZreadlnZ
reallocmemZreleaseexceptionobject�rename�resetZrewrite�rmdir�roundZrunerror�seekZseekeofZseekeolnZ set8087cwZ setlengthZsetlinebreakstyleZsetmemorymanagerZ setstringZ
settextbufZsetvariantmanagerZsinZsizeof�sliceZsqrZsqrt�strZ stringofcharZstringtoolestrZstringtowidecharZsuccZswapZtrunc�truncateZtypeinfoZucs4stringtowidestringZ
unicodetoutf8Z uniquestringZupcaseZ
utf8decodeZ
utf8encodeZ
utf8toansiZ
utf8tounicode�valZ
vararrayredimZvarclearZwidecharlentostringZwidecharlentostrvarZwidechartostringZwidechartostrvarZwidestringtoucs4string�writeZwriteln)��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
currtostrf�dateZdatetimetofiledateZ
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
fmtloadstrZfmtstrZforcedirectories�formatZ formatbufZ
formatcurrZformatdatetimeZ formatfloatZ
freeandnilZ
getcurrentdirZgetenvironmentvariableZgetfileversionZgetformatsettingsZgetlocaleformatsettingsZ
getmodulenameZgetpackagedescriptionZgetpackageinfoZgettimeZ guidtostringZ incamonthZincludetrailingbackslashZ includetrailingpathdelimiterZincmonthZinitializepackageZinterlockeddecrementZinterlockedexchangeZinterlockedexchangeaddZinterlockedincrementZinttohexZinttostrZ isdelimiterZ isequalguidZ
isleapyearZispathdelimiterZ isvalidident� languagesZ
lastdelimiterZ loadpackageZloadstrZ lowercaseZmsecstotimestampZnewstrZ
nextcharindexZnowZoutofmemoryerrorZ quotedstrZraiselastoserrorZraiselastwin32errorZ removedirZ
renamefileZ replacedateZ replacetimeZsafeloadlibraryZ samefilenameZsametextZ
setcurrentdirZ
showexception�sleepZstrallocZ
strbufsizeZ strbytetypeZstrcatZ
strcharlengthZstrcompZstrcopyZ
strdisposeZstrecopyZstrendZstrfmtZstricompZ
stringreplaceZ stringtoguidZstrlcatZstrlcompZstrlcopyZstrlenZstrlfmtZ strlicompZstrlowerZstrmoveZstrnewZ strnextcharZstrpasZstrpcopyZ strplcopyZstrposZstrrscanZstrscanZ strtoboolZ strtobooldefZ strtocurrZ strtocurrdefZ strtodateZ strtodatedefZ
strtodatetimeZstrtodatetimedefZ
strtofloatZ
strtofloatdefZstrtointZ
strtoint64Z
strtoint64defZ strtointdefZ strtotimeZ strtotimedefZstrupperZsupportsZsyserrormessageZsystemtimetodatetimeZ texttofloat�timeZtimestamptodatetimeZtimestamptomsecsZ 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 degtogradZdegtorad�divmodZdoubledecliningbalanceZ ensurerangeZfloorZfrexpZ futurevalueZgetexceptionmaskZgetprecisionmodeZ getroundmodeZ gradtocycleZ gradtodegZ gradtoradZhypotZinrangeZinterestpaymentZ interestrateZinternalrateofreturnZintpowerZ
isinfiniteZisnanZiszeroZldexpZlnxp1Zlog10Zlog2Zlogn�maxZ maxintvalueZmaxvalueZmeanZ
meanandstddev�minZ minintvalueZminvalueZmomentskewkurtosisZnetpresentvalueZnormZnumberofperiodsZpaymentZ
periodpaymentZpolyZ
popnstddevZ popnvarianceZpowerZ presentvalueZ
radtocycleZradtodegZ radtogradZrandgZ randomrangeZroundtoZ samevalueZsecZsecantZsechZsetexceptionmaskZsetprecisionmodeZ setroundmode�signZ
simpleroundtoZsincosZsinhZslndepreciationZstddev�sumZsumintZ sumofsquaresZsumsandsquaresZsyddepreciationZtanZtanhZ
totalvarianceZvariance)ZSystemZSysUtilsZClassesZMath>C ZbpZmm1�bx�csZecxZdr1ZediZst1Zxmm1ZfsZxmm2Zmm4ZchZcr4ZdsZclZebpZxmm6Zcr2Zdr6ZdhZdlZdxZeaxZdr0Zst6Zcr3Zedx�ax�ssZdr7�esZxmm5Zst7Zcr1Zst4Zxmm4ZahZcr0ZebxZmm2�siZalZcxZst2Zxmm7Zdr2Zmm3Zmm0ZdiZst3ZesiZblZxmm3Zdr3ZespZdr4Zxmm0Zmm6Zmm5Zmm7Zst0Zdr5ZgsZbh�spZst5> ZcmpsdZcli�waitZrdshrZstdZsetnpZjlZjsZrolZaadZsldtZpopaZjecxzZpushaZcmpsbZint03�boundr� ZscasbZloadall�loopZpopawZarplZrclZsetaZpushawZcmovnbeZmovzxZsetnsZbtcZcmovbZbswapZretfZsysretZsgdtrM ZcmoveZjnbeZsmintold�cmpZstcZsetcxzZshldZbsf�lockZrepz�mulZjzZsetgZbtZsetngeZiretw�testZrsldtZsetpoZcmcZjnaZsetzZrdpmcZxaddZadcZpushadZjngeZsetngr ZsetnlZemmsZclcZicebpZleaZenterZwrshrZloopneZscaswZstosbZsetnbeZxbtsZjpZlahfZinvdZjnaeZinsdZdasZinswZcldZpopfwZjbZsvtsZverrZljmpZcmovleZsetnbZjnpZcmpswZcmovngZidivZ
loadall286ZsetnaZsmswZud1ZmovqZsahfZseto�imul�popZlmswZcmovcxzZmovZpushfZsetbeZcltsZcmovpZlodswZcmovnleZiret�retZsvldtZjoZrepneZstiZcmovncZcmpxchgZsetcZwrmsrZldsZjnleZsetpZcmovnpZmovdZsalcrt ZaaaZlssZsetneZsetgeZcmovoZ cmpxchg8bZrepeZcmovneZsysenterZsvdcr: ZlldtZpopfZsetsZcmovnaeZlcallr{ ZmovswZrcrZverwZlesZcbwZjbeZsalZsarZsetnoZsetleZcmovzZcmovns�negZcmovlZlgdtZpushfdZcmovnzZinvlpgZoutsdZstosdZbtrZjper& ZbtsZsbbZsmiZcdqZcmovbeZcmovsZcwdeZcmovnlZibtsZsetlZrsdcZcmovnaZinto�outZwbinvdZseteZjgeZrepZjleZxlatbZcmovcZsetnleZsetaeZmovsbZjnsZjnlZlarZlfsZhltZrdmsrZcmovperB Zcpuid�cwdZiretdZcmovarA Zint3ZjpoZjnoZrdtscZsetnaeZretnZsetpeZltrZint1ZjcxzZleaveZpopadZaasZcmovgZjc�callZsyscallry ZcmovnoZlidtZshrd�subZud2ZxchgZcmovpoZint01ZlgsZstoswZscasdZumovZaamZrorZlodsbZcmovaeZpopfdZjnb�jaZjncZmovsdZjngZjaeZloopnzZbsr�addZloopeZlslZsetncZrepnzr0 Zcmovnge�pushZsetnzZmovsxZjmpZoutsbZjgZloopzZsysexitZnopZxlatZsmintZjeZoutswZinsbZcmovgeZpushfwZlodsdZsidtZcmovnbZjner5 ZjnzZsetbZrsmZ
cmpxchg486Zdaac K s� t j| fi |�� t� | _t|dd�r4| j�| j� t|dd�rN| j�| j� t|dd�rh| j�| j� t� | _ t
|dt | j ��D ]}| j �| j | � q�d S )NZ turbopascalTr Z
freepascalZunits)
r �__init__r@ �keywordsr
�update�TURBO_PASCAL_KEYWORDS�DELPHI_KEYWORDS�FREE_PASCAL_KEYWORDS�builtinsr �list�
BUILTIN_UNITS)r? �optionsrG � r� �:/usr/lib/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} |j�s�t} |d dk�r�|�d�rpt } �qp|�d�r�|j
� d�r�t j
} nt j} �qp|�d�r�t j} �qp|�d �r�t} | r�|j
d
kr�d} �qp|�d ��rht} d}|s�|�r�|j
d k�r | d d
7 < nX|j
dk�r*| d d
8 < n:|j
dk�rH| d
d
7 < n |j
dk�r�| d
d
8 < �qp|�d��r"|j
�� }
|
dk�r�tjj} �q�|
| jv �r<t} |�s�|�r�|
| jv �r�| d dk�r�| d
dk�r�d}d}ddg} t� }
|
dv �r�d} n<|
dk�r|�d� n&|
dk�r(d}d}n|
dv �r d}d}n�|�rV|
| jv �rVtj} n�|�rr|
dv �rrtj} d}n�|�r�|�d��r�tj } n
tj } d}n�|�r�tj } d}nv| �r�tj } |
� |j
�� � nX|
|
v �r�tj } nF|
| j!v �r�tj"} n2|
| j#v �rtj} n |�s |
| j$v �r tj} nt} n�|�d��r>t%} |�d� nn|�d ��rRt%j&} nZ|�d ��rft'j(} nF|�d ��rzt'j)} n2|�d ��r�t'j*} n t+|�d
k�r�|�,� |�-� �n�|d dk�r|�d ��r�t%j.} n<|�d��r�t%} |�,� n"|�d!��r�t%} n|�-� |�,� �n^|d dk�rp|�d��r4t } �n<|�d"��rPt} |�,� �n |�d��rz|j
� d��rrt j
} nt j} n�|�d��r�t j} n�|�d��r�t%} |�d� n�|�d#��r�tj } n�|�d��r |j
�� }
|
| j/v �r�t} n|
| j0v �r�tj} 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
�p�d&fV qDd S )'N�initialFr ����\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 �re�DOTALL� MULTILINE�
IGNORECASEr@ Zeosr �scanr �match�
startswithr
�PreprocZ Multiline�Singler r �lowerr ZBuiltinZPseudor� r �BLOCK_KEYWORDSrl �FUNCTION_MODIFIERSr� �Class�FunctionZProperty�Labelr� �
BUILTIN_TYPES�Type�
DIRECTIVESr� r ZCharr �Hex�Integer�Float�lenr� Zget_charZEscape�ASM_INSTRUCTIONS�
ASM_REGISTERS�stripZ start_pos)r? �text�scanner�stackZin_function_blockZin_property_blockZwas_dotZnext_token_is_functionZnext_token_is_propertyZcollect_labelsZ block_labelsZ
brace_balance�tokenZlowercase_namer� r� r� �get_tokens_unprocessed9 s8
�
�
�
��
z"DelphiLexer.get_tokens_unprocessedN)�__name__�
__module__� __qualname__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 ZdZg d�Zg d�ZdgZejej B Z
de fde j
fde fdejdfd eeje ej�d
fd ejfd eeje �fd
eeje �dfdeeje e j�fdejfeddd�ejfdejfdejfdejdfdejdfdeeje �dfdeeje ee ej�fd ejfd eeje ee ej�fed 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.ed/fd0ejd/fd1ej&fe d2�gd3ejfd4ej&fd5e fd.ed/fgd.ed/fd,ed6fd7ejfdejd8fd9ejd:fd;eeje�d/fe d2�gd.ed/fd<eeje ej�fe d2�gd=ejd/fe d2�gd>ejd/fe'd/�gd?ed/fd@ej(fdAefdBejfe d2�gdCejfdDejfdEejd/fd.ed/fd,edFfdGej)fe d2�gdHeej(e e�fdIe fd?ed/fe d2�gdJ� Z*dKS )Lr 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|private�packagezarray\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 Zaccept�accessZaliased�allr Zatr �bodyr! ZconstantZdeclareZdelayZdelta�digitsr' r( Zelsifr) �entry� exceptionr[ r2 r+ r- r. rT Zlimitedr� r\ Znullr7 r: Zothersr� Z
overridingZpragmare rW �ranger= �renamesZrequeue�return�reverseZselectZseparateZsomeZsubtypeZ synchronizedZtaskZtaggedZ terminaterD rF rH ZwhenrK rM )�prefixr� z"[^"]*"� attribute�numbersz'[^']'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� �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� 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� �<module> s (, g