o sdf y@sdZddlZddlmZddlmZmZddlmZm Z m Z m Z m Z m Z mZmZmZddlmZddlmZdd gZGd d d eZGd ddeZdS) z pygments.lexers.pascal ~~~~~~~~~~~~~~~~~~~~~~ Lexers for Pascal family languages. :copyright: Copyright 2006-2024 by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. N)Lexer) get_bool_opt get_list_opt) CommentOperatorKeywordNameStringNumber PunctuationError Whitespace)Scanner) Modula2Lexer DelphiLexer PortugolLexerc@s>eZdZdZdZdgZddgZgZdZdZ dd Z d d Z d S) rz;For Portugol, a Pascal dialect with keywords in Portuguese.Portugolportugolz*.algz *.portugolz>https://www.apoioinformatica.inf.br/produtos/visualg/linguagemcKs.tj|fi|tdi|ddi|_dS)NrT)r__init__rlexer)selfoptionsrr_/var/www/html/software/conda/envs/catlas/lib/python3.10/site-packages/pygments/lexers/pascal.pyr"szPortugolLexer.__init__cCs |j|S)N)rget_tokens_unprocessed)rtextrrrr&s z$PortugolLexer.get_tokens_unprocessedN) __name__ __module__ __qualname____doc__namealiases filenames mimetypesurl version_addedrrrrrrrs c@seZdZdZdZgdZddgZdgZdZdZ d Z d Z d Z hd Z hd ZhdZhdZdddddZhdZhdZdZhdZddZddZdS)raF 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)delphipaspascal objectpascalz*.pasz*.dprz text/x-pascalz+https://www.embarcadero.com/products/delphir)8absoluteandarrayasmbeginbreakcaseconst constructorcontinue destructordivdoZdowntoelseendfileforfunctiongotoifimplementationin inheritedinline interfacelabelmodnilnotobjectZofonoperatororpacked procedureprogramrecordZ reintroducerepeatrsetshlshrstringZthentotypeunitZuntilusesvarwhilewithxor)asclassexceptexports finalizationfinallyinitializationislibraryrJpropertyraise threadvartry)disposeexitfalsenewtrue>r4r0rgrbrNr_r@r6rXrdrWrfrirKrPrZrEr3rOrYr=r:>rCZvirtualZnearZdynamicZ softfloatZsafecalloverrideZ interrupt assemblerr!registerZstdcallvarargsr*Z nostackframeZcdeclZexportaliasZexternal>publicZcppdeclprivateforwarddefaultZabstractr,Z oldfpccallZfar16ZfarindexZ protectedrqZ published>GZpintegerZint64ZpdoubleZlongwordZpdwordwordZtobjectvariantintegerbyteZpvariantZ shortstringZpdateZpwordZ pshortintZdwordZ pwordarrayZpcharcurrencyZiunknownZ psmallintbooleanZtextfileZ pdatetimerealZttimeZ pshortstringZbyteboolZ pansicharZ pwidestringZwidecharcompZpbooleancharZreal48ZpbyteboolZplongintZppointerZlongboolZpint64singleZwordboolZ pbytearrayZ pwordboolZpboolZlongintZcardinalZ pansistringZ pcurrencyZ pextendedZ pcardinalZsmallintZtdateZ tdatetimeZpsingleZ ansistringZthandleZshortintZphandlerUZpstringZtclassZpcompZ pwidecharZ plongwordZpointerdoubleZ widestringZansicharextended)absZacquireexceptionobjectaddrZ ansitoutf8appendarctanassertassignedZ assignfileZ beginthreadZ blockreadZ blockwriter1chdirchrcloseZ closefileZcomptocurrencyZ comptodoubleconcatr5copycosdecdeleterkZ doubletocompZ endthreadZ enummodulesZenumresourcemoduleseofZeolnZeraseZ exceptaddrZ exceptobjectexcluderlexpfileposfilesizeZfillcharfinalizeZfindclasshinstanceZ findhinstanceZfindresourcehinstanceflushfracZfreememZ get8087cwZgetdirZ getlasterrorZgetmemZgetmemorymanagerZgetmodulefilenameZgetvariantmanagerZhalthihighincincludeZ initializeinsertintZioresultZismemorymanagersetZisvariantmanagersetlengthlnlolowmkdirmovernZoddZolestrtostringZolestrtostrvarordZ paramcountZparamstrpipospredZptrZ pucs4charsrandomZ randomizereadZreadlnZ reallocmemZreleaseexceptionobjectrenameresetZrewritermdirroundZrunerrorseekZseekeofZseekeolnZ set8087cwZ setlengthZsetlinebreakstyleZsetmemorymanagerZ setstringZ settextbufZsetvariantmanagersinZsizeofsliceZsqrsqrtstrZ stringofcharZstringtoolestrZstringtowidecharsuccZswaptrunctruncateZtypeinfoZucs4stringtowidestringZ unicodetoutf8Z uniquestringZupcaseZ utf8decodeZ utf8encodeZ utf8toansiZ utf8tounicodevalZ vararrayredimZvarclearZwidecharlentostringZwidecharlentostrvarZwidechartostringZwidechartostrvarZwidestringtoucs4stringwritewriteln)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 currtostrfdateZdatetimetofiledateZ datetimetostrZdatetimetostringZdatetimetosystemtimeZdatetimetotimestampZ datetostrZ dayofweekZ decodedateZdecodedatefullyZ decodetimeZ deletefileZdirectoryexistsZdiskfreeZdisksizeZ disposestrZ encodedateZ encodetimeZexceptionerrormessageZexcludetrailingbackslashZexcludetrailingpathdelimiterZexpandfilenameZexpandfilenamecaseZexpanduncfilenameZextractfiledirZextractfiledriveZextractfileextZextractfilenameZextractfilepathZextractrelativepathZextractshortpathnameZfileageZ filecloseZ filecreateZfiledatetodatetimeZ fileexistsZ filegetattrZ filegetdateZfileisreadonlyZfileopenZfilereadZ filesearchZfileseekZ filesetattrZ filesetdateZfilesetreadonlyZ filewriteZfinalizepackageZ findcloseZfindcmdlineswitchZ findfirstZfindnextZ floattocurrZfloattodatetimeZfloattodecimalZ floattostrZ floattostrfZ floattotextZfloattotextfmtZ fmtloadstrZfmtstrZforcedirectoriesformatZ formatbufZ formatcurrZformatdatetimeZ formatfloatZ freeandnilZ getcurrentdirZgetenvironmentvariableZgetfileversionZgetformatsettingsZgetlocaleformatsettings getmodulenameZgetpackagedescriptionZgetpackageinfoZgettimeZ guidtostringZ incamonthZincludetrailingbackslashZincludetrailingpathdelimiterZincmonthZinitializepackageZinterlockeddecrementZinterlockedexchangeZinterlockedexchangeaddZinterlockedincrementZinttohexZinttostrZ isdelimiterZ isequalguidZ isleapyearZispathdelimiterZ isvalidident languagesZ lastdelimiterZ loadpackageZloadstrZ lowercaseZmsecstotimestampZnewstrZ nextcharindexnowZoutofmemoryerrorZ quotedstrZraiselastoserrorZraiselastwin32errorZ removedirZ renamefileZ replacedateZ replacetimeZsafeloadlibraryZ samefilenameZsametextZ setcurrentdirZ showexceptionsleepZstrallocZ strbufsizeZ strbytetypeZstrcatZ strcharlengthZstrcompZstrcopyZ strdisposeZstrecopyZstrendZstrfmtZstricompZ stringreplaceZ stringtoguidZstrlcatZstrlcompZstrlcopyZstrlenZstrlfmtZ strlicompZstrlowerZstrmoveZstrnewZ strnextcharZstrpasZstrpcopyZ strplcopyZstrposZstrrscanZstrscan strtoboolZ strtobooldefZ strtocurrZ strtocurrdefZ strtodateZ strtodatedefZ strtodatetimeZstrtodatetimedefZ strtofloatZ strtofloatdefZstrtointZ strtoint64Z strtoint64defZ strtointdefZ strtotimeZ strtotimedefZstrupperZsupportsZsyserrormessageZsystemtimetodatetimeZ texttofloattimeZtimestamptodatetimeZtimestamptomsecsZ 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 pointsequalZreadcomponentresZreadcomponentresexZreadcomponentresfilerectZ registerclassZregisterclassaliasZregisterclassesZregistercomponentsZregisterintegerconstsZregisternoiconZregisternonactivexZ smallpointZstartclassgroupZteststreamformatZunregisterclassZunregisterclassesZunregisterintegerconstsZunregistermoduleclassesZwritecomponentresfile)darccosZarccoshZarccotZarccothZarccscZarccschZarcsecZarcsechZarcsinZarcsinhZarctan2ZarctanhceilZ comparevalueZcosecantcoshZcotcotanZcothZcscZcschZ cycletodegZ cycletogradZ cycletoradZ degtocycleZ degtogradZdegtoraddivmodZdoubledecliningbalanceZ ensurerangefloorfrexpZ futurevalueZgetexceptionmaskZgetprecisionmodeZ getroundmodeZ gradtocycleZ gradtodegZ gradtoradhypotZinrangeZinterestpaymentZ interestrateZinternalrateofreturnZintpowerZ isinfiniteisnanZiszeroldexpZlnxp1log10log2lognmaxZ maxintvalueZmaxvaluemeanZ meanandstddevminZ minintvalueZminvalueZmomentskewkurtosisZnetpresentvalueZnormZnumberofperiodspaymentZ periodpaymentZpolyZ popnstddevZ popnvariancepowerZ presentvalueZ radtocycleZradtodegZ radtogradZrandgZ randomrangeZroundtoZ samevaluesecZsecantZsechZsetexceptionmaskZsetprecisionmodeZ setroundmodesignZ simpleroundtoZsincossinhZslndepreciationZstddevsumZsumintZ sumofsquaresZsumsandsquaresZsyddepreciationtantanhZ totalvarianceZvariance)SystemZSysUtilsZClassesZMath>CalchaxZahZdiZxmm1bpZcr0Zcr4ZdhZedxZst6Zmm2Zmm4blZmm3Zmm0ZcxZcr2Zcr3spZdr4ZesissdlZst2Zdr2ZespesZdsZcr1Zst4ZdxZdr3Zxmm6Zxmm4siZst7Zdr5Zxmm0Zxmm7gsZst5Zdr1ZecxZxmm5csfsZbhZmm5Zst3Zxmm3bxZmm6Zxmm2clZdr0ZeaxZebpZebxZst1Zmm1Zmm7ZediZdr7Zdr6Zst0>ZmovsbZint1ZinvdZsetnbZrcrZcmpxchgZhltZcmovbZcmovcxzZstosdZrsdcZcmovzZscasdZpushfwjaZjnaeZrolZsldtZsetpeZsetgZcmovlZ cmpxchg486ZsetoZstiZjnbeZmovzxZxbtsZoutsdZsvdcZjecxzZcmpsdZmovqZsetneZud1ZcmovgeZsetzZjzZcmpswwaitZrepneZsetaZlearlslZloopneZsetnlZstoswZpushawZenterimulZoutsbZcmovaeZclcZrepnzZsetngeZsetpoZiretdZsgdtZcmovnbpushjpZinswboundZcmcZcmovaloopZwrshrZrepeZjngeZsysretrepZsetgeZcmovnoZsetnpZcmovnlZsmswrZrorZjnboutr]ZjpesubretZcmovgZidivrTZsmintoldZstcZcltsZcmovcZjnleZrdtscZaadZshldZsidtZbtrrSZwbinvdaddZjcZjpoZsetleZpushfdZcmovnleZverrZbsfZsbbZjnlZloopzZpushaZlssZretfZcmovnaZxchgZpopfZbtcZcwdeZjbejlZcmovpeZsetnleZsyscallZsahfZsetngZpopadZcmovnsZlodsdZsvldtZcmovnbeZsmiZsetnsZinsdZibtsZsetnaZcmovnaeZsalcZlmswZcmovpoZint01Z loadall286ZjncZmovswZaaaZljmpZrdmsrZinvlpgZjnsZltrZsmintZsysenterZarplZbtsZjgZlfsZmovdZdaaZsvtsZjnoZloadallZjnaZsalr-testZpopfdcliZsetcxzZjnpZjgeZloopeZpopaZjbZjer7ZrsmZcmovneZlgsZoutswZscaswZshrdZsetnaecmpZaamZumovZrclZiretwZintoZldsZcmpsbZjaeZcmovbeZjngZnoprZwrmsrZbswaprAZjmpZcpuidcwdZleavelockZxaddZsetsZpushadZsarZud2ZsetlZint3ZsetaeZlldtZcdqZlcallZrepzZsetecallrLZrdpmcZiretZcmovsZjoZjneZxlatbZretnZsetcZcmovnzZxlatZjleZmovsxZmovsdmulZpushfZlidtZpopawZsetbeZbtZlarZstdZscasbZcmovprZjcxzZlesZsetnbeZsetncZsetpZsetbZcmovoZemmsZinsbZlodsbpopZ cmpxchg8bZjnzZloopnzZint03negZlgdtZlodswZbsrZcmovnpZsetnzZrdshrZcbwZlahfZpopfwZcmovngeZsetnojsZcmovleZdasZcmovngZaasrHZrsldtZicebpZsysexitZcmovncZcmoveZverwZstosbZadcZmovZcld)MZ aleatorioZ algoritmoZarquivoZateZcasoZ cronometrodebugeZecoZenquantoZentaoZescolhaZescrevaZescrevalZfacaZfalsoZ fimalgoritmoZ fimenquantoZ fimescolhaZ fimfuncaoZfimparaZfimprocedimentoZ fimrepitaZfimsefuncaoZiniciorZ interrompaZleiaZ limpatelarFZnaoZouZ outrocasoparaZpassoZpausa procedimentoZrepitaZretorneseZsenaotimerrZZvetorZ verdadeiroZxour7rFrrZarcsenrrrZExpZgraupradrlogrrquadZradpgrauZraizqZrandZrandiZsenZTanascZcaracZ caracpnumZcomprZcopiaZmaiuscZminuscZ numpcaracr>ZlogicorZinteiroZ caracterecKstj|fi|t|_t|_t|ddr*|j|j|j|jd|_ dSd|_ t|ddr:|j|j t|ddrG|j|j t|ddrT|j|j t |dt|jD] }|j|j|q]dS)NrFTZ turbopascalr(Z freepascalZunits)rrrRkeywordsbuiltinsrupdatePORTUGOL_KEYWORDSPORTUGOL_BUILTIN_TYPES is_portugolTURBO_PASCAL_KEYWORDSDELPHI_KEYWORDSFREE_PASCAL_KEYWORDSrlist BUILTIN_UNITS)rrrXrrrrs"     zDelphiLexer.__init__ccs"t|tjtjBtjB}dg}d}d}d}d}d}d} t} ddg} |jst} |ddkrb|dr9t } n7|j sQ|drQ|j drLt j} n$t j} n|dr[t j} n|j rg|d rgt} n |j s||d r|t} | rz|j d krzd} n|d rt} d}|s|r|j d kr| dd7<n|j dkr| dd8<n|j dkr| dd7<n|j dkr| dd8<n|dr|j } | dkrtjj} n| |jvr>t} |j r| dvrd}d}n|s|r| |jvr| ddkr| ddkrd}d}ddg} t} | dvrd} nT| dkr(|dnH| dkr3d}d}n=| dvr=)|(<=)|%|<|>|-|\+|\*|\=|(<>)|\/|\.|:|,z[-+*\/=<>:;,.@\^];z [\(\)\[\]]+()[]z[A-Za-z_][A-Za-z_0-9]*result)r r T)rEr>r/rg)rNrKr=r4r6)rrz\s*\.\s*z\"rU'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)5rreDOTALL MULTILINE IGNORECASErRZeosr scanr rmatch startswithrPreproc MultilineSinglerr lowerrBuiltinPseudorrBLOCK_KEYWORDSrFUNCTION_MODIFIERSrClassFunctionrPropertyLabelrType BUILTIN_TYPES DIRECTIVESrr Charr HexIntegerFloatlenrZget_charEscapeASM_INSTRUCTIONS ASM_REGISTERSstrip start_pos)rrscannerstackZin_function_blockZin_property_blockZwas_dotZnext_token_is_functionZnext_token_is_propertyZcollect_labelsZ block_labelsZ brace_balancetokenZlowercase_namerrrrsl                                                                  z"DelphiLexer.get_tokens_unprocessedN)rrrr r!r"r#r$r%r&rrrr6r7r>r=rrFrErrrrrrrrr*s6  !C  )P )r r)Zpygments.lexerrZ pygments.utilrrZpygments.tokenrrrrr r r r r Zpygments.scannerrZpygments.lexers.modula2r__all__rrrrrrs ,