o
    ‡ÎÖa  ã                   @   sf   d Z ddlmZmZmZ ddlmZmZmZm	Z	m
Z
mZmZmZ ddlmZ dgZG dd„ deƒZdS )zÐ
    pygments.lexers.tcl
    ~~~~~~~~~~~~~~~~~~~

    Lexers for Tcl and related languages.

    :copyright: Copyright 2006-2021 by the Pygments team, see AUTHORS.
    :license: BSD, see LICENSE for details.
é    )Ú
RegexLexerÚincludeÚwords)ÚTextÚCommentÚOperatorÚKeywordÚNameÚStringÚNumberÚ
Whitespace©Úshebang_matchesÚTclLexerc                
   @   s<  e Zd ZdZedddd�Zedddd�ZdZdgZdd	gZ	g d
¢Z
d>dd„Zi dedƒedƒedƒdefg“deeeƒ“deeedƒ“deeedƒ“deeedƒ“ddedfdedfdedfdejd fd!ejfd"efg“dd#efd$ejfd%ejfd&ejfd'ejfd(ejfd)efg“d*d+ed,fd-ed,fd.efedƒedƒg“d/ded0fed*ƒg“d1d2ed0fed*ƒg“d3d4ed0fed*ƒg“d dejd5fd6ejfdejd,fg“d5dejd5fd7ejfd4ejd,fg“dded,fedƒedƒedƒg“dd2ed,fedƒedƒedƒg“dd4ed,fedƒedƒedƒg“d8d9ed,fd:efg“Zd;d<„ Zd=S )?r   z:
    For Tcl source code.

    .. versionadded:: 0.10
    )ÚafterÚapplyÚarrayÚbreakÚcatchÚcontinueÚelseifÚelseÚerrorÚevalÚexprÚforÚforeachÚglobalÚifÚ	namespaceÚprocÚrenameÚreturnÚsetÚswitchÚthenÚtraceÚunsetÚupdateÚuplevelÚupvarÚvariableÚvwaitÚwhilez\b)ÚprefixÚsuffix)KÚappendÚbgerrorÚbinaryÚcdÚchanÚclockÚcloseÚconcatÚddeÚdictÚencodingÚeofÚexecÚexitÚfblockedÚ
fconfigureÚfcopyÚfileÚ	fileeventÚflushÚformatÚgetsÚglobÚhistoryÚhttpÚincrÚinfoÚinterpÚjoinÚlappendÚlassignÚlindexÚlinsertÚlistÚllengthÚloadÚloadTkÚlrangeÚlrepeatÚlreplaceÚlreverseÚlsearchÚlsetÚlsortÚmathfuncÚmathopÚmemoryÚmsgcatÚopenÚpackageÚpidzpkg::createÚpkg_mkIndexÚplatformzplatform::shellÚputsÚpwdÚ	re_syntaxÚreadÚrefchanÚregexpÚregistryÚregsubÚscanÚseekÚsocketÚsourceÚsplitÚstringÚsubstÚtellÚtimeÚtmÚunknownÚunloadÚTclÚtclz*.tclz*.rvt)z
text/x-tclztext/x-script.tclzapplication/x-tclÚ c                 C   s4   | t d| f|tjd| fdtjd| fdtdfgS )NÚparamsz	([\w.-]+)ú#Úcomment)r   r	   ÚBuiltinÚVariabler   )Úkeyword_cmds_reÚbuiltin_cmds_reÚcontext© r„   ú5/usr/lib/python3/dist-packages/pygments/lexers/tcl.pyÚ_gen_command_rules0   s
   üzTclLexer._gen_command_rulesÚrootÚcommandÚbasicÚdataz\}zcommand-in-bracez	-in-bracezcommand-in-bracketz-in-bracketzcommand-in-parenz	-in-parenz\(Úparenz\[Úbracketz\{Úbraceú"rr   z(eq|ne|in|ni)\bz/!=|==|<<|>>|<=|>=|&&|\|\||\*\*|[-+~!*/%<>&^|?:]z\s+z0x[a-fA-F0-9]+z0[0-7]+z\d+\.\d+z\d+z\$([\w.:-]+)z([\w.,@:-]+)r|   ú;ú#popz\nz(else|elseif|then)\bzparams-in-brace)r�   r�   zparams-in-parenz\)zparams-in-bracketz\]zstring-squarez(?s)(\\\\|\\[0-7]+|\\.|[^"\\])z$(?s)(\\\\|\\[0-7]+|\\.|\\\n|[^\]\\])r~   z	.*[^\\]\nz.*\\\nc                 C   s
   t | dƒS )Nz(tcl)r   )Útextr„   r„   r…   Úanalyse_text�   s   
zTclLexer.analyse_textN)r{   )Ú__name__Ú
__module__Ú__qualname__Ú__doc__r   r�   r‚   ÚnameÚaliasesÚ	filenamesÚ	mimetypesr†   r   r   r
   ÚDoubler   ÚWordr   r   ÚHexÚOctÚFloatÚIntegerr	   r€   r   r   Útokensr’   r„   r„   r„   r…   r      sî    ü	÷
üÿ
ùþøþõþò
úïùç"ûÞ)þ×-þÓ1þÏ5

ýË:

ýÆ?üÁEü»KüµQþ¯WN)r–   Úpygments.lexerr   r   r   Úpygments.tokenr   r   r   r   r	   r
   r   r   Úpygments.utilr   Ú__all__r   r„   r„   r„   r…   Ú<module>   s    
(