Mercurial > vim
annotate runtime/syntax/haskell.vim @ 11543:57c452316da1 v8.0.0654
patch 8.0.0654: no warning for text after :endfunction
commit https://github.com/vim/vim/commit/663bb2331626944cea156374858131fcd323b9e9
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Jun 22 19:12:10 2017 +0200
patch 8.0.0654: no warning for text after :endfunction
Problem: Text found after :endfunction is silently ignored.
Solution: Give a warning if 'verbose' is set. When | or \n are used,
execute the text as a command.
| author | Christian Brabandt <cb@256bit.org> |
|---|---|
| date | Thu, 22 Jun 2017 19:15:04 +0200 |
| parents | bd6ff5246c71 |
| children | a6d3e2081544 |
| rev | line source |
|---|---|
| 7 | 1 " Vim syntax file |
| 2 " Language: Haskell | |
| 3 " Maintainer: Haskell Cafe mailinglist <haskell-cafe@haskell.org> | |
| 11473 | 4 " Last Change: 2017 Jun 04 |
| 7 | 5 " Original Author: John Williams <jrw@pobox.com> |
| 6 " | |
| 7 " Thanks to Ryan Crumley for suggestions and John Meacham for | |
| 8 " pointing out bugs. Also thanks to Ian Lynagh and Donald Bruce Stewart | |
| 9 " for providing the inspiration for the inclusion of the handling | |
| 10 " of C preprocessor directives, and for pointing out a bug in the | |
| 11 " end-of-line comment handling. | |
| 12 " | |
| 13 " Options-assign a value to these variables to turn the option on: | |
| 14 " | |
| 15 " hs_highlight_delimiters - Highlight delimiter characters--users | |
| 16 " with a light-colored background will | |
| 17 " probably want to turn this on. | |
| 18 " hs_highlight_boolean - Treat True and False as keywords. | |
| 19 " hs_highlight_types - Treat names of primitive types as keywords. | |
| 20 " hs_highlight_more_types - Treat names of other common types as keywords. | |
| 21 " hs_highlight_debug - Highlight names of debugging functions. | |
| 22 " hs_allow_hash_operator - Don't highlight seemingly incorrect C | |
| 23 " preprocessor directives but assume them to be | |
| 24 " operators | |
| 25 " | |
| 26 " 2004 Feb 19: Added C preprocessor directive handling, corrected eol comments | |
| 27 " cleaned away literate haskell support (should be entirely in | |
| 28 " lhaskell.vim) | |
| 29 " 2004 Feb 20: Cleaned up C preprocessor directive handling, fixed single \ | |
| 30 " in eol comment character class | |
| 31 " 2004 Feb 23: Made the leading comments somewhat clearer where it comes | |
| 32 " to attribution of work. | |
| 2034 | 33 " 2008 Dec 15: Added comments as contained element in import statements |
| 7 | 34 |
|
10048
43efa4f5a8ea
commit https://github.com/vim/vim/commit/89bcfda6834aba724d12554a34b9ed49f5789fd5
Christian Brabandt <cb@256bit.org>
parents:
2034
diff
changeset
|
35 " quit when a syntax file was already loaded |
|
43efa4f5a8ea
commit https://github.com/vim/vim/commit/89bcfda6834aba724d12554a34b9ed49f5789fd5
Christian Brabandt <cb@256bit.org>
parents:
2034
diff
changeset
|
36 if exists("b:current_syntax") |
| 7 | 37 finish |
| 38 endif | |
| 39 | |
| 40 " (Qualified) identifiers (no default highlighting) | |
| 41 syn match ConId "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=\<[A-Z][a-zA-Z0-9_']*\>" | |
| 42 syn match VarId "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=\<[a-z][a-zA-Z0-9_']*\>" | |
| 43 | |
| 44 " Infix operators--most punctuation characters and any (qualified) identifier | |
| 45 " enclosed in `backquotes`. An operator starting with : is a constructor, | |
| 46 " others are variables (e.g. functions). | |
| 47 syn match hsVarSym "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=[-!#$%&\*\+/<=>\?@\\^|~.][-!#$%&\*\+/<=>\?@\\^|~:.]*" | |
| 48 syn match hsConSym "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=:[-!#$%&\*\+./<=>\?@\\^|~:]*" | |
| 49 syn match hsVarSym "`\(\<[A-Z][a-zA-Z0-9_']*\.\)\=[a-z][a-zA-Z0-9_']*`" | |
| 50 syn match hsConSym "`\(\<[A-Z][a-zA-Z0-9_']*\.\)\=[A-Z][a-zA-Z0-9_']*`" | |
| 51 | |
| 52 " Reserved symbols--cannot be overloaded. | |
| 53 syn match hsDelimiter "(\|)\|\[\|\]\|,\|;\|_\|{\|}" | |
| 54 | |
| 55 " Strings and constants | |
| 56 syn match hsSpecialChar contained "\\\([0-9]\+\|o[0-7]\+\|x[0-9a-fA-F]\+\|[\"\\'&\\abfnrtv]\|^[A-Z^_\[\\\]]\)" | |
| 57 syn match hsSpecialChar contained "\\\(NUL\|SOH\|STX\|ETX\|EOT\|ENQ\|ACK\|BEL\|BS\|HT\|LF\|VT\|FF\|CR\|SO\|SI\|DLE\|DC1\|DC2\|DC3\|DC4\|NAK\|SYN\|ETB\|CAN\|EM\|SUB\|ESC\|FS\|GS\|RS\|US\|SP\|DEL\)" | |
| 58 syn match hsSpecialCharError contained "\\&\|'''\+" | |
| 59 syn region hsString start=+"+ skip=+\\\\\|\\"+ end=+"+ contains=hsSpecialChar | |
| 60 syn match hsCharacter "[^a-zA-Z0-9_']'\([^\\]\|\\[^']\+\|\\'\)'"lc=1 contains=hsSpecialChar,hsSpecialCharError | |
| 61 syn match hsCharacter "^'\([^\\]\|\\[^']\+\|\\'\)'" contains=hsSpecialChar,hsSpecialCharError | |
| 62 syn match hsNumber "\<[0-9]\+\>\|\<0[xX][0-9a-fA-F]\+\>\|\<0[oO][0-7]\+\>" | |
| 63 syn match hsFloat "\<[0-9]\+\.[0-9]\+\([eE][-+]\=[0-9]\+\)\=\>" | |
| 64 | |
| 11473 | 65 " Keyword definitions. These must be patterns instead of keywords |
| 7 | 66 " because otherwise they would match as keywords at the start of a |
| 67 " "literate" comment (see lhs.vim). | |
| 68 syn match hsModule "\<module\>" | |
| 2034 | 69 syn match hsImport "\<import\>.*"he=s+6 contains=hsImportMod,hsLineComment,hsBlockComment |
| 7 | 70 syn match hsImportMod contained "\<\(as\|qualified\|hiding\)\>" |
| 71 syn match hsInfix "\<\(infix\|infixl\|infixr\)\>" | |
| 72 syn match hsStructure "\<\(class\|data\|deriving\|instance\|default\|where\)\>" | |
| 73 syn match hsTypedef "\<\(type\|newtype\)\>" | |
| 74 syn match hsStatement "\<\(do\|case\|of\|let\|in\)\>" | |
| 75 syn match hsConditional "\<\(if\|then\|else\)\>" | |
| 76 | |
| 77 " Not real keywords, but close. | |
| 78 if exists("hs_highlight_boolean") | |
| 79 " Boolean constants from the standard prelude. | |
| 80 syn match hsBoolean "\<\(True\|False\)\>" | |
| 81 endif | |
| 82 if exists("hs_highlight_types") | |
| 83 " Primitive types from the standard prelude and libraries. | |
| 84 syn match hsType "\<\(Int\|Integer\|Char\|Bool\|Float\|Double\|IO\|Void\|Addr\|Array\|String\)\>" | |
| 85 endif | |
| 86 if exists("hs_highlight_more_types") | |
| 87 " Types from the standard prelude libraries. | |
| 88 syn match hsType "\<\(Maybe\|Either\|Ratio\|Complex\|Ordering\|IOError\|IOResult\|ExitCode\)\>" | |
| 89 syn match hsMaybe "\<Nothing\>" | |
| 90 syn match hsExitCode "\<\(ExitSuccess\)\>" | |
| 91 syn match hsOrdering "\<\(GT\|LT\|EQ\)\>" | |
| 92 endif | |
| 93 if exists("hs_highlight_debug") | |
| 94 " Debugging functions from the standard prelude. | |
| 95 syn match hsDebug "\<\(undefined\|error\|trace\)\>" | |
| 96 endif | |
| 97 | |
| 98 | |
| 99 " Comments | |
| 100 syn match hsLineComment "---*\([^-!#$%&\*\+./<=>\?@\\^|~].*\)\?$" | |
| 101 syn region hsBlockComment start="{-" end="-}" contains=hsBlockComment | |
| 102 syn region hsPragma start="{-#" end="#-}" | |
| 103 | |
| 104 " C Preprocessor directives. Shamelessly ripped from c.vim and trimmed | |
| 105 " First, see whether to flag directive-like lines or not | |
| 106 if (!exists("hs_allow_hash_operator")) | |
| 107 syn match cError display "^\s*\(%:\|#\).*$" | |
| 108 endif | |
| 109 " Accept %: for # (C99) | |
| 110 syn region cPreCondit start="^\s*\(%:\|#\)\s*\(if\|ifdef\|ifndef\|elif\)\>" skip="\\$" end="$" end="//"me=s-1 contains=cComment,cCppString,cCommentError | |
| 111 syn match cPreCondit display "^\s*\(%:\|#\)\s*\(else\|endif\)\>" | |
| 112 syn region cCppOut start="^\s*\(%:\|#\)\s*if\s\+0\+\>" end=".\@=\|$" contains=cCppOut2 | |
| 113 syn region cCppOut2 contained start="0" end="^\s*\(%:\|#\)\s*\(endif\>\|else\>\|elif\>\)" contains=cCppSkip | |
| 114 syn region cCppSkip contained start="^\s*\(%:\|#\)\s*\(if\>\|ifdef\>\|ifndef\>\)" skip="\\$" end="^\s*\(%:\|#\)\s*endif\>" contains=cCppSkip | |
| 115 syn region cIncluded display contained start=+"+ skip=+\\\\\|\\"+ end=+"+ | |
| 116 syn match cIncluded display contained "<[^>]*>" | |
| 117 syn match cInclude display "^\s*\(%:\|#\)\s*include\>\s*["<]" contains=cIncluded | |
| 118 syn cluster cPreProcGroup contains=cPreCondit,cIncluded,cInclude,cDefine,cCppOut,cCppOut2,cCppSkip,cCommentStartError | |
| 119 syn region cDefine matchgroup=cPreCondit start="^\s*\(%:\|#\)\s*\(define\|undef\)\>" skip="\\$" end="$" | |
| 120 syn region cPreProc matchgroup=cPreCondit start="^\s*\(%:\|#\)\s*\(pragma\>\|line\>\|warning\>\|warn\>\|error\>\)" skip="\\$" end="$" keepend | |
| 121 | |
| 122 syn region cComment matchgroup=cCommentStart start="/\*" end="\*/" contains=cCommentStartError,cSpaceError contained | |
| 123 syntax match cCommentError display "\*/" contained | |
| 124 syntax match cCommentStartError display "/\*"me=e-1 contained | |
| 125 syn region cCppString start=+L\="+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end='$' contains=cSpecial contained | |
| 126 | |
| 127 " Define the default highlighting. | |
|
10048
43efa4f5a8ea
commit https://github.com/vim/vim/commit/89bcfda6834aba724d12554a34b9ed49f5789fd5
Christian Brabandt <cb@256bit.org>
parents:
2034
diff
changeset
|
128 " Only when an item doesn't have highlighting yet |
| 7 | 129 |
|
10051
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
130 hi def link hsModule hsStructure |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
131 hi def link hsImport Include |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
132 hi def link hsImportMod hsImport |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
133 hi def link hsInfix PreProc |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
134 hi def link hsStructure Structure |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
135 hi def link hsStatement Statement |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
136 hi def link hsConditional Conditional |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
137 hi def link hsSpecialChar SpecialChar |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
138 hi def link hsTypedef Typedef |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
139 hi def link hsVarSym hsOperator |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
140 hi def link hsConSym hsOperator |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
141 hi def link hsOperator Operator |
|
10048
43efa4f5a8ea
commit https://github.com/vim/vim/commit/89bcfda6834aba724d12554a34b9ed49f5789fd5
Christian Brabandt <cb@256bit.org>
parents:
2034
diff
changeset
|
142 if exists("hs_highlight_delimiters") |
|
43efa4f5a8ea
commit https://github.com/vim/vim/commit/89bcfda6834aba724d12554a34b9ed49f5789fd5
Christian Brabandt <cb@256bit.org>
parents:
2034
diff
changeset
|
143 " Some people find this highlighting distracting. |
|
10051
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
144 hi def link hsDelimiter Delimiter |
|
10048
43efa4f5a8ea
commit https://github.com/vim/vim/commit/89bcfda6834aba724d12554a34b9ed49f5789fd5
Christian Brabandt <cb@256bit.org>
parents:
2034
diff
changeset
|
145 endif |
|
10051
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
146 hi def link hsSpecialCharError Error |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
147 hi def link hsString String |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
148 hi def link hsCharacter Character |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
149 hi def link hsNumber Number |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
150 hi def link hsFloat Float |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
151 hi def link hsConditional Conditional |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
152 hi def link hsLiterateComment hsComment |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
153 hi def link hsBlockComment hsComment |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
154 hi def link hsLineComment hsComment |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
155 hi def link hsComment Comment |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
156 hi def link hsPragma SpecialComment |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
157 hi def link hsBoolean Boolean |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
158 hi def link hsType Type |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
159 hi def link hsMaybe hsEnumConst |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
160 hi def link hsOrdering hsEnumConst |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
161 hi def link hsEnumConst Constant |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
162 hi def link hsDebug Debug |
| 7 | 163 |
|
10051
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
164 hi def link cCppString hsString |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
165 hi def link cCommentStart hsComment |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
166 hi def link cCommentError hsError |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
167 hi def link cCommentStartError hsError |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
168 hi def link cInclude Include |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
169 hi def link cPreProc PreProc |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
170 hi def link cDefine Macro |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
171 hi def link cIncluded hsString |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
172 hi def link cError Error |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
173 hi def link cPreCondit PreCondit |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
174 hi def link cComment Comment |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
175 hi def link cCppSkip cCppOut |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
176 hi def link cCppOut2 cCppOut |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
177 hi def link cCppOut Comment |
| 7 | 178 |
| 179 | |
| 180 let b:current_syntax = "haskell" | |
| 181 | |
| 182 " Options for vi: ts=8 sw=2 sts=2 nowrap noexpandtab ft=vim |