o

;jVG�@stdZd
dl
Z
d
dlmZmZ
d
dlmZmZmZm	Z	m
Z
mZmZm
Z
mZ
ddgZGdd�de�ZGdd�de�ZdS)	z�
    pygments.lexers.rebol
    ~~~~~~~~~~~~~~~~~~~~~

    Lexers for the REBOL and related languages.

    :copyright: Copyright 2006-present by the Pygments team, see AUTHORS.
    :license: BSD, see LICENSE for details.
�N)�
RegexLexer�bygroups)	�Text�Comment�Operator�Keyword�Name�String�Number�Generic�
Whitespace�
RebolLexer�RedLexerc@s0eZ
dZd
ZdZdg
Zgd�
Zdg
ZdZdZ	e
je
jBZ
dZd	d
�Zgdef�
dejd
f�
dejf�
dejdf�
dejf�
dedf�
dedf�
dejf�
dejf�
def�
dejdf�
dejf�
dejf�
dejf�
dejf�
dejf�
d ejf�
d!ejf�
d"ejf�
d#ef�
d$ejf�
d%ejf�
d&ejf�
d'ejf�
d(ed)f�
d*ed+f�
d,ed-f�
d.ef�
d/ej f�
d0ef�
d1ej!f�
d2ej!d3f�
d4ef�
d5efeej"fd6efd7ej"fded8fgd9efeej"fd6efd7ej"fded:fd;ed8fgd5ejfeejfd7ejfdejd8fgedejd8fd<ejd8fd=ejd8fgeej!fdej!d>fd?ej!fd@ej!d8fgd5ej!feej!fd6ej!fd7ej!fdej!d8fgdAejfdBejd8fgdejfdCejfd;ejd8fgd5efeefd6efd7efded8fgd9efeefd6efd7efded:fd;ed8fgdDed:fdEed8fded)fded+fdFefgdG�Z#dHdI�Z$dJS)Kr
z
    A REBOL lexer.
    ZREBOLZrebol)z*.rz*.r3z*.rebztext/x-rebolzhttp://www.rebol.comz1.1�(?:\^\([0-9a-f]{1,4}\)*)ccs�
�|
��}t
�d
|�r|
��tj|fV
dSt
�d|�r'|
��tj|fV
dSt
�d|�r8|
��tj|fV
dSt
�d|�rI|
��t	j
|fV
dSt
�d|�rZ|
��tj|fV
dSt
�d|�rk|
��tj|fV
dSt
�d|�r{|
��t	|fV
dSt
�d|�r�|
��t
|fV
dSt
�d	|�r�|
��t	|fV
dSt
�d
|�r�|
��t	j|fV
dSt
�d|�r�|
��tjj|fV
dSt
�d|�r�|
��tj|fV
dSt
�d
|�r�|
��tj|fV
dS|
��tj|fV
dS)N�.*:$a(native|alias|all|any|as-string|as-binary|bind|bound\?|case|catch|checksum|comment|debase|dehex|exclude|difference|disarm|either|else|enbase|foreach|remove-each|form|free|get|get-env|if|in|intersect|loop|minimum-of|maximum-of|mold|new-line|new-line\?|not|now|prin|print|reduce|compose|construct|repeat|reverse|save|script\?|set|shift|switch|throw|to-hex|trace|try|type\?|union|unique|unless|unprotect|unset|until|use|value\?|while|compress|decompress|secure|open|close|read|read-io|write-io|write|update|query|wait|input\?|exp|log-10|log-2|log-e|square-root|cosine|sine|tangent|arccosine|arcsine|arctangent|protect|lowercase|uppercase|entab|detab|connected\?|browse|launch|stats|get-modes|set-modes|to-local-file|to-rebol-file|encloak|decloak|create-link|do-browser|bind\?|hide|draw|show|size-text|textinfo|offset-to-caret|caret-to-offset|local-request-file|rgb-to-hsv|hsv-to-rgb|crypt-strength\?|dh-make-key|dh-generate-key|dh-compute-key|dsa-make-key|dsa-generate-key|dsa-make-signature|dsa-verify-signature|rsa-make-key|rsa-generate-key|rsa-encrypt)$a4
(add|subtract|multiply|divide|remainder|power|and~|or~|xor~|minimum|maximum|negate|complement|absolute|random|head|tail|next|back|skip|at|pick|first|second|third|fourth|fifth|sixth|seventh|eighth|ninth|tenth|last|path|find|select|make|to|copy\*|insert|remove|change|poke|clear|trim|sort|min|max|abs|cp|copy)$a�(error|source|input|license|help|install|echo|Usage|with|func|throw-on-error|function|does|has|context|probe|\?\?|as-pair|mod|modulo|round|repend|about|set-net|append|join|rejoin|reform|remold|charset|array|replace|move|extract|forskip|forall|alter|first+|also|take|for|forever|dispatch|attempt|what-dir|change-dir|clean-path|list-dir|dirize|rename|split-path|delete|make-dir|delete-dir|in-dir|confirm|dump-obj|upgrade|what|build-tag|process-source|build-markup|decode-cgi|read-cgi|write-user|save-user|set-user-name|protect-system|parse-xml|cvs-date|cvs-version|do-boot|get-net-info|desktop|layout|scroll-para|get-face|alert|set-face|uninstall|unfocus|request-dir|center-face|do-events|net-error|decode-url|parse-header|parse-header-date|parse-email-addrs|import-email|send|build-attach-body|resend|show-popup|hide-popup|open-events|find-key-face|do-face|viewtop|confine|find-window|insert-event-func|remove-event-func|inform|dump-pane|dump-face|flag-face|deflag-face|clear-fields|read-net|vbug|path-thru|read-thru|load-thru|do-thru|launch-thru|load-image|request-download|do-face-alt|set-font|set-para|get-style|set-style|make-face|stylize|choose|hilight-text|hilight-all|unlight-text|focus|scroll-drag|clear-face|reset-face|scroll-face|resize-face|load-stock|load-stock-block|notify|request|flash|request-color|request-pass|request-text|request-list|request-date|request-file|dbug|editor|link-relative-path|emailer|parse-error)$zO(halt|quit|do|load|q|recycle|call|run|ask|parse|view|unview|return|exit|break)$zREBOL$�to-.*z5(\+|-|\*|/|//|\*\*|and|or|xor|=\?|=|==|<>|<|>|<=|>=)$z.*\?$�.*\!$�'.*�#.*�%.*)�group�re�match�startr�
Subheadingr�Builtin�Functionr�	Namespace�	ExceptionZHeadingr�Type�Variable�Instance�Label�	Decorator�Zlexerr�word�r&�I/opt/saltstack/salt/lib/python3.10/site-packages/pygments/lexers/rebol.py�
word_callback#sV�



�

�

�


�





�









zRebolLexer.word_callback�\s+�#"�charz#\{[0-9a-f]*\}�2#\{�bin2�64#\{[0-9a-z+/=\s]*\}�
"�string�\{�string2�;#+.*\n�;\*+.*\n�;.*\n�%"�
stringFile�%[^(^{")\s\[\]]+�[+-]?([a-z]{1,3})?\$\d+(\.\d+)?�[+-]?\d+\:\d+(\:\d+)?(\.\d+)?zJ\d+[\-/][0-9a-z]+[\-/]\d+(\/\d+\:\d+((\:\d+)?([.\d+]?([+-]?\d+:\d+)?)?)?)?�\d+(\.\d+)+\.\d+�\d+X\d+�#[+-]?\d+(\'\d+)?([.,]\d*)?E[+-]?\d+�[+-]?\d+(\'\d+)?[.,]\d*�[+-]?\d+(\'\d+)?�[\[\]()]� [a-z]+[^(^{"\s:)]*://[^(^{"\s)]*� mailto:[^(^{"@\s)]+@[^(^{"@\s)]+�[^(^{"@\s)]+@[^(^{"@\s)]+�
comment\s"�commentString1�comment\s\{�commentString2�comment\s\[�commentBlock�comment\s[^(\s{"\[]+z/[^(^{")\s/[\]]*z"([^(^{")\s/[\]]+)(?=[:({"\s/\[\]])�
<[\w:.-]*>�<[^(<>\s")]+�tag�
([^(^{")\s]+)�[^(^")]+�[(|)]+�\^.�#pop�	[^(^{})]+�#push�\}�\^."�."�	tagString�
[^(<>\r\n")]+�
>�(\d+\.)+�\d+�([01]\s*){8}�\[�\]�[^(\[\]"{)]+��rootr0r2r7r+rMrX�tupler-rErGrIc

Cs,t�
d
|tj�r
dSt�d|tj�rdSdS)zS
        Check if code contains REBOL header and so it probably not R code
        z^\s*REBOL\s*\[g�?z
\s*REBOL\s*\[g�?N)rr�
IGNORECASE�search)
�textr&r&r'�analyse_text�s

�zRebolLexer.analyse_textN)%�__name__�
__module__�__qualname__�__doc__�name�aliases�	filenames�	mimetypes�url�
version_addedrrd�	MULTILINE�flags�	escape_rer(rr	�Charr
�Hexr�Special�Preprocrr#�Float�Otherr�Constantr�Strong�	Attribute�Tag�Escape�tokensrgr&r&r&r'r
s






V
�
��
�����	�
�
��
��
����������������� �
!�"�%



�




�	



�



�




�




�

�


�



�




�	



��mc@s@eZ
dZd
ZdZddgZddgZddgZd	Zd
Z	e
je
jBZ
dZdd
�Zgdef�
dejdf�
dejf�
dejdf�
dejf�
deejeje�f�
dedf�
dedf�
dejf�
dejf�
def�
dejdf�
dejf�
d ejf�
d!ejf�
d"ejf�
d#ej f�
d$ej f�
d%ejf�
d&ejf�
d'ef�
d(e!j"f�
d)ejf�
d*ejf�
d+ejf�
d,ed-f�
d.ed/f�
d0ed1f�
d2ef�
d3ej#f�
d4ef�
d5ej$f�
d6ej$d7f�
d8ef�
d9efeej%fd:efd;ej%fded<fgd=efeej%fd:efd;ej%fded>fd?ed<fgd9ejfeejfd;ejfdejd<fgedejd<fd@ejd<fdAejd<fgeej$fdej$dBfdCej$fdDej$d<fgd9ej$feej$fd:ej$fd;ej$fdej$d<fgdEej fdFej d<fgdejfdGejfd?ejd<fgd9efeefd:efd;efded<fgd=efeefd:efd;efded>fd?ed<fgdHed>fdIed<fded-fded/fdJefgdK�Z&dLS)Mrz
    A Red-language lexer.
    ZRedZredz
red/systemz*.redz*.redsz
text/x-redztext/x-red-systemzhttps://www.red-lang.orgz2.0rccs�|
��}t
�d
|�r|
��tj|fV
dSt
�d|�r'|
��tj|fV
dSt
�d|�r8|
��tj|fV
dSt
�d|�rJ|
��tjj	|fV
dSt
�d|�r[|
��t
j|fV
dSt
�d|�rl|
��tj|fV
dSt
�d|�r||
��t
|fV
dSt
�d|�r�|
��t
j|fV
dSt
�d	|�r�|
��t
|fV
dSt
�d
|�r�|
��t
|fV
dSt
�d|�r�|
��t
j|fV
dSt
�d|�r�|
��tjj|fV
dSt
�d
|�r�|
��tj|fV
dSt
�d|�r�|
��tj|fV
dSt
�d|��
r|
��tj|fV
dS|
��tj|fV
dS)Nra
(if|unless|either|any|all|while|until|loop|repeat|foreach|forall|func|function|does|has|switch|case|reduce|compose|get|set|print|prin|equal\?|not-equal\?|strict-equal\?|lesser\?|greater\?|lesser-or-equal\?|greater-or-equal\?|same\?|not|type\?|stats|bind|union|replace|charset|routine)$af
(make|random|reflect|to|form|mold|absolute|add|divide|multiply|negate|power|remainder|round|subtract|even\?|odd\?|and~|complement|or~|xor~|append|at|back|change|clear|copy|find|head|head\?|index\?|insert|length\?|next|pick|poke|remove|reverse|select|sort|skip|swap|tail|tail\?|take|trim|create|close|delete|modify|open|open\?|query|read|rename|update|write)$z`(yes|on|no|off|true|false|tab|cr|lf|newline|escape|slash|sp|space|null|none|crlf|dot|null-byte)$ze(#system-global|#include|#enum|#define|#either|#if|#import|#export|#switch|#default|#get-definition)$z�(system|halt|quit|quit-return|do|load|q|recycle|call|run|ask|parse|raise-error|return|exit|break|alias|push|pop|probe|\?\?|spec-of|body-of|quote|forever)$z�(action\?|block\?|char\?|datatype\?|file\?|function\?|get-path\?|zero\?|get-word\?|integer\?|issue\?|lit-path\?|lit-word\?|logic\?|native\?|op\?|paren\?|path\?|refinement\?|set-path\?|set-word\?|string\?|unset\?|any-struct\?|none\?|word\?|any-series\?)$z(JNICALL|stdcall|cdecl|infix)$rzN(\+|-\*\*|-|\*\*|//|/|\*|and|or|xor|=\?|===|==|=|<>|<=|>=|<<<|>>>|<<|>>|<|>%)$rrrrz:.*)rrrrrrrrrZPseudorrrrrr r!r"r#r$r&r&r'r(
s^�


�
�

�

�
�
�





�









zRedLexer.word_callbackr)r*r+z#\{[0-9a-f\s]*\}r,r-r.z$([0-9a-f]+)(h)((\s)|(?=[\[\]{}"()]))r/r0r1r2r3r4r5r6r7r8r9r:zH\d+[\-/][0-9a-z]+[\-/]\d+(/\d+:\d+((:\d+)?([\.\d+]?([+-]?\d+:\d+)?)?)?)?r;r<r=r>r?r@rArBrCrDrErFrGrHrIrJz/[^(^{^")\s/[\]]*z#([^(^{^")\s/[\]]+)(?=[:({"\s/\[\]])rKrLrMrNrOrPrQrRrSrTrUrVrWrXrYrZr[r\r]r^r_r`raN)'rhrirjrkrlrmrnrorprqrrdrrrsrtr(rr	rur
rvrrr rrrwrxr#ryrzrr{rr|r}r~rr�r&r&r&r'r�s 






7
�
��
��
���	�
���

����
��������������� �!�"�
#�$�'



�




�	



�



�




�




�

�


�



�




�	



�
�)rkrZpygments.lexerrrZpygments.tokenrrrrrr	r
rr�__all__r
rr&r&r&r'�<module>
s
,
^