3

V'ícTã@s^dZddlZddlmZmZddlmZmZmZm	Z	m
Z
mZmZm
Z
dgZGdd„deƒZdS)zÂ
    pygments.lexers.comal
    ~~~~~~~~~~~~~~~~~~~~~

    Lexer for COMAL-80.

    :copyright: Copyright 2006-2022 by the Pygments team, see AUTHORS.
    :license: BSD, see LICENSE for details.
éN)Ú
RegexLexerÚwords)ÚCommentÚ
WhitespaceÚOperatorÚKeywordÚStringÚNumberÚNameÚPunctuationÚComal80LexercE@sîeZdZdZdZdZddgZddgZej	Z
dZd	Zd
e
jfdefdefd
eejfedddddddddg	edejfeddddddddd d!d"d#d$d%d&d'd(d)d*d+d,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;d<d=d>d?d@dAdBdCdDdEdFdGdHdIdJdKdLdMdNdOdPdQdRdSdTdUdVg?edejfedWdXdYdZd[d\d]d^d_d`g
edejfedadbdcdddedfdgdhdidjdkdldmdndodpdqdrdsdtdudvdwdxdydzd{d|d}gedejfed~dd€gedejfded‚fedƒejfed„efd…ejfd†ejfd‡ejfdˆejfd‰e fgdŠefd‹ej!fdedŒfgdœZ"dŽS)rz#
    For COMAL-80 source code.
    zCOMAL-80z#https://en.wikipedia.org/wiki/COMALZcomalZcomal80z*.cmlz*.comalu\b(?!['\[\]←£\\])u[a-z]['\[\]←£\\\w]*z//.*\nz\s+u:[=+-]|\<\>|[-+*/^↑<>=]z(and +then|or +else)ÚandZbitandZbitorZbitxorÚdivÚinÚmodÚnotÚor)ÚsuffixÚappendZatZcaseÚchainÚcloseÚcopyÚcreateÚcursorÚdataÚdeleteÚdirZdoÚelifÚelseÚendZendcaseÚendifZendforZendloopZendtrapZendwhileÚexecÚexitÚfileÚforÚgotoÚhandlerÚifÚinputZletZloopÚmountÚnullZofÚopenZ	otherwiseÚoutputÚpageÚpassZpokeÚprintÚrandomÚreadÚrepeatÚreportÚreturnÚrenameZrestoreÚselectÚstepÚstopÚsysZthenZtoZtrapÚunitzunit$ZuntilZusingÚwhenÚwhileÚwriteÚzoneÚclosedZdimZendfuncZendprocZexternalÚfuncÚimportÚprocÚrefZuseÚabsZatnzchr$ÚcosZeodÚeofÚerrZerrfileZerrtextÚescÚexpÚintzkey$ÚlenÚlogÚordÚpeekZ	randomizeZrndZsgnÚsinzspc$Zsqrzstatus$zstr$ÚtabÚtanÚtimeÚvalÚfalseÚpiÚtrueú"Ústringz:(?=[ \n/])z[$#]?z%[01]+z\$[0-9a-f]+z\d*\.\d*(e[-+]?\d+)?z\d+z[(),:;]z[^"]+z"[0-9]*"z#pop)ÚrootrXN)#Ú__name__Ú
__module__Ú__qualname__Ú__doc__ÚnameÚurlÚaliasesÚ	filenamesÚreÚ
IGNORECASEÚflagsÚ_suffixZ_identifierrÚSinglerrÚWordrrZReservedZDeclarationr
ZBuiltinÚConstantrZLabelr	ZBinZHexZFloatZIntegerrZEscapeÚtokens©rjrjú9/tmp/pip-build-gk9425m9/Pygments/pygments/lexers/comal.pyrsZ
)r]rbZpygments.lexerrrZpygments.tokenrrrrrr	r
rÚ__all__rrjrjrjrkÚ<module>	s
(