File: //lib/python3/dist-packages/pygments/lexers/__pycache__/tcl.cpython-311.pyc
�
�E�c� � �t � d Z ddlmZmZmZ ddlmZmZmZm Z m
Z
m Z m Z m
Z
ddlmZ dgZ G d� de� � ZdS )z�
pygments.lexers.tcl
~~~~~~~~~~~~~~~~~~~
Lexers for Tcl and related languages.
:copyright: Copyright 2006-2022 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 � � e Zd ZdZ eddd�� � Z eddd�� � ZdZdZdgZ d d
gZ
g d �Z d>d
�Z i d e
d� � e
d� � e
d� � defg�d e ee� � �d e eed� � �d e eed� � �d e eed� � �ddedfded fd ed fd ej d fd!ej fd"efg�dd#efd$ej fd%ej fd&ej fd'ej fd(ej fd)ej fd*efg�d+d,ed-fd.ed-fd/ef e
d� � e
d� � g�d0ded1f e
d+� � g�d2d3ed1f e
d+� � g�d4d5ed1f e
d+� � g�d dej d6fd7ej fd ej d-fg�d6dej d6fd8ej fd5ej d-fg�d ded-f e
d� � e
d� � e
d� � g�dd3ed-f e
d� � e
d� � e
d� � g�d d5ed-f e
d� � e
d� � e
d� � g�d9d:e d-fd;e fg�Z 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�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-tcl� c �t � | t d|z f|t j d|z fdt j d|z fdt dfgS )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_ruleszTclLexer._gen_command_rules4 sG � �
�g�x�'�'9� :�
�d�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�"rt 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 �" � t | d� � S )Nz(tcl)r )�texts r� � analyse_textzTclLexer.analyse_text� s � � �t�X�.�.�.r� N)r} ) �__name__�
__module__� __qualname__�__doc__r r� r� �name�url�aliases� filenames� mimetypesr� r r r �Doubler �Wordr
r �Hex�Oct�Float�Integerr
r� r r �tokensr� � r� r� r r s< � � � � � �� � �e� �
�u� .� .� .�O� �e� +� 49�� H� H� H�O� �D�
2�C��g�G��'�"�I�H�H�H�I�
�
�
�
�V�� �G�I� � � �G�G� � � �G�F�O�O�
�G� �
�V� �%�%�o��G�G�V� � .� .��/>�/:� <� <�V� � 0� 0� �1@�1>� @� @�V� � .� .��/>�/:� <� <� V�" �
�G�W� %�
�G�Y� '�
�G�W� %�
�6�=�(� +�
�� � /�
?�� J�
�#V�2 �
�Z� �
��
� +�
��� $�
�&�,� '�
�V�^� $�
�D�M� *�
��
� .�
�D� !�
�3V�F �
�7�F� #�
�D�&� !�
$�g� .� �G�G� � � �G�F�O�O�
�GV�T �
�G� -� .� �G�H� � �
�UV�\ �
�G� -� .� �G�H� � �
�]V�d �
�G� -� .� �G�H� � �
�eV�l �
�F�M�?� 3�
.��
� >�
�6�=�&� )�
�mV�v �
�F�M�?� 3�
4�f�m� D�
�F�M�6� *�
�wV�@ �
�G�V� $� �G�&� '� '� �G�G� � � �G�F�O�O�
�AV�L �
�G�V� $� �G�&� '� '� �G�G� � � �G�F�O�O�
�MV�X �
�G�V� $� �G�(� )� )� �G�G� � � �G�F�O�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� s� ��� � 6� 5� 5� 5� 5� 5� 5� 5� 5� 5�� � � � � � � � � � � � � � � � � � � � )� )� )� )� )� )� �,��B/� B/� B/� B/� B/�z� B/� B/� B/� B/� B/r�