Stanislav N. aka pztrn
48d43ca097
Pagination now works. Temporary hardcoded 10 pastes per page, will be put in configuration later. Maybe. From now user will receive readable error message if error occured. Started to work on syntax highlighting, tried to make lexers detection work but apparently to no avail.
52 lines
1.9 KiB
Go
52 lines
1.9 KiB
Go
package p
|
||
|
||
import (
|
||
. "github.com/alecthomas/chroma" // nolint
|
||
"github.com/alecthomas/chroma/lexers/internal"
|
||
)
|
||
|
||
// Prolog lexer.
|
||
var Prolog = internal.Register(MustNewLexer(
|
||
&Config{
|
||
Name: "Prolog",
|
||
Aliases: []string{"prolog"},
|
||
Filenames: []string{"*.ecl", "*.prolog", "*.pro", "*.pl"},
|
||
MimeTypes: []string{"text/x-prolog"},
|
||
},
|
||
Rules{
|
||
"root": {
|
||
{`^#.*`, CommentSingle, nil},
|
||
{`/\*`, 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},
|
||
},
|
||
},
|
||
))
|