/usr/lib/rads/venv/lib/python3.13/site-packages/pygments/lexers/__pycache__
Edit: /usr/lib/rads/venv/lib/python3.13/site-packages/pygments/lexers/__pycache__/pascal.cpython-313.pyc (24850B)
j
y S r SSKrSSKJr SSKJrJr SSKJrJ r J
r
J r J r J
r
JrJrJr SSKJr SSKJr SS /r " S
S \5 r " S S\5 rg) 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) CommentOperatorKeywordNameStringNumber PunctuationError
Whitespace)Scanner) Modula2Lexer DelphiLexer
PortugolLexerc B \ rS rSrSrSrS/rSS/r/ rSr Sr
S r S
r S r
g )
r z;For Portugol, a Pascal dialect with keywords in Portuguese.Portugolportugolz*.algz
*.portugolz>https://www.apoioinformatica.inf.br/produtos/visualg/linguagem c Z [ R " U 40 UD6 [ S0 UDSS0D6U l g )Nr T )r __init__r lexer)selfoptionss I/usr/lib/rads/venv/lib/python3.13/site-packages/pygments/lexers/pascal.pyr PortugolLexer.__init__" s'
t'w' :7:T:
c 8 U R R U5 $ )N)r get_tokens_unprocessed)r texts r r" $PortugolLexer.get_tokens_unprocessed& s zz0066r )r N)__name__
__module__ __qualname____firstlineno____doc__namealiases filenames mimetypesurl
version_addedr r" __static_attributes__r r r r r s4 E DlG,'II
JCM;7r c \ rS rSrSrSr/ SQrSS/rS/rSr S r
S
r S r S r
1 S
kr1 Skr1 Skr1 SkrSSSSS.r1 Skr1 SkrSr1 SkrS rS rS rg ) r * a
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 reintroducerepeatr setshlshrstringthentotypeunituntilusesvarwhilewithxor)asclassexceptexports finalizationfinallyinitializationislibraryrX propertyraise threadvartry)disposeexitfalsenewtrue> rG rk rg rh rj r< rp r? rR r^ rw r] rJ rY rx r\ rz rB r@ rs rM ru > r* nearaliascdeclexportrP r6 dynamicstdcallvarargsvirtualexternaloverrideregistersafecall assembler interrupt softfloat nostackframe> farfar16indexpubliccppdecldefaultforwardprivater8 abstractr protected published
oldfpccall>G boolbytecharcomprealworddwordint64pboolpbytepcharpcomppdatepwordtdatettimedoublepdwordpint64real48singlerd tclassbooleanintegerlongintpdoublephandlepointerpsinglepstringthandletobjectvariantansicharbyteboolcardinalcurrencyextendediunknownlongboollongwordpbooleanpintegerplongintppointerpvariantshortintsmallinttextfilewidecharwordbool pansichar pcardinal pcurrency pdatetime pextended plongword pshortint psmallint pwidechar pwordbool tdatetime
ansistring
pbytearray
pwordarray
widestring pansistring pwidestring shortstring pshortstring)absacquireexceptionobjectaddr
ansitoutf8appendarctanassertassigned
assignfile beginthread blockread
blockwriter= chdirchrclose closefilecomptocurrency comptodoubleconcatrA copycosdecdeleter| doubletocomp endthread enummodulesenumresourcemoduleseofeolnerase
exceptaddr exceptobjectexcluder} expfileposfilesizefillcharfinalizefindclasshinstance
findhinstancefindresourcehinstanceflushfracfreemem get8087cwgetdir getlasterrorgetmemgetmemorymanagergetmodulefilenamegetvariantmanagerhalthihighincinclude
initializeinsertintioresultismemorymanagersetisvariantmanagersetlengthlnlolowmkdirmover oddolestrtostringolestrtostrvarord
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
encodetimeexceptionerrormessageexcludetrailingbackslash excludetrailingpathdelimiterexpandfilenameexpandfilenamecaseexpanduncfilenameextractfiledirextractfiledriveextractfileextextractfilenameextractfilepathextractrelativepathextractshortpathnamefileage fileclose
filecreatefiledatetodatetime
fileexists filegetattr filegetdatefileisreadonlyfileopenfileread
filesearchfileseek filesetattr filesetdatefilesetreadonly filewritefinalizepackage findclosefindcmdlineswitch findfirstfindnext floattocurrfloattodatetimefloattodecimal
floattostr floattostrf floattotextfloattotextfmt
fmtloadstrfmtstrforcedirectoriesformat formatbuf
formatcurrformatdatetime formatfloat
freeandnil
getcurrentdirgetenvironmentvariablegetfileversiongetformatsettingsgetlocaleformatsettings
getmodulenamegetpackagedescriptiongetpackageinfogettime guidtostring incamonthincludetrailingbackslash includetrailingpathdelimiterincmonthinitializepackageinterlockeddecrementinterlockedexchangeinterlockedexchangeaddinterlockedincrementinttohexinttostr 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>C ahalaxbhblbpbxchclcscxdhdidldsdxesfsgssispsscr0cr1cr2cr3cr4dr0dr1dr2dr3dr4dr5dr6dr7eaxebpebxecxediedxesiespmm0mm1mm2mm3mm4mm5mm6mm7st0st1st2st3st4st5st6st7xmm0xmm1xmm2xmm3xmm4xmm5xmm6xmm7> btrN jajbjcjejgjljojpjsjzrZ aaaaadaamaasadcaddr9 bsfbsrbtcbtrbtscbwcdqclccldclicmccmpcwddaadasr rC hltr r jaejbejgejlejmpjnajnbjncjnejngjnljnojnpjnsjnzjpejpolarldslealeslfslgslsllssltrmovmulnegnoprU outpoprclrcrrepretrolrorrsmsalsarsbbrb rc smistcstdstirM subud1ud2rn arplcallcltscwdeemmsibtsidivimulinsbinsdinswint1int3intoinvdiretjcxzjnaejnbejngejnlelahflgdtlidtljmplldtlmswlockloopmovdmovqpopapopfpushreperepzretfretnrsdcsahfsalcsetasetbsetcsetesetgsetlsetosetpsetssetzsgdtshldshrdsidtsldtsmswsvdcsvtstestumovverrverwwaitxaddxbtsxchgxlatboundbswapcmovacmovbcmovccmovecmovgcmovlcmovocmovpcmovscmovzcmpsbcmpsdcmpswcpuidentericebpint01int03iretdiretwjecxzlcallleavelodsblodsdlodswloopeloopzmovsbmovsdmovswmovsxmovzxoutsboutsdoutswpopadpopawpopfdpopfwpushapushfrdmsrrdpmcrdshrrdtscrepnerepnzrsldtscasbscasdscaswsetaesetbesetgesetlesetnasetnbsetncsetnesetngsetnlsetnosetnpsetnssetnzsetpesetposmintstosbstosdstoswsvldtwrmsrwrshrxlatbcmovaecmovbecmovgecmovlecmovnacmovnbcmovnccmovnecmovngcmovnlcmovnocmovnpcmovnscmovnzcmovpecmovpoinvlpgloopneloopnzpushadpushawpushfdpushfwsetcxzsetnaesetnbesetngesetnlesysretwbinvdcmovcxzcmovnaecmovnbecmovngecmovnlecmpxchgloadallsyscallsysexitsmintoldsysenter cmpxchg8b
cmpxchg486
loadall286)M aleatorio algoritmoarquivoatecaso
cronometrodebugeecoenquantoentaoescolhaescrevaescrevalfacafalso fimalgoritmo fimenquanto
fimescolha fimfuncaofimparafimprocedimento fimrepitafimsefuncaoinicior
interrompaleia limpatelarS naoou outrocasoparapassopausa procedimentorepitaretornesesenaotimerrk vetor
verdadeiroxourC rS r r arcsenr r r Expgraupradr logr r- quadradpgrauraizqrandrandisenTanasccarac caracpnumcomprcopiamaiuscminusc numpcaracr. > r logicointeiro caracterec , [ R " U 40 UD6 [ 5 U l [ 5 U l [ USS5 ( aR U R R
U R 5 U R R
U R 5 SU l g SU l [ USS5 ( a% U R R
U R 5 [ USS5 ( a% U R R
U R 5 [ USS5 ( a% U R R
U R 5 [ US[ U R 5 5 H+ nU R R
U R U 5 M- g )Nr FT turbopascalr4
freepascalunits)r r ra keywordsbuiltinsr updatePORTUGOL_KEYWORDSPORTUGOL_BUILTIN_TYPES is_portugolTURBO_PASCAL_KEYWORDSDELPHI_KEYWORDSFREE_PASCAL_KEYWORDSr list
BUILTIN_UNITS)r r rh s r r DelphiLexer.__init__ s%
t'w'
U 3 3 MM !7!7 8 MM !%>?$WgtD
Qr c # # [ U[ R [ R - [ R - 5 nS/nSnSnSnSnSnSn [ 5 n
SS/n UR ( G
d [ n US S:X Ga UR S5 ( a [ n G
OPU R ( dZ UR S5 ( aD UR R S5 ( a [ R n G O[ R n G OUR S5 ( a [ R n G OU R ( a UR S 5 ( a [" n G OU R ( d7 UR S
5 ( a! [" n U ( a UR S :X a Sn G OFUR S 5 ( a [$ n SnU( d U( az UR S
:X a U S== S-
ss' GOUR S:X a U S== S- ss' GOUR S:X a U S== S-
ss' GOUR S:X a
U S== S- ss' GOUR S5 ( GaP UR R' 5 n
U
S:X a [( R* R, n GOKXR. ; a [0 n U R ( a U
S; a SnSnGOU( d U( a3 XR2 ; a$ U S S:: a U S S:: a SnSnSS/n [ 5 n
U
S; a Sn GOU
S:X a UR5 S5 GOU
S:X a SnSnGOU
S; a SnSnGOU R ( d( U( a! XR6 ; a [0 R, n GOdU R ( d! U( a U
S; a [0 R, n SnGO2U( a U R ( d( UR9 S5 ( a [( R: n GO[( R< n SnU R ( a) U
R? UR R' 5 5 GOU R ( d U( a [( R@ n SnGOxU R ( dB U ( a; [( RB n U
R? UR R' 5 5 GO%X; a [( RB n GOU R ( a! XRD ; a [0 RF n GOU R ( d! XRH ; a [0 RF n GOU R ( d! XRJ ; a [0 R, n GOxU R ( d( U( d! XRL ; a [( R* n GO?[( n GO7U R ( a/ UR S 5 ( a [N n UR5 S 5 GOU R ( d/ UR S 5 ( a [N n UR5 S 5 GOU R ( d( UR S 5 ( a [N RP n GO~U R ( d( UR S 5 ( a [R RT n GOEUR S!5 ( a [R RV n GO UR S"5 ( a [R RX n GO[[ U5 S: a UR] 5 UR_ 5 GOUS S :X Ga= U R ( a UR S#5 ( a [N R` n GOUR S 5 ( a [N n UR] 5 GOSUR S$5 ( a [N n GO5UR_ 5 UR] 5 GOUR S#5 ( a [N R` n GOUR S 5 ( a [N n UR] 5 GOUR S%5 ( a [N n GOUR_ 5 UR] 5 GO}U R ( Gdk US S:X Gaa UR S5 ( a [ n GOCUR S&5 ( a [0 n UR] 5 GOUR S5 ( aD UR R S5 ( a [ R n GO[ R n GOUR S5 ( a [ R n GOUR S 5 ( a [N n UR5 S 5 GOdUR S'5 ( a [( RB n GO=)|(<=)|%|<|>|-|\+|\*|\=|(<>)|\/|\.|:|,z[-+*\/=<>:;,.@\^];z [\(\)\[\]]+( )[]z[A-Za-z_][A-Za-z_0-9]*result)r` rk T)rR rK r; rx )r\ rY rJ r@ rB )r4 rf z\s*\.\s*z\"rd 'z\#(\d+|\$[0-9A-Fa-f]+)z\$[0-9A-Fa-f]+z\d+(?![eE]|\.[^.])z&\d+(\.\d+([eE][+-]?\d+)?|[eE][+-]?\d+)z''z[^\"]*z[^']*rG z@@[A-Za-z_][A-Za-z_0-9]*z[-+*\/=<>:;,.@\^]+.r )5r reDOTALL MULTILINE
IGNORECASEra eosr
scanr r match
startswithr Preproc MultilineSingler r lowerr BuiltinPseudor r BLOCK_KEYWORDSr FUNCTION_MODIFIERSr ClassFunctionrH PropertyLabelr Type
BUILTIN_TYPES
DIRECTIVESr r
Charr HexIntegerFloatlenrx get_charEscapeASM_INSTRUCTIONS
ASM_REGISTERSstrip start_pos)r r# scannerstackin_function_blockin_property_blockwas_dotnext_token_is_functionnext_token_is_propertycollect_labels block_labels
brace_balancetokenlowercase_names r r" "DelphiLexer.get_tokens_unprocessed s $ BLL 82== HI ! !!& !& u A
+++ERyI%<<'' &E ))gll;Q.R.R }}//44 ' ' 1 1 \\),, #NNE%%',,7i*j*j $E ))gll;O.P.P $E%'--3*>). \\.11 'E-2* ),="==C/ )! , 1 , $]]c 1 )! , 1 , $]]c 1 )! , 1 , $]]c 1 )! , 1 , \\";<<%,]]%8%8%:N%1 $ 3 3'==8 ' ++ -1K K48 19= 6 15F$26I6I$I$1!$4$9$1!$4$949 149 112A
/2u -1B B15!/5!8 % U 3!/:!=48 19= 6!/ 4B "B 59 19= 6 " - -2C *.E.E E ' " - -2C *.? ? '15. 0 $ / /GLL4M4M$(JJE %)MME5: 2 # / / , 0 0 1D1D1F G " - -2H $
16. " - -. $
$(( )<)<)>?'7 $
))n@[@[.[ ' ! - -.DVDV2V ' ! - -.OO2S ' " - -g.TaTaBa $ $%%',,u*=*= "ELL* ))gll4.@.@ "ELL* ))gll;T.U.U "KKE ))gll;L.M.M "JJE \\"788 "NNE \\"KLL "LLE 5zA~ $$&rh&## ||E** &
e,, & i00 & ((* ||E** &
d++ & h// & ((* %%%%)u*<<<'' &E \\&)) #EIIK \\"899 }}//44 ' ' 1 1 \\),, #NNE \\$'' "ELL* \\"=>> JJE \\";<<%,]]%8%8%:N%)>)>> ''+=+== $ $ \\"788 $E \\.11 'E \\"344 "JJE \\"788 "NNE \\"KLL "LLE$$&IIK ##
(;(;(=(=!--3.##UMM,?R? ?e +++s m m$"m$)r r r N)r% r& r' r( r) r* r+ r, r- r. r/ r r r r r r r r r r r r r r" r0 r r r r r * s " D9G'"I !I
7CM O NJ M"
BB
F
kJMX M'RN` ?(^@r )r) r pygments.lexerr
pygments.utilr r pygments.tokenr r r r r
r r r
r pygments.scannerr pygments.lexers.modula2r __all__r r r r r r sR
4+ + + $ 1 /
*7E 7"Z @% Z @r