Your IP : 216.73.216.213
B
Ƚ�\� � @ 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-2019 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 ZdZdZddddgZddgZd gZd
Zd Z d Z
e d
�Z e d�Z
e d�Ze d�Zddddd�Ze d�Ze d�Zdd� Zdd� Zd S ) 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.
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�exit�false�new�true)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 softfloatZstdcall�varargs�nameZdynamicZnearZvirtualZexternal�override� assembler)r �abstractrd Zcppdeclr ZfarZfar16Zforward�indexZ
oldfpccallZprivate� protectedZ published�public)GZansicharZ
ansistring�boolZbooleanZbyteZbyteboolZcardinal�char�comp�currencyZdoubleZdword�extendedZint64�integerZiunknownZlongboolZlongintZlongwordZ pansicharZ pansistringZpboolZpbooleanZpbyteZ
pbytearrayZ pcardinalZpcharZpcompZ pcurrencyZpdateZ pdatetimeZpdoubleZpdwordZ pextendedZphandleZpint64ZpintegerZplongintZ plongword�pointerZppointerZ pshortintZ pshortstringZpsingleZ psmallintZpstringZpvariantZ pwidecharZ pwidestringZpwordZ
pwordarrayZ pwordbool�realZreal48ZshortintZ shortstringZsingleZsmallintrC ZtclassZtdateZ tdatetimeZtextfileZthandleZtobjectZttimeZvariantZwidecharZ
widestring�wordZwordbool)��absZacquireexceptionobject�addrZ
ansitoutf8�appendZarctan�assert�assignedZ
assignfileZ beginthreadZ blockreadZ
blockwriter �chdir�chr�closeZ closefileZcomptocurrencyZ comptodouble�concatr$ �copy�cos�dec�deleterZ Z doubletocompZ endthreadZ enummodulesZenumresourcemodules�eofZeolnZeraseZ
exceptaddrZ exceptobject�excluder[ �exp�filepos�filesizeZfillchar�finalizeZfindclasshinstanceZ
findhinstanceZfindresourcehinstance�flushZfracZfreememZ get8087cwZgetdirZ getlasterrorZgetmemZgetmemorymanagerZgetmodulefilenameZgetvariantmanagerZhalt�hi�high�incr Z
initialize�insert�intZioresultZismemorymanagersetZisvariantmanagerset�length�ln�lo�low�mkdir�mover] ZoddZolestrtostringZolestrtostrvar�ordZ
paramcountZparamstr�pi�pos�pred�ptrZ
pucs4chars�randomZ randomize�readZreadlnZ
reallocmemZreleaseexceptionobject�rename�resetZrewrite�rmdir�roundZrunerror�seekZseekeofZseekeolnZ set8087cwZ setlengthZsetlinebreakstyleZsetmemorymanagerZ setstringZ
settextbufZsetvariantmanager�sin�sizeof�sliceZsqr�sqrt�strZ stringofcharZstringtoolestrZstringtowidecharZsuccZswap�trunc�truncateZtypeinfoZucs4stringtowidestringZ
unicodetoutf8Z uniquestringZupcaseZ
utf8decodeZ
utf8encodeZ
utf8toansiZ
utf8tounicode�valZ
vararrayredimZvarclearZwidecharlentostringZwidecharlentostrvarZwidechartostringZwidechartostrvarZwidestringtoucs4string�write�writeln)��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
getcurrentdirZgetenvironmentvariableZgetfileversionZgetformatsettingsZgetlocaleformatsettings�
getmodulenameZgetpackagedescriptionZgetpackageinfoZgettimeZ guidtostringZ incamonthZincludetrailingbackslashZ includetrailingpathdelimiterZincmonthZinitializepackageZinterlockeddecrementZinterlockedexchangeZinterlockedexchangeaddZinterlockedincrementZinttohexZinttostrZ isdelimiterZ isequalguidZ
isleapyearZispathdelimiterZ isvalidident� languagesZ
lastdelimiterZ loadpackageZloadstrZ lowercaseZmsecstotimestampZnewstrZ
nextcharindex�nowZoutofmemoryerrorZ quotedstrZraiselastoserrorZraiselastwin32errorZ removedirZ
renamefileZ replacedateZ replacetimeZsafeloadlibraryZ samefilenameZsametextZ
setcurrentdirZ
showexception�sleepZstrallocZ
strbufsizeZ strbytetypeZstrcatZ
strcharlengthZstrcompZstrcopyZ
strdisposeZstrecopyZstrendZstrfmtZstricompZ
stringreplaceZ stringtoguidZstrlcatZstrlcompZstrlcopyZstrlenZstrlfmtZ strlicompZstrlowerZstrmoveZstrnewZ strnextcharZstrpasZstrpcopyZ strplcopyZstrposZstrrscanZstrscan� 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)dZarccosZarccoshZarccotZarccothZarccscZarccschZarcsecZarcsechZarcsinZarcsinhZarctan2Zarctanh�ceilZ comparevalueZcosecant�coshZcotZcotanZcothZcscZcschZ
cycletodegZ cycletogradZ
cycletoradZ
degtocycleZ degtogradZdegtorad�divmodZdoubledecliningbalanceZ ensurerange�floor�frexpZ futurevalueZgetexceptionmaskZgetprecisionmodeZ getroundmodeZ gradtocycleZ gradtodegZ gradtorad�hypotZinrangeZinterestpaymentZ interestrateZinternalrateofreturnZintpowerZ
isinfinite�isnanZiszero�ldexpZlnxp1�log10�log2Zlogn�maxZ maxintvalueZmaxvalueZmeanZ
meanandstddev�minZ minintvalueZminvalueZmomentskewkurtosisZnetpresentvalueZnormZnumberofperiodsZpaymentZ
periodpaymentZpolyZ
popnstddevZ popnvarianceZpowerZ presentvalueZ
radtocycleZradtodegZ radtogradZrandgZ randomrangeZroundtoZ samevalueZsecZsecantZsechZsetexceptionmaskZsetprecisionmodeZ setroundmode�signZ
simpleroundtoZsincos�sinhZslndepreciation�stddev�sumZsumintZ sumofsquaresZsumsandsquaresZsyddepreciation�tan�tanhZ
totalvarianceZvariance)�SystemZSysUtilsZClassesZMath)CZahZalZaxZbhZblZbpZbx�chZclZcr0Zcr1Zcr2Zcr3Zcr4�csZcxZdhZdiZdlZdr0Zdr1Zdr2Zdr3Zdr4Zdr5Zdr6Zdr7ZdsZdxZeaxZebpZebxZecxZediZedx�esZesiZespZfsZgsZmm0Zmm1Zmm2Zmm3Zmm4Zmm5Zmm6Zmm7�si�sp�ssZst0Zst1Zst2Zst3Zst4Zst5Zst6Zst7Zxmm0Zxmm1Zxmm2Zxmm3Zxmm4Zxmm5Zxmm6Zxmm7( ZaaaZaadZaamZaasZadc�addr ZarplZboundZbsfZbsrZbswapZbtZbtcZbtrZbts�callZcbwZcdqZclcZcld�cliZcltsZcmcZcmovaZcmovaeZcmovbZcmovbeZcmovcZcmovcxzZcmoveZcmovgZcmovgeZcmovlZcmovleZcmovnaZcmovnaeZcmovnbZcmovnbeZcmovncZcmovneZcmovngZcmovngeZcmovnlZcmovnleZcmovnoZcmovnpZcmovnsZcmovnzZcmovoZcmovpZcmovpeZcmovpoZcmovsZcmovzZcmpZcmpsbZcmpsdZcmpswZcmpxchgZ
cmpxchg486Z cmpxchg8bZcpuid�cwdZcwdeZdaaZdasr} r& ZemmsZenterZhltZibtsZicebpZidiv�imulr0 r� ZinsbZinsdZinswr� Zint01Zint03Zint1Zint3ZintoZinvdZinvlpgZiretZiretdZiretw�jaZjaeZjbZjbeZjc�jcxzr� ZjeZjecxzZjgZjgeZjlZjleZjmp�jnaZjnaeZjnbZjnbeZjncZjneZjngZjngeZjnlZjnleZjnoZjnpZjnsZjnzZjoZjpZjpeZjpoZjsZjzZlahfZlarZlcallZldsZleaZleaveZlesZlfsZlgdtZlgsZlidtZljmpZlldtZlmswZloadallZ
loadall286�lockZlodsbZlodsdZlodsw�loopZloopeZloopneZloopnzZloopzZlslZlssZltrZmovZmovdZmovqZmovsbZmovsdZmovswZmovsxZmovzx�mul�negZnopr5 r: �outZoutsbZoutsdZoutsw�popZpopaZpopadZpopawZpopfZpopfdZpopfw�pushZpushaZpushadZpushawZpushfZpushfdZpushfwZrclZrcrZrdmsrZrdpmcZrdshrZrdtsc�repZrepeZrepneZrepnzZrepz�retZretfZretnZrolZrorZrsdcZrsldtZrsmZsahfZsalZsalcZsarZsbbZscasbZscasdZscaswZsetaZsetaeZsetbZsetbeZsetcZsetcxzZseteZsetgZsetgeZsetlZsetleZsetnaZsetnaeZsetnbZsetnbeZsetncZsetneZsetngZsetngeZsetnlZsetnleZsetnoZsetnpZsetnsZsetnzZsetoZsetpZsetpeZsetpoZsetsZsetzZsgdtrA ZshldrB ZshrdZsidtZsldtZsmiZsmintZsmintoldZsmswZstcZstdZstiZstosbZstosdZstoswr� �subZsvdcZsvldtZsvtsZsyscallZsysenterZsysexitZsysret�testZud1Zud2ZumovZverrZverw�waitZwbinvdZwrmsrZwrshrZxaddZxbtsZxchgZxlatZxlatbrM c K s� t j| f|� t� | _t|dd�r0| j�| j� t|dd�rJ| j�| j� t|dd�rd| j�| j� t� | _ x,t
|dt | j ��D ]}| j �| j | � q�W 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� �G/opt/alt/python37/lib/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\|j�s�t} |d dk�r�|�d�rtt } �qt|�d�r�|j
� d�r�t j
} nt j} �qt|�d�r�t j} �qt|�d �r�t} | r�|j
d
kr�d} �qt|�d ��rlt} d}|s�|�r�|j
d k�r| d d
7 < nX|j
dk�r.| d d
8 < n:|j
dk�rL| d
d
7 < n |j
dk�r�| d
d
8 < �qt|�d��r&|j
�� }
|
dk�r�tjj} �q�|
| jk�r@t} |�s�|�r�|
| jk�r�| d dk�r�| d
dk�r�d}d}ddg} t� }
|
dk�rd} n<|
dk�r|�d� n&|
dk�r,d}d}n|
dk�r$d}d}n�|�rZ|
| jk�rZtj} n�|�rv|
dk�rvtj} d}n�|�r�|�d��r�tj } n
tj } d}n�|�r�tj } d}nv| �r�tj } |
� |j
�� � nX|
|
k�r�tj } nF|
| j!k�r�tj"} n2|
| j#k�rtj} n |�s |
| j$k�r tj} nt} n�|�d��rBt%} |�d� nn|�d ��rVt%j&} nZ|�d ��rjt'j(} nF|�d ��r~t'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!��rt%} n|�-� |�,� �n^|d dk�rt|�d��r8t } �n<|�d"��rTt} |�,� �n |�d��r~|j
� d��rvt j
} nt j} n�|�d��r�t j} n�|�d��r�t%} |�d� n�|�d#��r�tj } n�|�d��r|j
�� }
|
| j/k�r�t} n|
| j0k�r�tj} nt} np|�d$��rt} n^|�d ��r(t} nL|�d ��r<t'j(} n8|�d ��rPt'j)} n$|�d ��rdt'j*} n|�-� |�,� |j
�1� �r�|j
d%k}|j2| |j
�p�d&fV qHW d S )'N�initialFr ���z\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_KEYWORDSrt �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_unprocessed: s.
z"DelphiLexer.get_tokens_unprocessedN)�__name__�
__module__� __qualname__�__doc__rb �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 ej�dfdejfdeeje �fdeeje �dfdeeje e
j�fdejfeddd�ejfdejfdejfdejdfd ejd fd eeje �d fd 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%fgd0eeej&�fgd1ed2fd3ed4fd5ejd4fd6ej'fe d7�gd8ejfd9ej'fd:e fd3ed4fgd3ed4fd1ed;fd<ejfd ejd=fd>ejd?fd@eeje�d4fe d7�gd3ed4fdAeeje ej�fe d7�gdBejd4fe d7�gdCejd4fe(d4�gdDed4fdEej)fdFefdGejfe d7�gdHejfdIejfdJejd4fd3ed4fd1edKfdLej*fe d7�gdMeej)e e�fdNe fdDed4fe d7�gdO� 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|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� rr re �accept�access�aliased�allr Zatr �bodyr! ZconstantZdeclare�delay�delta�digitsr' r( Zelsifr) �entry� exceptionr[ r2 r+ r- r. rT Zlimitedr� r] Znullr7 r: Zothersr� Z
overridingZpragmarg rW �ranger= �renamesZrequeue�return�reverse�selectZseparate�subtypeZ synchronizedZtaskZtagged� 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\()z#pop� formal_partr� z#popzis\bz "[^"]+"|\w+�rootz (if|case|record|loop|select)z"[^"]+"|[\w.]+z\s+r7 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.\'"]) r8 r6 r5 r r) r r! r9 r" r7 r r: N),r r r r rb r r r r� r� r� �flagsr r
r� r Z Declarationr r ZReservedr� ZConstantr r �WordZ Namespacer r r r r r r r r r r
r � Attributer r �Variabler �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� �<module>
s (, g