|
Server : Apache System : Linux iad1-shared-b8-43 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64 User : dh_edsupp ( 6597262) PHP Version : 8.2.26 Disable Function : NONE Directory : /lib/python3/dist-packages/pygments/lexers/__pycache__/ |
Upload File : |
o
���a` � @ s� d Z ddlZddlmZmZmZmZmZmZm Z m
Z
ddl m Z m
Z
ddlmZmZmZmZmZmZmZmZmZ ddlmZ ddlmZ dd gZ G d
d� de�Z G d d � d e�Z 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�
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 ZdZdZg d�ZddgZdgZdZdZ d Z
h d
�Z h d �Z h d �Z
h d
�Zddddd�Zh d�Zh d�Zdd� Zdd� ZdS )r aj
For `Delphi <http://www.borland.com/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)�delphi�pas�pascal� objectpascalz*.pasz*.dprz
text/x-pascal)8�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�repeat�self�set�shl�shr�string�then�to�type�unit�until�uses�var�while�with�xor)�as�class�except�exports� finalization�finally�initialization�is�libraryr> �property�raise� threadvar�try)�dispose�exit�false�new�true> r- rR rN rO rQ r" rW r% r8 rD r^ rC r0 r? r_ rB ra r( r& rZ r3 r\ > �name�near�alias�cdecl�exportr6 r �dynamic�stdcall�varargs�virtual�external�override�register�safecall� assembler� interrupt� softfloat� nostackframe> �far�far16�index�public�cppdeclr �forward�privater �abstractru � protected� published�
oldfpccall>G �bool�byte�char�comp�real�word�dword�int64�pbool�pbyte�pchar�pcomp�pdate�pword�tdate�ttime�double�pdword�pint64�real48�singlerK �tclass�boolean�integer�longint�pdouble�phandle�pointer�psingle�pstring�thandle�tobject�variant�ansichar�bytebool�cardinal�currency�extended�iunknown�longbool�longword�pboolean�pinteger�plongint�ppointer�pvariant�shortint�smallint�textfile�widechar�wordbool� pansichar� pcardinal� pcurrency� pdatetime� pextended� plongword� pshortint� psmallint� pwidechar� pwordbool� tdatetime�
ansistring�
pbytearray�
pwordarray�
widestring� pansistring� pwidestring� shortstring� pshortstring)��abs�acquireexceptionobject�addr�
ansitoutf8�append�arctan�assert�assigned�
assignfile� beginthread� blockread�
blockwriter# �chdir�chr�close� closefile�comptocurrency� comptodouble�concatr' �copy�cos�dec�deleterc � doubletocomp� endthread� enummodules�enumresourcemodules�eof�eoln�erase�
exceptaddr� exceptobject�excluderd �exp�filepos�filesize�fillchar�finalize�findclasshinstance�
findhinstance�findresourcehinstance�flush�frac�freemem� get8087cw�getdir� getlasterror�getmem�getmemorymanager�getmodulefilename�getvariantmanager�halt�hi�high�incr �
initialize�insert�int�ioresult�ismemorymanagerset�isvariantmanagerset�length�ln�lo�low�mkdir�moverf �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)d�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)�System�SysUtils�Classes�Math>C �ah�al�ax�bh�bl�bp�bx�ch�cl�cs�cx�dh�di�dl�ds�dx�es�fs�gs�si�sp�ss�cr0�cr1�cr2�cr3�cr4�dr0�dr1�dr2�dr3�dr4�dr5�dr6�dr7�eax�ebp�ebx�ecx�edi�edx�esi�esp�mm0�mm1�mm2�mm3�mm4�mm5�mm6�mm7�st0�st1�st2�st3�st4�st5�st6�st7�xmm0�xmm1�xmm2�xmm3�xmm4�xmm5�xmm6�xmm7> �btr4 �ja�jb�jc�je�jg�jl�jo�jp�js�jzr@ �aaa�aad�aam�aas�adc�addr �bsf�bsr�btc�btr�bts�cbw�cdq�clc�cld�cli�cmc�cmp�cwd�daa�dasr� r) �hltr r �jae�jbe�jge�jle�jmp�jna�jnb�jnc�jne�jng�jnl�jno�jnp�jns�jnz�jpe�jpo�lar�lds�lea�les�lfs�lgs�lsl�lss�ltr�mov�mul�neg�nopr; �out�pop�rcl�rcr�rep�ret�rol�ror�rsm�sal�sar�sbbrI rJ �smi�stc�std�stir3 �sub�ud1�ud2rU �arpl�call�clts�cwde�emms�ibts�idiv�imul�insb�insd�insw�int1�int3�into�invd�iret�jcxz�jnae�jnbe�jnge�jnle�lahf�lgdt�lidt�ljmp�lldt�lmsw�lock�loop�movd�movq�popa�popf�push�repe�repz�retf�retn�rsdc�sahf�salc�seta�setb�setc�sete�setg�setl�seto�setp�sets�setz�sgdt�shld�shrd�sidt�sldt�smsw�svdc�svts�test�umov�verr�verw�wait�xadd�xbts�xchg�xlat�bound�bswap�cmova�cmovb�cmovc�cmove�cmovg�cmovl�cmovo�cmovp�cmovs�cmovz�cmpsb�cmpsd�cmpsw�cpuid�enter�icebp�int01�int03�iretd�iretw�jecxz�lcall�leave�lodsb�lodsd�lodsw�loope�loopz�movsb�movsd�movsw�movsx�movzx�outsb�outsd�outsw�popad�popaw�popfd�popfw�pusha�pushf�rdmsr�rdpmc�rdshr�rdtsc�repne�repnz�rsldt�scasb�scasd�scasw�setae�setbe�setge�setle�setna�setnb�setnc�setne�setng�setnl�setno�setnp�setns�setnz�setpe�setpo�smint�stosb�stosd�stosw�svldt�wrmsr�wrshr�xlatb�cmovae�cmovbe�cmovge�cmovle�cmovna�cmovnb�cmovnc�cmovne�cmovng�cmovnl�cmovno�cmovnp�cmovns�cmovnz�cmovpe�cmovpo�invlpg�loopne�loopnz�pushad�pushaw�pushfd�pushfw�setcxz�setnae�setnbe�setnge�setnle�sysret�wbinvd�cmovcxz�cmovnae�cmovnbe�cmovnge�cmovnle�cmpxchg�loadall�syscall�sysexit�smintold�sysenter� cmpxchg8b�
cmpxchg486�
loadall286c K s� t j| fi |�� t� | _t|dd�r| j�| j� t|dd�r'| j�| j� t|dd�r4| j�| j� t� | _ t
|dt | j ��D ] }| j �| j | � qAd S )N� turbopascalTr �
freepascal�units)
r �__init__rH �keywordsr
�update�TURBO_PASCAL_KEYWORDS�DELPHI_KEYWORDS�FREE_PASCAL_KEYWORDS�builtinsr �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} |j�s�t} |d dk�r�|�d�r9t } �n�|�d�rN|j
� d�rIt j
} �nut j} �np|�d�rXt j} �nf|�d �rjt} | rh|j
d
krhd} �nT|�d �r�t} 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 |�d��r�|j
�� }
|
dkr�tjj} �n�|
| jv �rt} |s�|r�|
| jv r�| d dkr�| d
dkr�d}d}ddg} t� }
|
dv r�d} �n�|
dk�r|�d� �n�|
dk�rd}d}�n�|
dv �rd}d}�n�|�r(|
| jv �r(tj} �n�|�r7|
dv �r7tj} d}�n�|�rL|�d��rEtj } �nytj } d}�nr|�rVtj } d}�nh| �rftj } |
� |j
�� � �nX|
|
v �rptj } �nN|
| j!v �r{tj"} �nC|
| j#v �r�tj} �n8|�s�|
| j$v �r�tj} �n*t} �n&|�d��r�t%} |�d� �n|�d ��r�t%j&} �n |�d ��r�t'j(} �n|�d ��r�t'j)} n�|�d ��r�t'j*} n�t+|�d
k�r�|�,� |�-� n�|d dk�r|�d ��r�t%j.} n�|�d��r�t%} |�,� n�|�d!��rt%} n�|�-� |�,� n�|d dk�r�|�d��r!t } n�|�d"��r.t} |�,� n�|�d��rC|j
� d��r?t j
} nt j} n{|�d��rMt j} nq|�d��r[t%} |�d� nc|�d#��retj } nY|�d��r�|j
�� }
|
| j/v �ryt} nE|
| j0v �r�tj} n;t} n8|�d$��r�t} n/|�d ��r�t} n&|�d ��r�t'j(} n |�d ��r�t'j)} n|�d ��r�t'j*} n|�-� |�,� |j
�1� �r�|j
d%k}|j2| |j
�p�d&fV |jr'd S d S )'N�initialFr ����\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 �re�DOTALL� MULTILINE�
IGNORECASErH �eosr �scanr �match�
startswithr
�Preproc� Multiline�Singler r �lowerr �Builtin�Pseudor2 r �BLOCK_KEYWORDSr� �FUNCTION_MODIFIERSr� �Class�Function�Property�Labelr. �
BUILTIN_TYPES�Type�
DIRECTIVESr7 r �Charr �Hex�Integer�Float�lenr^ �get_char�Escape�ASM_INSTRUCTIONS�
ASM_REGISTERS�strip� start_pos)rG �text�scanner�stack�in_function_block�in_property_block�was_dot�next_token_is_function�next_token_is_property�collect_labels� block_labels�
brace_balance�token�lowercase_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 d�Zg d�ZdgZej ej
B Z de fde
jfde fdejd fd
eeje ej�d fd ejfd
eeje �fdeeje �dfdeeje e
j�fdejfeddd�ejfdejfdejfdejdfdejdfdeeje �dfd eeje ee ej�fd ej fd eej e 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/ed0fd1ejd0fd2ej'fe d3�gd4ejfd5ej'fd6e fd/ed0fgd/ed0fd-ed7fd8ejfdejd9fd:ejd;fd<eeje�d0fe d3�gd/ed0fd=eeje ej�fe d3�gd>ejd0fe d3�gd?ejd0fe(d0�gd@ed0fdAej)fdBefdCejfe d3�gdDejfdEejfdFejd0fd/ed0fd-edGfdHej*fe d3�gdIeej)e e�fdJe fd@ed0fe d3�gdK� Z+dLS )Mr z9
For Ada source code.
.. versionadded:: 1.3
�Ada)�ada�ada95�ada2005)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)�Address�Byte�Boolean� Character�
Controlled�Count�Cursor�Duration� File_Mode� File_Typere � Generatorrd �
Long_Float� Long_Integer�Long_Long_Float�Long_Long_Integer�Natural�Positive�Reference_Type� Short_Float�
Short_Integer�Short_Short_Float�Short_Short_Integerr �Wide_Character� 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))=rN r� r� �accept�access�aliased�allr �atr" �bodyr$ �constant�declare�delay�delta�digitsr* r, �elsifr- �entry� exceptionrd r7 r/ r1 r2 r] �limitedr� rf �nullr= r@ �othersr] �
overriding�pragmar� r` �rangerD �renames�requeue�return�reverse�select�separate�some�subtype� synchronized�task�tagged� terminaterL rN rP �whenrS rU )�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_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< �<module> s
(, g