File manager - Edit - /opt/saltstack/salt/lib/python3.10/site-packages/pygments/lexers/__pycache__/pascal.cpython-310.pyc
Back
o ;jy � @ s� d Z ddlZddlmZ ddlmZmZ ddlmZm Z m Z m Z m Z m Z mZmZmZ ddlmZ ddlmZ dd gZG d d � d e�ZG d d� de�ZdS ) z� pygments.lexers.pascal ~~~~~~~~~~~~~~~~~~~~~~ Lexers for Pascal family languages. :copyright: Copyright 2006-present by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. � N)�Lexer)� get_bool_opt� get_list_opt) �Comment�Operator�Keyword�Name�String�Number� Punctuation�Error� Whitespace)�Scanner)� Modula2Lexer� DelphiLexer� PortugolLexerc @ s> e Zd ZdZdZdgZddgZg ZdZdZ dd � 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/linguagem� c K s. t j| fi |�� tdi |�ddi��| _d S )Nr T� )r �__init__r �lexer)�self�optionsr r �J/opt/saltstack/salt/lib/python3.10/site-packages/pygments/lexers/pascal.pyr " s zPortugolLexer.__init__c C s | 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�url� version_addedr r r r r r r s c @ s� e Zd ZdZdZg d�ZddgZdgZdZdZ d Z d Z d Z h d �Z h d �Zh d�Zh d�Zddddd�Zh d�Zh d�ZdZh d�Zdd� Zdd � Zd S ) 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)�delphiZpas�pascalZ objectpascalz*.pasz*.dprz text/x-pascalz+https://www.embarcadero.com/products/delphir )8�absolute�and�array�asm�begin�break�case�const� constructor�continue� destructor�divZdoZdownto�else�end�file�for�function�goto�if�implementation�inZ inherited�inlineZ interface�label�mod�nil�not�objectZof�on�operator�or�packed� procedure�program�recordZ reintroduce�repeatr �set�shl�shr�stringZthen�to�type�unitZuntil�uses�var�while�with�xor)�as�class�exceptZexports� finalization�finally�initialization�is�libraryrC �property�raise� threadvar�try)�dispose�exit�false�new�true> rG r; rR rQ rS r2 rH r^ r/ rX r\ rP rD r_ r5 rZ ra r> r0 rI r8 r, > ZexternalZcdeclr r= ZvirtualZ interruptZdynamicr' Zexport�override� assemblerZstdcallZsafecallZnearZvarargsZ nostackframeZ softfloat�alias�register> Zabstract�indexZpublicZcppdeclZprivateZfar16Z oldfpccallri ZfarZforwardZ published�defaultZ protectedr( >G �comp�integerZ pwidestring�currencyZansicharZbyteboolZ pcurrencyZlongbool�real�extendedZ pansistringZ pcardinalZttimeZpbyteZ tdatetimeZ ansistringZpboolZint64ZpbooleanZbyteZpdwordZpdoubleZpchar�wordZpsingleZsingle�charZsmallintZtobjectZtdateZwidecharZ pshortstringZ plongwordZdoubleZ pwidecharZplongintZtclassZ shortstringZtextfile�boolZphandleZ pansicharZ pextendedZ pshortintZpcompZreal48Z pwordarrayrN ZlongintZpintegerZ pbytearray�pointerZ pwordboolZcardinalZvariantZpvariantZ widestringZthandleZ pdatetimeZ psmallintZpstringZpdateZshortintZdwordZpint64ZbooleanZpwordZlongwordZwordboolZiunknownZppointer)��absZacquireexceptionobject�addrZ ansitoutf8�append�arctan�assert�assignedZ assignfileZ beginthreadZ blockreadZ blockwriter- �chdir�chr�closeZ closefileZcomptocurrencyZ comptodouble�concatr1 �copy�cos�dec�deleterc Z doubletocompZ endthreadZ enummodulesZenumresourcemodules�eofZeolnZeraseZ exceptaddrZ exceptobjectZexcluderd �expZfileposZfilesizeZfillchar�finalizeZfindclasshinstanceZ findhinstanceZfindresourcehinstance�flush�fracZfreememZ get8087cwZgetdirZ getlasterrorZgetmemZgetmemorymanagerZgetmodulefilenameZgetvariantmanagerZhalt�hi�high�inc�includeZ initialize�insert�intZioresultZismemorymanagersetZisvariantmanagerset�lengthZln�lo�low�mkdir�moverf 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�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 nextcharindex�nowZoutofmemoryerrorZ 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)d�arccosZarccoshZarccotZarccothZarccscZarccschZarcsecZarcsechZarcsinZarcsinhZarctan2Zarctanh�ceilZ comparevalueZcosecant�coshZcot�cotanZcothZcscZcschZ cycletodegZ cycletogradZ cycletoradZ degtocycleZ degtogradZdegtorad�divmodZdoubledecliningbalanceZ ensurerange�floor�frexpZ futurevalueZgetexceptionmaskZgetprecisionmodeZ getroundmodeZ gradtocycleZ gradtodegZ gradtorad�hypotZinrangeZinterestpaymentZ interestrateZinternalrateofreturnZintpowerZ isinfinite�isnanZiszero�ldexpZlnxp1�log10�log2�logn�maxZ maxintvalueZmaxvalue�meanZ meanandstddev�minZ minintvalueZminvalueZmomentskewkurtosisZnetpresentvalueZnormZnumberofperiodsZpaymentZ periodpaymentZpolyZ popnstddevZ popnvarianceZpowerZ presentvalueZ radtocycleZradtodegZ radtogradZrandgZ randomrangeZroundtoZ samevalueZsecZsecantZsechZsetexceptionmaskZsetprecisionmodeZ setroundmode�signZ simpleroundtoZsincos�sinhZslndepreciationZstddev�sumZsumintZ sumofsquaresZsumsandsquaresZsyddepreciation�tan�tanhZ totalvarianceZvariance)�SystemZSysUtilsZClassesZMath>C ZbpZxmm4ZdsZcr4Zgs�fsZdlZdr7Zmm4Zmm0ZebxZmm7�axZst7Zedi�ssZdr3ZbhZst1Zst6Zxmm3Zxmm5Zmm6Zst5ZedxZmm2�siZxmm6Zcr0ZdhZeaxZblZcr3ZalZcx�sp�csZst4Zdr1Zxmm0Zdr0Zst3ZdxZcr1ZclZdiZst2Zdr5Zdr4Zmm1ZahZesiZdr6ZecxZxmm2Zst0�esZmm3ZebpZxmm7Zcr2�bx�chZespZmm5Zdr2Zxmm1> ZcmcZcmovgeZjnbZsetlZclcZnopZrdtscZjpoZaamZlfsZretnZjnlZ cmpxchg486ZcmovoZstoswZshldrV Zud1ZsidtZleaveZjnsZloopeZverwZscaswZlgdtZinsdZemmsZsysexitZcmovlZstosdZrepzZloopZjcZsetpZpopfZxbtsZoutsbZsetnbZjnoZcmovnpZsetngZmovzxZinvd�retZsmiZrsdcZcmpswZrdmsrZsalcZjaeZpushad�callr� ZsvdcZstosb�popr� ZjneZbswapZrsldtZscasdZsetnsZdasZcwdeZsysretZrepnzZbtsZoutswZlesZpopadZwrmsr�addZumovZcmovneZltrZsetbZsetneZljmpZscasbZjncZsetzZcpuidZsetaZjnpZpushaZhltZenterZiretwZ loadall286ZsetsZjecxzZjgZjnleZmovsdZcmovngZud2Zverr�testZxaddZint03ZlahfZcmovbe�lockZleaZstcZsbbZseteZinswZlarZldsZibtsZjbeZcmovp�negZcmpxchg�pushZsetgZsetnzZcmovngeZmovsxZsetpeZlslZsetpoZsetcZlcallZshrd�cmpZlmswZcbwZbtrZcmovcrE r� ZjlZcmovnzZsetleZlgsZcmovnarM ZpopaZmovqZxlatbZlodsd�mulZsvldtZsvtsZbsfZsyscallZpopawZbtcZlssZrepeZsetnaeZsahfZjp�subZarplZaasZretfZxlatZcmovnbZcmovnaeZloopzZdaa�jaZsetna�imulZcmovnleZcdqZjnbeZcmovncZcmovnoZcmovcxzZstiZsetaeZpopfwZjnaeZcmovbZsetcxzZsetncZcmovsZjpeZwrshrZpushfdZloopnzZjna�cwdZrolZsmsw�outr� ZsgdtZmovswZadcZcmovpoZcmpsdZjngeZpushfZsmintoldZcmovaZcmovleZiretdZjleZintoZcmovnbeZjsZjnzZinvlpgZoutsdZsarZsetngeZlidtZjeZcmovzZjbZicebpZpopfdZsetnorL ZsetnleZjzZrorZjoZmovZloadallZloopneZrclZrdpmcZcmovaeZjngZjgeZcmoveZcldZmovdr) ZsetnbeZ cmpxchg8bZlodswZint1ZcmovpeZint3rA ZrdshrZsalZcliZjmpZbsrZcltsZsetnpr< ZsetoZxchgZrepneZbtZrcrZsetgeZlldtZsysenterZidivZiretZsmintZinsb�waitZwbinvdZrepZaadZpushfwZsetbeZmovsbZlodsbZstdZcmpsbZsldtZrsm�boundZint01ZpushawZcmovnsZsetnlZcmovgZaaar3 ZcmovnlZjcxz)MZ aleatorioZ algoritmoZarquivoZateZcasoZ cronometro�debug�eZecoZenquantoZentaoZescolhaZescrevaZescrevalZfacaZfalsoZ fimalgoritmoZ fimenquantoZ fimescolhaZ fimfuncaoZfimparaZfimprocedimentoZ fimrepitaZfimse�funcaoZinicior� Z interrompaZleiaZ limpatelar? ZnaoZouZ outrocasoZparaZpassoZpausa� procedimentoZrepitaZretorneZseZsenaoZtimerrS ZvetorZ verdadeiroZxour3 r? rw r� Zarcsenrz r� r� ZExpZgraupradr� �logr� r� ZquadZradpgrauZraizqZrandZrandiZsenZTanZascZcaracZ caracpnumZcomprZcopiaZmaiuscZminuscZ numpcaracr� > Z caractereZinteirorq Zlogicoc K s� t j| fi |�� t� | _t� | _t|dd�r*| j�| j� | j�| j� d| _ d S d| _ t|dd�r:| j�| j � t|dd�rG| j�| j � t|dd�rT| j�| j � t |dt| j��D ] }| j�| j| � q]d S )Nr FTZ turbopascalr& Z freepascalZunits)r r rK �keywords�builtinsr �update�PORTUGOL_KEYWORDS�PORTUGOL_BUILTIN_TYPES� is_portugol�TURBO_PASCAL_KEYWORDS�DELPHI_KEYWORDS�FREE_PASCAL_KEYWORDSr �list� BUILTIN_UNITS)r r rQ r r r r � s" �zDelphiLexer.__init__c c s" � t |tjtjB tjB �}dg}d}d}d}d}d}d} t� } ddg} |j�s�t} |d dk�rb|�d�r9t } �n7| j sQ|�d�rQ|j � d�rLt j} �n$t j} �n |�d�r[t j} �n| j rg|�d �rgt} �n | j s||�d �r|t} | rz|j d krzd} �n�|�d �r�t} d}|s�|r�|j d kr�| d d7 < �n�|j dkr�| d d8 < �n�|j dkr�| d d7 < �n�|j dkr�| d d8 < �n�|�d��r�|j �� } | dkr�tjj} �n�| | jv �r>t} | j r�| dv r�d}d}�n�|s�|�r| | jv �r| d dk�r| d dk�rd}d}ddg} t� } | dv �r d} �nT| dk�r(|�d� �nH| dk�r3d}d}�n=| dv �r<d}d}�n2| j �sP|�rP| | jv �rPtj} �n | j �sc|�rc| dv �rctj} d}�n |�r�| j �su|� d��rutj } �n�tj } d}| j �r�| � |j �� � �n�| j �s�|�r�tj } d}�n�| j �s�| �r�tj!} | � |j �� � �n�| | v �r�tj!} �n�| j �r�| | j"v �r�tj#} �n�| j �s�| | j$v �r�tj#} �n�| j �s�| | j%v �r�tj} �n�| j �s�|�s�| | j&v �r�tj} �n}t} �ny| j �r |�d ��r t'} |�d � �nf| j �s |�d ��r t'} |�d � �nS| j �s,|�d ��r,t'j(} �nD| j �s;|�d ��r;t)j*} �n5|�d!��rFt)j+} �n*|�d"��rQt)j,} �n t-|�dk�r\|�.� |�/� �n|d d k�r�| j �r�|�d#��rwt'j0} n�|�d ��r�t'} |�.� n�|�d$��r�t'} n�|�/� |�.� n�|�d#��r�t'j0} n�|�d ��r�t'} |�.� n�|�d%��r�t'} n�|�/� |�.� n�| j �sp|d dk�rp|�d��r�t } n�|�d&��r�t} |�.� n�|�d��r�|j � d��r�t j} nt j} n{|�d��r�t j} nq|�d ��r t'} |�d � nc|�d'��rtj!} nY|�d��r8|j �� } | | j1v �r+t} nE| | j2v �r5tj} n;t} n8|�d(��rAt} n/|�d ��rJt} n&|�d ��rTt)j*} n |�d!��r^t)j+} n|�d"��rht)j,} n|�/� |�.� | j �s|j �3� �r|j d)k}|j4| |j �p�d*fV |jr'd S d S )+N�initialFr ���z\s+z\{.*?\}|\(\*.*?\*\)�$z//.*?$z/(<\-)|(>=)|(<=)|%|<|>|-|\+|\*|\=|(<>)|\/|\.|:|,z[-+*\/=<>:;,.@\^]�;z [\(\)\[\]]+�(� �)�[�]z[A-Za-z_][A-Za-z_0-9]*�result)r� r� T)r> r9 r+ r_ )rG rD r8 r0 r2 )r� r� z\s*\.\s*z\"rN �'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 )5r �re�DOTALL� MULTILINE� IGNORECASErK Zeosr �scanr r� �match� startswithr ZPreprocZ Multiline�Singler r �lowerr ZBuiltinZPseudor� r �BLOCK_KEYWORDSry �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 � sl � � � � � � ��z"DelphiLexer.get_tokens_unprocessedN)r r r r r r! r" r# r$ r% r� r� r� r r r r r� r r r� r� r r r r r r r * s6 !C� )P )r r� Zpygments.lexerr 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 ,
| ver. 1.4 |
Github
|
.
| PHP 8.2.30 | Generation time: 0 |
proxy
|
phpinfo
|
Settings