o

���aa�@s�dZd
dl
Z
d
dlmZmZmZ
d
dlmZmZm	Z	m
Z
mZmZm
Z
mZmZ
gd�
ZGdd�de�ZGdd	�d	e�ZGd
d�de�ZGdd
�d
e�ZdS)z�
    pygments.lexers.algebra
    ~~~~~~~~~~~~~~~~~~~~~~~

    Lexers for computer algebra systems.

    :copyright: Copyright 2006-2021 by the Pygments team, see AUTHORS.
    :license: BSD, see LICENSE for details.
�N)�
RegexLexer�bygroups�words)	�Text�Comment�Operator�Keyword�Name�String�Number�Punctuation�
Whitespace)�GAPLexer�MathematicaLexer�
MuPADLexer�BCLexerc@s�eZ
dZd
ZdZdg
Zgd�
Zddejfde	fde
fd	efd
ej
fdejfdefd
ejfdejfdefdefdefgi
Zdd�ZdS)rzX
    For `GAP <http://www.gap-system.org>`_ source code.

    .. versionadded:: 2.0
    �GAP�gap)z*.gz*.gdz*.giz*.gap�rootz#.*$�"(?:[^"\\]|\\.)*"�\(|\)|\[|\]|\{|\}aV
(?x)\b(?:
                if|then|elif|else|fi|
                for|while|do|od|
                repeat|until|
                break|continue|
                function|local|return|end|
                rec|
                quit|QUIT|
                IsBound|Unbind|
                TryNextMethod|
                Info|Assert
              )\bzD(?x)\b(?:
                true|false|fail|infinity
              )\bzx(?x)\b(?:
                (Declare|Install)([A-Z][A-Za-z]+)|
                   BindGlobal|BIND_GLOBAL
              )\bz\.|,|:=|;|=|\+|-|\*|/|\^|>|<z=(?x)\b(?:
                and|or|not|mod|in
              )\bzC(?x)
              (?:\w+|`[^`]*`)
              (?:::\w+|`[^`]*`)*�[0-9]+(?:\.[0-9]*)?(?:e[0-9]+)?�\.[0-9]+(?:e[0-9]+)?�
.c
Cs6d
}
t�
d|�r|
d7}
t�
d|�r|
d7}
t|
d�S)Ngzl(InstallTrueMethod|Declare(Attribute|Category|Filter|Operation|GlobalFunction|Synonym|SynonymAttr|Property))gffffff�?zm(DeclareRepresentation|Install(GlobalFunction|Method|ImmediateMethod|OtherMethod)|New(Family|Type)|Objectify)g�?)�re�search�min)�text�score�r�9/usr/lib/python3/dist-packages/pygments/lexers/algebra.py�analyse_textFs


�

�
zGAPLexer.analyse_textN)�__name__�
__module__�__qualname__�__doc__�name�aliases�	filenamesr�Singler
rrr	�Constant�Builtinr�Word�Variablerr�tokensr!rrrr rs>






���
��

��(rc@s�eZ
dZd
ZdZgd�
Zgd�
Zgd�
ZdZdZ	dd	�Z
d
defdej
fd
ejfdejfdefdejfdejfdejfee�
efee	�
efdefdejfgi
ZdS)rzp
    Lexer for `Mathematica <http://www.wolfram.com/mathematica/>`_ source code.

    .. versionadded:: 2.0
    �Mathematica)�mathematica�mma�nb)z*.nbz*.cdfz*.nbpz*.ma)zapplication/mathematicaz#application/vnd.wolfram.mathematicaz+application/vnd.wolfram.mathematica.packagezapplication/vnd.wolfram.cdf) z;;�
=z=.z!===z:=z->z:>z/.�
+�
-�
*�
/�
^z&&z||�
!z<>�
|z/;�
?�
@z//z/@z@@z@@@z~~z===�
&�
<�
>z<=z>=)�
,�
;�
(�
)�
[�
]�
{�
}c

Csd
d�dd�|D�
�
S)Nz(%s)r:c
ss�|]}
t�
|
�
V
qdS)
N)r�escape)�.0�entryrrr �	<genexpr>rs�z1MathematicaLexer._multi_escape.<locals>.<genexpr>)
�join)
�entriesrrr �
_multi_escapeqs
zMathematicaLexer._multi_escaperz(?s)\(\*.*?\*\)z([a-zA-Z]+[A-Za-z0-9]*`)z([A-Za-z0-9]*_+[A-Za-z0-9]*)z#\d*z([a-zA-Z]+[a-zA-Z0-9]*)z
-?\d+\.\d*z
-?\d*\.\d+z-?\d+z".*?"�\s+N)r"r#r$r%r&r'r(�	mimetypes�	operators�punctuationrNrr	�	Namespacer-r�Float�Integerrrrr
rr
r.rrrr rZs0














��rc@s�eZ
dZd
ZdZdg
Zdg
Zdejfdej	dfde
fd	efd
efde
jfde
jfd
e
jjfdefdejfdefdee
jee�fde
jfdefdefdefdefgdej	fdej	dfdej	dfdej	fgd�ZdS)rz�
    A `MuPAD <http://www.mupad.com>`_ lexer.
    Contributed by Christopher Creutzig <christopher@creutzig.de>.

    .. versionadded:: 0.8
    �MuPAD�mupadz*.muz//.*?$�/\*�commentrra�
(?x)\b(?:
                next|break|end|
                axiom|end_axiom|category|end_category|domain|end_domain|inherits|
                if|%if|then|elif|else|end_if|
                case|of|do|otherwise|end_case|
                while|end_while|
                repeat|until|end_repeat|
                for|from|to|downto|step|end_for|
                proc|local|option|save|begin|end_proc|
                delete|frame
              )\baU
(?x)\b(?:
                DOM_ARRAY|DOM_BOOL|DOM_COMPLEX|DOM_DOMAIN|DOM_EXEC|DOM_EXPR|
                DOM_FAIL|DOM_FLOAT|DOM_FRAME|DOM_FUNC_ENV|DOM_HFARRAY|DOM_IDENT|
                DOM_INT|DOM_INTERVAL|DOM_LIST|DOM_NIL|DOM_NULL|DOM_POLY|DOM_PROC|
                DOM_PROC_ENV|DOM_RAT|DOM_SET|DOM_STRING|DOM_TABLE|DOM_VAR
              )\bz�(?x)\b(?:
                PI|EULER|E|CATALAN|
                NIL|FAIL|undefined|infinity|
                TRUE|FALSE|UNKNOWN
              )\bz\b(?:dom|procname)\bz-\.|,|:|;|=|\+|-|\*|/|\^|@|>|<|\$|\||!|\'|%|~=z�(?x)\b(?:
                and|or|not|xor|
                assuming|
                div|mod|
                union|minus|intersect|in|subset
              )\bz \b(?:I|RDN_INF|RD_NINF|RD_NAN)\bzi(?x)
              ((?:[a-zA-Z_#][\w#]*|`[^`]*`)
              (?:::[a-zA-Z_#][\w#]*|`[^`]*`)*)(\s*)([(])z](?x)
              (?:[a-zA-Z_#][\w#]*|`[^`]*`)
              (?:::[a-zA-Z_#][\w#]*|`[^`]*`)*rrrOrz[^/*]+z#push�\*/�#pop�[*/]�rrYN)r"r#r$r%r&r'r(rr)�	Multiliner
rrr	�Classr*r+�Pseudorr,rr�Functionrr-r
r.rrrr r�sR








���


���


�4




�
�rc	@s�eZ
dZd
ZdZdg
Zdg
Zdejdfde	fde
fed	d
d�efde
fd
efdefdefgdejfdejdfdejfgd�ZdS)rzV
    A `BC <https://www.gnu.org/software/bc/>`_ lexer.

    .. versionadded:: 2.1
    �BC�bcz*.bcrXrYrz[{}();,])�if�else�while�for�break�continue�halt�return�define�auto�print�read�length�scale�sqrt�limits�quit�warrantyz\b)
�suffixz!\+\+|--|\|\||&&|([-<>+*%\^/!=])=?z[0-9]+(\.[0-9]*)?z\.[0-9]+rz[^*/]+rZr[r\r]N)r"r#r$r%r&r'r(rr^r
rrrrrrr.rrrr r�s2






��
�

�


�
�r)r%r�pygments.lexerrrr�pygments.tokenrrrrr	r
rrr
�__all__rrrrrrrr �<module>
s
,
F/H