HEX
Server: Apache
System: Linux srv1.prosuiteplus.com 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64
User: prosuiteplus (1001)
PHP: 8.3.20
Disabled: NONE
Upload Files
File: //usr/lib/python3/dist-packages/pygments/lexers/__pycache__/tcl.cpython-38.pyc
U

`a�[�@sbdZddlmZmZmZddlmZmZmZm	Z	m
Z
mZmZddl
mZdgZGdd�de�ZdS)z�
    pygments.lexers.tcl
    ~~~~~~~~~~~~~~~~~~~

    Lexers for Tcl and related languages.

    :copyright: Copyright 2006-2017 by the Pygments team, see AUTHORS.
    :license: BSD, see LICENSE for details.
�)�
RegexLexer�include�words)�Text�Comment�Operator�Keyword�Name�String�Number��shebang_matches�TclLexerc@s�eZdZdZedddd�Zedddd�ZdZdgZdd	gZ	d
ddgZ
d<dd�Zed�ed�ed�de
fgeee�eeed�eeed�eeed�de
dfde
dfde
dfdejdfdejfd efgd!efd"ejfd#ejfd$ejfd%ejfd&ejfd'efgd(e
d)fd*ed)fd+e
fed�ed�gde
d,fed-�gd.e
d,fed-�gd/e
d,fed-�gdejd0fd1ejfdejd)fgdejd0fd2ejfd/ejd)fgde
d)fed3�ed�ed�gd.e
d)fed4�ed�ed�gd/e
d)fed5�ed�ed�gd6ed)fd7efgd8�Zd9d:�Zd;S)=rz:
    For Tcl source code.

    .. versionadded:: 0.10
    )ZafterZapplyZarray�breakZcatch�continueZelseif�else�error�eval�expr�forZforeach�global�if�	namespace�proc�rename�return�setZswitchZthenZtraceZunset�updateZuplevelZupvarZvariableZvwait�whilez\b)�prefix�suffix)K�appendZbgerror�binaryZcdZchanZclock�close�concatZdde�dict�encoding�eof�exec�exitZfblockedZ
fconfigureZfcopy�fileZ	fileevent�flush�formatZgets�glob�historyZhttpZincr�infoZinterp�join�lappendZlassignZlindexZlinsert�listZllength�loadZloadTkZlrangeZlrepeatZlreplaceZlreverseZlsearchZlsetZlsortZmathfuncZmathopZmemoryZmsgcat�open�package�pidzpkg::createZpkg_mkIndex�platformzplatform::shellZputs�pwdZ	re_syntax�readZrefchanZregexp�registryZregsub�scan�seekZsocket�source�split�stringZsubst�tell�timeZtm�unknownZunloadZTclZtclz*.tclz*.rvtz
text/x-tclztext/x-script.tclzapplication/x-tcl�cCs4|td|f|tjd|fdtjd|fdtdfgS)N�paramsz	([\w.-]+)�#�comment)rr	ZBuiltin�Variabler)�keyword_cmds_re�builtin_cmds_re�context�rK�5/usr/lib/python3/dist-packages/pygments/lexers/tcl.py�_gen_command_rules1s
�zTclLexer._gen_command_rules�command�basic�dataz\}z	-in-bracez-in-bracketz	-in-parenz\(�parenz\[�bracketz\{�brace�"r?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.:-]+)�;�#popz\nz(else|elseif|then)\b)rVrVrDz\)z\]�
string-squarez(?s)(\\\\|\\[0-7]+|\\.|[^"\\])z$(?s)(\\\\|\\[0-7]+|\\.|\\\n|[^\]\\])�command-in-brace�command-in-paren�command-in-bracketz	.*[^\\]\nz.*\\\n)�rootrNrXrZrYrOrPrDzparams-in-bracezparams-in-parenzparams-in-bracketr?rWrSrQrRrFcCs
t|d�S)Nz(tcl)r)�textrKrKrL�analyse_text�szTclLexer.analyse_textN)rC)�__name__�
__module__�__qualname__�__doc__rrHrI�name�aliases�	filenamesZ	mimetypesrMrrr
�DoublerZWordrrZHexZOctZFloatZIntegerr	rGr�tokensr]rKrKrKrLrs��	�


����
�	�
����

�

������WN)raZpygments.lexerrrrZpygments.tokenrrrrr	r
rZ
pygments.utilr
�__all__rrKrKrKrL�<module>s

$