Файловый менеджер - Редактировать - /opt/imh-python/lib/python3.9/site-packages/pygments/lexers/__pycache__/modula2.cpython-39.pyc
Ðазад
a a�hP� � @ sr d Z ddlZddlmZmZ ddlmZmZ ddlm Z m Z m Z m Z m Z mZmZmZmZ dgZG dd� de�ZdS )z� pygments.lexers.modula2 ~~~~~~~~~~~~~~~~~~~~~~~ Multi-Dialect Lexer for Modula-2. :copyright: Copyright 2006-2025 by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. � N)� RegexLexer�include)� get_bool_opt� get_list_opt) �Text�Comment�Operator�Keyword�Name�String�Number� Punctuation�Error� Modula2Lexerc @ s e Zd ZdZdZdZddgZddgZdgZd Z e j e j B Z d efd efgd ejfd ejfdejfdejfdejfdejfdejfdejfgdefgdejfdejfgdejfdejfdejfgdejfdejfd ejfgd ejfd ejfgd efd efd!efd"efd#efd$efd%efd&efd'efd(efg d)efd*efd+efd,efd-efd.efd/efd0efd1efg d2e fd3e fd4e fd5e fd6e fd7e fd8e fgd9e fd:e fd;e fgd<ejfd=ej fd>ej fgd?ej fd@ej fge dA�e dB�e dC�e dD�e dE�e dF�e dG�e dH�e dI�e dJ�e dK�e dL�e dM�g dN�Z dOZ!dPZ"dQZ#dRZ$dSZ%dTZ&dUZ'dVZ(dWZ)dXZ*dYZ+dZZ,d[Z-d\Z.d]Z/d^Z0d_Z1d`Z2daZ3daZ4dbZ5daZ6dcZ7ddZ8daZ9daZ:daZ;deZ<dfZ=dgZ>dhZ?diZ@djZAdkZBdlZCdmZDdaZEdaZFdaZGdaZHdaZIdnZJdoZKdpZLdqZMdrZNdsZOdtZPduZQdae$fe(fe,fe0fe(fe$fe(fe(fdu� ZRe!e%e)e-fe!e%fe!e)fe!e-fe!e-e1fe!e)e4fe!e%e7fe!e)e:fe!e)e=fdu� ZSe"e&e*e.fe"e&fe"e*fe"e.fe"e.e2fe"e*e5fe"e&e8fe"e*e;fe"e*e>fdu� ZTe#e'e+e/fe#e'fe#e+fe#e/fe#e/e3fe#e+e6fe#e'e9fe#e+e<fe#e+e?fdu� ZUdadadaeJfeJfdadadadadu� ZVdae@feEfeKeLeJfeKeLfeEfe@feEfeEfdu� ZWdaeAfeFfeMfeMfeFfeAfeFfeFfdu� ZXdaeBfeGfeNfeNfeGfeBfeGfeGfdu� ZYdaeCfeHfeOfeOfeHfeCfeHfeHfdu� ZZdaeDfeIfePfePfeIfeDfeIfeIfdu� Z[dvdw� Z\dxdy� Z]dzd{� Z^d|d}� Z_d~d� Z`d�S )�r a� For Modula-2 source code. The Modula-2 lexer supports several dialects. By default, it operates in fallback mode, recognising the *combined* literals, punctuation symbols and operators of all supported dialects, and the *combined* reserved words and builtins of PIM Modula-2, ISO Modula-2 and Modula-2 R10, while not differentiating between library defined identifiers. To select a specific dialect, a dialect option may be passed or a dialect tag may be embedded into a source file. Dialect Options: `m2pim` Select PIM Modula-2 dialect. `m2iso` Select ISO Modula-2 dialect. `m2r10` Select Modula-2 R10 dialect. `objm2` Select Objective Modula-2 dialect. The PIM and ISO dialect options may be qualified with a language extension. Language Extensions: `+aglet` Select Aglet Modula-2 extensions, available with m2iso. `+gm2` Select GNU Modula-2 extensions, available with m2pim. `+p1` Select p1 Modula-2 extensions, available with m2iso. `+xds` Select XDS Modula-2 extensions, available with m2iso. Passing a Dialect Option via Unix Commandline Interface Dialect options may be passed to the lexer using the `dialect` key. Only one such option should be passed. If multiple dialect options are passed, the first valid option is used, any subsequent options are ignored. Examples: `$ pygmentize -O full,dialect=m2iso -f html -o /path/to/output /path/to/input` Use ISO dialect to render input to HTML output `$ pygmentize -O full,dialect=m2iso+p1 -f rtf -o /path/to/output /path/to/input` Use ISO dialect with p1 extensions to render input to RTF output Embedding a Dialect Option within a source file A dialect option may be embedded in a source file in form of a dialect tag, a specially formatted comment that specifies a dialect option. Dialect Tag EBNF:: dialectTag : OpeningCommentDelim Prefix dialectOption ClosingCommentDelim ; dialectOption : 'm2pim' | 'm2iso' | 'm2r10' | 'objm2' | 'm2iso+aglet' | 'm2pim+gm2' | 'm2iso+p1' | 'm2iso+xds' ; Prefix : '!' ; OpeningCommentDelim : '(*' ; ClosingCommentDelim : '*)' ; No whitespace is permitted between the tokens of a dialect tag. In the event that a source file contains multiple dialect tags, the first tag that contains a valid dialect option will be used and any subsequent dialect tags will be ignored. Ideally, a dialect tag should be placed at the beginning of a source file. An embedded dialect tag overrides a dialect option set via command line. Examples: ``(*!m2r10*) DEFINITION MODULE Foobar; ...`` Use Modula2 R10 dialect to render this source file. ``(*!m2pim+gm2*) DEFINITION MODULE Bazbam; ...`` Use PIM dialect with GNU extensions to render this source file. Algol Publication Mode: In Algol publication mode, source text is rendered for publication of algorithms in scientific papers and academic texts, following the format of the Revised Algol-60 Language Report. It is activated by passing one of two corresponding styles as an option: `algol` render reserved words lowercase underline boldface and builtins lowercase boldface italic `algol_nu` render reserved words lowercase boldface (no underlining) and builtins lowercase boldface italic The lexer automatically performs the required lowercase conversion when this mode is activated. Example: ``$ pygmentize -O full,style=algol -f latex -o /path/to/output /path/to/input`` Render input file in Algol publication mode to LaTeX output. Rendering Mode of First Class ADT Identifiers: The rendering of standard library first class ADT identifiers is controlled by option flag "treat_stdlib_adts_as_builtins". When this option is turned on, standard library ADT identifiers are rendered as builtins. When it is turned off, they are rendered as ordinary library identifiers. `treat_stdlib_adts_as_builtins` (default: On) The option is useful for dialects that support ADTs as first class objects and provide ADTs in the standard library that would otherwise be built-in. At present, only Modula-2 R10 supports library ADTs as first class objects and therefore, no ADT identifiers are defined for any other dialects. Example: ``$ pygmentize -O full,dialect=m2r10,treat_stdlib_adts_as_builtins=Off ...`` Render standard library ADTs as ordinary library types. .. versionchanged:: 2.1 Added multi-dialect support. zModula-2zhttp://www.modula2.org/�modula2�m2z*.defz*.modztext/x-modula2z1.3z\n+z\s+z\(\*!m2pim\*\)z\(\*!m2iso\*\)z\(\*!m2r10\*\)z\(\*!objm2\*\)z\(\*!m2iso\+aglet\*\)z\(\*!m2pim\+gm2\*\)z\(\*!m2iso\+p1\*\)z\(\*!m2iso\+xds\*\)z([a-zA-Z_$][\w$]*)z0b[01]+(\'[01]+)*z 0[ux][0-9A-F]+(\'[0-9A-F]+)*z>[0-9]+(\'[0-9]+)*\.[0-9]+(\'[0-9]+)*[eE][+-]?[0-9]+(\'[0-9]+)*z$[0-9]+(\'[0-9]+)*\.[0-9]+(\'[0-9]+)*z[0-9]+(\'[0-9]+)*z[0-7]+Bz[0-7]+Cz [0-9A-F]+Hz"(\\\\|\\[^\\]|[^"\\])*"z'(\\\\|\\[^\\]|[^'\\])*'z\*\.z\+>�<>�<=�>=�==�::�:=z\+\+�--z[+-]z[*/]z\\z[=#<>]z\^�@�&�~�`z\.\.�<<�>>�->z\|#�##z\|\*z[()\[\]{},.:;|]�!z\?z^//.*?\nz\(\*([^$].*?)\*\)z /\*(.*?)\*/z <\*.*?\*>z \(\*\$.*?\*\)� whitespace� dialecttags�pragmas�comments� identifiers�suffixed_number_literals�prefixed_number_literals�plain_number_literals�string_literals�digraph_punctuation�digraph_operators�unigraph_punctuation�unigraph_operators)r" r# r& r( r) r' r* r, r. r+ r- r% r$ �root)%�ANDZARRAYZBEGINZBYZCASEZCONSTZ DEFINITIONZDIVZDO�ELSEZELSIF�ENDZEXITZFORZFROMZIFZIMPLEMENTATIONZIMPORT�INZLOOPZMOD�MODULE�NOTZOF�ORZPOINTERZ PROCEDURE�RECORD�REPEATZRETURNZSETZTHENZTOZTYPEZUNTILZVARZWHILE)ZABSZBOOLEAN�CARDINALZCHARZCHR�FALSEZINTEGERZLONGINTZLONGREAL�MAXZMIN�NILZODDZORDZREAL�TRUE)ZADDRESSZBYTEZWORD�ADR)r! r r �$�%�?�\r �++r r �*.�+>r r r �|#r )�EXPORT� QUALIFIED�WITH)�BITSET�CAP�DEC�DISPOSE�EXCL�FLOAT�HALT�HIGH�INC�INCL�NEWr< �PROC�SIZE�TRUNC�VAL)�SYSTEM�PROCESS�TSIZE� NEWPROCESS�TRANSFER)r r? r@ rA rB r rC r r rD rE r r r rF r )ZEXCEPTrG ZFINALLYZFORWARDZ PACKEDSETrH ZREM�RETRYrI ZABSTRACTZAS�CLASSZGUARDZINHERITZOVERRIDEZREADONLYZREVEALZTRACEDZ UNSAFEGUARDED) rJ rK ZCMPLX�COMPLEXrL rM rN rO rP rQ ZIMrR rS �INTZ INTERRUPTIBLE�LENGTHZLFLOAT� LONGCOMPLEXrT rU Z PROTECTIONZRErV rW ZUNINTERRUBTIBLErX ZCREATEZDESTROY�EMPTYZISMEMBERZSELF):rY Z BITSPERLOCZ LOCSPERBYTEZ LOCSPERWORDZLOCZADDADRZSUBADRZDIFADRZMAKEADRr> ZROTATE�SHIFT�CASTr[ Z COROUTINESZATTACH� COROUTINEZCURRENTZDETACHZHANDLERZINTERRUPTSOURCEZ IOTRANSFERZ IsATTACHEDZLISTENZ NEWCOROUTINEZPROTr] Z EXCEPTIONSZAllocateSourceZ CurrentNumberZExceptionNumberZExceptionSourceZ GetMessageZIsCurrentSourceZIsExceptionalExecutionZRAISEZ TERMINATIONZ IsTerminatingZ HasHaltedZ M2EXCEPTIONZ M2ExceptionsZ M2ExceptionZ IsM2ExceptionZindexExceptionZrangeExceptionZcaseSelectExceptionZinvalidLocationZfunctionExceptionZwholeValueExceptionZwholeDivExceptionZrealValueExceptionZrealDivExceptionZcomplexValueExceptionZcomplexDivExceptionZ protExceptionZ sysExceptionZ coExceptionZ exException)r! r r r? r@ r r )ZALIASZARGLISTZ BLUEPRINT�COPYZGENLIBZ INDETERMINATErT �NONEZOPAQUEZ REFERENTIALZRELEASEZRETAIN�ASM�REG)r9 ZCOUNTrd ZEXISTSZINSERTrb �LONGCARDZOCTETZPTRZPRED�READZREADNEWZREMOVEZRETRIEVEZSORTZSTOREZSUBSETZSUCCZTLIMITZTMAXZTMINr= r[ ZUNICHAR�WRITEZWRITEF)KZ TPROPERTIESZPROPERTY�LITERALZ TPROPERTYZTLITERALZTBUILTINZTDYNZTREFCZTNILZTBASEZ TPRECISIONZTMAXEXPZTMINEXPZ CONVERSIONZTSXFSIZEZSXFrX ZUNSAFErf � INTRINSIC�AVAILZADDZSUBZADDCZSUBCZFETCHADDZFETCHSUBZSHLZSHRZASHRZROTLZROTRZROTLCZROTRCZBWNOT�BWAND�BWOR�BWXOR�BWNANDZBWNORZSETBITZTESTBITZLSBITZMSBITZCSBITSZBAILrP �TODOZFFIZADDRZVARGLISTZVARGCZATOMICrp rq ZSWAPZCASrR rL rr ru rs rt ZCOMPILER�DEBUGZMODNAMEZPROCNAMEZLINENUM�DEFAULT�HASHZ ASSEMBLERZREGISTERZSETREGZGETREGZCODE)r! r? r@ r r )ZBYCOPYZBYREFr_ �CONTINUE�CRITICALZINOUTZMETHOD�ON�OPTIONALZOUTZPRIVATEZ PROTECTEDZPROTOCOLZPUBLICZSUPERZTRY)ZOBJECT�NOZYES� ) �BITSET8�BITSET16�BITSET32� CARDINAL8� CARDINAL16� CARDINAL32�INTEGER8� INTEGER16� INTEGER32) rj Z __ATTRIBUTE__Z __BUILTIN__Z __COLUMN__Z__DATE__Z__FILE__Z __FUNCTION__Z__LINE__Z __MODULE__ZVOLATILE)r� r� r� r� r� r� � CARDINAL64Z COMPLEX32Z COMPLEX64Z COMPLEX96Z COMPLEX128r� r� r� � INTEGER64ZREAL8ZREAL16ZREAL32ZREAL96ZREAL128ZTHROW)�BCD)ZSEQ) ZASH�ASSERTZ DIFFADR_TYPEZENTIERZINDEXZLENrl � SHORTCARD�SHORTINT)rZ r\ ZBOOL8ZBOOL16ZBOOL32�CARD8�CARD16�CARD32�INT8�INT16�INT32ZREFZMOVEZFILL�GET�PUT�CC�intZunsignedZsize_tZ voidCOMPILERZOPTIONZEQUATION)ZTerminal� FileSystemZInOutZ RealInOutZMathLib0�Storage) �FlagZFlagSet�Response�Command�LockZ PermissionZ MediumType�FileZFileProcZ DirectoryProcZ FileCommandZDirectoryCommand)9ZReadZBusyReadZ ReadAgainZWriteZ WriteStringZWriteLnZCreateZLookup�Close�DeleteZRenameZSetReadZSetWriteZ SetModifyZSetOpenZDoioZSetPosZGetPosZLengthZResetZAgainZReadWordZ WriteWordZReadCharZ WriteCharZ CreateMediumZ DeleteMediumZ AssignNameZ DeassignNameZ ReadMediumZ LookupMediumZ OpenInputZ OpenOutputZ CloseInputZ CloseOutputZ ReadStringZReadIntZReadCardZReadWrdZWriteIntZ WriteCardZWriteOctZWriteHexZWriteWrdZReadRealZ WriteRealZ WriteFixPtZ WriteRealOct�sqrt�exp�ln�sin�cosZarctanZentier�ALLOCATE� DEALLOCATE)�DoneZtermCH�in�out)ZEOL)0r� ZLONGBCDrJ Z SHORTBITSETZ LONGBITSETZLONGLONGBITSETr` rc r� Z LONGLONGCARDr� Z LONGLONGINTZPOSINTZ SHORTPOSINTZ LONGPOSINTZLONGLONGPOSINTr� r� r� ZBITSET64Z BITSET128ZBS8ZBS16ZBS32ZBS64ZBS128r� r� r� r� Z CARDINAL128r� r� r� ZCARD64ZCARD128r� r� r� r� Z INTEGER128r� r� r� ZINT64ZINT128�STRINGZ UNISTRING)Z ProtoRootZProtoComputationalZ ProtoNumericZ ProtoScalarZProtoNonScalarZ ProtoCardinalZ ProtoIntegerZ ProtoRealZ ProtoComplexZ ProtoVectorZ ProtoTupleZProtoCompArrayZProtoCollectionZProtoStaticArrayZProtoStaticSetZProtoStaticStringZ ProtoArrayZ ProtoStringZProtoSetZ ProtoMultiSetZProtoDictionaryZProtoMultiDictZProtoExtensionZProtoIOZ ProtoCardMathZ ProtoIntMathZ ProtoRealMath)�ASCIIZ BooleanIOZCharIOZ UnicharIOZOctetIOZ CardinalIOZ LongCardIOZ IntegerIOZ LongIntIOZRealIOZ LongRealIOZBCDIOZ LongBCDIOZCardMathZ LongCardMathZIntMathZ LongIntMathZRealMathZ LongRealMathZBCDMathZ LongBCDMath�FileIOr� r� Z IOSupport)r� �Status)r� r� rV )ZstdInZstdOutZstdErr)�pi�tau) �unknown�m2pimZm2iso�m2r10�objm2z m2iso+agletz m2pim+gm2zm2iso+p1z m2iso+xdsc K s� t |dg �}|D ]$}|| jdd� v r| �|� q@q| �d� d| _t |dg �}d|v sbd|v rjd | _nd| _t|d d �| _tj| fi |�� d S ) N�dialect� ���r� F�style�algol�algol_nuT� treat_stdlib_adts_as_builtins) r �dialects� set_dialect�dialect_set_by_tag�algol_publication_moder r� r �__init__)�self�optionsr� Zdialect_option�stylesr r ��/root/rpmbuild/BUILDROOT/imh-python39-modules-3.9.7-92.el8.x86_64/opt/imh-python/lib/python3.9/site-packages/pygments/lexers/modula2.pyr� � s �zModula2Lexer.__init__c C s� || j vrd}n|}t� }| j| D ]}|�t|�� q$t� }| j| D ]}|�t|�� qHt� }| j| D ]}|�t|��|�� qlt� }| j| D ]}|�t|��|�� q�t� }| j| D ]}|�t|��|�� q�t� } | j | D ]}| �t|��|�� q�t� } | j | D ]}| �t|��|�� �qt� } | j | D ]}| �t|��|�� �q@t� } | j | D ]}| �t|��|�� �qlt� } | j | D ]}| �t|��|�� �q�|| _|| _|| _|| _|| _|| _| | _| | _| | _| | _| | _d S )Nr� )r� �set�lexemes_to_reject_db�update�reserved_words_db� builtins_db� difference�pseudo_builtins_db�stdlib_adts_db�stdlib_modules_db�stdlib_types_db�stdlib_procedures_db�stdlib_variables_db�stdlib_constants_dbr� �lexemes_to_reject�reserved_words�builtins�pseudo_builtins�adts�modules�types� procedures� variables� constants)r� Z dialect_idr� Zlexemes_to_reject_set�listZ reswords_setZ builtins_setZpseudo_builtins_setZadts_setZ modules_setZ types_setZprocedures_setZ variables_setZ constants_setr r r� r� sX zModula2Lexer.set_dialectc C s� d}d}t |�}t |�}|}| }t |�|| kr�|�|�r�|�|�r�|||� }tdt | j��D ]} || j| krb| S qbdS dS d S )Nz(*!�*)r� r� )�len� startswith�endswith�ranger� ) r� Z dialect_tagZleft_tag_delimZright_tag_delimZleft_tag_delim_lenZright_tag_delim_lenZindicator_startZ indicator_endZ indicator�indexr r r� � get_dialect_from_dialect_tag| s" �� z)Modula2Lexer.get_dialect_from_dialect_tagc c s� t �| |�D �]�\}}}| jsJ|tjkrJ| �|�}|dkrJ| �|� d| _|tu �rJ|| jv rtt j }| j rr|� � }n�|| j v r�tj}| j r�|� � }n�|| jv r�tjj}| j r�|� � }n�|| jv r�| js�tj}ntjj}| j r�|� � }n`|| jv r�tj}nN|| jv �r tj}n:|| jv �r tj}n&|| jv �r4tj}n|| jv �r�tj }�nt|t v �r�| j dv�r�d|v �s||dd� dv �r�t }nT| j dv �r�|t j u �r�t }n6|t j!u �r�d |v �r�t }n|t j"u �r�d |v �r�t }n�|tv �rX|tj#u �r�| j dv�r�t }|tj$u �r�|�%d ��r*| j �%d ��r*t }n,|�%d ��r�| j dk�r�| j �%d ��s�tj&}nf|| j'v �rht }| j �r�|dk�r�d}n>|dk�r�d}n.|dk�r�d}n |dk�r�d}n|dk�r�d}|||fV q d S )Nr� T)r� r� r� �'r � )�0b�0xZ0u)r� r� �H�Ez<*r� z(*$�#u ≠r u ≤r u ≥r u ≡rD u •)(r �get_tokens_unprocessedr� r �Specialr� r� r r� r �Reservedr� �lowerr� �Builtinr� �Pseudor� r� � Namespacer� r� �Classr� �Functionr� �Variabler� �Constantr r� r �Oct�Hex�Float�Single�Preprocr� � Multiliner� )r� �textr� �token�valueZindicated_dialectr r r� r� � s� � � � z#Modula2Lexer.get_tokens_unprocessedc C sH d| v rd| v rd| v s dS d}t �d| �r4|d7 }t �d| �rDd }|S ) zNIt's Pascal-like, but does not use FUNCTION -- uses PROCEDURE instead.z(*r� r Nr z \bPROCEDURE\bg333333�?z \bFUNCTION\bg )�re�search)r� �resultr r r� � analyse_text s zModula2Lexer.analyse_textN)a�__name__� __module__� __qualname__�__doc__�name�url�aliases� filenames� mimetypes� version_addedr � MULTILINE�DOTALL�flagsr r r� r r �Binr� r� �Integerr� r �Doubler� r r r� r� r �tokensZcommon_reserved_wordsZcommon_builtinsZcommon_pseudo_builtinsZpim_lexemes_to_rejectZ pim_additional_reserved_wordsZpim_additional_builtinsZ pim_additional_pseudo_builtinsZiso_lexemes_to_rejectZ iso_additional_reserved_wordsZiso_additional_builtinsZ iso_additional_pseudo_builtinsZm2r10_lexemes_to_rejectZ m2r10_additional_reserved_wordsZm2r10_additional_builtinsZ m2r10_additional_pseudo_builtinsZobjm2_lexemes_to_rejectZ objm2_additional_reserved_wordsZobjm2_additional_builtinsZ objm2_additional_pseudo_builtinsZ aglet_additional_reserved_wordsZaglet_additional_builtinsZ aglet_additional_pseudo_builtinsZ gm2_additional_reserved_wordsZgm2_additional_builtinsZ gm2_additional_pseudo_builtinsZ p1_additional_reserved_wordsZp1_additional_builtinsZ p1_additional_pseudo_builtinsZ xds_additional_reserved_wordsZxds_additional_builtinsZ xds_additional_pseudo_builtinsZ pim_stdlib_module_identifiersZpim_stdlib_type_identifiersZpim_stdlib_proc_identifiersZpim_stdlib_var_identifiersZ pim_stdlib_const_identifiersZ iso_stdlib_module_identifiersZiso_stdlib_type_identifiersZiso_stdlib_proc_identifiersZiso_stdlib_var_identifiersZ iso_stdlib_const_identifiersZ m2r10_stdlib_adt_identifiersZ"m2r10_stdlib_blueprint_identifiersZ m2r10_stdlib_module_identifiersZ m2r10_stdlib_type_identifiersZ m2r10_stdlib_proc_identifiersZ m2r10_stdlib_var_identifiersZ m2r10_stdlib_const_identifiersr� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r r r r r� r s� ���� ���� ����� � ��� � % ���������+� ���������C� ���������C� ���������B���1���������4���������1���������1���������1���������1&f0n)r r Zpygments.lexerr r Z pygments.utilr r Zpygments.tokenr r r r r r r r r �__all__r r r r r� �<module> s ,
| ver. 1.1 | |
.
| PHP 8.3.30 | Ð“ÐµÐ½ÐµÑ€Ð°Ñ†Ð¸Ñ Ñтраницы: 0 |
proxy
|
phpinfo
|
ÐаÑтройка