o ѭjy@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-present 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)selfoptionsrrS/var/www/html/CropPilot/venv/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 destructordivdodowntoelseendfileforfunctiongotoifimplementationin inheritedinline interfacelabelmodnilnotobjectofonoperatororpacked procedureprogramrecord reintroducerepeatrsetshlshrstringthentotypeunituntilusesvarwhilewithxor)asclassexceptexports finalizationfinallyinitializationislibraryrLpropertyraise threadvartry)disposeexitfalsenewtrue>r;r_r[r\r^r0rdr3rFrRrkrQr>rMrlrPrnr6r4rgrAri>r!nearaliascdeclexportrDr*dynamicstdcallvarargsvirtualexternaloverrideregistersafecall assembler interrupt softfloat nostackframe>farfar16indexpubliccppdecldefaultforwardprivater,abstractr protected published oldfpccall>Gboolbytecharcomprealworddwordint64pboolpbytepcharpcomppdatepwordtdatettimedoublepdwordpint64real48singlerXtclassbooleanintegerlongintpdoublephandlepointerpsinglepstringthandletobjectvariantansicharbyteboolcardinalcurrencyextendediunknownlongboollongwordpbooleanpintegerplongintppointerpvariantshortintsmallinttextfilewidecharwordbool pansichar pcardinal pcurrency pdatetime pextended plongword pshortint psmallint pwidechar pwordbool tdatetime ansistring pbytearray pwordarray widestring pansistring pwidestring shortstring pshortstring)absacquireexceptionobjectaddr ansitoutf8appendarctanassertassigned assignfile beginthread blockread blockwriter1chdirchrclose closefilecomptocurrency comptodoubleconcatr5copycosdecdeleterp doubletocomp endthread enummodulesenumresourcemoduleseofeolnerase exceptaddr exceptobjectexcluderqexpfileposfilesizefillcharfinalizefindclasshinstance findhinstancefindresourcehinstanceflushfracfreemem get8087cwgetdir getlasterrorgetmemgetmemorymanagergetmodulefilenamegetvariantmanagerhalthihighincinclude initializeinsertintioresultismemorymanagersetisvariantmanagersetlengthlnlolowmkdirmoversoddolestrtostringolestrtostrvarord paramcountparamstrpipospredptr pucs4charsrandom randomizereadreadln reallocmemreleaseexceptionobjectrenameresetrewritermdirroundrunerrorseekseekeofseekeoln set8087cw setlengthsetlinebreakstylesetmemorymanager setstring settextbufsetvariantmanagersinsizeofslicesqrsqrtstr stringofcharstringtoolestrstringtowidecharsuccswaptrunctruncatetypeinfoucs4stringtowidestring unicodetoutf8 uniquestringupcase utf8decode utf8encode utf8toansi utf8tounicodeval vararrayredimvarclearwidecharlentostringwidecharlentostrvarwidechartostringwidechartostrvarwidestringtoucs4stringwritewriteln)abort addexitprocaddterminateprocadjustlinebreaksallocmemansicomparefilenameansicomparestransicomparetextansidequotedstransiextractquotedstr ansilastchar ansilowercaseansilowercasefilenameansipos ansiquotedstr ansisamestr ansisametext ansistrcomp ansistricompansistrlastchar ansistrlcomp ansistrlicomp ansistrlower ansistrpos ansistrrscan ansistrscan ansistrupper ansiuppercaseansiuppercasefilename appendstr assignstrbeep booltostrbytetocharindex bytetocharlenbytetypecallterminateprocs changefileext charlengthchartobyteindex chartobytelen comparemem comparestr comparetext createdir createguid currentyear currtostr currtostrfdatedatetimetofiledate datetimetostrdatetimetostringdatetimetosystemtimedatetimetotimestamp datetostr dayofweek decodedatedecodedatefully decodetime deletefiledirectoryexistsdiskfreedisksize disposestr encodedate encodetimeexceptionerrormessageexcludetrailingbackslashexcludetrailingpathdelimiterexpandfilenameexpandfilenamecaseexpanduncfilenameextractfiledirextractfiledriveextractfileextextractfilenameextractfilepathextractrelativepathextractshortpathnamefileage fileclose filecreatefiledatetodatetime fileexists filegetattr filegetdatefileisreadonlyfileopenfileread filesearchfileseek filesetattr filesetdatefilesetreadonly filewritefinalizepackage findclosefindcmdlineswitch findfirstfindnext floattocurrfloattodatetimefloattodecimal floattostr floattostrf floattotextfloattotextfmt fmtloadstrfmtstrforcedirectoriesformat formatbuf formatcurrformatdatetime formatfloat freeandnil getcurrentdirgetenvironmentvariablegetfileversiongetformatsettingsgetlocaleformatsettings getmodulenamegetpackagedescriptiongetpackageinfogettime guidtostring incamonthincludetrailingbackslashincludetrailingpathdelimiterincmonthinitializepackageinterlockeddecrementinterlockedexchangeinterlockedexchangeaddinterlockedincrementinttohexinttostr isdelimiter isequalguid isleapyearispathdelimiter isvalidident languages lastdelimiter loadpackageloadstr lowercasemsecstotimestampnewstr nextcharindexnowoutofmemoryerror quotedstrraiselastoserrorraiselastwin32error removedir renamefile replacedate replacetimesafeloadlibrary samefilenamesametext setcurrentdir showexceptionsleepstralloc strbufsize strbytetypestrcat strcharlengthstrcompstrcopy strdisposestrecopystrendstrfmtstricomp stringreplace stringtoguidstrlcatstrlcompstrlcopystrlenstrlfmt strlicompstrlowerstrmovestrnew strnextcharstrpasstrpcopy strplcopystrposstrrscanstrscan strtobool strtobooldef strtocurr strtocurrdef strtodate strtodatedef strtodatetimestrtodatetimedef strtofloat strtofloatdefstrtoint strtoint64 strtoint64def strtointdef strtotime strtotimedefstruppersupportssyserrormessagesystemtimetodatetime texttofloattimetimestamptodatetimetimestamptomsecs timetostrtrimtrimleft trimright tryencodedate tryencodetimetryfloattocurrtryfloattodatetime trystrtobool trystrtocurr trystrtodatetrystrtodatetime trystrtofloat trystrtoint trystrtoint64 trystrtotime unloadpackage uppercasewidecomparestrwidecomparetext widefmtstr wideformat wideformatbuf widelowercase widesamestr widesametext wideuppercase win32checkwraptext),activateclassgroup allocatehwndbintohexchecksynchronizecollectionsequalcountgenerationsdeallocatehwnd equalrectextractstrings findclassfindglobalcomponentgetclassgroupdescendantswithhextobin identtointinitinheritedcomponent inttoident invalidpointisuniqueglobalcomponentname linestartobjectbinarytotextobjectresourcetotextobjecttexttobinaryobjecttexttoresource pointsequalreadcomponentresreadcomponentresexreadcomponentresfilerect registerclassregisterclassaliasregisterclassesregistercomponentsregisterintegerconstsregisternoiconregisternonactivex smallpointstartclassgroupteststreamformatunregisterclassunregisterclassesunregisterintegerconstsunregistermoduleclasseswritecomponentresfile)darccosarccosharccotarccotharccscarccscharcsecarcsecharcsinarcsinharctan2arctanhceil comparevaluecosecantcoshcotcotancothcsccsch cycletodeg cycletograd cycletorad degtocycle degtograddegtoraddivmoddoubledecliningbalance ensurerangefloorfrexp futurevaluegetexceptionmaskgetprecisionmode getroundmode gradtocycle gradtodeg gradtoradhypotinrangeinterestpayment interestrateinternalrateofreturnintpower isinfiniteisnaniszeroldexplnxp1log10log2lognmax maxintvaluemaxvaluemean meanandstddevmin minintvalueminvaluemomentskewkurtosisnetpresentvaluenormnumberofperiodspayment periodpaymentpoly popnstddev popnvariancepower presentvalue radtocycleradtodeg radtogradrandg randomrangeroundto samevaluesecsecantsechsetexceptionmasksetprecisionmode setroundmodesign simpleroundtosincossinhslndepreciationstddevsumsumint sumofsquaressumsandsquaressyddepreciationtantanh totalvariancevariance)SystemSysUtilsClassesMath>Cahalaxbhblbpbxchclcscxdhdidldsdxesfsgssispsscr0cr1cr2cr3cr4dr0dr1dr2dr3dr4dr5dr6dr7eaxebpebxecxediedxesiespmm0mm1mm2mm3mm4mm5mm6mm7st0st1st2st3st4st5st6st7xmm0xmm1xmm2xmm3xmm4xmm5xmm6xmm7>btrBjajbjcjejgjljojpjsjzrNaaaaadaamaasadcaddr-bsfbsrbtcbtrbtscbwcdqclccldclicmccmpcwddaadasrr7hltr rjaejbejgejlejmpjnajnbjncjnejngjnljnojnpjnsjnzjpejpolarldslealeslfslgslsllssltrmovmulnegnoprIoutpoprclrcrrepretrolrorrsmsalsarsbbrVrWsmistcstdstirAsubud1ud2rbarplcallcltscwdeemmsibtsidivimulinsbinsdinswint1int3intoinvdiretjcxzjnaejnbejngejnlelahflgdtlidtljmplldtlmswlockloopmovdmovqpopapopfpushreperepzretfretnrsdcsahfsalcsetasetbsetcsetesetgsetlsetosetpsetssetzsgdtshldshrdsidtsldtsmswsvdcsvtstestumovverrverwwaitxaddxbtsxchgxlatboundbswapcmovacmovbcmovccmovecmovgcmovlcmovocmovpcmovscmovzcmpsbcmpsdcmpswcpuidentericebpint01int03iretdiretwjecxzlcallleavelodsblodsdlodswloopeloopzmovsbmovsdmovswmovsxmovzxoutsboutsdoutswpopadpopawpopfdpopfwpushapushfrdmsrrdpmcrdshrrdtscrepnerepnzrsldtscasbscasdscaswsetaesetbesetgesetlesetnasetnbsetncsetnesetngsetnlsetnosetnpsetnssetnzsetpesetposmintstosbstosdstoswsvldtwrmsrwrshrxlatbcmovaecmovbecmovgecmovlecmovnacmovnbcmovnccmovnecmovngcmovnlcmovnocmovnpcmovnscmovnzcmovpecmovpoinvlpgloopneloopnzpushadpushawpushfdpushfwsetcxzsetnaesetnbesetngesetnlesysretwbinvdcmovcxzcmovnaecmovnbecmovngecmovnlecmpxchgloadallsyscallsysexitsmintoldsysenter cmpxchg8b cmpxchg486 loadall286)M aleatorio algoritmoarquivoatecaso cronometrodebugeecoenquantoentaoescolhaescrevaescrevalfacafalso fimalgoritmo fimenquanto fimescolha fimfuncaofimparafimprocedimento fimrepitafimsefuncaoinicior interrompaleia limpatelarGnaoou outrocasoparapassopausa procedimentorepitaretornesesenaotimerr_vetor verdadeiroxour7rGrrarcsenrrrExpgraupradrlogrr!quadradpgrauraizqrandrandisenTanasccarac caracpnumcomprcopiamaiuscminusc numpcaracr">rlogicointeiro 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)NrFT turbopascalr( freepascalunits)rrrUkeywordsbuiltinsrupdatePORTUGOL_KEYWORDSPORTUGOL_BUILTIN_TYPES is_portugolTURBO_PASCAL_KEYWORDSDELPHI_KEYWORDSFREE_PASCAL_KEYWORDSrlist BUILTIN_UNITS)rrr\rrrrs"     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)rTr_T)rFr?r/rl)rPrMr>r4r6)r(rZz\s*\.\s*z\"rX'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 IGNORECASErUeosr scanr rmatch startswithrPreproc MultilineSinglerr lowerrBuiltinPseudorrBLOCK_KEYWORDSrFUNCTION_MODIFIERSrClassFunctionr<PropertyLabelrType BUILTIN_TYPES DIRECTIVESrr Charr HexIntegerFloatlenrlget_charEscapeASM_INSTRUCTIONS ASM_REGISTERSstrip start_pos)rrscannerstackin_function_blockin_property_blockwas_dotnext_token_is_functionnext_token_is_propertycollect_labels block_labels brace_balancetokenlowercase_namerrrrsl                                                                  z"DelphiLexer.get_tokens_unprocessedN)rrrr r!r"r#r$r%r&rrrrrrrrrrrrrrrrrrr*s6  !C  )P )r rpygments.lexerr pygments.utilrrpygments.tokenrrrrr r r r r pygments.scannerrpygments.lexers.modula2r__all__rrrrrrs ,