U

G�
\&/�@spdZd
dl
Z
d
dlmZmZ
d
dlmZmZmZm	Z	m
Z
mZmZm
Z

ddgZGdd�de�ZGdd�de�ZdS)	z�
    pygments.lexers.prolog
    ~~~~~~~~~~~~~~~~~~~~~~

    Lexers for Prolog and Prolog-like languages.

    :copyright: Copyright 2006-2017 by the Pygments team, see AUTHORS.
    :license: BSD, see LICENSE for details.
�N)�
RegexLexer�bygroups)�Text�Comment�Operator�Keyword�Name�String�Number�Punctuation�PrologLexer�LogtalkLexerc@s@
eZ
dZd
ZdZdg
ZddddgZdg
Zej	ej
BZd	ej
fd
ejdfdej
fd
ejfdejfdejfdejfdejfdejfdejfdefdefdejfdejfdefdefdefdefdeeje�fdeeje e�fdeeje e�fdejfd ejfd!ej!fd"e fgd#ejd$fd
ejd%fd&ejfd'ejfgd(�Z"d)d*�Z#d+S),rz!
    Lexer for Prolog files.
    ZPrologZprologz*.eclz*.prologz*.proz*.plz
text/x-prologz^#.*z/\*�nested-commentz%.*z0\'.�0b[01]+�0o[0-7]+�0x[0-9a-fA-F]+z\d\d?\'[a-zA-Z0-9]+z%(\d+\.\d*|\d*\.\d+)([eE][+-]?[0-9]+)?z\d+z[\[\](){}|.,;!]z:-|-->z`"(?:\\x[0-9a-fA-F]+\\|\\u[0-9a-fA-F]{4}|\\U[0-9a-fA-F]{8}|\\[0-7]+\\|\\["\nabcefnrstv]|[^\\"])*"z'(?:''|[^'])*'zis\bz5(<|>|=<|>=|==|=:=|=|/|//|\*|\+|-)(?=\s|[a-zA-Z0-9\[])z(mod|div|not)\b�
_z([a-z]+)(:)uB([a-zÀ-῿぀-퟿-￯][\w$À-῿぀-퟿-￯]*)(\s*)(:-|-->)u>([a-zÀ-῿぀-퟿-￯][\w$À-῿぀-퟿-￯]*)(\s*)(\()u3[a-zÀ-῿぀-퟿-￯][\w$À-῿぀-퟿-￯]*u![#&*+\-./:<=>?@\\^~¡-¿‐-〿]+z	[A-Z_]\w*u\s+|[ -‏￰-￾￯]z\*/�#popz#pushz[^*/]+z[*/])�rootrc

Csd
|kS)Nz:-��
�textrr�8/usr/lib/python3/dist-packages/pygments/lexers/prolog.py�analyse_textTs
zPrologLexer.analyse_textN)$�__name__�
__module__�__qualname__�__doc__�name�aliases�	filenames�	mimetypes�re�UNICODE�	MULTILINE�flagsr�SingleZ	Multiliner	ZCharr
�Bin�Oct�HexZIntegerZFloatr�DoubleZAtomrrrrZ	NamespaceZFunctionr�Variable�tokensrrrrrrsf















�

�


���
�
�,




��4cS@s,eZ
dZd
ZdZdg
ZddgZdg
Zdedfd	e	fd
e	fde
fde
fd
efdejfdej
fdejfdefdejfdefdefdefdefdefdefdefdefdefdefdefdefdefd efd!efd"efd#efd$efd%efd&efd'efd(efd)efd*efd+efd,efd-efd.efd/efd0efd1efd2efd3efd4efd5efd6efd7efd8efd9efd:efd;efd<efd=efd>efd?efd@efdAefdBefdCefdDefdEefdFefdGefdHefdIefdJefdKefdLefdMefdNefdOefdPefdQefdRefdSefdTefdUefdVe
fdWe
fdXedYfgQdZefdXed[fd\ejfd]efd^efgd_ed`fdaed`fdbedcfdded`fdeed`fdfed`fdged`fdhed`fdied`fdjed`fdked`fdle
d`fdme
d`fg
dnefd
efdejfdej
fdejfdefdejfdWe
fdXedYfdUefdoe
d`fdpefdVe
fd	e	fd
e	fde
fde
fgdq�Zdrds�ZdtS)ur
zW
    For `Logtalk <http://logtalk.org/>`_ source code.

    .. versionadded:: 0.10
    ZLogtalkZlogtalkz*.lgtz	*.logtalkztext/x-logtalkz^\s*:-\s�	directivez%.*?\nz/\*(.|\n)*?\*/z\nz\s+z0'.rrrz\d+\.?\d*((e|E)(\+|-)?\d+)?z([A-Z_]\w*)z(after|before)(?=[(])zforward(?=[(])z#(parameter|this|se(lf|nder))(?=[(])z-(current_predicate|predicate_property)(?=[(])z8(expand_(goal|term)|(goal|term)_expansion|phrase)(?=[(])z;(abolish|c(reate|urrent))_(object|protocol|category)(?=[(])z*(object|protocol|category)_property(?=[(])z.co(mplements_object|nforms_to_protocol)(?=[(])z)extends_(object|protocol|category)(?=[(])z*imp(lements_protocol|orts_category)(?=[(])z%(instantiat|specializ)es_class(?=[(])z.(current_event|(abolish|define)_events)(?=[(])z!(current|set)_logtalk_flag(?=[(])z<logtalk_(compile|l(ibrary_path|oad|oad_context)|make)(?=[(])z\blogtalk_make\bz(clause|retract(all)?)(?=[(])za(bolish|ssert(a|z))(?=[(])z(ca(ll|tch)|throw)(?=[(])z(fa(il|lse)|true)\bz!((bag|set)of|f(ind|or)all)(?=[(])z;threaded(_(call|once|ignore|exit|peek|wait|notify))?(?=[(])z.(subsumes_term|unify_with_occurs_check)(?=[(])z8(functor|arg|copy_term|numbervars|term_variables)(?=[(])z%(div|rem|m(ax|in|od)|abs|sign)(?=[(])z)float(_(integer|fractional)_part)?(?=[(])z*(floor|t(an|runcate)|round|ceiling)(?=[(])z6(cos|a(cos|sin|tan|tan2)|exp|log|s(in|qrt)|xor)(?=[(])zZ(var|atom(ic)?|integer|float|c(allable|ompound)|n(onvar|umber)|ground|acyclic_term)(?=[(])zcompare(?=[(])z(curren|se)t_(in|out)put(?=[(])z(open|close)(?=[(])zflush_output(?=[(])z!(at_end_of_stream|flush_output)\bz=(stream_property|at_end_of_stream|set_stream_position)(?=[(])z,(nl|(get|peek|put)_(byte|c(har|ode)))(?=[(])z\bnl\bzread(_term)?(?=[(])z"write(q|_(canonical|term))?(?=[(])z(current_)?op(?=[(])z!(current_)?char_conversion(?=[(])z(atom_(length|c(hars|o(ncat|des)))(?=[(])z(char_code|sub_atom)(?=[(])znumber_c(har|ode)s(?=[(])z(se|curren)t_prolog_flag(?=[(])z\bhalt\bzhalt(?=[(])z(::|:|\^\^)z[{}]z(ignore|once)(?=[(])z
\brepeat\bz(key)?sort(?=[(])z(>>|<<|/\\|\\\\|\\)z\bas\bz\bis\bz(=:=|=\\=|<|=<|>=|>)z=\.\.z(=|\\=)z(==|\\==|@=<|@<|@>=|@>)z(//|[-+*/])z\b(e|pi|div|mod|rem)\bz\b\*\*\bz-->z	([!;]|->)z\\+z[?@]z\^z"(\\\\|\\"|[^"])*"z[()\[\],.|]z[a-z]\w*�
'�quoted_atomz''rz+\\([\\abfnrtv"\']|(x[a-fA-F0-9]+|[0-7]+)\\)z	[^\\'\n]+z\\z(el)?if(?=[(])rz(e(lse|ndif))[.]z!(category|object|protocol)(?=[(])�entityrelationsz#(end_(category|object|protocol))[.]z!(public|protected|private)(?=[(])z%e(n(coding|sure_loaded)|xport)(?=[(])z in(clude|itialization|fo)(?=[(])z+(built_in|dynamic|synchronized|threaded)[.]zz(alias|d(ynamic|iscontiguous)|m(eta_(non_terminal|predicate)|ode|ultifile)|s(et_(logtalk|prolog)_flag|ynchronized))(?=[(])z	op(?=[(])z:(c(alls|oinductive)|module|reexport|use(s|_module))(?=[(])z[a-z]\w*(?=[(])z[a-z]\w*[.]zH(complements|extends|i(nstantiates|mp(lements|orts))|specializes)(?=[(])z([)]\.)z(::))rr/r-r0c

Cs@d
|krdSd|krdSd|kr$dSt�
d|tj�r8dSdSdS)Nz
:- object(g�?z:- protocol(z:- category(z
^:-\s[a-z]g�������?g)r"�search�
Mrrrrr(
s







zLogtalkLexer.analyse_textN)rrrrrrr r!rrrr
r'r(r)rr+rrr	ZEscaper,rrrrrr
Xs




















�














��




�






�


�






���E)rr"Zpygments.lexerrrZpygments.tokenrrrrrr	r
r�__all__rr
rrrr�<module>s

(C