HEX
Server: LiteSpeed
System: Linux us-phx-web1284.main-hosting.eu 4.18.0-553.109.1.lve.el8.x86_64 #1 SMP Thu Mar 5 20:23:46 UTC 2026 x86_64
User: u300739242 (300739242)
PHP: 8.2.30
Disabled: system, shell_exec, passthru, mysql_list_dbs, ini_alter, dl, symlink, link, chgrp, leak, popen, apache_child_terminate, virtual, mb_send_mail
Upload Files
File: //opt/alt/python311/lib/python3.11/site-packages/pygments/lexers/__pycache__/tcl.cpython-311.pyc
�

�;f���t�dZddlmZmZmZddlmZmZmZm	Z	m
Z
mZmZm
Z
ddlmZdgZGd�de��ZdS)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��eZdZdZeddd���Zeddd���ZdZdZdgZ	d	d
gZ
gd�ZdZd?d�Z
ided��ed��ed��defg�de
ee���de
eed���de
eed���de
eed���ddedfdedfdedfd ejd!fd"ejfd#efg�dd$efd%ejfd&ejfd'ejfd(ejfd)ejfd*ejfd+efg�d,d-ed.fd/ed.fd0efed��ed��g�d1ded2fed,��g�d3d4ed2fed,��g�d5d6ed2fed,��g�d!dejd7fd8ejfd ejd.fg�d7dejd7fd9ejfd6ejd.fg�dded.fed��ed��ed��g�dd4ed.fed��ed��ed��g�dd6ed.fed��ed��ed��g�d:d;ed.fd<efg�Zd=�Zd>S)@rz
    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�pidzpkg::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.10�c�t�|td|zf|tjd|zfdtjd|zfdtdfgS)N�paramsz	([\w.-]+)�#�comment)r	r
�Builtin�Variabler)�keyword_cmds_re�builtin_cmds_re�contexts   �F/opt/alt/python311/lib/python3.11/site-packages/pygments/lexers/tcl.py�_gen_command_ruleszTclLexer._gen_command_rules3sG��
�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�"rtz(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__rr�r��name�url�aliases�	filenames�	mimetypes�
version_addedr�rr	r�Doubler�Wordr
r�Hex�Oct�Float�Integerr
r�rr�tokensr��r�r�rrsA���������e��
�u�.�.�.�O��e�+�49��H�H�H�O��D�
2�C��g�G��'�"�I�H�H�H�I��M�
�
�
�
�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.lexerrrr�pygments.tokenrrrr	r
rrr
�
pygments.utilr�__all__rr�r�r��<module>r�s�����6�5�5�5�5�5�5�5�5�5���������������������)�)�)�)�)�)��,��A/�A/�A/�A/�A/�z�A/�A/�A/�A/�A/r�