__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
�
�&�g� � �l � S r SSKJrJrJr SSKJrJrJrJ r J
r
J r J r J
r
SSKJr S/r " S S\5 rg)z�
pygments.lexers.tcl
~~~~~~~~~~~~~~~~~~~
Lexers for Tcl and related languages.
:copyright: Copyright 2006-2024 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 � � \ rS rSrSr\" SSSS9r\" SSSS9rSrSr S /r
S
S /r / S Qr S
r
S@S jr0 S\" S5 \" S5 \" S5 S\4/_S\" \\5 _S\" \\S5 _S\" \\S5 _S\" \\S5 _SS\S4S \S 4S \S 4S \R$ S!4S"\R( 4S#\4/_SS$\4S%\R. 4S&\R0 4S'\R2 4S(\R4 4S)\R8 4S*\R8 4S+\ 4/_S,S-\S.4S/\ S.4S0\4\" S5 \" S5 /_S1S\S24\" S,5 /_S3S4\S24\" S,5 /_S5S6\S24\" S,5 /_S!S \R$ S74S8\R$ 4S \R$ S.4/_S7S \R$ S74S9\R$ 4S6\R$ S.4/_S S\S.4\" S5 \" S5 \" S5 /_SS4\S.4\" S5 \" S5 \" S5 /_S S6\S.4\" S5 \" S5 \" S5 /_S:S;\ S.4S<\ 4/_r S= r S>r!g?)Ar � z
For Tcl source code.
) �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�platformzplatform::shell�puts�pwd� re_syntax�read�refchan�regexp�registry�regsub�scan�seek�socket�source�split�string�subst�tell�time�tm�unknown�unload�Tclz&https://www.tcl.tk/about/language.html�tclz*.tclz*.rvt)z
text/x-tclztext/x-script.tclzapplication/x-tclz0.10c � � U [ SU- 4U[ R SU- 4S[ R SU- 4S[ S4/$ )N�paramsz ([\w.-]+)�#�comment)r r
�Builtin�Variabler )�keyword_cmds_re�builtin_cmds_re�contexts �5/usr/lib/python3/dist-packages/pygments/lexers/tcl.py�_gen_command_rules�TclLexer._gen_command_rules3 sK � �
�g�x�'�'9� :�
�d�l�l�H�w�,>� ?�
�4�=�=�(�W�*<� =�
�7�I� &�
�
� �root�command�basic�dataz\}zcommand-in-bracez -in-bracezcommand-in-bracketz -in-bracketzcommand-in-parenz -in-parenz\(�parenz\[�bracketz\{�brace�"ru z(eq|ne|in|ni)\bz/!=|==|<<|>>|<=|>=|&&|\|\||\*\*|[-+~!*/%<>&^|?:]z\s+z0x[a-fA-F0-9]+z0[0-7]+z\d+\.\d+z\d+z
\$[\w.:-]+z\$\{[\w.:-]+\}z
[\w.,@:-]+r �;�#popz\nz(else|elseif|then)\bzparams-in-brace)r� r� zparams-in-parenz\)zparams-in-bracketz\]z
string-squarez (?s)(\\\\|\\[0-7]+|\\.|[^"\\])z$(?s)(\\\\|\\[0-7]+|\\.|\\\n|[^\]\\])r� z .*[^\\]\nz.*\\\nc � � [ U S5 $ )Nz(tcl)r )�texts r� � analyse_text�TclLexer.analyse_text� s � � �t�X�.�.r� � N)� )"�__name__�
__module__� __qualname__�__firstlineno__�__doc__r r� r� �name�url�aliases� filenames� mimetypes�
version_addedr� r r r �Doubler �Wordr
r �Hex�Oct�Float�Integerr
r� r r �tokensr� �__static_attributes__r� r� r� r r s� � �� � �
�u� .�O� � +� 49�� H�O� �D�
2�C��g�G��'�"�I�H�I��M�
�V�� �I� � �G� � �F�O�
�G� �
�V� �%�o��G�V� � .��/>�/:� <�V� � 0� �1@�1>� @�V� � .��/>�/:� <� V�" �
�G�W� %�
�G�Y� '�
�G�W� %�
�6�=�=�(� +�
�� � � /�
?�� J�
�#V�2 �
�Z� �
��
�
� +�
���� $�
�&�,�,� '�
�V�^�^� $�
�D�M�M� *�
��
�
� .�
�D� !�
�3V�F �
�7�F� #�
�D�&� !�
$�g� .� �G� � �F�O�
�GV�T �
�G� -� .� �H� �
�UV�\ �
�G� -� .� �H� �
�]V�d �
�G� -� .� �H� �
�eV�l �
�F�M�M�?� 3�
.��
�
� >�
�6�=�=�&� )�
�mV�v �
�F�M�M�?� 3�
4�f�m�m� D�
�F�M�M�6� *�
�wV�@ �
�G�V� $� �&� '� �G� � �F�O�
�AV�L �
�G�V� $� �&� '� �G� � �F�O�
�MV�X �
�G�V� $� �(� )� �G� � �F�O�
�YV�d �
�7�F� +�
�� �
�eV�F�p/r� N)r� �pygments.lexerr r r �pygments.tokenr r r r r
r r r
�
pygments.utilr �__all__r r� r� r� �<module>r� s9 ��� 6� 5�� � � )� �,��A/�z� A/r�