1package f
2
3import (
4 . "github.com/alecthomas/chroma" // nolint
5 "github.com/alecthomas/chroma/lexers/internal"
6)
7
8// Fsharp lexer.
9var Fsharp = internal.Register(MustNewLexer(
10 &Config{
11 Name: "FSharp",
12 Aliases: []string{"fsharp"},
13 Filenames: []string{"*.fs", "*.fsi"},
14 MimeTypes: []string{"text/x-fsharp"},
15 },
16 Rules{
17 "escape-sequence": {
18 {`\\[\\"\'ntbrafv]`, LiteralStringEscape, nil},
19 {`\\[0-9]{3}`, LiteralStringEscape, nil},
20 {`\\u[0-9a-fA-F]{4}`, LiteralStringEscape, nil},
21 {`\\U[0-9a-fA-F]{8}`, LiteralStringEscape, nil},
22 },
23 "root": {
24 {`\s+`, Text, nil},
25 {`\(\)|\[\]`, NameBuiltinPseudo, nil},
26 {`\b(?<!\.)([A-Z][\w\']*)(?=\s*\.)`, NameNamespace, Push("dotted")},
27 {`\b([A-Z][\w\']*)`, Name, nil},
28 {`///.*?\n`, LiteralStringDoc, nil},
29 {`//.*?\n`, CommentSingle, nil},
30 {`\(\*(?!\))`, Comment, Push("comment")},
31 {`@"`, LiteralString, Push("lstring")},
32 {`"""`, LiteralString, Push("tqs")},
33 {`"`, LiteralString, Push("string")},
34 {`\b(open|module)(\s+)([\w.]+)`, ByGroups(Keyword, Text, NameNamespace), nil},
35 {`\b(let!?)(\s+)(\w+)`, ByGroups(Keyword, Text, NameVariable), nil},
36 {`\b(type)(\s+)(\w+)`, ByGroups(Keyword, Text, NameClass), nil},
37 {`\b(member|override)(\s+)(\w+)(\.)(\w+)`, ByGroups(Keyword, Text, Name, Punctuation, NameFunction), nil},
38 {`\b(abstract|as|assert|base|begin|class|default|delegate|do!|do|done|downcast|downto|elif|else|end|exception|extern|false|finally|for|function|fun|global|if|inherit|inline|interface|internal|in|lazy|let!|let|match|member|module|mutable|namespace|new|null|of|open|override|private|public|rec|return!|return|select|static|struct|then|to|true|try|type|upcast|use!|use|val|void|when|while|with|yield!|yield|atomic|break|checked|component|const|constraint|constructor|continue|eager|event|external|fixed|functor|include|method|mixin|object|parallel|process|protected|pure|sealed|tailcall|trait|virtual|volatile)\b`, Keyword, nil},
39 {"``([^`\\n\\r\\t]|`[^`\\n\\r\\t])+``", Name, nil},
40 {"(!=|#|&&|&|\\(|\\)|\\*|\\+|,|-\\.|->|-|\\.\\.|\\.|::|:=|:>|:|;;|;|<-|<\\]|<|>\\]|>|\\?\\?|\\?|\\[<|\\[\\||\\[|\\]|_|`|\\{|\\|\\]|\\||\\}|~|<@@|<@|=|@>|@@>)", Operator, nil},
41 {`([=<>@^|&+\*/$%-]|[!?~])?[!$%&*+\./:<=>?@^|~-]`, Operator, nil},
42 {`\b(and|or|not)\b`, OperatorWord, nil},
43 {`\b(sbyte|byte|char|nativeint|unativeint|float32|single|float|double|int8|uint8|int16|uint16|int32|uint32|int64|uint64|decimal|unit|bool|string|list|exn|obj|enum)\b`, KeywordType, nil},
44 {`#[ \t]*(if|endif|else|line|nowarn|light|\d+)\b.*?\n`, CommentPreproc, nil},
45 {`[^\W\d][\w']*`, Name, nil},
46 {`\d[\d_]*[uU]?[yslLnQRZINGmM]?`, LiteralNumberInteger, nil},
47 {`0[xX][\da-fA-F][\da-fA-F_]*[uU]?[yslLn]?[fF]?`, LiteralNumberHex, nil},
48 {`0[oO][0-7][0-7_]*[uU]?[yslLn]?`, LiteralNumberOct, nil},
49 {`0[bB][01][01_]*[uU]?[yslLn]?`, LiteralNumberBin, nil},
50 {`-?\d[\d_]*(.[\d_]*)?([eE][+\-]?\d[\d_]*)[fFmM]?`, LiteralNumberFloat, nil},
51 {`'(?:(\\[\\\"'ntbr ])|(\\[0-9]{3})|(\\x[0-9a-fA-F]{2}))'B?`, LiteralStringChar, nil},
52 {`'.'`, LiteralStringChar, nil},
53 {`'`, Keyword, nil},
54 {`@?"`, LiteralStringDouble, Push("string")},
55 {`[~?][a-z][\w\']*:`, NameVariable, nil},
56 },
57 "dotted": {
58 {`\s+`, Text, nil},
59 {`\.`, Punctuation, nil},
60 {`[A-Z][\w\']*(?=\s*\.)`, NameNamespace, nil},
61 {`[A-Z][\w\']*`, Name, Pop(1)},
62 {`[a-z_][\w\']*`, Name, Pop(1)},
63 Default(Pop(1)),
64 },
65 "comment": {
66 {`[^(*)@"]+`, Comment, nil},
67 {`\(\*`, Comment, Push()},
68 {`\*\)`, Comment, Pop(1)},
69 {`@"`, LiteralString, Push("lstring")},
70 {`"""`, LiteralString, Push("tqs")},
71 {`"`, LiteralString, Push("string")},
72 {`[(*)@]`, Comment, nil},
73 },
74 "string": {
75 {`[^\\"]+`, LiteralString, nil},
76 Include("escape-sequence"),
77 {`\\\n`, LiteralString, nil},
78 {`\n`, LiteralString, nil},
79 {`"B?`, LiteralString, Pop(1)},
80 },
81 "lstring": {
82 {`[^"]+`, LiteralString, nil},
83 {`\n`, LiteralString, nil},
84 {`""`, LiteralString, nil},
85 {`"B?`, LiteralString, Pop(1)},
86 },
87 "tqs": {
88 {`[^"]+`, LiteralString, nil},
89 {`\n`, LiteralString, nil},
90 {`"""B?`, LiteralString, Pop(1)},
91 {`"`, LiteralString, nil},
92 },
93 },
94))