HEX
Server: LiteSpeed
System: Linux us-phx-web1284.main-hosting.eu 4.18.0-553.109.1.lve.el8.x86_64 #1 SMP Thu Mar 5 20:23:46 UTC 2026 x86_64
User: u300739242 (300739242)
PHP: 8.2.30
Disabled: system, shell_exec, passthru, mysql_list_dbs, ini_alter, dl, symlink, link, chgrp, leak, popen, apache_child_terminate, virtual, mb_send_mail
Upload Files
File: //opt/alt/python311/lib/python3.11/site-packages/pygments/lexers/__pycache__/unicon.cpython-311.pyc
�

�;f�H���dZddlZddlmZmZmZmZmZmZddl	m
Z
mZmZm
Z
mZmZmZmZgd�ZGd�de��ZGd�d	e��ZGd
�de��ZdS)z�
    pygments.lexers.unicon
    ~~~~~~~~~~~~~~~~~~~~~~

    Lexers for the Icon and Unicon languages, including ucode VM.

    :copyright: Copyright 2006-2024 by the Pygments team, see AUTHORS.
    :license: BSD, see LICENSE for details.
�N)�
RegexLexer�include�bygroups�words�using�this)�Text�Comment�Operator�Keyword�Name�String�Number�Punctuation)�	IconLexer�
UcodeLexer�UniconLexerc��eZdZdZdZdgZdgZdgZdZdZ	e
jZde
fd	ejfde
fd
ejdfdeeje
ej��d
fdejfdejfdejfdejfdejfdejfeddd���ejfeddd���ejfed��defdefdejfdefdefdeeee����fde fd e fd!e
fgd"e!j"fd#e!j#fd$e!j$fgd%e d&fd'e d(fd)ejfed*��gd%e d+fgd,e d(fd-ej%fd.e fd/ejfed*��gd0�Z&d1S)2rz!
    For Unicon source code.
    �Unicon�uniconz*.icnztext/uniconzhttps://www.unicon.org�2.4�[^\S\n]+�#.*?\n�class|method|procedure�
subprogram�(record)(\s+)(\w+)�type_def�^(#line|\$C|\$Cend|\$define|\$else|\$endif|\$error|\$ifdef|\$ifndef|\$include|\$line|\$undef)\b�(&null|&fail)\b�&allocated|&ascii|&clock|&collections|&column|&col|&control|&cset|&current|&dateline|&date|&digits|&dump|&errno|&errornumber|&errortext|&errorvalue|&error|&errout|&eventcode|&eventvalue|&eventsource|&e|&features|&file|&host|&input|&interval|&lcase|&letters|&level|&line|&ldrag|&lpress|&lrelease|&main|&mdrag|&meta|&mpress|&mrelease|&now|&output|&phi|&pick|&pi|&pos|&progname|&random|&rdrag|&regions|&resize|&row|&rpress|&rrelease|&shift|&source|&storage|&subject|&time|&trace|&ucase|&version|&window|&x|&y�(by|of|not|to)\bz (global|local|static|abstract)\bzpackage|link|import)�break�case�create�critical�default�end�all�do�else�every�fail�if�import�initial�	initially�	invocable�next�repeat�return�suspend�then�thread�until�while�\b��prefix�suffix(+�Abort�abs�acos�Active�Alert�any�Any�Arb�Arbno�args�array�asin�atan�atanh�Attrib�Bal�bal�Bg�Break�Breakx�callout�center�char�chdir�chmod�chown�chroot�	classname�Clip�Clone�close�cofail�collect�Color�
ColorValue�condvar�constructor�copy�CopyArea�cos�Couple�crypt�cset�ctime�	dbcolumns�dbdriver�dbkeys�dblimits�	dbproduct�dbtables�delay�delete�detab�display�DrawArc�
DrawCircle�DrawCube�	DrawCurve�DrawCylinder�DrawDisk�	DrawImage�DrawLine�	DrawPoint�DrawPolygon�
DrawRectangle�DrawSegment�
DrawSphere�
DrawString�	DrawTorus�dtor�entab�	EraseArea�
errorclear�Event�	eventmask�EvGet�EvSend�exec�exit�exp�Eye�Fail�fcntl�fdup�Fence�fetch�Fg�
fieldnames�filepair�FillArc�
FillCircle�FillPolygon�
FillRectangle�find�flock�flush�Font�fork�	FreeColor�	FreeSpace�function�get�getch�getche�getegid�getenv�geteuid�getgid�getgr�gethost�getpgrp�getpid�getppid�getpw�	getrusage�getserv�GetSpace�gettimeofday�getuid�globalnames�GotoRC�GotoXY�gtime�hardlink�iand�icom�IdentityMatrix�image�InPort�insert�Int86�integer�ioctl�ior�ishift�istate�ixor�kbhit�key�keyword�kill�left�Len�list�load�loadfunc�
localnames�lock�log�Lower�lstat�many�map�match�
MatrixMode�max�member�membernames�methodnames�methods�min�mkdir�move�
MultMatrix�mutex�name�NewColor�Normals�NotAny�numeric�open�opencl�oprec�ord�OutPort�PaletteChars�PaletteColor�
PaletteKey�
paramnames�parent�Pattern�Peek�Pending�pipe�Pixel�	PlayAudio�Poke�pop�	PopMatrix�Pos�pos�proc�pull�push�
PushMatrix�
PushRotate�	PushScale�
PushTranslate�put�QueryPointer�Raise�read�	ReadImage�readlink�reads�ready�real�receive�Refresh�Rem�remove�rename�repl�reverse�right�rmdir�Rotate�Rpos�Rtab�rtod�runerr�save�Scale�seek�select�send�seq�serial�set�setenv�setgid�setgrent�
sethostent�setpgrp�setpwent�
setservent�setuid�signal�sin�sort�sortf�Span�spawn�sql�sqrt�stat�staticnames�stop�	StopAudio�string�	structure�Succeed�Swi�symlink�
sys_errstr�system�syswrite�Tab�tab�table�tan�Texcoord�Texture�	TextWidth�	Translate�trap�trim�truncate�trylock�type�umask�Uncouple�unlock�upto�utime�variable�VAttrib�wait�WAttrib�WDefault�WFlush�where�WinAssociate�	WinButton�WinColorDialog�WindowContents�
WinEditRegion�
WinFontDialog�
WinMenuBar�
WinOpenDialog�WinPlayMedia�
WinSaveDialog�WinScrollBar�WinSelectDialog�write�
WriteImage�writes�WSection�WSync�numberszc<@|<<@|>@|>>@|\.>|->|===|~===|\*\*|\+\+|--|\.|~==|~=|<=|>=|==|=|<<=|<<|>>=|>>|:=:|:=|->|<->|\+:=|\|�"(?:[^\\"]|\\.)*"�'(?:[^\\']|\\.)*'�[*<>+=/&!?@~\\-]z\^�(\w+)(\s*|[(,])�[\[\]]z<>|=>|[()|:;,.'`{}%&?]�\n+�3\b([+-]?([2-9]|[12][0-9]|3[0-6])[rR][0-9a-zA-Z]+)\b�'[+-]?[0-9]*\.([0-9]*)([Ee][+-]?[0-9]*)?�\b([+-]?[0-9]+[KMGTPkmgtp]?)\b�\(��#pop�formal_part�;ru�"[^"]+"|\w+�rootrv�\)�\w+�,�(:string|:integer|:real)\b�ryrirrrvN�'�__name__�
__module__�__qualname__�__doc__r��aliases�	filenames�	mimetypes�url�
version_added�re�	MULTILINE�flagsr	r
�Singler�Declarationr�Type�PreProc�Constant�Reservedrr
�Functionrrr�	Characterrrrr�Hex�Float�Integer�Variable�tokens���I/opt/alt/python311/lib/python3.11/site-packages/pygments/lexers/unicon.pyrrsn���������D��j�G��	�I���I�
"�C��M��L�E��$��
���'�
�$��
&��(;�\�J�
"�
�X�g�)�4���
>�
>�
�
L�5�6=�o�
G�
��!1�2�� '�/�
1�!�'�"2�3�
0�'�2B�C�
#�W�%8�9�
�U�4�
=B�%�Q�Q�Q��
�

��U�=�z"'�u�{=6�=6�=6�|�]�}>
�~
�G�I���6�7?�
A�
!�6�*�
!�6�#3�4�
 �(�+�
�H��
���$���d���!<�!<�=�
��$�
&��4�
�T�N�Sj
�XD�V�Z�P�
7���F�
.���?�
��K�!8�9�
�;��'�
�T�]�+��G�F�O�O�	
��K��/�
��K��(�
�T�]�#�
�;��
*�G�,<�=��G�F�O�O�
�uA�A�F�F�Fr�rc��eZdZdZdZdgZddgZgZdZdZ	e
jZde
fd	ejfde
fd
ejdfdeeje
ej��d
fdejfdejfdejfdejfdejfdejfeddd���ejfeddd���ejfed��defdefdejfdefdeeee����fde fde fd e
fgd!e!j"fd"e!j#fd#e!j$fgd$e d%fd&e d'fd(ejfed)��gd$e d*fgd+e d'fd,ej%fd-e fd.ejfed)��gd/�Z&d0S)1rz
    Lexer for Icon.
    �Icon�iconz*.iconz*.ICONz https://www2.cs.arizona.edu/iconz1.6rrrrrrrrr r!z(global|local|static)\b�link)r"r#r$r&r'r(r)r*r+r,r-r/r1r2r3r4r5r6r8r9r:r;)�r?r@rArBrCrGrHrIrJrKrLrNrOrRrSrTrUrVrWrXrZr[r\r]r^r_r`rarcrdrerfrgrhrirprqrrrsrtrurvrwrxryrzr{r|r}r~rr�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�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�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�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�rrrrrrrrrr	r
rrr
rrrrrrrrrrrrrrrrrr r!r"r#r*r+r,r-r.r0r1r2r3r4r5r7r8r:r;r<r=r>r@rArBrCrDrErFrGrHrIrJrKrLrMrNrOrPrQrSrTrUrVrWrXrYrZr[r\r]r^r_r`rarbrcrdrerfrgrhrizS===|~===|\*\*|\+\+|--|\.|==|~==|<=|>=|=|~=|<<=|<<|>>=|>>|:=:|:=|<->|<-|\+:=|\|\||\|rjrkrlrmrnz<>|=>|[()|:;,.'`{}%\^&?]rorprqrrrsrtrwrurxryrvrzr{r|r}r~Nrr�r�r�rr�se���������D��h�G��8�$�I��I�
,�C��M��L�E��$��
���'�
�$��
&��(;�\�J�
"�
�X�g�)�4���
>�
>�
�
L�5�6=�o�
G�
��!1�2�� '�/�
1�!�'�"2�3�
'��)9�:�
�g�)�*�
�U�*�
38��G�G�G��
�

��U�:�t"'�u�u:6�:6�:6�v�]�w;
�x
�G�I���+�,4�
6�
!�6�*�
!�6�#3�4�
 �(�+�
���$���d���!<�!<�=�
��$�
(�+�6�
�T�N�Kf
�PD�V�Z�P�
7���F�
.���?�
��K�!8�9�
�;��'�
�T�]�+��G�F�O�O�	
��K��/�
��K��(�
�T�]�#�
�;��
*�G�,<�=��G�F�O�O�
�m}�}�F�F�Fr�rc
�*�eZdZdZdZdgZgd�ZgZdZdZ	e
jZdde
fedd	d	�
��ejfedd	d	�
��e
fedd	d	�
��ejfed
d	d	�
��ejfdejfdejfdejfdefdefdefgiZd�ZdS)rz%
    Lexer for Icon ucode files.
    �ucode)z*.uz*.u1z*.u2zhttp://www.unicon.orgrryz(#.*\n))
�con�declendr'�global�implr1�labr��local�record�uid�unions�versionr:r;)�colm�filen�line�synt)Y�asgn�bang�bscan�cat�ccase�chfail�coactr]�compl�coretr$rh�diff�div�dup�efail�einitr'�eqv�eret�error�escan�esusp�field�goto�init�int�inter�invoke�keywd�lconcat�lexeq�lexge�lexgt�lexle�lexlt�lexne�limit�llist�lsusp�mark�mark0�minus�mod�mult�neg�neqv�nonnull�noop�null�number�numeq�numge�numgt�numle�numlt�numne�pfail�plus�pnullr��power�pretr��psusp�push1�pushn1�random�rasgn�rcv�rcvbkr�refresh�rswap�sdup�sect�size�snd�sndbk�str�subsc�swap�tabmat�tally�toby�trace�unmark�value�var)rCr#�endcase�endevery�endif�	endifelse�	endrepeat�
endsuspend�enduntil�endwhiler+r-�ifelser3r5r8r9z\d+(\s*|\.$|$)z[+-]?\d*\.\d+(E[-+]?\d+)?z[+-]?\d+\.\d*(E[-+]?\d+)?z"(<>|=>|[()|:;,.'`]|[{}]|[%^]|[&?])z\s+\bz[\w-]+c�t�d}d|vr|dz
}d|vr|dz
}d|vr|dz
}d|vr	d|vr|dz
}d	|vr	d
|vr|dz
}|S)z}endsuspend and endrepeat are unique to this language, and
        \self, /self doesn't seem to get used anywhere else either.rrg�������?rz:=g{�G�z�?�	procedurer'z\selfz/selfg�?r�)�text�results  r��analyse_textzUcodeLexer.analyse_text�s������4����c�M�F��$����c�M�F��4�<�<��d�N�F��$���5�D�=�=��d�N�F�
�t����D� 0� 0��c�M�F��
r�N)r�r�r�r�r�r�r�r�r�r�r�r�r�r
rr
r�rr�r�rr�r�rr	r�rr�r�r�rr3sd���������D��i�G�'�'�'�I��I�
!�C��M��L�E�	�
��!�
�U���U�,�,�,��]�	
��U�1��U�,�,�,��
��U� �:).�e�;=�=�=�<�
 �=
"�>�U�
��%�)�)�)��]�
����/�
)�6�<�8�
)�6�<�8�
2�K�@�
�t��
���CB
�D�F�L����r�r)r�r��pygments.lexerrrrrrr�pygments.tokenr	r
rrr
rrr�__all__rrrr�r�r��<module>rs_����
�	�	�	�L�L�L�L�L�L�L�L�L�L�L�L�L�L�L�L���������������������5�
4�
4��O�O�O�O�O�*�O�O�O�dJ�J�J�J�J�
�J�J�J�Zj�j�j�j�j��j�j�j�j�jr�