*.janus
//
/*
*/
call
delocal
do
else
fi
from
if
local
loop
procedure
skip
then
uncall
until
empty
error
pop
print
printf
push
show
size
top
\b(bool|str|int|stack)\b
true
false
[0-9a-fA-F]
[0-7]
((?<=\.\.)|(?<![\w\.]))
(
[1-9][0-9_]*|
0[0-9_]*|
0b[01_]+|
0o(\%{oct-digit}|_)+|
0x(\%{hex-digit}|_)+
)
((?![\w\.].)|(?=\.\.))
([^[:cntrl:][:space:][:punct:][:digit:]]|_)([^[:cntrl:][:punct:][:space:]]|_)*
'|"|
\\|n|r|t|0|
x\%{hex-digit}{2}
d
\\\%{common-escape}|%\%{percent-escape}
"
"