fsharp.go

Documentation: github.com/alecthomas/chroma/lexers/f

     1  package f
     2  
     3  import (
     4  	. "github.com/alecthomas/chroma" // nolint
     5  	"github.com/alecthomas/chroma/lexers/internal"
     6  )
     7  
     8  // Fsharp lexer.
     9  var Fsharp = internal.Register(MustNewLazyLexer(
    10  	&Config{
    11  		Name:      "FSharp",
    12  		Aliases:   []string{"fsharp"},
    13  		Filenames: []string{"*.fs", "*.fsi"},
    14  		MimeTypes: []string{"text/x-fsharp"},
    15  	},
    16  	fsharpRules,
    17  ))
    18  
    19  func fsharpRules() Rules {
    20  	return Rules{
    21  		"escape-sequence": {
    22  			{`\\[\\"\'ntbrafv]`, LiteralStringEscape, nil},
    23  			{`\\[0-9]{3}`, LiteralStringEscape, nil},
    24  			{`\\u[0-9a-fA-F]{4}`, LiteralStringEscape, nil},
    25  			{`\\U[0-9a-fA-F]{8}`, LiteralStringEscape, nil},
    26  		},
    27  		"root": {
    28  			{`\s+`, Text, nil},
    29  			{`\(\)|\[\]`, NameBuiltinPseudo, nil},
    30  			{`\b(?<!\.)([A-Z][\w\']*)(?=\s*\.)`, NameNamespace, Push("dotted")},
    31  			{`\b([A-Z][\w\']*)`, Name, nil},
    32  			{`///.*?\n`, LiteralStringDoc, nil},
    33  			{`//.*?\n`, CommentSingle, nil},
    34  			{`\(\*(?!\))`, Comment, Push("comment")},
    35  			{`@"`, LiteralString, Push("lstring")},
    36  			{`"""`, LiteralString, Push("tqs")},
    37  			{`"`, LiteralString, Push("string")},
    38  			{`\b(open|module)(\s+)([\w.]+)`, ByGroups(Keyword, Text, NameNamespace), nil},
    39  			{`\b(let!?)(\s+)(\w+)`, ByGroups(Keyword, Text, NameVariable), nil},
    40  			{`\b(type)(\s+)(\w+)`, ByGroups(Keyword, Text, NameClass), nil},
    41  			{`\b(member|override)(\s+)(\w+)(\.)(\w+)`, ByGroups(Keyword, Text, Name, Punctuation, NameFunction), nil},
    42  			{`\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},
    43  			{"``([^`\\n\\r\\t]|`[^`\\n\\r\\t])+``", Name, nil},
    44  			{"(!=|#|&&|&|\\(|\\)|\\*|\\+|,|-\\.|->|-|\\.\\.|\\.|::|:=|:>|:|;;|;|<-|<\\]|<|>\\]|>|\\?\\?|\\?|\\[<|\\[\\||\\[|\\]|_|`|\\{|\\|\\]|\\||\\}|~|<@@|<@|=|@>|@@>)", Operator, nil},
    45  			{`([=<>@^|&+\*/$%-]|[!?~])?[!$%&*+\./:<=>?@^|~-]`, Operator, nil},
    46  			{`\b(and|or|not)\b`, OperatorWord, nil},
    47  			{`\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},
    48  			{`#[ \t]*(if|endif|else|line|nowarn|light|\d+)\b.*?\n`, CommentPreproc, nil},
    49  			{`[^\W\d][\w']*`, Name, nil},
    50  			{`\d[\d_]*[uU]?[yslLnQRZINGmM]?`, LiteralNumberInteger, nil},
    51  			{`0[xX][\da-fA-F][\da-fA-F_]*[uU]?[yslLn]?[fF]?`, LiteralNumberHex, nil},
    52  			{`0[oO][0-7][0-7_]*[uU]?[yslLn]?`, LiteralNumberOct, nil},
    53  			{`0[bB][01][01_]*[uU]?[yslLn]?`, LiteralNumberBin, nil},
    54  			{`-?\d[\d_]*(.[\d_]*)?([eE][+\-]?\d[\d_]*)[fFmM]?`, LiteralNumberFloat, nil},
    55  			{`'(?:(\\[\\\"'ntbr ])|(\\[0-9]{3})|(\\x[0-9a-fA-F]{2}))'B?`, LiteralStringChar, nil},
    56  			{`'.'`, LiteralStringChar, nil},
    57  			{`'`, Keyword, nil},
    58  			{`@?"`, LiteralStringDouble, Push("string")},
    59  			{`[~?][a-z][\w\']*:`, NameVariable, nil},
    60  		},
    61  		"dotted": {
    62  			{`\s+`, Text, nil},
    63  			{`\.`, Punctuation, nil},
    64  			{`[A-Z][\w\']*(?=\s*\.)`, NameNamespace, nil},
    65  			{`[A-Z][\w\']*`, Name, Pop(1)},
    66  			{`[a-z_][\w\']*`, Name, Pop(1)},
    67  			Default(Pop(1)),
    68  		},
    69  		"comment": {
    70  			{`[^(*)@"]+`, Comment, nil},
    71  			{`\(\*`, Comment, Push()},
    72  			{`\*\)`, Comment, Pop(1)},
    73  			{`@"`, LiteralString, Push("lstring")},
    74  			{`"""`, LiteralString, Push("tqs")},
    75  			{`"`, LiteralString, Push("string")},
    76  			{`[(*)@]`, Comment, nil},
    77  		},
    78  		"string": {
    79  			{`[^\\"]+`, LiteralString, nil},
    80  			Include("escape-sequence"),
    81  			{`\\\n`, LiteralString, nil},
    82  			{`\n`, LiteralString, nil},
    83  			{`"B?`, LiteralString, Pop(1)},
    84  		},
    85  		"lstring": {
    86  			{`[^"]+`, LiteralString, nil},
    87  			{`\n`, LiteralString, nil},
    88  			{`""`, LiteralString, nil},
    89  			{`"B?`, LiteralString, Pop(1)},
    90  		},
    91  		"tqs": {
    92  			{`[^"]+`, LiteralString, nil},
    93  			{`\n`, LiteralString, nil},
    94  			{`"""B?`, LiteralString, Pop(1)},
    95  			{`"`, LiteralString, nil},
    96  		},
    97  	}
    98  }
    99
View as plain text