1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
package p
import (
. "github.com/alecthomas/chroma" // nolint
"github.com/alecthomas/chroma/lexers/internal"
)
// Prolog lexer.
var Prolog = internal.Register(MustNewLazyLexer(
&Config{
Name: "Prolog",
Aliases: []string{"prolog"},
Filenames: []string{"*.ecl", "*.prolog", "*.pro", "*.pl"},
MimeTypes: []string{"text/x-prolog"},
},
prologRules,
))
func prologRules() Rules {
return Rules{
"root": {
{`/\*`, CommentMultiline, Push("nested-comment")},
{`%.*`, CommentSingle, nil},
{`0\'.`, LiteralStringChar, nil},
{`0b[01]+`, LiteralNumberBin, nil},
{`0o[0-7]+`, LiteralNumberOct, nil},
{`0x[0-9a-fA-F]+`, LiteralNumberHex, nil},
{`\d\d?\'[a-zA-Z0-9]+`, LiteralNumberInteger, nil},
{`(\d+\.\d*|\d*\.\d+)([eE][+-]?[0-9]+)?`, LiteralNumberFloat, nil},
{`\d+`, LiteralNumberInteger, nil},
{`[\[\](){}|.,;!]`, Punctuation, nil},
{`:-|-->`, Punctuation, nil},
{`"(?:\\x[0-9a-fA-F]+\\|\\u[0-9a-fA-F]{4}|\\U[0-9a-fA-F]{8}|\\[0-7]+\\|\\["\nabcefnrstv]|[^\\"])*"`, LiteralStringDouble, nil},
{`'(?:''|[^'])*'`, LiteralStringAtom, nil},
{`is\b`, Operator, nil},
{`(<|>|=<|>=|==|=:=|=|/|//|\*|\+|-)(?=\s|[a-zA-Z0-9\[])`, Operator, nil},
{`(mod|div|not)\b`, Operator, nil},
{`_`, Keyword, nil},
{`([a-z]+)(:)`, ByGroups(NameNamespace, Punctuation), nil},
{`([a-zÀ---][\w$À---]*)(\s*)(:-|-->)`, ByGroups(NameFunction, Text, Operator), nil},
{`([a-zÀ---][\w$À---]*)(\s*)(\()`, ByGroups(NameFunction, Text, Punctuation), nil},
{`[a-zÀ---][\w$À---]*`, LiteralStringAtom, nil},
{`[#&*+\-./:<=>?@\\^~¡-¿‐-〿]+`, LiteralStringAtom, nil},
{`[A-Z_]\w*`, NameVariable, nil},
{`\s+|[ --]`, Text, nil},
},
"nested-comment": {
{`\*/`, CommentMultiline, Pop(1)},
{`/\*`, CommentMultiline, Push()},
{`[^*/]+`, CommentMultiline, nil},
{`[*/]`, CommentMultiline, nil},
},
}
}
|
