o
    *iy                     @   s   d Z ddlZddlmZ ddlmZmZ ddlmZm	Z	m
Z
mZmZmZmZmZmZ ddlmZ ddlmZ dd	gZG d
d	 d	eZG dd deZdS )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)	CommentOperatorKeywordNameStringNumberPunctuationError
Whitespace)Scanner)Modula2LexerDelphiLexerPortugolLexerc                   @   s>   e Zd ZdZdZdgZddgZg ZdZdZ	dd	 Z
d
d ZdS )r   z;For Portugol, a Pascal dialect with keywords in Portuguese.Portugolportugolz*.algz
*.portugolz>https://www.apoioinformatica.inf.br/produtos/visualg/linguagem c                 K   s.   t j| fi | tdi |ddi| _d S )Nr   T )r   __init__r   lexer)selfoptionsr   r   P/home/kim/smarthome/.venv/lib/python3.10/site-packages/pygments/lexers/pascal.pyr   "   s   zPortugolLexer.__init__c                 C   s   | j |S )N)r   get_tokens_unprocessed)r   textr   r   r   r   &   s   z$PortugolLexer.get_tokens_unprocessedN)__name__
__module____qualname____doc__namealiases	filenames	mimetypesurlversion_addedr   r   r   r   r   r   r      s    c                   @   s   e Zd ZdZdZg dZddgZdgZdZdZ	d	Z
d
ZdZh dZh dZh dZh dZdddddZh dZh dZdZh dZdd Zdd ZdS )r   aF  
    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)delphipaspascalobjectpascalz*.pasz*.dprztext/x-pascalz+https://www.embarcadero.com/products/delphir   )8absoluteandarrayasmbeginbreakcaseconstconstructorcontinue
destructordivdoZdowntoelseendfileforfunctiongotoifimplementationin	inheritedinlineZ	interfacelabelmodnilnotobjectZofonoperatororpacked	procedureprogramrecordZreintroducerepeatr   setshlshrstringZthentotypeunitZuntilusesvarwhilewithxor)asclassexceptexportsfinalizationfinallyinitializationislibraryrI   propertyraise	threadvartry)disposeexitfalsenewtrue>   rX   rO   r6   ra   r@   rN   rJ   rV   re   rY   rc   r=   r4   r3   rh   rW   r:   rM   rf   r^   r0   rD   >   overridevarargsZsafecallZ	softfloatrC   ZcdeclZnearr*   registerZnostackframer!   	assemblerZexternalZvirtualZ	interruptaliasZstdcallZdynamicZexport>   r,   Z	protectedZfarforwardabstractindexprivateZ	publisheddefaultpublicrr   ZcppdeclZ
oldfpccallZfar16>G   doubleZsmallintcharZiunknownZtdateintegerZint64Z	plongwordZlongboolZpvariantZthandlebyteZ	pdatetimeZpintegerZbyteboolZpcompZ	psmallintZ
widestringZlongintZlongwordZreal48ZtextfileZ	pansicharZphandleZ	pshortintZansicharZpdoubleZpshortstringZ	tdatetimerT   ZshortintZplongintZtclassZtobjectvariantZcardinalcurrencyZwidecharZpboolZ	pwordboolZpbooleanZpint64extendedZpsingleZppointerZshortstringbooleanZpansistringZpstringZdwordcomprealZ
pbytearrayZ	pwidecharZpwordboolZpdwordZ	pextendedZ	pcurrencyZpbyteZpointerZttimeZpdateZ
ansistringZpwidestringZwordboolZ	pcardinalZpcharwordsingleZ
pwordarray)absZacquireexceptionobjectaddrZ
ansitoutf8appendarctanassertassignedZ
assignfileZbeginthreadZ	blockreadZ
blockwriter1   chdirchrcloseZ	closefileZcomptocurrencyZcomptodoubleconcatr5   copycosdecdeleterj   ZdoubletocompZ	endthreadZenummodulesZenumresourcemoduleseofZeolnZeraseZ
exceptaddrZexceptobjectexcluderk   expfileposfilesizeZfillcharfinalizeZfindclasshinstanceZfindhinstanceZfindresourcehinstanceflushfracZfreememZ	get8087cwZgetdirZgetlasterrorZgetmemZgetmemorymanagerZgetmodulefilenameZgetvariantmanagerZhalthihighincincludeZ
initializeinsertintZioresultZismemorymanagersetZisvariantmanagersetlengthlnlolowmkdirmoverm   ZoddZolestrtostringZolestrtostrvarordZ
paramcountZparamstrpipospredZptrZ
pucs4charsrandomZ	randomizereadZreadlnZ
reallocmemZreleaseexceptionobjectrenameresetZrewritermdirroundZrunerrorseekZseekeofZseekeolnZ	set8087cwZ	setlengthZsetlinebreakstyleZsetmemorymanagerZ	setstringZ
settextbufZsetvariantmanagersinZsizeofsliceZsqrsqrtstrZstringofcharZstringtoolestrZstringtowidecharsuccZswaptrunctruncateZtypeinfoZucs4stringtowidestringZunicodetoutf8ZuniquestringZupcaseZ
utf8decodeZ
utf8encodeZ
utf8toansiZutf8tounicodevalZvararrayredimZvarclearZwidecharlentostringZwidecharlentostrvarZwidechartostringZwidechartostrvarZwidestringtoucs4stringwritewriteln)abortZaddexitprocZaddterminateprocZadjustlinebreaksZallocmemZansicomparefilenameZansicomparestrZansicomparetextZansidequotedstrZansiextractquotedstrZansilastcharZansilowercaseZansilowercasefilenameZansiposZansiquotedstrZansisamestrZansisametextZansistrcompZansistricompZansistrlastcharZansistrlcompZansistrlicompZansistrlowerZ
ansistrposZansistrrscanZansistrscanZansistrupperZansiuppercaseZansiuppercasefilenameZ	appendstrZ	assignstrZbeepZ	booltostrZbytetocharindexZbytetocharlenZbytetypeZcallterminateprocsZchangefileextZ
charlengthZchartobyteindexZchartobytelenZ
comparememZ
comparestrZcomparetextZ	createdirZ
createguidZcurrentyearZ	currtostrZ
currtostrfdateZdatetimetofiledateZdatetimetostrZdatetimetostringZdatetimetosystemtimeZdatetimetotimestampZ	datetostrZ	dayofweekZ
decodedateZdecodedatefullyZ
decodetimeZ
deletefileZdirectoryexistsZdiskfreeZdisksizeZ
disposestrZ
encodedateZ
encodetimeZexceptionerrormessageZexcludetrailingbackslashZexcludetrailingpathdelimiterZexpandfilenameZexpandfilenamecaseZexpanduncfilenameZextractfiledirZextractfiledriveZextractfileextZextractfilenameZextractfilepathZextractrelativepathZextractshortpathnameZfileageZ	filecloseZ
filecreateZfiledatetodatetimeZ
fileexistsZfilegetattrZfilegetdateZfileisreadonlyZfileopenZfilereadZ
filesearchZfileseekZfilesetattrZfilesetdateZfilesetreadonlyZ	filewriteZfinalizepackageZ	findcloseZfindcmdlineswitchZ	findfirstZfindnextZfloattocurrZfloattodatetimeZfloattodecimalZ
floattostrZfloattostrfZfloattotextZfloattotextfmtZ
fmtloadstrZfmtstrZforcedirectoriesformatZ	formatbufZ
formatcurrZformatdatetimeZformatfloatZ
freeandnilZgetcurrentdirZgetenvironmentvariableZgetfileversionZgetformatsettingsZgetlocaleformatsettingsgetmodulenameZgetpackagedescriptionZgetpackageinfoZgettimeZguidtostringZ	incamonthZincludetrailingbackslashZincludetrailingpathdelimiterZincmonthZinitializepackageZinterlockeddecrementZinterlockedexchangeZinterlockedexchangeaddZinterlockedincrementZinttohexZinttostrZisdelimiterZisequalguidZ
isleapyearZispathdelimiterZisvalidident	languagesZlastdelimiterZloadpackageZloadstrZ	lowercaseZmsecstotimestampZnewstrZnextcharindexnowZoutofmemoryerrorZ	quotedstrZraiselastoserrorZraiselastwin32errorZ	removedirZ
renamefileZreplacedateZreplacetimeZsafeloadlibraryZsamefilenameZsametextZsetcurrentdirZshowexceptionsleepZstrallocZ
strbufsizeZstrbytetypeZstrcatZstrcharlengthZstrcompZstrcopyZ
strdisposeZstrecopyZstrendZstrfmtZstricompZstringreplaceZstringtoguidZstrlcatZstrlcompZstrlcopyZstrlenZstrlfmtZ	strlicompZstrlowerZstrmoveZstrnewZstrnextcharZstrpasZstrpcopyZ	strplcopyZstrposZstrrscanZstrscan	strtoboolZstrtobooldefZ	strtocurrZstrtocurrdefZ	strtodateZstrtodatedefZstrtodatetimeZstrtodatetimedefZ
strtofloatZstrtofloatdefZstrtointZ
strtoint64Zstrtoint64defZstrtointdefZ	strtotimeZstrtotimedefZstrupperZsupportsZsyserrormessageZsystemtimetodatetimeZtexttofloattimeZtimestamptodatetimeZtimestamptomsecsZ	timetostrZtrimZtrimleftZ	trimrightZtryencodedateZtryencodetimeZtryfloattocurrZtryfloattodatetimeZtrystrtoboolZtrystrtocurrZtrystrtodateZtrystrtodatetimeZtrystrtofloatZtrystrtointZtrystrtoint64ZtrystrtotimeZunloadpackageZ	uppercaseZwidecomparestrZwidecomparetextZ
widefmtstrZ
wideformatZwideformatbufZwidelowercaseZwidesamestrZwidesametextZwideuppercaseZ
win32checkZwraptext),ZactivateclassgroupZallocatehwndZbintohexZchecksynchronizeZcollectionsequalZcountgenerationsZdeallocatehwndZ	equalrectZextractstringsZ	findclassZfindglobalcomponentZgetclassZgroupdescendantswithZhextobinZ
identtointZinitinheritedcomponentZ
inttoidentZinvalidpointZisuniqueglobalcomponentnameZ	linestartZobjectbinarytotextZobjectresourcetotextZobjecttexttobinaryZobjecttexttoresourceZpointsequalZreadcomponentresZreadcomponentresexZreadcomponentresfilerectZregisterclassZregisterclassaliasZregisterclassesZregistercomponentsZregisterintegerconstsZregisternoiconZregisternonactivexZ
smallpointZstartclassgroupZteststreamformatZunregisterclassZunregisterclassesZunregisterintegerconstsZunregistermoduleclassesZwritecomponentresfile)darccosZarccoshZarccotZarccothZarccscZarccschZarcsecZarcsechZarcsinZarcsinhZarctan2ZarctanhceilZcomparevalueZcosecantcoshZcotcotanZcothZcscZcschZ
cycletodegZcycletogradZ
cycletoradZ
degtocycleZ	degtogradZdegtoraddivmodZdoubledecliningbalanceZensurerangefloorfrexpZfuturevalueZgetexceptionmaskZgetprecisionmodeZgetroundmodeZgradtocycleZ	gradtodegZ	gradtoradhypotZinrangeZinterestpaymentZinterestrateZinternalrateofreturnZintpowerZ
isinfiniteisnanZiszeroldexpZlnxp1log10log2lognmaxZmaxintvalueZmaxvaluemeanZmeanandstddevminZminintvalueZminvalueZmomentskewkurtosisZnetpresentvalueZnormZnumberofperiodspaymentZperiodpaymentZpolyZ
popnstddevZpopnvariancepowerZpresentvalueZ
radtocycleZradtodegZ	radtogradZrandgZrandomrangeZroundtoZ	samevaluesecZsecantZsechZsetexceptionmaskZsetprecisionmodeZsetroundmodesignZsimpleroundtoZsincossinhZslndepreciationZstddevsumZsumintZsumofsquaresZsumsandsquaresZsyddepreciationtantanhZtotalvarianceZvariance)SystemZSysUtilsZClassesZMath>C   spZmm7Zdr0alZdr7Zcr4gsZst2Zxmm3Zst4ZedxZxmm5Zmm1Zst3Zxmm7Zmm3ZcxZcr0Zxmm6Zmm2ZdxZmm0Zst7Zst6ZecxsiZbhaxbpclZdr6ZdhdlblZeaxcsZebxZediZesiZmm4Zmm5ssZxmm4ZahZxmm1Zdr5ZdsZdr1Zxmm0Zst5Zcr3Zdr4ZebpZespZmm6Zcr1ZdifsZst1Zcr2chZdr3Zxmm2esZst0Zdr2bx>  ZcmpsdZsvdcZcmpsbZsetlZrcljaZrdmsrZwrshrZaaaZaadZbtZrdpmcZpushfZsetgZcmovneZiretZinsdZjeZjngenegZcmovncZjpoZjnlZinvdZsetnleZstosbZlodsbZlgsjlZsetpewaitZlcallZverrZxbtslockZretfZscasbZrepneZjnaeZloopnzZpushadZstcZcmovgeZsmintoldZintoZleaveZrsldtZcmovnbeZcmovcxzZcmovporS   ZwrmsrZbtsboundrK   rR   ZsysexittestZsetneZsetcZlodsdZldsZsalcZiretdZltrZsetar   ZmovzxZcmovnlZaasZjpeoutZsetzZsetngeZcmovnzZlesZcmovpeZbtrZjngZpopawZsetgeZmovrepZshldZsmswZ
cmpxchg486r   ZjzloopZsetsZsmicmpZsetnar\   ZoutsbZoutswr   ZrorZjaeZint03ZiretwZjnbeZcmovsrA   Zud1ZcmovnaZjneZmovswZstiZinswZcmovnleZcmovnbZsalZcmovgZjgeZsetngZsetnsZsysenterZsgdtZcmovcZjbZsetnllslZcmovlZidivZenterZbsfZmovsbZrsmZloopneZjbeZsvldtZcmovbZaamZljmpZpopadZsetcxzZpushfdZcmovngeZarplZrepnzZsetnzZbswapZbtcZclcZcmovaeZcmovbeZint01ZloopzZcmovar7   ZnopZpopfdpushZsetnpZsetoZwbinvdZjnaZpopasubZlodswZlssZmovsdZpushaZjnzZpopfjpZlahfZinvlpgZjcxzZsmintZibtsZlmswZlgdtZrdtscZsbbZoutsdZcmovleZint1ZjnbZshrdZstdZcmcZrcrZsetbZumovpopZpopfwZretnZxlatZjncjsZcmovoZloopeZrepzZhltZsetpoZsidtimulZrepeZrolZpushfwZcpuidretZlarZrdshrZsetnoZjnpZverwZadcZrsdcZjgcliZcmpswZsvtsZleaZbsrZloadallZcbwZcltsZpushawZcmovnpZemmsZsetleZsetnaeZmovsxmulZud2rG   r-   ZlfsZdasZmovdZcmoveZcmovzZseteZsetncZlidtZsysretZcmpxchgZjecxzZsetbeZmovqZ
loadall286ZcdqZjoZsetnbZcmovnaeZlldtZsyscallZdaaZscaswZsetpcwdZcwdeZcmovngZicebpZjnoZxchgZcldZsldtZcmovpZstosdZxaddZsaraddZxlatbZ	cmpxchg8br   ZcmovnoZjnsZsahfcallZstoswZsetaeZcmovnsZscasdZjleZsetnbeZjnleZint3ZjmpZinsbZjc)MZ	aleatorioZ	algoritmoZarquivoZateZcasoZ
cronometrodebugeZecoZenquantoZentaoZescolhaZescrevaZescrevalZfacaZfalsoZfimalgoritmoZfimenquantoZ
fimescolhaZ	fimfuncaoZfimparaZfimprocedimentoZ	fimrepitaZfimsefuncaoZinicior   Z
interrompaZleiaZ	limpatelarE   ZnaoZouZ	outrocasoparaZpassoZpausaprocedimentoZrepitaZretorneseZsenaoZtimerrY   ZvetorZ
verdadeiroZxour7   rE   r   r   Zarcsenr   r   r   ZExpZgraupradr   logr   r   ZquadZradpgrauZraizqZrandZrandiZsenZTanascZcaracZ	caracpnumZcomprZcopiaZmaiuscZminuscZ	numpcaracr   >   Zlogicor   Z	caractereZinteiroc                 K   s   t j| fi | t | _t | _t|ddr*| j| j | j| j d| _	d S d| _	t|ddr:| j| j
 t|ddrG| j| j t|ddrT| j| j t|dt| jD ]}| j| j|  q]d S )Nr   FTZturbopascalr(   Z
freepascalZunits)r   r   rQ   keywordsbuiltinsr   updatePORTUGOL_KEYWORDSPORTUGOL_BUILTIN_TYPESis_portugolTURBO_PASCAL_KEYWORDSDELPHI_KEYWORDSFREE_PASCAL_KEYWORDSr   listBUILTIN_UNITS)r   r   rW   r   r   r   r     s"   
zDelphiLexer.__init__c                 c   s"   t |tjtjB tjB }dg}d}d}d}d}d}d}	t }
ddg}|jst}|d dkrb|dr9t	}n7| j
sQ|drQ|jdrLtj}n$tj}n|dr[tj}n| j
rg|d	rgt}n	| j
s||d
r|t}|	rz|jdkrzd}	n|drt}d}|s|r|jdkr|d  d7  < n|jdkr|d  d8  < n|jdkr|d  d7  < n|jdkr|d  d8  < n|dr|j }|dkrtjj}n|| jv r>t}| j
r|dv rd}d}n|s|r|| jv r|d dkr|d dkrd}d}ddg}t }
|dv rd}	nT|dkr(|d nH|dkr3d}d}n=|dv r<d}d}n2| j
sP|rP|| jv rPtj}n | j
sc|rc|dv rctj}d}n|r| j
su|drutj}ntj}d}| j
r|
|j  n| j
s|rtj }d}n| j
s|	rtj!}|
|j  n||
v rtj!}n| j
r|| j"v rtj#}n| j
s|| j$v rtj#}n| j
s|| j%v rtj}n| j
s|s|| j&v rtj}n}t}ny| j
r
|dr
t'}|d nf| j
s|drt'}|d nS| j
s,|dr,t'j(}nD| j
s;|d r;t)j*}n5|d!rFt)j+}n*|d"rQt)j,}nt-|dkr\|.  |/  n|d dkr| j
r|d#rwt'j0}n|drt'}|.  n|d$rt'}n|/  |.  n|d#rt'j0}n|drt'}|.  n|d%rt'}n|/  |.  n| j
sp|d dkrp|drt	}n|d&rt}|.  n|dr|jdrtj}ntj}n{|drtj}nq|drt'}|d nc|d'rtj!}nY|dr8|j }|| j1v r+t}nE|| j2v r5tj}n;t}n8|d(rAt}n/|drJt}n&|d rTt)j*}n|d!r^t)j+}n|d"rht)j,}n|/  |.  | j
s|j3 r|jd)k}|j4||jpd*fV  |jr'd S d S )+NinitialFr   z\s+z\{.*?\}|\(\*.*?\*\)$z//.*?$z/(<\-)|(>=)|(<=)|%|<|>|-|\+|\*|\=|(<>)|\/|\.|:|,z[-+*\/=<>:;,.@\^];z[\(\)\[\]]+(   )[]z[A-Za-z_][A-Za-z_0-9]*result)r
  r  T)rD   r>   r/   rf   )rM   rJ   r=   r4   r6   )r   r   z\s*\.\s*z\"rT   '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   )5r   reDOTALL	MULTILINE
IGNORECASErQ   Zeosr   scanr   r  match
startswithr   Preproc	MultilineSingler   r   lowerr   BuiltinPseudor  r   BLOCK_KEYWORDSr   FUNCTION_MODIFIERSr   ClassFunctionr  PropertyLabelr  TypeBUILTIN_TYPES
DIRECTIVESr  r	   Charr
   HexIntegerFloatlenr   Zget_charEscapeASM_INSTRUCTIONSASM_REGISTERSstrip	start_pos)r   r   scannerstackZin_function_blockZin_property_blockZwas_dotZnext_token_is_functionZnext_token_is_propertyZcollect_labelsZblock_labelsZbrace_balancetokenZlowercase_namer   r   r   r     sl  



































 z"DelphiLexer.get_tokens_unprocessedN)r   r   r   r    r!   r"   r#   r$   r%   r&   r  r  r  r4  r5  r<  r;  r  rD  rC  r  r  r   r   r   r   r   r   r   *   s6    	!C )P)r    r'  Zpygments.lexerr   Zpygments.utilr   r   Zpygments.tokenr   r   r   r   r	   r
   r   r   r   Zpygments.scannerr   Zpygments.lexers.modula2r   __all__r   r   r   r   r   r   <module>   s    
,