� H�g��t�dZddlmZmZmZddlmZmZmZm Z m Z mZmZm Z ddlmZdgZGd�de��ZdS)z� pygments.lexers.tcl ~~~~~~~~~~~~~~~~~~~ Lexers for Tcl and related languages. :copyright: Copyright 2006-2025 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�ZdZd?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 �c/home/asafur/pinokio/api/open-webui.git/app/env/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 rrr � 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�