mirror of
https://github.com/cheat/cheat.git
synced 2024-11-16 08:58:28 +01:00
55b18b4897
commit 95479c8ad744db48386a5c78e54ef8da80e9120b
Author: Chris Lane <chris@chris-allen-lane.com>
Date: Wed Apr 28 12:26:32 2021 -0400
chore(version): bump version to 4.2.1
commit 6956f51cae
Author: Chris Lane <chris@chris-allen-lane.com>
Date: Wed Apr 28 12:24:21 2021 -0400
fix(Makefile): `vendor-update`
Update the `vendor-update` build target to run `go mod vendor` after
updating dependencies.
commit 0aca411279
Author: Chris Lane <chris@chris-allen-lane.com>
Date: Wed Apr 28 12:23:24 2021 -0400
chore(deps): update dependencies
commit e847956b02
Author: Chris Lane <chris@chris-allen-lane.com>
Date: Wed Apr 28 08:26:51 2021 -0400
chore(deps): build updates
- Upgrade `go` to `1.16.3`
- Attempt to fix build errors regarding dependencies
70 lines
2.5 KiB
Go
70 lines
2.5 KiB
Go
package o
|
|
|
|
import (
|
|
. "github.com/alecthomas/chroma" // nolint
|
|
"github.com/alecthomas/chroma/lexers/internal"
|
|
)
|
|
|
|
// Ocaml lexer.
|
|
var Ocaml = internal.Register(MustNewLazyLexer(
|
|
&Config{
|
|
Name: "OCaml",
|
|
Aliases: []string{"ocaml"},
|
|
Filenames: []string{"*.ml", "*.mli", "*.mll", "*.mly"},
|
|
MimeTypes: []string{"text/x-ocaml"},
|
|
},
|
|
ocamlRules,
|
|
))
|
|
|
|
func ocamlRules() Rules {
|
|
return Rules{
|
|
"escape-sequence": {
|
|
{`\\[\\"\'ntbr]`, LiteralStringEscape, nil},
|
|
{`\\[0-9]{3}`, LiteralStringEscape, nil},
|
|
{`\\x[0-9a-fA-F]{2}`, LiteralStringEscape, nil},
|
|
},
|
|
"root": {
|
|
{`\s+`, Text, nil},
|
|
{`false|true|\(\)|\[\]`, NameBuiltinPseudo, nil},
|
|
{`\b([A-Z][\w\']*)(?=\s*\.)`, NameNamespace, Push("dotted")},
|
|
{`\b([A-Z][\w\']*)`, NameClass, nil},
|
|
{`\(\*(?![)])`, Comment, Push("comment")},
|
|
{`\b(as|assert|begin|class|constraint|do|done|downto|else|end|exception|external|false|for|fun|function|functor|if|in|include|inherit|initializer|lazy|let|match|method|module|mutable|new|object|of|open|private|raise|rec|sig|struct|then|to|true|try|type|value|val|virtual|when|while|with)\b`, Keyword, nil},
|
|
{"(~|\\}|\\|]|\\||\\{<|\\{|`|_|]|\\[\\||\\[>|\\[<|\\[|\\?\\?|\\?|>\\}|>]|>|=|<-|<|;;|;|:>|:=|::|:|\\.\\.|\\.|->|-\\.|-|,|\\+|\\*|\\)|\\(|&&|&|#|!=)", Operator, nil},
|
|
{`([=<>@^|&+\*/$%-]|[!?~])?[!$%&*+\./:<=>?@^|~-]`, Operator, nil},
|
|
{`\b(and|asr|land|lor|lsl|lxor|mod|or)\b`, OperatorWord, nil},
|
|
{`\b(unit|int|float|bool|string|char|list|array)\b`, KeywordType, nil},
|
|
{`[^\W\d][\w']*`, Name, nil},
|
|
{`-?\d[\d_]*(.[\d_]*)?([eE][+\-]?\d[\d_]*)`, LiteralNumberFloat, nil},
|
|
{`0[xX][\da-fA-F][\da-fA-F_]*`, LiteralNumberHex, nil},
|
|
{`0[oO][0-7][0-7_]*`, LiteralNumberOct, nil},
|
|
{`0[bB][01][01_]*`, LiteralNumberBin, nil},
|
|
{`\d[\d_]*`, LiteralNumberInteger, nil},
|
|
{`'(?:(\\[\\\"'ntbr ])|(\\[0-9]{3})|(\\x[0-9a-fA-F]{2}))'`, LiteralStringChar, nil},
|
|
{`'.'`, LiteralStringChar, nil},
|
|
{`'`, Keyword, nil},
|
|
{`"`, LiteralStringDouble, Push("string")},
|
|
{`[~?][a-z][\w\']*:`, NameVariable, nil},
|
|
},
|
|
"comment": {
|
|
{`[^(*)]+`, Comment, nil},
|
|
{`\(\*`, Comment, Push()},
|
|
{`\*\)`, Comment, Pop(1)},
|
|
{`[(*)]`, Comment, nil},
|
|
},
|
|
"string": {
|
|
{`[^\\"]+`, LiteralStringDouble, nil},
|
|
Include("escape-sequence"),
|
|
{`\\\n`, LiteralStringDouble, nil},
|
|
{`"`, LiteralStringDouble, Pop(1)},
|
|
},
|
|
"dotted": {
|
|
{`\s+`, Text, nil},
|
|
{`\.`, Punctuation, nil},
|
|
{`[A-Z][\w\']*(?=\s*\.)`, NameNamespace, nil},
|
|
{`[A-Z][\w\']*`, NameClass, Pop(1)},
|
|
{`[a-z_][\w\']*`, Name, Pop(1)},
|
|
Default(Pop(1)),
|
|
},
|
|
}
|
|
}
|