Gecko [ www.jobworksschool.com ]

Name	Size	Permission	Date
__pycache__	[ DIR ]	drwxr-xr-x	2025-08-05 17:02
__init__.py	11.83 KB	-rw-r--r--	2024-02-02 13:26
_ada_builtins.py	1.51 KB	-rw-r--r--	2024-02-02 13:26
_asy_builtins.py	26.65 KB	-rw-r--r--	2024-02-02 13:26
_cl_builtins.py	13.67 KB	-rw-r--r--	2024-02-02 13:26
_cocoa_builtins.py	102.72 KB	-rw-r--r--	2024-02-02 13:26
_csound_builtins.py	17.98 KB	-rw-r--r--	2024-02-02 13:26
_css_builtins.py	12.15 KB	-rw-r--r--	2024-02-02 13:26
_julia_builtins.py	11.6 KB	-rw-r--r--	2024-02-02 13:26
_lasso_builtins.py	131.36 KB	-rw-r--r--	2024-02-02 13:26
_lilypond_builtins.py	105.56 KB	-rw-r--r--	2024-02-02 13:26
_lua_builtins.py	7.93 KB	-rw-r--r--	2024-02-02 13:26
_mapping.py	66.43 KB	-rw-r--r--	2024-02-02 13:26
_mql_builtins.py	24.13 KB	-rw-r--r--	2024-02-02 13:26
_mysql_builtins.py	25.24 KB	-rw-r--r--	2024-02-02 13:26
_openedge_builtins.py	48.24 KB	-rw-r--r--	2024-02-02 13:26
_php_builtins.py	105.4 KB	-rw-r--r--	2024-02-02 13:26
_postgres_builtins.py	13.04 KB	-rw-r--r--	2024-02-02 13:26
_qlik_builtins.py	12.3 KB	-rw-r--r--	2024-02-02 13:26
_scheme_builtins.py	31.8 KB	-rw-r--r--	2024-02-02 13:26
_scilab_builtins.py	51.18 KB	-rw-r--r--	2024-02-02 13:26
_sourcemod_builtins.py	26.15 KB	-rw-r--r--	2024-02-02 13:26
_stan_builtins.py	13.13 KB	-rw-r--r--	2024-02-02 13:26
_stata_builtins.py	26.59 KB	-rw-r--r--	2024-02-02 13:26
_tsql_builtins.py	15.1 KB	-rw-r--r--	2024-02-02 13:26
_usd_builtins.py	1.62 KB	-rw-r--r--	2024-02-02 13:26
_vbscript_builtins.py	4.13 KB	-rw-r--r--	2024-02-02 13:26
_vim_builtins.py	55.73 KB	-rw-r--r--	2024-02-02 13:26
actionscript.py	11.4 KB	-rw-r--r--	2024-02-02 13:26
ada.py	5.2 KB	-rw-r--r--	2024-02-02 13:26
agile.py	876 B	-rw-r--r--	2024-02-02 13:26
algebra.py	9.64 KB	-rw-r--r--	2024-02-02 13:26
ambient.py	2.54 KB	-rw-r--r--	2024-02-02 13:26
amdgpu.py	1.63 KB	-rw-r--r--	2024-02-02 13:26
ampl.py	4.08 KB	-rw-r--r--	2024-02-02 13:26
apdlexer.py	30.04 KB	-rw-r--r--	2024-02-02 13:26
apl.py	3.33 KB	-rw-r--r--	2024-02-02 13:26
archetype.py	11.2 KB	-rw-r--r--	2024-02-02 13:26
arrow.py	3.48 KB	-rw-r--r--	2024-02-02 13:26
arturo.py	11.15 KB	-rw-r--r--	2024-02-02 13:26
asc.py	1.62 KB	-rw-r--r--	2024-02-02 13:26
asm.py	40.28 KB	-rw-r--r--	2024-02-02 13:26
asn1.py	4.16 KB	-rw-r--r--	2024-02-02 13:26
automation.py	19.35 KB	-rw-r--r--	2024-02-02 13:26
bare.py	2.95 KB	-rw-r--r--	2024-02-02 13:26
basic.py	27.27 KB	-rw-r--r--	2024-02-02 13:26
bdd.py	1.61 KB	-rw-r--r--	2024-02-02 13:26
berry.py	3.14 KB	-rw-r--r--	2024-02-02 13:26
bibtex.py	4.61 KB	-rw-r--r--	2024-02-02 13:26
blueprint.py	6.04 KB	-rw-r--r--	2024-02-02 13:26
boa.py	3.82 KB	-rw-r--r--	2024-02-02 13:26
bqn.py	3.26 KB	-rw-r--r--	2024-02-02 13:26
business.py	27.45 KB	-rw-r--r--	2024-02-02 13:26
c_cpp.py	17.53 KB	-rw-r--r--	2024-02-02 13:26
c_like.py	28.52 KB	-rw-r--r--	2024-02-02 13:26
capnproto.py	2.12 KB	-rw-r--r--	2024-02-02 13:26
carbon.py	3.15 KB	-rw-r--r--	2024-02-02 13:26
cddl.py	5.06 KB	-rw-r--r--	2024-02-02 13:26
chapel.py	5.04 KB	-rw-r--r--	2024-02-02 13:26
clean.py	6.25 KB	-rw-r--r--	2024-02-02 13:26
comal.py	3.08 KB	-rw-r--r--	2024-02-02 13:26
compiled.py	1.37 KB	-rw-r--r--	2024-02-02 13:26
configs.py	48.9 KB	-rw-r--r--	2024-02-02 13:26
console.py	4.05 KB	-rw-r--r--	2024-02-02 13:26
cplint.py	1.36 KB	-rw-r--r--	2024-02-02 13:26
crystal.py	15.39 KB	-rw-r--r--	2024-02-02 13:26
csound.py	16.6 KB	-rw-r--r--	2024-02-02 13:26
css.py	24.73 KB	-rw-r--r--	2024-02-02 13:26
d.py	9.64 KB	-rw-r--r--	2024-02-02 13:26
dalvik.py	4.5 KB	-rw-r--r--	2024-02-02 13:26
data.py	26.4 KB	-rw-r--r--	2024-02-02 13:26
dax.py	7.91 KB	-rw-r--r--	2024-02-02 13:26
devicetree.py	3.93 KB	-rw-r--r--	2024-02-02 13:26
diff.py	5.15 KB	-rw-r--r--	2024-02-02 13:26
dns.py	3.69 KB	-rw-r--r--	2024-02-02 13:26
dotnet.py	36.74 KB	-rw-r--r--	2024-02-02 13:26
dsls.py	35.92 KB	-rw-r--r--	2024-02-02 13:26
dylan.py	10.08 KB	-rw-r--r--	2024-02-02 13:26
ecl.py	6.22 KB	-rw-r--r--	2024-02-02 13:26
eiffel.py	2.63 KB	-rw-r--r--	2024-02-02 13:26
elm.py	3.08 KB	-rw-r--r--	2024-02-02 13:26
elpi.py	6.55 KB	-rw-r--r--	2024-02-02 13:26
email.py	4.63 KB	-rw-r--r--	2024-02-02 13:26
erlang.py	18.72 KB	-rw-r--r--	2024-02-02 13:26
esoteric.py	10.15 KB	-rw-r--r--	2024-02-02 13:26
ezhil.py	3.2 KB	-rw-r--r--	2024-02-02 13:26
factor.py	19.07 KB	-rw-r--r--	2024-02-02 13:26
fantom.py	9.96 KB	-rw-r--r--	2024-02-02 13:26
felix.py	9.42 KB	-rw-r--r--	2024-02-02 13:26
fift.py	1.58 KB	-rw-r--r--	2024-02-02 13:26
floscript.py	2.61 KB	-rw-r--r--	2024-02-02 13:26
forth.py	7.03 KB	-rw-r--r--	2024-02-02 13:26
fortran.py	10.1 KB	-rw-r--r--	2024-02-02 13:26
foxpro.py	25.6 KB	-rw-r--r--	2024-02-02 13:26
freefem.py	26.28 KB	-rw-r--r--	2024-02-02 13:26
func.py	3.54 KB	-rw-r--r--	2024-02-02 13:26
functional.py	674 B	-rw-r--r--	2024-02-02 13:26
futhark.py	3.64 KB	-rw-r--r--	2024-02-02 13:26
gcodelexer.py	826 B	-rw-r--r--	2024-02-02 13:26
gdscript.py	7.37 KB	-rw-r--r--	2024-02-02 13:26
go.py	3.7 KB	-rw-r--r--	2024-02-02 13:26
grammar_notation.py	7.79 KB	-rw-r--r--	2024-02-02 13:26
graph.py	4.01 KB	-rw-r--r--	2024-02-02 13:26
graphics.py	38.11 KB	-rw-r--r--	2024-02-02 13:26
graphql.py	5.47 KB	-rw-r--r--	2024-02-02 13:26
graphviz.py	1.89 KB	-rw-r--r--	2024-02-02 13:26
gsql.py	3.9 KB	-rwxr-xr-x	2024-02-02 13:26
haskell.py	32.13 KB	-rw-r--r--	2024-02-02 13:26
haxe.py	30.25 KB	-rw-r--r--	2024-02-02 13:26
hdl.py	21.99 KB	-rw-r--r--	2024-02-02 13:26
hexdump.py	3.52 KB	-rw-r--r--	2024-02-02 13:26
html.py	19.79 KB	-rw-r--r--	2024-02-02 13:26
idl.py	15.09 KB	-rw-r--r--	2024-02-02 13:26
igor.py	30.92 KB	-rw-r--r--	2024-02-02 13:26
inferno.py	3.06 KB	-rw-r--r--	2024-02-02 13:26
installers.py	12.87 KB	-rw-r--r--	2024-02-02 13:26
int_fiction.py	55.78 KB	-rw-r--r--	2024-02-02 13:26
iolang.py	1.86 KB	-rw-r--r--	2024-02-02 13:26
j.py	4.74 KB	-rw-r--r--	2024-02-02 13:26
javascript.py	61.39 KB	-rw-r--r--	2024-02-02 13:26
jmespath.py	2.01 KB	-rw-r--r--	2024-02-02 13:26
jslt.py	3.61 KB	-rw-r--r--	2024-02-02 13:26
jsonnet.py	5.5 KB	-rw-r--r--	2024-02-02 13:26
jsx.py	2.18 KB	-rw-r--r--	2024-02-02 13:26
julia.py	11.37 KB	-rw-r--r--	2024-02-02 13:26
jvm.py	71.22 KB	-rw-r--r--	2024-02-02 13:26
kuin.py	11.14 KB	-rw-r--r--	2024-02-02 13:26
kusto.py	3.4 KB	-rw-r--r--	2024-02-02 13:26
ldap.py	6.4 KB	-rw-r--r--	2024-02-02 13:26
lean.py	4.2 KB	-rw-r--r--	2024-02-02 13:26
lilypond.py	9.52 KB	-rw-r--r--	2024-02-02 13:26
lisp.py	141.01 KB	-rw-r--r--	2024-02-02 13:26
macaulay2.py	31.42 KB	-rw-r--r--	2024-02-02 13:26
make.py	7.51 KB	-rw-r--r--	2024-02-02 13:26
markup.py	58.84 KB	-rw-r--r--	2024-02-02 13:26
math.py	676 B	-rw-r--r--	2024-02-02 13:26
matlab.py	129.74 KB	-rw-r--r--	2024-02-02 13:26
maxima.py	2.65 KB	-rw-r--r--	2024-02-02 13:26
meson.py	4.24 KB	-rw-r--r--	2024-02-02 13:26
mime.py	7.36 KB	-rw-r--r--	2024-02-02 13:26
minecraft.py	13.49 KB	-rw-r--r--	2024-02-02 13:26
mips.py	4.5 KB	-rw-r--r--	2024-02-02 13:26
ml.py	34.49 KB	-rw-r--r--	2024-02-02 13:26
modeling.py	13.21 KB	-rw-r--r--	2024-02-02 13:26
modula2.py	51.83 KB	-rw-r--r--	2024-02-02 13:26
monte.py	6.14 KB	-rw-r--r--	2024-02-02 13:26
mosel.py	8.97 KB	-rw-r--r--	2024-02-02 13:26
ncl.py	62.46 KB	-rw-r--r--	2024-02-02 13:26
nimrod.py	6.27 KB	-rw-r--r--	2024-02-02 13:26
nit.py	2.66 KB	-rw-r--r--	2024-02-02 13:26
nix.py	4.29 KB	-rw-r--r--	2024-02-02 13:26
oberon.py	4.07 KB	-rw-r--r--	2024-02-02 13:26
objective.py	22.42 KB	-rw-r--r--	2024-02-02 13:26
ooc.py	2.91 KB	-rw-r--r--	2024-02-02 13:26
openscad.py	3.61 KB	-rw-r--r--	2024-02-02 13:26
other.py	1.7 KB	-rw-r--r--	2024-02-02 13:26
parasail.py	2.66 KB	-rw-r--r--	2024-02-02 13:26
parsers.py	25.3 KB	-rw-r--r--	2024-02-02 13:26
pascal.py	30.16 KB	-rw-r--r--	2024-02-02 13:26
pawn.py	7.96 KB	-rw-r--r--	2024-02-02 13:26
perl.py	38.25 KB	-rw-r--r--	2024-02-02 13:26
phix.py	22.71 KB	-rw-r--r--	2024-02-02 13:26
php.py	12.73 KB	-rw-r--r--	2024-02-02 13:26
pointless.py	1.93 KB	-rw-r--r--	2024-02-02 13:26
pony.py	3.17 KB	-rw-r--r--	2024-02-02 13:26
praat.py	12.38 KB	-rw-r--r--	2024-02-02 13:26
procfile.py	1.13 KB	-rw-r--r--	2024-02-02 13:26
prolog.py	12.21 KB	-rw-r--r--	2024-02-02 13:26
promql.py	4.6 KB	-rw-r--r--	2024-02-02 13:26
prql.py	8.54 KB	-rw-r--r--	2024-02-02 13:26
ptx.py	4.4 KB	-rw-r--r--	2024-02-02 13:26
python.py	52.15 KB	-rw-r--r--	2024-02-02 13:26
q.py	6.77 KB	-rw-r--r--	2024-02-02 13:26
qlik.py	3.58 KB	-rw-r--r--	2024-02-02 13:26
qvt.py	5.93 KB	-rw-r--r--	2024-02-02 13:26
r.py	6.04 KB	-rw-r--r--	2024-02-02 13:26
rdf.py	15.61 KB	-rw-r--r--	2024-02-02 13:26
rebol.py	17.82 KB	-rw-r--r--	2024-02-02 13:26
resource.py	2.83 KB	-rw-r--r--	2024-02-02 13:26
ride.py	4.94 KB	-rw-r--r--	2024-02-02 13:26
rita.py	1.1 KB	-rw-r--r--	2024-02-02 13:26
rnc.py	1.93 KB	-rw-r--r--	2024-02-02 13:26
roboconf.py	1.92 KB	-rw-r--r--	2024-02-02 13:26
robotframework.py	18.02 KB	-rw-r--r--	2024-02-02 13:26
ruby.py	22.14 KB	-rw-r--r--	2024-02-02 13:26
rust.py	8.02 KB	-rw-r--r--	2024-02-02 13:26
sas.py	9.18 KB	-rw-r--r--	2024-02-02 13:26
savi.py	4.54 KB	-rw-r--r--	2024-02-02 13:26
scdoc.py	2.47 KB	-rw-r--r--	2024-02-02 13:26
scripting.py	68.37 KB	-rw-r--r--	2024-02-02 13:26
sgf.py	1.94 KB	-rw-r--r--	2024-02-02 13:26
shell.py	35.61 KB	-rw-r--r--	2024-02-02 13:26
sieve.py	2.38 KB	-rw-r--r--	2024-02-02 13:26
slash.py	8.28 KB	-rw-r--r--	2024-02-02 13:26
smalltalk.py	7.04 KB	-rw-r--r--	2024-02-02 13:26
smithy.py	2.6 KB	-rw-r--r--	2024-02-02 13:26
smv.py	2.71 KB	-rw-r--r--	2024-02-02 13:26
snobol.py	2.67 KB	-rw-r--r--	2024-02-02 13:26
solidity.py	3.05 KB	-rw-r--r--	2024-02-02 13:26
sophia.py	3.25 KB	-rw-r--r--	2024-02-02 13:26
special.py	3.33 KB	-rw-r--r--	2024-02-02 13:26
spice.py	2.67 KB	-rw-r--r--	2024-02-02 13:26
sql.py	41.12 KB	-rw-r--r--	2024-02-02 13:26
srcinfo.py	1.65 KB	-rw-r--r--	2024-02-02 13:26
stata.py	6.27 KB	-rw-r--r--	2024-02-02 13:26
supercollider.py	3.61 KB	-rw-r--r--	2024-02-02 13:26
tal.py	2.83 KB	-rw-r--r--	2024-02-02 13:26
tcl.py	5.38 KB	-rw-r--r--	2024-02-02 13:26
teal.py	3.44 KB	-rw-r--r--	2024-02-02 13:26
templates.py	70.91 KB	-rw-r--r--	2024-02-02 13:26
teraterm.py	9.49 KB	-rw-r--r--	2024-02-02 13:26
testing.py	10.51 KB	-rw-r--r--	2024-02-02 13:26
text.py	1 KB	-rw-r--r--	2024-02-02 13:26
textedit.py	7.43 KB	-rw-r--r--	2024-02-02 13:26
textfmts.py	14.95 KB	-rw-r--r--	2024-02-02 13:26
theorem.py	16.27 KB	-rw-r--r--	2024-02-02 13:26
thingsdb.py	4.13 KB	-rw-r--r--	2024-02-02 13:26
tlb.py	1.34 KB	-rw-r--r--	2024-02-02 13:26
tls.py	1.5 KB	-rw-r--r--	2024-02-02 13:26
tnt.py	10.21 KB	-rw-r--r--	2024-02-02 13:26
trafficscript.py	1.44 KB	-rw-r--r--	2024-02-02 13:26
typoscript.py	8.01 KB	-rw-r--r--	2024-02-02 13:26
ul4.py	8.75 KB	-rw-r--r--	2024-02-02 13:26
unicon.py	18.08 KB	-rw-r--r--	2024-02-02 13:26
urbi.py	5.9 KB	-rw-r--r--	2024-02-02 13:26
usd.py	3.43 KB	-rw-r--r--	2024-02-02 13:26
varnish.py	7.1 KB	-rw-r--r--	2024-02-02 13:26
verification.py	3.79 KB	-rw-r--r--	2024-02-02 13:26
verifpal.py	2.6 KB	-rw-r--r--	2024-02-02 13:26
vip.py	5.58 KB	-rw-r--r--	2024-02-02 13:26
vyper.py	5.46 KB	-rw-r--r--	2024-02-02 13:26
web.py	894 B	-rw-r--r--	2024-02-02 13:26
webassembly.py	5.57 KB	-rw-r--r--	2024-02-02 13:26
webidl.py	10.27 KB	-rw-r--r--	2024-02-02 13:26
webmisc.py	39.6 KB	-rw-r--r--	2024-02-02 13:26
wgsl.py	11.64 KB	-rw-r--r--	2024-02-02 13:26
whiley.py	3.92 KB	-rw-r--r--	2024-02-02 13:26
wowtoc.py	3.93 KB	-rw-r--r--	2024-02-02 13:26
wren.py	3.16 KB	-rw-r--r--	2024-02-02 13:26
x10.py	1.88 KB	-rw-r--r--	2024-02-02 13:26
xorg.py	902 B	-rw-r--r--	2024-02-02 13:26
yang.py	4.39 KB	-rw-r--r--	2024-02-02 13:26
yara.py	2.37 KB	-rw-r--r--	2024-02-02 13:26
zig.py	3.86 KB	-rw-r--r--	2024-02-02 13:26

Rename

"""
    pygments.lexers.haskell
    ~~~~~~~~~~~~~~~~~~~~~~~

Lexers for Haskell and related languages.

:copyright: Copyright 2006-2023 by the Pygments team, see AUTHORS.
    :license: BSD, see LICENSE for details.
"""

import re

from pygments.lexer import Lexer, RegexLexer, bygroups, do_insertions, \
    default, include, inherit, line_re
from pygments.token import Text, Comment, Operator, Keyword, Name, String, \
    Number, Punctuation, Generic, Whitespace
from pygments import unistring as uni

__all__ = ['HaskellLexer', 'HspecLexer', 'IdrisLexer', 'AgdaLexer', 'CryptolLexer',
           'LiterateHaskellLexer', 'LiterateIdrisLexer', 'LiterateAgdaLexer',
           'LiterateCryptolLexer', 'KokaLexer']

class HaskellLexer(RegexLexer):
    """
    A Haskell lexer based on the lexemes defined in the Haskell 98 Report.

.. versionadded:: 0.8
    """
    name = 'Haskell'
    url = 'https://www.haskell.org/'
    aliases = ['haskell', 'hs']
    filenames = ['*.hs']
    mimetypes = ['text/x-haskell']

reserved = ('case', 'class', 'data', 'default', 'deriving', 'do', 'else',
                'family', 'if', 'in', 'infix[lr]?', 'instance',
                'let', 'newtype', 'of', 'then', 'type', 'where', '_')
    ascii = ('NUL', 'SOH', '[SE]TX', 'EOT', 'ENQ', 'ACK',
             'BEL', 'BS', 'HT', 'LF', 'VT', 'FF', 'CR', 'S[OI]', 'DLE',
             'DC[1-4]', 'NAK', 'SYN', 'ETB', 'CAN',
             'EM', 'SUB', 'ESC', '[FGRU]S', 'SP', 'DEL')

tokens = {
        'root': [
            # Whitespace:
            (r'\s+', Whitespace),
            # (r'--\s*|.*$', Comment.Doc),
            (r'--(?![!#$%&*+./<=>?@^|_~:\\]).*?$', Comment.Single),
            (r'\{-', Comment.Multiline, 'comment'),
            # Lexemes:
            #  Identifiers
            (r'\bimport\b', Keyword.Reserved, 'import'),
            (r'\bmodule\b', Keyword.Reserved, 'module'),
            (r'\berror\b', Name.Exception),
            (r'\b(%s)(?!\')\b' % '|'.join(reserved), Keyword.Reserved),
            (r"'[^\\]'", String.Char),  # this has to come before the TH quote
            (r'^[_' + uni.Ll + r'][\w\']*', Name.Function),
            (r"'?[_" + uni.Ll + r"][\w']*", Name),
            (r"('')?[" + uni.Lu + r"][\w\']*", Keyword.Type),
            (r"(')[" + uni.Lu + r"][\w\']*", Keyword.Type),
            (r"(')\[[^\]]*\]", Keyword.Type),  # tuples and lists get special treatment in GHC
            (r"(')$[^)]*$", Keyword.Type),  # ..
            (r"(')[:!#$%&*+.\\/<=>?@^|~-]+", Keyword.Type),  # promoted type operators
            #  Operators
            (r'\\(?![:!#$%&*+.\\/<=>?@^|~-]+)', Name.Function),  # lambda operator
            (r'(<-|::|->|=>|=)(?![:!#$%&*+.\\/<=>?@^|~-]+)', Operator.Word),  # specials
            (r':[:!#$%&*+.\\/<=>?@^|~-]*', Keyword.Type),  # Constructor operators
            (r'[:!#$%&*+.\\/<=>?@^|~-]+', Operator),  # Other operators
            #  Numbers
            (r'0[xX]_*[\da-fA-F](_*[\da-fA-F])*_*[pP][+-]?\d(_*\d)*', Number.Float),
            (r'0[xX]_*[\da-fA-F](_*[\da-fA-F])*\.[\da-fA-F](_*[\da-fA-F])*'
             r'(_*[pP][+-]?\d(_*\d)*)?', Number.Float),
            (r'\d(_*\d)*_*[eE][+-]?\d(_*\d)*', Number.Float),
            (r'\d(_*\d)*\.\d(_*\d)*(_*[eE][+-]?\d(_*\d)*)?', Number.Float),
            (r'0[bB]_*[01](_*[01])*', Number.Bin),
            (r'0[oO]_*[0-7](_*[0-7])*', Number.Oct),
            (r'0[xX]_*[\da-fA-F](_*[\da-fA-F])*', Number.Hex),
            (r'\d(_*\d)*', Number.Integer),
            #  Character/String Literals
            (r"'", String.Char, 'character'),
            (r'"', String, 'string'),
            #  Special
            (r'\[\]', Keyword.Type),
            (r'', Name.Builtin),
            (r'[][(),;`{}]', Punctuation),
        ],
        'import': [
            # Import statements
            (r'\s+', Whitespace),
            (r'"', String, 'string'),
            # after "funclist" state
            (r'\)', Punctuation, '#pop'),
            (r'qualified\b', Keyword),
            # import X as Y
            (r'([' + uni.Lu + r'][\w.]*)(\s+)(as)(\s+)([' + uni.Lu + r'][\w.]*)',
             bygroups(Name.Namespace, Whitespace, Keyword, Whitespace, Name), '#pop'),
            # import X hiding (functions)
            (r'([' + uni.Lu + r'][\w.]*)(\s+)(hiding)(\s+)(\()',
             bygroups(Name.Namespace, Whitespace, Keyword, Whitespace, Punctuation), 'funclist'),
            # import X (functions)
            (r'([' + uni.Lu + r'][\w.]*)(\s+)($)',
             bygroups(Name.Namespace, Whitespace, Punctuation), 'funclist'),
            # import X
            (r'[\w.]+', Name.Namespace, '#pop'),
        ],
        'module': [
            (r'\s+', Whitespace),
            (r'([' + uni.Lu + r'][\w.]*)(\s+)(\()',
             bygroups(Name.Namespace, Whitespace, Punctuation), 'funclist'),
            (r'[' + uni.Lu + r'][\w.]*', Name.Namespace, '#pop'),
        ],
        'funclist': [
            (r'\s+', Whitespace),
            (r'[' + uni.Lu + r']\w*', Keyword.Type),
            (r'(_[\w\']+|[' + uni.Ll + r'][\w\']*)', Name.Function),
            (r'--(?![!#$%&*+./<=>?@^|_~:\\]).*?$', Comment.Single),
            (r'\{-', Comment.Multiline, 'comment'),
            (r',', Punctuation),
            (r'[:!#$%&*+.\\/<=>?@^|~-]+', Operator),
            # (HACK, but it makes sense to push two instances, believe me)
            (r'\(', Punctuation, ('funclist', 'funclist')),
            (r'$', Punctuation, '#pop:2'),
        ],
        # NOTE: the next four states are shared in the AgdaLexer; make sure
        # any change is compatible with Agda as well or copy over and change
        'comment': [
            # Multiline Comments
            (r'[^-{}]+', Comment.Multiline),
            (r'\{-', Comment.Multiline, '#push'),
            (r'-\}', Comment.Multiline, '#pop'),
            (r'[-{}]', Comment.Multiline),
        ],
        'character': [
            # Allows multi-chars, incorrectly.
            (r"[^\\']'", String.Char, '#pop'),
            (r"\\", String.Escape, 'escape'),
            ("'", String.Char, '#pop'),
        ],
        'string': [
            (r'[^\\"]+', String),
            (r"\\", String.Escape, 'escape'),
            ('"', String, '#pop'),
        ],
        'escape': [
            (r'[abfnrtv"\'&\\]', String.Escape, '#pop'),
            (r'\^[][' + uni.Lu + r'@^_]', String.Escape, '#pop'),
            ('|'.join(ascii), String.Escape, '#pop'),
            (r'o[0-7]+', String.Escape, '#pop'),
            (r'x[\da-fA-F]+', String.Escape, '#pop'),
            (r'\d+', String.Escape, '#pop'),
            (r'(\s+)(\\)', bygroups(Whitespace, String.Escape), '#pop'),
        ],
    }

class HspecLexer(HaskellLexer):
    """
    A Haskell lexer with support for Hspec constructs.

.. versionadded:: 2.4.0
    """

name = 'Hspec'
    aliases = ['hspec']
    filenames = ['*Spec.hs']
    mimetypes = []

tokens = {
        'root': [
            (r'(it)(\s*)("[^"]*")', bygroups(Text, Whitespace, String.Doc)),
            (r'(describe)(\s*)("[^"]*")', bygroups(Text, Whitespace, String.Doc)),
            (r'(context)(\s*)("[^"]*")', bygroups(Text, Whitespace, String.Doc)),
            inherit,
        ],
    }

class IdrisLexer(RegexLexer):
    """
    A lexer for the dependently typed programming language Idris.

Based on the Haskell and Agda Lexer.

.. versionadded:: 2.0
    """
    name = 'Idris'
    url = 'https://www.idris-lang.org/'
    aliases = ['idris', 'idr']
    filenames = ['*.idr']
    mimetypes = ['text/x-idris']

reserved = ('case', 'class', 'data', 'default', 'using', 'do', 'else',
                'if', 'in', 'infix[lr]?', 'instance', 'rewrite', 'auto',
                'namespace', 'codata', 'mutual', 'private', 'public', 'abstract',
                'total', 'partial',
                'interface', 'implementation', 'export', 'covering', 'constructor',
                'let', 'proof', 'of', 'then', 'static', 'where', '_', 'with',
                'pattern',  'term',  'syntax', 'prefix',
                'postulate', 'parameters', 'record', 'dsl', 'impossible', 'implicit',
                'tactics', 'intros', 'intro', 'compute', 'refine', 'exact', 'trivial')

ascii = ('NUL', 'SOH', '[SE]TX', 'EOT', 'ENQ', 'ACK',
             'BEL', 'BS', 'HT', 'LF', 'VT', 'FF', 'CR', 'S[OI]', 'DLE',
             'DC[1-4]', 'NAK', 'SYN', 'ETB', 'CAN',
             'EM', 'SUB', 'ESC', '[FGRU]S', 'SP', 'DEL')

directives = ('lib', 'link', 'flag', 'include', 'hide', 'freeze', 'access',
                  'default', 'logging', 'dynamic', 'name', 'error_handlers', 'language')

tokens = {
        'root': [
            # Comments
            (r'^(\s*)(%%(%s))' % '|'.join(directives),
             bygroups(Whitespace, Keyword.Reserved)),
            (r'(\s*)(--(?![!#$%&*+./<=>?@^|_~:\\]).*?)$', bygroups(Whitespace, Comment.Single)),
            (r'(\s*)(\|{3}.*?)$', bygroups(Whitespace, Comment.Single)),
            (r'(\s*)(\{-)', bygroups(Whitespace, Comment.Multiline), 'comment'),
            # Declaration
            (r'^(\s*)([^\s(){}]+)(\s*)(:)(\s*)',
             bygroups(Whitespace, Name.Function, Whitespace, Operator.Word, Whitespace)),
            #  Identifiers
            (r'\b(%s)(?!\')\b' % '|'.join(reserved), Keyword.Reserved),
            (r'(import|module)(\s+)', bygroups(Keyword.Reserved, Whitespace), 'module'),
            (r"('')?[A-Z][\w\']*", Keyword.Type),
            (r'[a-z][\w\']*', Text),
            #  Special Symbols
            (r'(<-|::|->|=>|=)', Operator.Word),  # specials
            (r'([(){}\[\]:!#$%&*+.\\/<=>?@^|~-]+)', Operator.Word),  # specials
            #  Numbers
            (r'\d+[eE][+-]?\d+', Number.Float),
            (r'\d+\.\d+([eE][+-]?\d+)?', Number.Float),
            (r'0[xX][\da-fA-F]+', Number.Hex),
            (r'\d+', Number.Integer),
            # Strings
            (r"'", String.Char, 'character'),
            (r'"', String, 'string'),
            (r'[^\s(){}]+', Text),
            (r'\s+?', Whitespace),  # Whitespace
        ],
        'module': [
            (r'\s+', Whitespace),
            (r'([A-Z][\w.]*)(\s+)($)',
             bygroups(Name.Namespace, Whitespace, Punctuation), 'funclist'),
            (r'[A-Z][\w.]*', Name.Namespace, '#pop'),
        ],
        'funclist': [
            (r'\s+', Whitespace),
            (r'[A-Z]\w*', Keyword.Type),
            (r'(_[\w\']+|[a-z][\w\']*)', Name.Function),
            (r'--.*$', Comment.Single),
            (r'\{-', Comment.Multiline, 'comment'),
            (r',', Punctuation),
            (r'[:!#$%&*+.\\/<=>?@^|~-]+', Operator),
            # (HACK, but it makes sense to push two instances, believe me)
            (r'\(', Punctuation, ('funclist', 'funclist')),
            (r'$', Punctuation, '#pop:2'),
        ],
        # NOTE: the next four states are shared in the AgdaLexer; make sure
        # any change is compatible with Agda as well or copy over and change
        'comment': [
            # Multiline Comments
            (r'[^-{}]+', Comment.Multiline),
            (r'\{-', Comment.Multiline, '#push'),
            (r'-\}', Comment.Multiline, '#pop'),
            (r'[-{}]', Comment.Multiline),
        ],
        'character': [
            # Allows multi-chars, incorrectly.
            (r"[^\\']", String.Char),
            (r"\\", String.Escape, 'escape'),
            ("'", String.Char, '#pop'),
        ],
        'string': [
            (r'[^\\"]+', String),
            (r"\\", String.Escape, 'escape'),
            ('"', String, '#pop'),
        ],
        'escape': [
            (r'[abfnrtv"\'&\\]', String.Escape, '#pop'),
            (r'\^[][A-Z@^_]', String.Escape, '#pop'),
            ('|'.join(ascii), String.Escape, '#pop'),
            (r'o[0-7]+', String.Escape, '#pop'),
            (r'x[\da-fA-F]+', String.Escape, '#pop'),
            (r'\d+', String.Escape, '#pop'),
            (r'(\s+)(\\)', bygroups(Whitespace, String.Escape), '#pop')
        ],
    }

class AgdaLexer(RegexLexer):
    """
    For the Agda dependently typed functional programming language and
    proof assistant.

.. versionadded:: 2.0
    """

name = 'Agda'
    url = 'http://wiki.portal.chalmers.se/agda/pmwiki.php'
    aliases = ['agda']
    filenames = ['*.agda']
    mimetypes = ['text/x-agda']

reserved = (
        'abstract', 'codata', 'coinductive', 'constructor', 'data', 'do',
        'eta-equality', 'field', 'forall', 'hiding', 'in', 'inductive', 'infix',
        'infixl', 'infixr', 'instance', 'interleaved', 'let', 'macro', 'mutual',
        'no-eta-equality', 'open', 'overlap', 'pattern', 'postulate', 'primitive',
        'private', 'quote', 'quoteTerm', 'record', 'renaming', 'rewrite',
        'syntax', 'tactic', 'unquote', 'unquoteDecl', 'unquoteDef', 'using',
        'variable', 'where', 'with',
    )

tokens = {
        'root': [
            # Declaration
            (r'^(\s*)([^\s(){}]+)(\s*)(:)(\s*)',
             bygroups(Whitespace, Name.Function, Whitespace,
                      Operator.Word, Whitespace)),
            # Comments
            (r'--(?![!#$%&*+./<=>?@^|_~:\\]).*?$', Comment.Single),
            (r'\{-', Comment.Multiline, 'comment'),
            # Holes
            (r'\{!', Comment.Directive, 'hole'),
            # Lexemes:
            #  Identifiers
            (r'\b(%s)(?!\')\b' % '|'.join(reserved), Keyword.Reserved),
            (r'(import|module)(\s+)', bygroups(Keyword.Reserved, Whitespace),
             'module'),
            (r'\b(Set|Prop)[\u2080-\u2089]*\b', Keyword.Type),
            #  Special Symbols
            (r'($|$|\{|\})', Operator),
            (r'(\.{1,3}|\||\u03BB|\u2200|\u2192|:|=|->)', Operator.Word),
            #  Numbers
            (r'\d+[eE][+-]?\d+', Number.Float),
            (r'\d+\.\d+([eE][+-]?\d+)?', Number.Float),
            (r'0[xX][\da-fA-F]+', Number.Hex),
            (r'\d+', Number.Integer),
            # Strings
            (r"'", String.Char, 'character'),
            (r'"', String, 'string'),
            (r'[^\s(){}]+', Text),
            (r'\s+?', Whitespace),  # Whitespace
        ],
        'hole': [
            # Holes
            (r'[^!{}]+', Comment.Directive),
            (r'\{!', Comment.Directive, '#push'),
            (r'!\}', Comment.Directive, '#pop'),
            (r'[!{}]', Comment.Directive),
        ],
        'module': [
            (r'\{-', Comment.Multiline, 'comment'),
            (r'[a-zA-Z][\w.\']*', Name, '#pop'),
            (r'[\W0-9_]+', Text)
        ],
        'comment': HaskellLexer.tokens['comment'],
        'character': HaskellLexer.tokens['character'],
        'string': HaskellLexer.tokens['string'],
        'escape': HaskellLexer.tokens['escape']
    }

class CryptolLexer(RegexLexer):
    """
    FIXME: A Cryptol2 lexer based on the lexemes defined in the Haskell 98 Report.

.. versionadded:: 2.0
    """
    name = 'Cryptol'
    aliases = ['cryptol', 'cry']
    filenames = ['*.cry']
    mimetypes = ['text/x-cryptol']

reserved = ('Arith', 'Bit', 'Cmp', 'False', 'Inf', 'True', 'else',
                'export', 'extern', 'fin', 'if', 'import', 'inf', 'lg2',
                'max', 'min', 'module', 'newtype', 'pragma', 'property',
                'then', 'type', 'where', 'width')
    ascii = ('NUL', 'SOH', '[SE]TX', 'EOT', 'ENQ', 'ACK',
             'BEL', 'BS', 'HT', 'LF', 'VT', 'FF', 'CR', 'S[OI]', 'DLE',
             'DC[1-4]', 'NAK', 'SYN', 'ETB', 'CAN',
             'EM', 'SUB', 'ESC', '[FGRU]S', 'SP', 'DEL')

tokens = {
        'root': [
            # Whitespace:
            (r'\s+', Whitespace),
            # (r'--\s*|.*$', Comment.Doc),
            (r'//.*$', Comment.Single),
            (r'/\*', Comment.Multiline, 'comment'),
            # Lexemes:
            #  Identifiers
            (r'\bimport\b', Keyword.Reserved, 'import'),
            (r'\bmodule\b', Keyword.Reserved, 'module'),
            (r'\berror\b', Name.Exception),
            (r'\b(%s)(?!\')\b' % '|'.join(reserved), Keyword.Reserved),
            (r'^[_a-z][\w\']*', Name.Function),
            (r"'?[_a-z][\w']*", Name),
            (r"('')?[A-Z][\w\']*", Keyword.Type),
            #  Operators
            (r'\$?![:!#$%&*+.\\/<=>?@^|~-]+)', Name.Function),  # lambda operator
            (r'(<-|::|->|=>|=)(?![:!#$%&*+.\\/<=>?@^|~-]+)', Operator.Word),  # specials
            (r':[:!#$%&*+.\\/<=>?@^|~-]*', Keyword.Type),  # Constructor operators
            (r'[:!#$%&*+.\\/<=>?@^|~-]+', Operator),  # Other operators
            #  Numbers
            (r'\d+[eE][+-]?\d+', Number.Float),
            (r'\d+\.\d+([eE][+-]?\d+)?', Number.Float),
            (r'0[oO][0-7]+', Number.Oct),
            (r'0[xX][\da-fA-F]+', Number.Hex),
            (r'\d+', Number.Integer),
            #  Character/String Literals
            (r"'", String.Char, 'character'),
            (r'"', String, 'string'),
            #  Special
            (r'\[\]', Keyword.Type),
            (r'\($', Name.Builtin),
            (r'[][(),;`{}]', Punctuation),
        ],
        'import': [
            # Import statements
            (r'\s+', Whitespace),
            (r'"', String, 'string'),
            # after "funclist" state
            (r'\)', Punctuation, '#pop'),
            (r'qualified\b', Keyword),
            # import X as Y
            (r'([A-Z][\w.]*)(\s+)(as)(\s+)([A-Z][\w.]*)',
             bygroups(Name.Namespace, Whitespace, Keyword, Whitespace, Name), '#pop'),
            # import X hiding (functions)
            (r'([A-Z][\w.]*)(\s+)(hiding)(\s+)(\()',
             bygroups(Name.Namespace, Whitespace, Keyword, Whitespace, Punctuation), 'funclist'),
            # import X (functions)
            (r'([A-Z][\w.]*)(\s+)($)',
             bygroups(Name.Namespace, Whitespace, Punctuation), 'funclist'),
            # import X
            (r'[\w.]+', Name.Namespace, '#pop'),
        ],
        'module': [
            (r'\s+', Whitespace),
            (r'([A-Z][\w.]*)(\s+)(\()',
             bygroups(Name.Namespace, Whitespace, Punctuation), 'funclist'),
            (r'[A-Z][\w.]*', Name.Namespace, '#pop'),
        ],
        'funclist': [
            (r'\s+', Whitespace),
            (r'[A-Z]\w*', Keyword.Type),
            (r'(_[\w\']+|[a-z][\w\']*)', Name.Function),
            # TODO: these don't match the comments in docs, remove.
            # (r'--(?![!#$%&*+./<=>?@^|_~:\\]).*?$', Comment.Single),
            # (r'{-', Comment.Multiline, 'comment'),
            (r',', Punctuation),
            (r'[:!#$%&*+.\\/<=>?@^|~-]+', Operator),
            # (HACK, but it makes sense to push two instances, believe me)
            (r'\(', Punctuation, ('funclist', 'funclist')),
            (r'$', Punctuation, '#pop:2'),
        ],
        'comment': [
            # Multiline Comments
            (r'[^/*]+', Comment.Multiline),
            (r'/\*', Comment.Multiline, '#push'),
            (r'\*/', Comment.Multiline, '#pop'),
            (r'[*/]', Comment.Multiline),
        ],
        'character': [
            # Allows multi-chars, incorrectly.
            (r"[^\\']'", String.Char, '#pop'),
            (r"\\", String.Escape, 'escape'),
            ("'", String.Char, '#pop'),
        ],
        'string': [
            (r'[^\\"]+', String),
            (r"\\", String.Escape, 'escape'),
            ('"', String, '#pop'),
        ],
        'escape': [
            (r'[abfnrtv"\'&\\]', String.Escape, '#pop'),
            (r'\^[][A-Z@^_]', String.Escape, '#pop'),
            ('|'.join(ascii), String.Escape, '#pop'),
            (r'o[0-7]+', String.Escape, '#pop'),
            (r'x[\da-fA-F]+', String.Escape, '#pop'),
            (r'\d+', String.Escape, '#pop'),
            (r'(\s+)(\\)', bygroups(Whitespace, String.Escape), '#pop'),
        ],
    }

EXTRA_KEYWORDS = {'join', 'split', 'reverse', 'transpose', 'width',
                      'length', 'tail', '<<', '>>', '<<<', '>>>', 'const',
                      'reg', 'par', 'seq', 'ASSERT', 'undefined', 'error',
                      'trace'}

def get_tokens_unprocessed(self, text):
        stack = ['root']
        for index, token, value in \
                RegexLexer.get_tokens_unprocessed(self, text, stack):
            if token is Name and value in self.EXTRA_KEYWORDS:
                yield index, Name.Builtin, value
            else:
                yield index, token, value

class LiterateLexer(Lexer):
    """
    Base class for lexers of literate file formats based on LaTeX or Bird-style
    (prefixing each code line with ">").

Additional options accepted:

`litstyle`
        If given, must be ``"bird"`` or ``"latex"``.  If not given, the style
        is autodetected: if the first non-whitespace character in the source
        is a backslash or percent character, LaTeX is assumed, else Bird.
    """

bird_re = re.compile(r'(>[ \t]*)(.*\n)')

def __init__(self, baselexer, **options):
        self.baselexer = baselexer
        Lexer.__init__(self, **options)

def get_tokens_unprocessed(self, text):
        style = self.options.get('litstyle')
        if style is None:
            style = (text.lstrip()[0:1] in '%\\') and 'latex' or 'bird'

code = ''
        insertions = []
        if style == 'bird':
            # bird-style
            for match in line_re.finditer(text):
                line = match.group()
                m = self.bird_re.match(line)
                if m:
                    insertions.append((len(code),
                                       [(0, Comment.Special, m.group(1))]))
                    code += m.group(2)
                else:
                    insertions.append((len(code), [(0, Text, line)]))
        else:
            # latex-style
            from pygments.lexers.markup import TexLexer
            lxlexer = TexLexer(**self.options)
            codelines = 0
            latex = ''
            for match in line_re.finditer(text):
                line = match.group()
                if codelines:
                    if line.lstrip().startswith('\\end{code}'):
                        codelines = 0
                        latex += line
                    else:
                        code += line
                elif line.lstrip().startswith('\\begin{code}'):
                    codelines = 1
                    latex += line
                    insertions.append((len(code),
                                       list(lxlexer.get_tokens_unprocessed(latex))))
                    latex = ''
                else:
                    latex += line
            insertions.append((len(code),
                               list(lxlexer.get_tokens_unprocessed(latex))))
        yield from do_insertions(insertions, self.baselexer.get_tokens_unprocessed(code))

class LiterateHaskellLexer(LiterateLexer):
    """
    For Literate Haskell (Bird-style or LaTeX) source.

Additional options accepted:

.. versionadded:: 0.9
    """
    name = 'Literate Haskell'
    aliases = ['literate-haskell', 'lhaskell', 'lhs']
    filenames = ['*.lhs']
    mimetypes = ['text/x-literate-haskell']

def __init__(self, **options):
        hslexer = HaskellLexer(**options)
        LiterateLexer.__init__(self, hslexer, **options)

class LiterateIdrisLexer(LiterateLexer):
    """
    For Literate Idris (Bird-style or LaTeX) source.

Additional options accepted:

.. versionadded:: 2.0
    """
    name = 'Literate Idris'
    aliases = ['literate-idris', 'lidris', 'lidr']
    filenames = ['*.lidr']
    mimetypes = ['text/x-literate-idris']

def __init__(self, **options):
        hslexer = IdrisLexer(**options)
        LiterateLexer.__init__(self, hslexer, **options)

class LiterateAgdaLexer(LiterateLexer):
    """
    For Literate Agda source.

Additional options accepted:

.. versionadded:: 2.0
    """
    name = 'Literate Agda'
    aliases = ['literate-agda', 'lagda']
    filenames = ['*.lagda']
    mimetypes = ['text/x-literate-agda']

def __init__(self, **options):
        agdalexer = AgdaLexer(**options)
        LiterateLexer.__init__(self, agdalexer, litstyle='latex', **options)

class LiterateCryptolLexer(LiterateLexer):
    """
    For Literate Cryptol (Bird-style or LaTeX) source.

Additional options accepted:

.. versionadded:: 2.0
    """
    name = 'Literate Cryptol'
    aliases = ['literate-cryptol', 'lcryptol', 'lcry']
    filenames = ['*.lcry']
    mimetypes = ['text/x-literate-cryptol']

def __init__(self, **options):
        crylexer = CryptolLexer(**options)
        LiterateLexer.__init__(self, crylexer, **options)

class KokaLexer(RegexLexer):
    """
    Lexer for the Koka language.

.. versionadded:: 1.6
    """

name = 'Koka'
    url = 'https://koka-lang.github.io/koka/doc/index.html'
    aliases = ['koka']
    filenames = ['*.kk', '*.kki']
    mimetypes = ['text/x-koka']

keywords = [
        'infix', 'infixr', 'infixl',
        'type', 'cotype', 'rectype', 'alias',
        'struct', 'con',
        'fun', 'function', 'val', 'var',
        'external',
        'if', 'then', 'else', 'elif', 'return', 'match',
        'private', 'public', 'private',
        'module', 'import', 'as',
        'include', 'inline',
        'rec',
        'try', 'yield', 'enum',
        'interface', 'instance',
    ]

# keywords that are followed by a type
    typeStartKeywords = [
        'type', 'cotype', 'rectype', 'alias', 'struct', 'enum',
    ]

# keywords valid in a type
    typekeywords = [
        'forall', 'exists', 'some', 'with',
    ]

# builtin names and special names
    builtin = [
        'for', 'while', 'repeat',
        'foreach', 'foreach-indexed',
        'error', 'catch', 'finally',
        'cs', 'js', 'file', 'ref', 'assigned',
    ]

# symbols that can be in an operator
    symbols = r'[$%&*+@!/\\^~=.:\-?|<>]+'

# symbol boundary: an operator keyword should not be followed by any of these
    sboundary = '(?!' + symbols + ')'

# name boundary: a keyword should not be followed by any of these
    boundary = r'(?![\w/])'

# koka token abstractions
    tokenType = Name.Attribute
    tokenTypeDef = Name.Class
    tokenConstructor = Generic.Emph

# main lexer
    tokens = {
        'root': [
            include('whitespace'),

# go into type mode
            (r'::?' + sboundary, tokenType, 'type'),
            (r'(alias)(\s+)([a-z]\w*)?', bygroups(Keyword, Whitespace, tokenTypeDef),
             'alias-type'),
            (r'(struct)(\s+)([a-z]\w*)?', bygroups(Keyword, Whitespace, tokenTypeDef),
             'struct-type'),
            ((r'(%s)' % '|'.join(typeStartKeywords)) +
             r'(\s+)([a-z]\w*)?', bygroups(Keyword, Whitespace, tokenTypeDef),
             'type'),

# special sequences of tokens (we use ?: for non-capturing group as
            # required by 'bygroups')
            (r'(module)(\s+)(interface(?=\s))?(\s+)?((?:[a-z]\w*/)*[a-z]\w*)',
             bygroups(Keyword, Whitespace, Keyword, Whitespace, Name.Namespace)),
            (r'(import)(\s+)((?:[a-z]\w*/)*[a-z]\w*)'
             r'(?:(\s*)(=)(\s*)(qualified)?(\s*)'
             r'((?:[a-z]\w*/)*[a-z]\w*))?',
             bygroups(Keyword, Whitespace, Name.Namespace, Whitespace, Keyword, Whitespace,
                      Keyword, Whitespace, Name.Namespace)),

(r'^(public|private)?(\s+)?(function|fun|val)'
             r'(\s+)([a-z]\w*|$(?:' + symbols + r'|/)$)',
             bygroups(Keyword, Whitespace, Keyword, Whitespace, Name.Function)),
            (r'^(?:(public|private)(?=\s+external))?((?<!^)\s+)?(external)(\s+)(inline(?=\s))?(\s+)?'
             r'([a-z]\w*|$(?:' + symbols + r'|/)$)',
             bygroups(Keyword, Whitespace, Keyword, Whitespace, Keyword, Whitespace, Name.Function)),

# names
            (r'((?:[a-z]\w*/)*)([A-Z]\w*)',
             bygroups(Name.Namespace, tokenConstructor)),
            (r'((?:[a-z]\w*/)*)([a-z]\w*)', bygroups(Name.Namespace, Name)),
            (r'((?:[a-z]\w*/)*)($(?:' + symbols + r'|/)$)',
             bygroups(Name.Namespace, Name)),
            (r'_\w*', Name.Variable),

# literal string
            (r'@"', String.Double, 'litstring'),

# operators
            (symbols + "|/(?![*/])", Operator),
            (r'`', Operator),
            (r'[{}()\[\];,]', Punctuation),

# literals. No check for literal characters with len > 1
            (r'[0-9]+\.[0-9]+([eE][\-+]?[0-9]+)?', Number.Float),
            (r'0[xX][0-9a-fA-F]+', Number.Hex),
            (r'[0-9]+', Number.Integer),

(r"'", String.Char, 'char'),
            (r'"', String.Double, 'string'),
        ],

# type started by alias
        'alias-type': [
            (r'=', Keyword),
            include('type')
        ],

# type started by struct
        'struct-type': [
            (r'(?=$(?!,*$))', Punctuation, '#pop'),
            include('type')
        ],

# type started by colon
        'type': [
            (r'[(\[<]', tokenType, 'type-nested'),
            include('type-content')
        ],

# type nested in brackets: can contain parameters, comma etc.
        'type-nested': [
            (r'[)\]>]', tokenType, '#pop'),
            (r'[(\[<]', tokenType, 'type-nested'),
            (r',', tokenType),
            (r'([a-z]\w*)(\s*)(:)(?!:)',
             bygroups(Name, Whitespace, tokenType)),  # parameter name
            include('type-content')
        ],

# shared contents of a type
        'type-content': [
            include('whitespace'),

# keywords
            (r'(%s)' % '|'.join(typekeywords) + boundary, Keyword),
            (r'(?=((%s)' % '|'.join(keywords) + boundary + '))',
             Keyword, '#pop'),  # need to match because names overlap...

# kinds
            (r'[EPHVX]' + boundary, tokenType),

# type names
            (r'[a-z][0-9]*(?![\w/])', tokenType),
            (r'_\w*', tokenType.Variable),  # Generic.Emph
            (r'((?:[a-z]\w*/)*)([A-Z]\w*)',
             bygroups(Name.Namespace, tokenType)),
            (r'((?:[a-z]\w*/)*)([a-z]\w+)',
             bygroups(Name.Namespace, tokenType)),

# type keyword operators
            (r'::|->|[.:|]', tokenType),

# catchall
            default('#pop')
        ],

# comments and literals
        'whitespace': [
            (r'(\n\s*)(#.*)$', bygroups(Whitespace, Comment.Preproc)),
            (r'\s+', Whitespace),
            (r'/\*', Comment.Multiline, 'comment'),
            (r'//.*$', Comment.Single)
        ],
        'comment': [
            (r'[^/*]+', Comment.Multiline),
            (r'/\*', Comment.Multiline, '#push'),
            (r'\*/', Comment.Multiline, '#pop'),
            (r'[*/]', Comment.Multiline),
        ],
        'litstring': [
            (r'[^"]+', String.Double),
            (r'""', String.Escape),
            (r'"', String.Double, '#pop'),
        ],
        'string': [
            (r'[^\\"\n]+', String.Double),
            include('escape-sequence'),
            (r'["\n]', String.Double, '#pop'),
        ],
        'char': [
            (r'[^\\\'\n]+', String.Char),
            include('escape-sequence'),
            (r'[\'\n]', String.Char, '#pop'),
        ],
        'escape-sequence': [
            (r'\\[nrt\\"\']', String.Escape),
            (r'\\x[0-9a-fA-F]{2}', String.Escape),
            (r'\\u[0-9a-fA-F]{4}', String.Escape),
            # Yes, \U literals are 6 hex digits.
            (r'\\U[0-9a-fA-F]{6}', String.Escape)
        ]
    }