| Server IP : 127.0.0.1 / Your IP : 216.73.216.109 Web Server : Apache/2.4.54 (Win64) OpenSSL/1.1.1q PHP/8.1.10 System : Windows NT DESKTOP-E5T4RUN 10.0 build 19045 (Windows 10) AMD64 User : SERVERWEB ( 0) PHP Version : 8.1.10 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/cygwin64/lib/python3.9/site-packages/pygments/lexers/__pycache__/ |
Upload File : |
a
SҼa � @ sf d Z ddlmZmZmZ ddlmZmZmZm Z m
Z
mZmZm
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:dd
�Zed�ed�ed�de
fgeee�eeed�eeed�eeed�de
dfde
dfde
dfdejdfdejfdefgdefd ejfd!ejfd"ejfd#ejfd$ejfd%efgd&e
d'fd(ed'fd)e
fed�ed�gde
d*fed+�gd,e
d*fed+�gd-e
d*fed+�gdejd.fd/ejfdejd'fgdejd.fd0ejfd-ejd'fgde
d'fed1�ed�ed�gd,e
d'fed2�ed�ed�gd-e
d'fed3�ed�ed�gd4ed'fd5efgd6�Zd7d8� Zd9S );r z:
For Tcl source code.
.. versionadded:: 0.10
)ZafterZapplyZarray�breakZcatch�continueZelseif�else�error�eval�expr�forZforeach�global�if� namespace�proc�rename�return�setZswitchZthenZtraceZunset�updateZuplevelZupvar�variableZvwait�whilez\b)�prefix�suffix)K�appendZbgerrorZbinaryZcdZchanZclock�close�concatZdde�dict�encoding�eof�exec�exitZfblockedZ
fconfigureZfcopy�fileZ fileevent�flush�formatZgets�glob�history�httpZincr�infoZinterp�join�lappendZlassignZlindexZlinsert�listZllength�loadZloadTkZlrangeZlrepeatZlreplaceZlreverseZlsearchZlsetZlsortZmathfuncZmathopZmemoryZmsgcat�open�package�pidzpkg::createZpkg_mkIndex�platformzplatform::shellZputs�pwdZ re_syntax�readZrefchanZregexp�registryZregsub�scan�seekZsocket�source�split�string�subst�tell�timeZtm�unknownZunloadZTclZtclz*.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 ZBuiltin�Variabler )�keyword_cmds_re�builtin_cmds_re�context� rN �7/usr/lib/python3.9/site-packages/pygments/lexers/tcl.py�_gen_command_rules0 s
�zTclLexer._gen_command_rules�command�basic�dataz\}z -in-bracez-in-bracketz -in-parenz\(�parenz\[�bracketz\{�brace�"rA 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)rY rY rG z\)z\]�
string-squarez(?s)(\\\\|\\[0-7]+|\\.|[^"\\])z$(?s)(\\\\|\\[0-7]+|\\.|\\\n|[^\]\\])�command-in-brace�command-in-paren�command-in-bracketz .*[^\\]\nz.*\\\n)�rootrQ r[ r] r\ rR rS rG zparams-in-bracezparams-in-parenzparams-in-bracketrA rZ rV rT rU rI c C s
t | d�S )Nz(tcl)r
)�textrN rN rO �analyse_text� s zTclLexer.analyse_textN)rF )�__name__�
__module__�__qualname__�__doc__r rK rL �name�aliases� filenamesZ mimetypesrP r r r
�Doubler ZWordr r ZHexZOctZFloatZIntegerr rJ r r �tokensr` rN rN rN rO r s� � �
����
� �
����
�
������WN)rd Zpygments.lexerr r r Zpygments.tokenr r r r r r
r r Z
pygments.utilr �__all__r rN rN rN rO �<module> s
(