|
Server : Apache System : Linux iad1-shared-b8-43 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64 User : dh_edsupp ( 6597262) PHP Version : 8.2.26 Disable Function : NONE Directory : /lib/python3/dist-packages/pygments/lexers/__pycache__/ |
Upload File : |
o
���a � @ sf d Z ddlmZmZmZ ddlmZmZmZm Z m
Z
m Z m Z m
Z
ddlmZ dgZG dd� de�ZdS )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 Zd ZdZedddd�Zedddd�ZdZdgZdd gZ g d
�Z
d>d d
�Z i de d�e d�e d�de
fg�de ee��de eed��de eed��de eed��dde
dfde
d fd e
d fd ejd fd!ejfd"efg�dd#efd$ejfd%ejfd&ejfd'ejfd(ejfd)efg�d*d+e
d,fd-ed,fd.e
fe d�e d�g�d/de
d0fe d*�g�d1d2e
d0fe d*�g�d3d4e
d0fe d*�g�d dejd5fd6ejfd ejd,fg�d5dejd5fd7ejfd4ejd,fg�d de
d,fe d�e d�e d�g�dd2e
d,fe d�e d�e d�g�d d4e
d,fe d�e d�e d�g�d8d9ed,fd:efg�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�platformzplatform::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-tclztext/x-script.tclzapplication/x-tcl� c C s4 | t d| f|tjd| fdtjd| fdtdfgS )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
�zTclLexer._gen_command_rules�root�command�basic�dataz\}zcommand-in-bracez -in-bracezcommand-in-bracketz -in-bracketzcommand-in-parenz -in-parenz\(�parenz\[�bracketz\{�brace�"rr 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.,@:-]+)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 C s
t | d�S )Nz(tcl)r
)�textr� r� r� � analyse_text� s
zTclLexer.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
(