jk d S r SSKrSSKJrJr SSKJrJrJrJ r J
r
J r J r J
r
S/r " S S\5 rg)z
pygments.lexers.comal
~~~~~~~~~~~~~~~~~~~~~
Lexer for COMAL-80.
:copyright: Copyright 2006-2025 by the Pygments team, see AUTHORS.
:license: BSD, see LICENSE for details.
N)
RegexLexerwords)Comment
WhitespaceOperatorKeywordStringNumberName Punctuation Comal80Lexerc 6 \ rS rSrSrSrSrSS/rSS/rS r \
R r S
r
S rS \R 4S
\4S\4S\
- \R& 4\" / SQ\
S9\R& 4\" / SQ\
S9\R, 4\" / SQ\
S9\R. 4\" / SQ\
S9\R2 4\" / SQ\
S9\R4 4S\S4\S- \R8 4\S- \4S\ R< 4S\ R> 4S \ R@ 4S \ RB 4S \"4/S \4S \RF 4S\S!4/S".r$S#r%g$)%r
z
For COMAL-80 source code.
zCOMAL-80z#https://en.wikipedia.org/wiki/COMALcomalcomal80z*.cmlz*.comal u \b(?!['\[\]←£\\])u [a-z]['\[\]←£\\\w]*z//.*\nz\s+u :[=+-]|\<\>|[-+*/^↑<>=]z(and +then|or +else)) andbitandbitorbitxordivinmodnotor)suffix)?appendatcasechainclosecopycreatecursordatadeletedirdoelifelseendendcaseendifendforendloopendtrapendwhileexecexitfileforgotohandlerifinputletloopmountnullofopen otherwiseoutputpagepasspokeprintrandomreadrepeatreportreturnrenamerestoreselectstepstopsysthentotrapunitzunit$untilusingwhenwhilewritezone)
closeddimendfuncendprocexternalfuncimportprocrefuse) absatnzchr$coseodeoferrerrfileerrtextescexpintzkey$lenlogordpeek randomizerndsgnsinzspc$sqrzstatus$zstr$tabtantimeval)falsepitrue"stringz :(?=[ \n/])z[$#]?z%[01]+z \$[0-9a-f]+z\d*\.\d*(e[-+]?\d+)?z\d+z[(),:;]z[^"]+z"[0-9]*"z#pop)rootr N)&__name__
__module__ __qualname____firstlineno____doc__nameurlaliases filenames
version_addedre
IGNORECASEflags_suffix _identifierr Singler r Wordr r Reserved Declarationr BuiltinConstantr Labelr
BinHexFloatIntegerr Escapetokens__static_attributes__r H/usr/lib/rads/venv/lib/python3.13/site-packages/pygments/lexers/comal.pyr
r
s D
/C "G)$IM MME &G+K '
Z
)8 4
$w
.
>
%()1
8 D MTU
" &.578?8K8K
M (/ 0 26
?
*7
;W=M=M N
68 $
>
)4:: 6
8
#T *
#
VZZ (
$fll 3
V^^ $
%E#
J v
&-- (
66 "
K*Fr )r r pygments.lexerr r pygments.tokenr r r r r r
r r __all__r
r r r