o ThP@srdZddlZddlmZmZddlmZmZddlm Z m Z m Z m Z m Z mZmZmZmZdgZGdddeZdS)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) RegexLexerinclude) get_bool_opt get_list_opt) TextCommentOperatorKeywordNameStringNumber PunctuationError Modula2Lexerc@seZdZdZdZdZddgZddgZdgZd Z e j e j BZ d efd efgd ejfd ejfdejfdejfdejfdejfdejfdejfgdefgdejfdejfgdejfdejfdejfgdejfdejfdejfgdejfdejfgdefd efd!efd"efd#efd$efd%efd&efd'efd(efg d)efd*efd+efd,efd-efd.efd/efd0efd1efg d2efd3efd4efd5efd6efd7efd8efgd9efd:efd;efgdejfgd?ejfd@ejfgedAedBedCedDedEedFedGedHedIedJedKedLedMg dNZ dOZ!dPZ"dQZ#dRZ$dSZ%dTZ&dUZ'dVZ(dWZ)dXZ*dYZ+dZZ,d[Z-d\Z.d]Z/d^Z0d_Z1d`Z2daZ3daZ4dbZ5daZ6dcZ7ddZ8daZ9daZ:daZ;deZdhZ?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[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 dialecttagspragmascomments identifierssuffixed_number_literalsprefixed_number_literalsplain_number_literalsstring_literalsdigraph_punctuationdigraph_operatorsunigraph_punctuationunigraph_operators)r"r#r&r(r)r'r*r,r.r+r-r%r$root)%ANDARRAYBEGINBYCASECONST DEFINITIONDIVDOELSEELSIFENDEXITFORFROMIFIMPLEMENTATIONIMPORTINLOOPMODMODULENOTOFORPOINTER PROCEDURERECORDREPEATRETURNSETTHENTOTYPEUNTILVARWHILE)ABSBOOLEANCARDINALCHARCHRFALSEINTEGERLONGINTLONGREALMAXMINNILODDORDREALTRUE)ADDRESSBYTEWORDADR)r!rr$%?\r++rr*.+>rrr|#r )EXPORT QUALIFIEDWITH)BITSETCAPDECDISPOSEEXCLFLOATHALTHIGHINCINCLNEWr`PROCSIZETRUNCVAL)SYSTEMPROCESSTSIZE NEWPROCESSTRANSFER)rrirjrkrlrrmrrrnrorrrrpr )EXCEPTrqFINALLYFORWARD PACKEDSETrrREMRETRYrsABSTRACTASCLASSGUARDINHERITOVERRIDEREADONLYREVEALTRACED UNSAFEGUARDED)rtruCMPLXCOMPLEXrvrwrxryrzr{IMr|r}INT INTERRUPTIBLELENGTHLFLOAT LONGCOMPLEXr~r PROTECTIONRErrUNINTERRUBTIBLErCREATEDESTROYEMPTYISMEMBERSELF):r BITSPERLOC LOCSPERBYTE LOCSPERWORDLOCADDADRSUBADRDIFADRMAKEADRrhROTATESHIFTCASTr COROUTINESATTACH COROUTINECURRENTDETACHHANDLERINTERRUPTSOURCE IOTRANSFER IsATTACHEDLISTEN NEWCOROUTINEPROTr EXCEPTIONSAllocateSource CurrentNumberExceptionNumberExceptionSource GetMessageIsCurrentSourceIsExceptionalExecutionRAISE TERMINATION IsTerminating HasHalted M2EXCEPTION M2Exceptions M2Exception IsM2ExceptionindexExceptionrangeExceptioncaseSelectExceptioninvalidLocationfunctionExceptionwholeValueExceptionwholeDivExceptionrealValueExceptionrealDivExceptioncomplexValueExceptioncomplexDivException protException sysException coException exException)r!rrrirjrr)ALIASARGLIST BLUEPRINTCOPYGENLIB INDETERMINATEr~NONEOPAQUE REFERENTIALRELEASERETAINASMREG)rWCOUNTrEXISTSINSERTrLONGCARDOCTETPTRPREDREADREADNEWREMOVERETRIEVESORTSTORESUBSETSUCCTLIMITTMAXTMINrdrUNICHARWRITEWRITEF)K TPROPERTIESPROPERTYLITERAL TPROPERTYTLITERALTBUILTINTDYNTREFCTNILTBASE TPRECISIONTMAXEXPTMINEXP CONVERSIONTSXFSIZESXFrUNSAFEr INTRINSICAVAILADDSUBADDCSUBCFETCHADDFETCHSUBSHLSHRASHRROTLROTRROTLCROTRCBWNOTBWANDBWORBWXORBWNANDBWNORSETBITTESTBITLSBITMSBITCSBITSBAILrzTODOFFIADDRVARGLISTVARGCATOMICrrSWAPCASr|rvr!r$r"r#COMPILERDEBUGMODNAMEPROCNAMELINENUMDEFAULTHASH ASSEMBLERREGISTERSETREGGETREGCODE)r!rirjrr)BYCOPYBYREFrCONTINUECRITICALINOUTMETHODONOPTIONALOUTPRIVATE PROTECTEDPROTOCOLPUBLICSUPERTRY)OBJECTNOYES) BITSET8BITSET16BITSET32 CARDINAL8 CARDINAL16 CARDINAL32INTEGER8 INTEGER16 INTEGER32) r __ATTRIBUTE__ __BUILTIN__ __COLUMN____DATE____FILE__ __FUNCTION____LINE__ __MODULE__VOLATILE)rSrTrUrVrWrX CARDINAL64 COMPLEX32 COMPLEX64 COMPLEX96 COMPLEX128rYrZr[ INTEGER64REAL8REAL16REAL32REAL96REAL128THROW)BCD)SEQ) ASHASSERT DIFFADR_TYPEENTIERINDEXLENr SHORTCARDSHORTINT)rrBOOL8BOOL16BOOL32CARD8CARD16CARD32INT8INT16INT32REFMOVEFILLGETPUTCCintunsignedsize_t voidCOMPILEROPTIONEQUATION)Terminal FileSystemInOut RealInOutMathLib0Storage) FlagFlagSetResponseCommandLock Permission MediumTypeFileFileProc DirectoryProc FileCommandDirectoryCommand)9ReadBusyRead ReadAgainWrite WriteStringWriteLnCreateLookupCloseDeleteRenameSetReadSetWrite SetModifySetOpenDoioSetPosGetPosLengthResetAgainReadWord WriteWordReadChar WriteChar CreateMedium DeleteMedium AssignName DeassignName ReadMedium LookupMedium OpenInput OpenOutput CloseInput CloseOutput ReadStringReadIntReadCardReadWrdWriteInt WriteCardWriteOctWriteHexWriteWrdReadReal WriteReal WriteFixPt WriteRealOctsqrtexplnsincosarctanentierALLOCATE DEALLOCATE)DonetermCHinout)EOL)0rqLONGBCDrt SHORTBITSET LONGBITSETLONGLONGBITSETrrry LONGLONGCARDrz LONGLONGINTPOSINT SHORTPOSINT LONGPOSINTLONGLONGPOSINTrSrTrUBITSET64 BITSET128BS8BS16BS32BS64BS128rVrWrXre CARDINAL128r~rrCARD64CARD128rYrZr[rj INTEGER128rrrINT64INT128STRING UNISTRING) ProtoRootProtoComputational ProtoNumeric ProtoScalarProtoNonScalar ProtoCardinal ProtoInteger ProtoReal ProtoComplex ProtoVector ProtoTupleProtoCompArrayProtoCollectionProtoStaticArrayProtoStaticSetProtoStaticString ProtoArray ProtoStringProtoSet ProtoMultiSetProtoDictionaryProtoMultiDictProtoExtensionProtoIO ProtoCardMath ProtoIntMath ProtoRealMath)ASCII BooleanIOCharIO UnicharIOOctetIO CardinalIO LongCardIO IntegerIO LongIntIORealIO LongRealIOBCDIO LongBCDIOCardMath LongCardMathIntMath LongIntMathRealMath LongRealMathBCDMath LongBCDMathFileIOrr IOSupport)rStatus)rrr)stdInstdOutstdErr)pitau) unknownm2pimm2isom2r10objm2z m2iso+agletz m2pim+gm2zm2iso+p1z m2iso+xdscKst|dg}|D]}||jddvr||nq|dd|_t|dg}d|vs1d|vr5d |_nd|_t|d d |_tj|fi|dS) Ndialectr1Fstylealgolalgol_nuTtreat_stdlib_adts_as_builtins) rdialects set_dialectdialect_set_by_tagalgol_publication_moderr<r__init__)selfoptionsr=dialect_optionstylesrRrRX/home/air/segue/gemini/back/venv/lib/python3.10/site-packages/pygments/lexers/modula2.pyrAs    zModula2Lexer.__init__cCs||jvrd}n|}t}|j|D] }|t|qt}|j|D] }|t|q$t}|j|D] }|t||q6t}|j|D] }|t||qKt}|j|D] }|t||q`t} |j |D] }| t||qut} |j |D] }| t||qt} |j |D] }| t||qt} |j |D] }| t||qt} |j |D] }| t||q||_||_||_||_||_||_| |_| |_| |_| |_| |_dS)Nr1)r=setlexemes_to_reject_dbupdatereserved_words_db builtins_db differencepseudo_builtins_dbstdlib_adts_dbstdlib_modules_dbstdlib_types_dbstdlib_procedures_dbstdlib_variables_dbstdlib_constants_dbr6lexemes_to_rejectreserved_wordsbuiltinspseudo_builtinsadtsmodulestypes procedures variables constants)rB dialect_idr6lexemes_to_reject_setlist reswords_set builtins_setpseudo_builtins_setadts_set modules_set types_setprocedures_set variables_set constants_setrRrRrFr>sX  zModula2Lexer.set_dialectc Csd}d}t|}t|}|}| }t|||krA||rA||rA|||}tdt|jD] } ||j| kr>|Sq1dSdS)Nz(*!*)r7r1)len startswithendswithranger=) rB dialect_tagleft_tag_delimright_tag_delimleft_tag_delim_lenright_tag_delim_lenindicator_start indicator_end indicatorindexrRrRrFget_dialect_from_dialect_tag|s$  z)Modula2Lexer.get_dialect_from_dialect_tagccst||D]N\}}}|js&|tjkr&||}|dkr&||d|_|tur||jvr;t j }|j r9| }n||j vrLtj}|j rJ| }n||jvr]tjj}|j r\| }n||jvru|jsitj}ntjj}|j rt| }n||jvr~tj}n||jvrtj}n||jvrtj}n||jvrtj}n||jvrtj}n|tvr|jdvrd|vs|dddvrt}n|jdvr|tj urt}n|tj!urd |vrt}n}|tj"urd |vrt}nq|tvr|tj#ur|jdvrt}|tj$ur|%d r|j%d rt}nJ|%d r|jdkr|j%d stj&}n3||j'vr%t}|j rP|dkr1d}n|dkr9d}n|dkrAd}n|dkrId}n|dkrPd}|||fVqdS)Nr1T)r1r4r5'r)0b0x0u)r4r5HEz<*r2z(*$#u≠ru≤ru≥ru≡rnu•)(rget_tokens_unprocessedr?rSpecialrxr>r rUr Reservedr@lowerrVBuiltinrWPseudorXr< NamespacerYrZClassr[Functionr\Variabler]Constantr r6rOctHexFloatSinglePreprocrl MultilinerT)rBtextrwtokenvalueindicated_dialectrRrRrFrs                             z#Modula2Lexer.get_tokens_unprocessedcCsHd|vr d|vr d|vsdSd}td|r|d7}td|r"d }|S) zNIt's Pascal-like, but does not use FUNCTION -- uses PROCEDURE instead.z(*rjrNrz \bPROCEDURE\bg333333?z \bFUNCTION\bg)research)rresultrRrRrF analyse_texts  zModula2Lexer.analyse_textN)a__name__ __module__ __qualname____doc__nameurlaliases filenames mimetypes version_addedr MULTILINEDOTALLflagsrrrr r BinrrIntegerrr Doublerrr rrrtokenscommon_reserved_wordscommon_builtinscommon_pseudo_builtinspim_lexemes_to_rejectpim_additional_reserved_wordspim_additional_builtinspim_additional_pseudo_builtinsiso_lexemes_to_rejectiso_additional_reserved_wordsiso_additional_builtinsiso_additional_pseudo_builtinsm2r10_lexemes_to_rejectm2r10_additional_reserved_wordsm2r10_additional_builtins m2r10_additional_pseudo_builtinsobjm2_lexemes_to_rejectobjm2_additional_reserved_wordsobjm2_additional_builtins objm2_additional_pseudo_builtinsaglet_additional_reserved_wordsaglet_additional_builtins aglet_additional_pseudo_builtinsgm2_additional_reserved_wordsgm2_additional_builtinsgm2_additional_pseudo_builtinsp1_additional_reserved_wordsp1_additional_builtinsp1_additional_pseudo_builtinsxds_additional_reserved_wordsxds_additional_builtinsxds_additional_pseudo_builtinspim_stdlib_module_identifierspim_stdlib_type_identifierspim_stdlib_proc_identifierspim_stdlib_var_identifierspim_stdlib_const_identifiersiso_stdlib_module_identifiersiso_stdlib_type_identifiersiso_stdlib_proc_identifiersiso_stdlib_var_identifiersiso_stdlib_const_identifiersm2r10_stdlib_adt_identifiers"m2r10_stdlib_blueprint_identifiersm2r10_stdlib_module_identifiersm2r10_stdlib_type_identifiersm2r10_stdlib_proc_identifiersm2r10_stdlib_var_identifiersm2r10_stdlib_const_identifiersr=rHrJrKrMrNrOrPrQrRrSrAr>rxrrrRrRrRrFrs      %             + C C B141111&f0 n)rrpygments.lexerrr pygments.utilrrpygments.tokenrrrr r r r r r__all__rrRrRrRrFs ,