| 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�H � @ st d Z ddlZddlmZmZ ddlmZmZmZm Z m
Z
m Z m Z m
Z
mZ ddgZG dd� de�ZG dd� de�ZdS ) z�
pygments.lexers.rebol
~~~~~~~~~~~~~~~~~~~~~
Lexers for the REBOL and related languages.
:copyright: Copyright 2006-2021 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 # @ s� e Zd ZdZdZdgZg d�ZdgZej ej
B Z dZ dd� Z
d efd
ejd fd efgd
efdejdfdejfdejdfdejfdedfdedfdejfdejfdefdejd fd ejfd ejfd ejfd ejfd!e j fd"e j fd#ejfd$ejfd%efd&ejfd'ejfd(ejfd)ejfd*ed+fd,ed-fd.ed/fd0efd1ej fd2e
fd3ej fd4ej d5fd6efg!d7efe ej fd8efd9ej fded:fgd;efe ej fd8efd9ej fded<fd=ed:fgd7ejfe ejfd9ejfdejd:fge d ejd:fd>ejd:fd?ejd:fge ej fdej d@fdAej fdBej d:fgd7ej fe ej fd8ej fd9ej fdej d:fgdCe j fdDe j d:fgd
ejfdEejfd=ejd:fgd7efe efd8efd9efded:fgd;efe efd8efd9efded<fd=ed:fgdFed<fdGed:fded+fded-fdHefgdI�
Z!dJdK� Z"dLS )Mr
zN
A `REBOL <http://www.rebol.com/>`_ lexer.
.. versionadded:: 1.1
ZREBOLZrebol)z*.rz*.r3z*.rebz text/x-rebol�(?:\^\([0-9a-f]{1,4}\)*)c c s� |� � }t�d|�r*|�� tj|fV �n�t�d|�rL|�� tj|fV �n�t�d|�rn|�� tj|fV �n^t�d|�r�|�� t j
|fV �n<t�d|�r�|�� tj |fV �nt�d|�r�|�� tj |fV n�t�d|�r�|�� t |fV n�t�d|��r|�� t
|fV n�t�d |��r0|�� t |fV n�t�d
|��rR|�� t j|fV nzt�d |��rv|�� tjj|fV nVt�d |��r�|�� tj|fV n4t�d
|��r�|�� tj|fV n|�� tj|fV d S )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 Zword� r% �9/usr/lib/python3.9/site-packages/pygments/lexers/rebol.py�
word_callback# sT ���� �zRebolLexer.word_callback�[^R]+z
REBOL\s+\[�script�R�\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}�\[�\]� [^(\[\]"{)]+�
�rootr) r2 r4 r9 r- rO rZ �tupler/ rG rI rK c C s, t �d| t j�rdS t �d| t j�r(dS dS )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)r r �
IGNORECASE�search)�textr% r% r& � analyse_text� s zRebolLexer.analyse_textN)#�__name__�
__module__� __qualname__�__doc__�name�aliases� filenames� mimetypesr rf � MULTILINE�flags� escape_rer' r r �Strongr r �Charr
�Hex�Special�Preprocr r# �Float�Otherr �Constant� Attribute�Tag�Escape�tokensri r% r% r% r& r
s� W
�
�
�%��
�
�
�
�
�
��� ��rc $ @ s e Zd ZdZdZddgZddgZddgZej ej
B Z d Z d
d � Z
d efd
ejdfdejdfdefgdefdejdfdejfdejdfdejfdeejeje�fdedfded fd ejfd ejfd efd ej d!fd"ej fd#ej fd$ej fd%ej fd&e j fd'e j fd(ej fd)ej fd*efd+ejfd,ej fd-ej fd.ej fd/ed0fd1ed2fd3ed4fd5efd6ej!fd7e
fd8ej"fd9ej"d:fd;efg"d<efe ej#fd=efd>ej#fded?fgd@efe ej#fd=efd>ej#fdedAfdBed?fgd<ej fe ej fd>ej fdej d?fge d ejd?fdCejd?fdDejd?fge ej"fdej"dEfdFej"fdGej"d?fgd<ej"fe ej"fd=ej"fd>ej"fdej"d?fgdHe j fdIe j d?fgdejfdJejfdBejd?fgd<efe efd=efd>efded?fgd@efe efd=efd>efdedAfdBed?fgdKedAfdLed?fded0fded2fdMefgdN�
Z$dOS )Pr zX
A `Red-language <http://www.red-lang.org/>`_ lexer.
.. versionadded:: 2.0
ZRedZredz
red/systemz*.redz*.redsz
text/x-redztext/x-red-systemr c c s |� � }t�d|�r*|�� tj|fV �n�t�d|�rL|�� tj|fV �n�t�d|�rn|�� tj|fV �n�t�d|�r�|�� tjj |fV �n�t�d|�r�|�� t
j |fV �nbt�d|�r�|�� tj |fV �n@t�d|�r�|�� t
|fV �n t�d|��r|�� t
j |fV n�t�d |��r8|�� t
|fV n�t�d
|��rX|�� t
|fV n�t�d |��rz|�� t
j|fV n�t�d |��r�|�� tjj|fV nxt�d
|��r�|�� tj|fV nVt�d|��r�|�� tj|fV n4t�d|��r|�� tj|fV n|�� tj|fV d S )Nr a (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)$r zN(\+|-\*\*|-|\*\*|//|/|\*|and|or|xor|=\?|===|==|=|<>|<=|>=|<<<|>>>|<<|>>|<|>%)$r r r r z:.*)r r r r r r r r r ZPseudor r r r r r r! r" r# r$ r% r% r& r' s\ �������zRedLexer.word_callbackr( zRed/System\s+\[r) zRed\s+\[r* r+ r, r- z#\{[0-9a-f\s]*\}r. r/ r0 z$([0-9a-f]+)(h)((\s)|(?=[\[\]{}"()]))r1 r2 r3 r4 r5 r6 r7 r8 r9 r: r; r< zH\d+[\-/][0-9a-z]+[\-/]\d+(/\d+:\d+((:\d+)?([\.\d+]?([+-]?\d+:\d+)?)?)?)?r= r> r? r@ rA rB rC rD rE rF rG rH rI rJ rK rL z/[^(^{^")\s/[\]]*z#([^(^{^")\s/[\]]+)(?=[:({"\s/\[\]])rM rN rO rP rQ rR rS rT rU rV rW rX rY rZ r[ r\ r] r^ r_ r` ra rb rc N)%rj rk rl rm rn ro rp rq r rf rr rs rt r' r r ru r r rv r
rw r r r r rx ry r# rz r{ r r| r} r~ r r� r% r% r% r& r � s� 8
�
�
�
�'��
�
�
�
�
�
��� ��)rm r Zpygments.lexerr r Zpygments.tokenr r r r r r r
r r �__all__r
r r% r% r% r& �<module> s
, c