3
� �X � @ sb d Z ddlmZmZmZ ddlmZmZmZm Z m
Z
m Z m Z ddl
mZ dgZG dd� 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 L @ s� e Zd ZdZed�d d d!�Zed�d d d!�ZdmZdngZdodpgZ dqdrdsgZ
d�dudv�Z e dw�e dx�e dy�dze
fge ee�e eed{�e eed|�e eed}�d~e
dfd�e
d�fd�e
d�fd�ejdffd�ejfd�efgd�efd�ejfd�ejfd�ejfd�ejfd�ejfd�efgd�e
d�fd�ed�fd�e
fe dx�e dy�gdze
d�fe d��gd�e
d�fe d��gd�e
d�fe d��gd�ejd�fd�ejfd�ejd�fgd�ejd�fd�ejfd�ejd�fgdze
d�fe d��e dx�e dy�gd�e
d�fe d��e dx�e dy�gd�e
d�fe d��e dx�e dy�gd�ed�fd�efgd��Zd�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�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�pid� pkg::create� pkg_mkIndex�platform�platform::shell�puts�pwd� re_syntax�read�refchan�regexp�registry�regsub�scan�seek�socket�source�split�string�subst�tell�time�tm�unknown�unloadZTclZtclz*.tclz*.rvtz
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� r� �/usr/lib/python3.6/tcl.py�_gen_command_rules1 s zTclLexer._gen_command_rules�command�basic�dataz\}z -in-bracez -in-bracketz -in-parenz\(�parenz\[�bracketz\{�brace�"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)\brz z\)z\]z
string-squarez (?s)(\\\\|\\[0-7]+|\\.|[^"\\])z$(?s)(\\\\|\\[0-7]+|\\.|\\\n|[^\]\\])zcommand-in-bracezcommand-in-parenzcommand-in-bracketz .*[^\\]\nz.*\\\n)�rootr� zcommand-in-bracezcommand-in-bracketzcommand-in-parenr� r� rz zparams-in-bracezparams-in-parenzparams-in-bracketrr z
string-squarer� r� r� r| c C s
t | d�S )Nz(tcl))r )�textr� r� r� � analyse_text� s zTclLexer.analyse_textN) r r r r r r r r r r r r r r r r r r r r! r" r# r$ r% r& r' r( r) r* r+ )Kr. r/ r0 r1 r2 r3 r4 r5 r6 r7 r8 r9 r: r; r< r= r> r? r@ rA rB rC rD rE rF rG rH rI rJ rK rL rM rN rO rP rQ rR rS rT rU rV rW rX rY rZ r[ r\ r] r^ r_ r` ra rb rc rd re rf rg rh ri rj rk rl rm rn ro rp rq rr rs rt ru rv rw rx )ry )r� r� )r� r� )r� r� ) �__name__�
__module__� __qualname__�__doc__r r~ r �name�aliases� filenamesZ mimetypesr� r r r
�Doubler ZWordr r ZHexZOctZFloatZIntegerr r} r �tokensr� r� r� r� r� r
s�
N)r� Zpygments.lexerr r r Zpygments.tokenr r r r r r
r Z
pygments.utilr �__all__r
r� r� r� r� �<module>
s
$