Файловый менеджер - Редактировать - /opt/imh-python/lib/python3.9/site-packages/pygments/lexers/__pycache__/pascal.cpython-39.pyc
Ðазад
a a�h y � @ 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-2025 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.�Portugol�portugolz*.algz *.portugolz>https://www.apoioinformatica.inf.br/produtos/visualg/linguagem� c K s. t j| fi |�� tf i |�ddi��| _d S )Nr T)r �__init__r �lexer)�self�options� r ��/root/rpmbuild/BUILDROOT/imh-python39-modules-3.9.7-92.el8.x86_64/opt/imh-python/lib/python3.9/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. �Delphi)�delphi�pas�pascal� objectpascalz*.pasz*.dprz text/x-pascalz+https://www.embarcadero.com/products/delphir )8�absolute�and�array�asm�begin�break�case�const� constructor�continue� destructor�div�doZdownto�else�end�file�for�function�goto�if�implementation�in� 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�except�exports� finalization�finally�initialization�is�libraryrI �property�raise� threadvar�try)�dispose�exit�false�new�true> rM ra r4 r= rJ r6 rf rO rD rX r: r^ r0 rh r3 rY re rV rN r@ rc rW > �varargsZvirtualZstdcall�registerZnearZexternal�override�aliasZsafecallr! Zexportr* � assemblerZ nostackframeZ softfloatZcdeclZdynamicrC Z interrupt> �public�privaters Z oldfpccallZfar�forward�abstractZfar16Z published�default�indexZ protectedr, Zcppdecl>G Zreal48�doubleZplongintZshortintZwordbool�compZpinteger�realZlongboolZpcompZ psmallint�extended�boolZtclassZ widestringZ pansicharZpword�byteZpsingle�variantZthandleZ pcardinalZpbooleanZ pwordarrayZ pwidestringZ shortstringZansicharZpointerZpvariantZtdate�boolean�currencyZpbyteZ pbytearrayZpdoubleZppointerZ pshortintZ pshortstringZ pdatetimeZlongwordZ pextendedZsmallintZpdateZpboolZpint64Zttime�wordZpstringZlongintrT ZtobjectZdwordZ pwidechar�singleZ ansistringZphandleZint64Z tdatetimeZiunknownZpdwordZ plongword�charZ pcurrencyZ pwordboolZtextfileZwidecharZpchar�integerZbyteboolZcardinalZ pansistring)��absZacquireexceptionobject�addrZ ansitoutf8�append�arctan�assert�assignedZ assignfileZ beginthreadZ blockreadZ blockwriter1 �chdir�chr�closeZ closefileZcomptocurrencyZ comptodouble�concatr5 �copy�cos�dec�deleterj Z doubletocompZ endthreadZ enummodulesZenumresourcemodules�eofZeolnZeraseZ exceptaddrZ exceptobject�excluderk �exp�filepos�filesizeZfillchar�finalizeZfindclasshinstanceZ findhinstanceZfindresourcehinstance�flush�fracZfreememZ get8087cwZgetdirZ getlasterrorZgetmemZgetmemorymanagerZgetmodulefilenameZgetvariantmanagerZhalt�hi�high�inc�includeZ initialize�insert�intZioresultZismemorymanagersetZisvariantmanagerset�length�ln�lo�low�mkdir�moverm ZoddZolestrtostringZolestrtostrvar�ordZ paramcountZparamstr�pi�pos�predZptrZ pucs4chars�randomZ randomize�readZreadlnZ reallocmemZreleaseexceptionobject�rename�resetZrewrite�rmdir�roundZrunerror�seekZseekeofZseekeolnZ set8087cwZ setlengthZsetlinebreakstyleZsetmemorymanagerZ setstringZ settextbufZsetvariantmanager�sinZsizeof�sliceZsqr�sqrt�strZ stringofcharZstringtoolestrZstringtowidechar�succZswap�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 pointsequalZreadcomponentresZreadcomponentresexZreadcomponentresfile�rectZ 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 minintvalueZminvalueZmomentskewkurtosisZnetpresentvalueZnormZnumberofperiods�paymentZ periodpaymentZpolyZ popnstddevZ popnvariance�powerZ presentvalueZ radtocycleZradtodegZ radtogradZrandgZ randomrangeZroundtoZ samevalue�secZsecantZsechZsetexceptionmaskZsetprecisionmodeZ setroundmode�signZ simpleroundtoZsincos�sinhZslndepreciationZstddev�sumZsumintZ sumofsquaresZsumsandsquaresZsyddepreciation�tan�tanhZ totalvarianceZvariance)�SystemZSysUtilsZClassesZMath>C Zst4ZedxZespZedi�siZcr1Zdr0ZdxZst2Zxmm5�chZcr0ZahZst1Zxmm4�axZxmm7ZdhZdr3Zst5�dlZdr2Zmm3Zds�csZmm0�esZmm5Zmm6ZebpZmm4�gsZdr7�alZcr4�clZebx�spZdr5ZesiZcxZxmm0ZecxZxmm6Zmm7Zcr3�bxZst3Zdr1Zdr6Zdr4Zeax�fs�ssZxmm2Zxmm3Zst7Zbh�blZmm1Zst6�bpZcr2Zxmm1ZdiZmm2Zst0> ZdaaZrcrZlesZcmovpoZdasZsetleZcmovgZcmovnlZsetpeZcmc�retZsetnbZbtrZiretdZjnpZsetneZleaZverwr\ ZcmpsbZsetpZlldtZcmovgeZjnzZmovswZcmovnbZxaddZsetncZcmovleZjcxzZstcZcmovber� ZcmovngZbsfZjgeZjaeZlfsZloadallZjncZstiZjeZlodswZcmovbZpushadZcmovneZrdmsrZsetcZjneZoutsbZsbbr7 ZsmswZseteZsetnzZshrdZjmpZscasdZsetaeZjngZ cmpxchg8bZaas�testZjnoZcmovncZjpoZintoZjnleZjnaZsetnge�lockZcwdeZhltZsetsZcmoveZaaaZcmovsZretfZjleZmovq�jpZud1ZsetnbeZxlatZiretwZjnsZjecxzZarplZsidtZjoZsldt�callZpopfZstdZcmovpeZpopfdr� ZcmpsdZsetnaeZxlatbZrdshrZinswZint1ZrsldtZwrshrZrsdc�jsZrepzZidivZsysexitZjcZcmovnoZinvlpgZxchgZibtsZltrZsvdcZretnZmovZpopadZcmovnpZjb�jlZpushawZsmintoldZumovZclcZsetaZsetzZlcallZloopz�subZcldZxbtsZcltsZint3ZsysenterZrdtscZadcZsvtsZcmovcxzZinvdrK r- ZoutsdZpopfwZsalZcmovaeZsetgZsetlZldsZstosbZinsbZlgdt�negZsmiZlodsbZjnlZstoswZcpuidZlodsdZsetnpZaadZbtc�cliZsetb�outZiretZpushfwZsetngZjnbZcmovlZlahfZicebpZsgdt�mulZcmovpZsmintZpopawZpushaZsvldtZscasbZcmovar� �popZcmovcZsetbeZsetnlZsyscallZrdpmcZloopnzZscaswZwbinvdZsetnsZjgZmovsxZcmovnzZcmpswr� ZrepnzZwrmsrZcbw�waitZsysret�cwd�imulZcmovnleZverrZjngeZcmovoZmovzxZloopneZshldZjbeZud2ZsetnaZsetpoZmovdZbtZlar�loopZrolZsahfZcmovnbeZrclZbsrZjnbe�boundZoutswZemmsZbswapZrepnerR ZcdqZcmovzZrorrS Zpopa�pushZmovsbZrsm�cmpZsarZsetnoZmovsdZsetoZjnae�repZint01ZpushfdZsetnleZcmovnsZaamZenterZjpeZlidtZ loadall286�lslZpushfZrepeZbtsZinsdZjzZleaveZnopZcmovnaZloopeZlmswZlgs�addZ cmpxchg486ZcmovngeZsalcZljmpZint03ZsetcxzZstosd�jarA ZsetgeZcmovnaeZlssZcmpxchgrG )MZ aleatorioZ algoritmoZarquivoZateZcasoZ cronometro�debug�eZecoZenquantoZentaoZescolhaZescrevaZescrevalZfacaZfalsoZ fimalgoritmoZ fimenquantoZ fimescolhaZ fimfuncaoZfimparaZfimprocedimentoZ fimrepitaZfimse�funcaoZinicior� Z interrompaZleiaZ limpatelarE ZnaoZouZ outrocaso�paraZpassoZpausa� procedimentoZrepitaZretorne�seZsenaoZtimerrY ZvetorZ verdadeiroZxour7 rE r� r� Zarcsenr� r� r� ZExpZgraupradr� �logr� r� ZquadZradpgrauZraizqZrandZrandiZsenZTan�ascZcaracZ caracpnumZcomprZcopiaZmaiuscZminuscZ numpcaracr� > Zinteiror| ZlogicoZ caracterec K s� t j| fi |�� t� | _t� | _t|dd�rR| j�| j� | j�| j� d| _ n~d| _ t|dd�rr| j�| j � t|dd�r�| j�| j � t|dd�r�| j�| j � t |dt| j��D ]}| j�| j| � q�d S )Nr FTZ turbopascalr( Z freepascalZunits)r r rQ �keywords�builtinsr �update�PORTUGOL_KEYWORDS�PORTUGOL_BUILTIN_TYPES� is_portugol�TURBO_PASCAL_KEYWORDS�DELPHI_KEYWORDS�FREE_PASCAL_KEYWORDSr �list� BUILTIN_UNITS)r r rW 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�r�|�d�rpt } �q�| j s�|�d�r�|j � d�r�t j} nt j} �q�|�d�r�t j} �q�| j r�|�d �r�t} �q�| j s�|�d �r�t} | r�|j d kr�d} �q�|�d ��r�t} d}|�s|�r�|j d k�r2| d d7 < nX|j dk�rP| d d8 < n:|j dk�rn| d d7 < n |j dk�r�| d d8 < �q�|�d��r�|j �� } | dk�r�tjj} �q�| | jv �r�t} | j �r�| dv �r|d}d}n�|�s�|�r0| | jv �r0| d dk�r0| d dk�r0d}d}ddg} t� } | dv �r@d} n<| dk�rV|�d� n&| dk�rjd}d}n| dv �r�d}d}�q�| j �s�|�r�| | jv �r�tj} �q�| j �s�|�r�| dv �r�tj} d}�q�|�r| j �s�|� d��r�tj } n"tj } d}| j �r�| � |j �� � n�| j �s*|�r*tj } d}n�| j �sP| �rPtj!} | � |j �� � n�| | v �rbtj!} nz| j �r~| | j"v �r~tj#} n^| j �s�| | j$v �r�tj#} nB| j �s�| | j%v �r�tj} n&| j �s�|�s�| | j&v �r�tj} nt} n�| j �r|�d ��rt'} |�d � n�| j �s&|�d ��r&t'} |�d � n~| j �sB|�d ��rBt'j(} nb| j �s^|�d ��r^t)j*} nF|�d!��rrt)j+} n2|�d"��r�t)j,} n t-|�dk�r�|�.� |�/� �n"|d d k�rd| j �r|�d#��r�t'j0} n<|�d ��r�t'} |�.� n"|�d$��r�t'} n|�/� |�.� nP|�d#��r$t'j0} n<|�d ��r>t'} |�.� n"|�d%��rPt'} n|�/� |�.� �nf| j �s�|d dk�r�|�d��r�t } �n<|�d&��r�t} |�.� �n |�d��r�|j � d��r�t j} nt j} n�|�d��r�t j} n�|�d ��rt'} |�d � n�|�d'��rtj!} n�|�d��rZ|j �� } | | j1v �r@t} n| | j2v �rTtj} nt} np|�d(��rlt} n^|�d ��r~t} nL|�d ��r�t)j*} n8|�d!��r�t)j+} n$|�d"��r�t)j,} n|�/� |�.� | j �s�|j �3� �r�|j d)k}|j4| |j �p�d*fV qDd S )+N�initialFr ���z\s+z\{.*?\}|\(\*.*?\*\)�$z//.*?$z/(<\-)|(>=)|(<=)|%|<|>|-|\+|\*|\=|(<>)|\/|\.|:|,z[-+*\/=<>:;,.@\^]�;z [\(\)\[\]]+�(� �)�[�]z[A-Za-z_][A-Za-z_0-9]*�result)r r T)rD r> r/ rf )rM rJ r= r4 r6 )r� r� z\s*\.\s*z\"rT �'z\#(\d+|\$[0-9A-Fa-f]+)z\$[0-9A-Fa-f]+z\d+(?![eE]|\.[^.])z&\d+(\.\d+([eE][+-]?\d+)?|[eE][+-]?\d+)z''z[^\"]*z[^']*r: z@@[A-Za-z_][A-Za-z_0-9]*z[-+*\/=<>:;,.@\^]+�.r )5r �re�DOTALL� MULTILINE� IGNORECASErQ Zeosr �scanr r �match� startswithr �Preproc� Multiline�Singler r �lowerr �Builtin�Pseudor r �BLOCK_KEYWORDSr� �FUNCTION_MODIFIERSr� �Class�Functionr �Property�Labelr �Type� BUILTIN_TYPES� DIRECTIVESr r �Charr �Hex�Integer�Float�lenr� Zget_char�Escape�ASM_INSTRUCTIONS� ASM_REGISTERS�strip� 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 � sf � � � � � z"DelphiLexer.get_tokens_unprocessedN)r r r r r! r" r# r$ r% r& r r r r4 r5 r< r; r rD rC r r r r r r r r r * s4 !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.1 | |
.
| PHP 8.3.30 | Ð“ÐµÐ½ÐµÑ€Ð°Ñ†Ð¸Ñ Ñтраницы: 0 |
proxy
|
phpinfo
|
ÐаÑтройка