PageRenderTime 52ms CodeModel.GetById 17ms RepoModel.GetById 1ms app.codeStats 0ms

/vim73/syntax/haskell.vim

https://gitlab.com/shinvdu/vim_win_config
Vim Script | 194 lines | 120 code | 17 blank | 57 comment | 10 complexity | ae7d95ec578d2cb30c42bde3f1bcbff6 MD5 | raw file
    

  1. " Vim syntax file

    2. 

  2. " Language:		Haskell

    3. 

  3. " Maintainer:		Haskell Cafe mailinglist <haskell-cafe@haskell.org>

    4. 

  4. " Last Change:		2008 Dec 15

    5. 

  5. " Original Author:	John Williams <jrw@pobox.com>

    6. 

  6. "

    7. 

  7. " Thanks to Ryan Crumley for suggestions and John Meacham for

    8. 

  8. " pointing out bugs. Also thanks to Ian Lynagh and Donald Bruce Stewart

    9. 

  9. " for providing the inspiration for the inclusion of the handling

    10. 

  10. " of C preprocessor directives, and for pointing out a bug in the

    11. 

  11. " end-of-line comment handling.

    12. 

  12. "

    13. 

  13. " Options-assign a value to these variables to turn the option on:

    14. 

  14. "

    15. 

  15. " hs_highlight_delimiters - Highlight delimiter characters--users

    16. 

  16. "			    with a light-colored background will

    17. 

  17. "			    probably want to turn this on.

    18. 

  18. " hs_highlight_boolean - Treat True and False as keywords.

    19. 

  19. " hs_highlight_types - Treat names of primitive types as keywords.

    20. 

  20. " hs_highlight_more_types - Treat names of other common types as keywords.

    21. 

  21. " hs_highlight_debug - Highlight names of debugging functions.

    22. 

  22. " hs_allow_hash_operator - Don't highlight seemingly incorrect C

    23. 

  23. "			   preprocessor directives but assume them to be

    24. 

  24. "			   operators

    25. 

  25. "

    26. 

  26. " 2004 Feb 19: Added C preprocessor directive handling, corrected eol comments

    27. 

  27. "	       cleaned away literate haskell support (should be entirely in

    28. 

  28. "	       lhaskell.vim)

    29. 

  29. " 2004 Feb 20: Cleaned up C preprocessor directive handling, fixed single \

    30. 

  30. "	       in eol comment character class

    31. 

  31. " 2004 Feb 23: Made the leading comments somewhat clearer where it comes

    32. 

  32. "	       to attribution of work.

    33. 

  33. " 2008 Dec 15: Added comments as contained element in import statements

    34. 

  34. 

    35. 

  35. " Remove any old syntax stuff hanging around

    36. 

  36. if version < 600

    37. 

  37.   syn clear

    38. 

  38. elseif exists("b:current_syntax")

    39. 

  39.   finish

    40. 

  40. endif

    41. 

  41. 

    42. 

  42. " (Qualified) identifiers (no default highlighting)

    43. 

  43. syn match ConId "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=\<[A-Z][a-zA-Z0-9_']*\>"

    44. 

  44. syn match VarId "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=\<[a-z][a-zA-Z0-9_']*\>"

    45. 

  45. 

    46. 

  46. " Infix operators--most punctuation characters and any (qualified) identifier

    47. 

  47. " enclosed in `backquotes`. An operator starting with : is a constructor,

    48. 

  48. " others are variables (e.g. functions).

    49. 

  49. syn match hsVarSym "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=[-!#$%&\*\+/<=>\?@\\^|~.][-!#$%&\*\+/<=>\?@\\^|~:.]*"

    50. 

  50. syn match hsConSym "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=:[-!#$%&\*\+./<=>\?@\\^|~:]*"

    51. 

  51. syn match hsVarSym "`\(\<[A-Z][a-zA-Z0-9_']*\.\)\=[a-z][a-zA-Z0-9_']*`"

    52. 

  52. syn match hsConSym "`\(\<[A-Z][a-zA-Z0-9_']*\.\)\=[A-Z][a-zA-Z0-9_']*`"

    53. 

  53. 

    54. 

  54. " Reserved symbols--cannot be overloaded.

    55. 

  55. syn match hsDelimiter  "(\|)\|\[\|\]\|,\|;\|_\|{\|}"

    56. 

  56. 

    57. 

  57. " Strings and constants

    58. 

  58. syn match   hsSpecialChar	contained "\\\([0-9]\+\|o[0-7]\+\|x[0-9a-fA-F]\+\|[\"\\'&\\abfnrtv]\|^[A-Z^_\[\\\]]\)"

    59. 

  59. 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\)"

    60. 

  60. syn match   hsSpecialCharError	contained "\\&\|'''\+"

    61. 

  61. syn region  hsString		start=+"+  skip=+\\\\\|\\"+  end=+"+  contains=hsSpecialChar

    62. 

  62. syn match   hsCharacter		"[^a-zA-Z0-9_']'\([^\\]\|\\[^']\+\|\\'\)'"lc=1 contains=hsSpecialChar,hsSpecialCharError

    63. 

  63. syn match   hsCharacter		"^'\([^\\]\|\\[^']\+\|\\'\)'" contains=hsSpecialChar,hsSpecialCharError

    64. 

  64. syn match   hsNumber		"\<[0-9]\+\>\|\<0[xX][0-9a-fA-F]\+\>\|\<0[oO][0-7]\+\>"

    65. 

  65. syn match   hsFloat		"\<[0-9]\+\.[0-9]\+\([eE][-+]\=[0-9]\+\)\=\>"

    66. 

  66. 

    67. 

  67. " Keyword definitions. These must be patters instead of keywords

    68. 

  68. " because otherwise they would match as keywords at the start of a

    69. 

  69. " "literate" comment (see lhs.vim).

    70. 

  70. syn match hsModule		"\<module\>"

    71. 

  71. syn match hsImport		"\<import\>.*"he=s+6 contains=hsImportMod,hsLineComment,hsBlockComment

    72. 

  72. syn match hsImportMod		contained "\<\(as\|qualified\|hiding\)\>"

    73. 

  73. syn match hsInfix		"\<\(infix\|infixl\|infixr\)\>"

    74. 

  74. syn match hsStructure		"\<\(class\|data\|deriving\|instance\|default\|where\)\>"

    75. 

  75. syn match hsTypedef		"\<\(type\|newtype\)\>"

    76. 

  76. syn match hsStatement		"\<\(do\|case\|of\|let\|in\)\>"

    77. 

  77. syn match hsConditional		"\<\(if\|then\|else\)\>"

    78. 

  78. 

    79. 

  79. " Not real keywords, but close.

    80. 

  80. if exists("hs_highlight_boolean")

    81. 

  81.   " Boolean constants from the standard prelude.

    82. 

  82.   syn match hsBoolean "\<\(True\|False\)\>"

    83. 

  83. endif

    84. 

  84. if exists("hs_highlight_types")

    85. 

  85.   " Primitive types from the standard prelude and libraries.

    86. 

  86.   syn match hsType "\<\(Int\|Integer\|Char\|Bool\|Float\|Double\|IO\|Void\|Addr\|Array\|String\)\>"

    87. 

  87. endif

    88. 

  88. if exists("hs_highlight_more_types")

    89. 

  89.   " Types from the standard prelude libraries.

    90. 

  90.   syn match hsType "\<\(Maybe\|Either\|Ratio\|Complex\|Ordering\|IOError\|IOResult\|ExitCode\)\>"

    91. 

  91.   syn match hsMaybe    "\<Nothing\>"

    92. 

  92.   syn match hsExitCode "\<\(ExitSuccess\)\>"

    93. 

  93.   syn match hsOrdering "\<\(GT\|LT\|EQ\)\>"

    94. 

  94. endif

    95. 

  95. if exists("hs_highlight_debug")

    96. 

  96.   " Debugging functions from the standard prelude.

    97. 

  97.   syn match hsDebug "\<\(undefined\|error\|trace\)\>"

    98. 

  98. endif

    99. 

  99. 

    100. 

  100. 

    101. 

  101. " Comments

    102. 

  102. syn match   hsLineComment      "---*\([^-!#$%&\*\+./<=>\?@\\^|~].*\)\?$"

    103. 

  103. syn region  hsBlockComment     start="{-"  end="-}" contains=hsBlockComment

    104. 

  104. syn region  hsPragma	       start="{-#" end="#-}"

    105. 

  105. 

    106. 

  106. " C Preprocessor directives. Shamelessly ripped from c.vim and trimmed

    107. 

  107. " First, see whether to flag directive-like lines or not

    108. 

  108. if (!exists("hs_allow_hash_operator"))

    109. 

  109.     syn match	cError		display "^\s*\(%:\|#\).*$"

    110. 

  110. endif

    111. 

  111. " Accept %: for # (C99)

    112. 

  112. syn region	cPreCondit	start="^\s*\(%:\|#\)\s*\(if\|ifdef\|ifndef\|elif\)\>" skip="\\$" end="$" end="//"me=s-1 contains=cComment,cCppString,cCommentError

    113. 

  113. syn match	cPreCondit	display "^\s*\(%:\|#\)\s*\(else\|endif\)\>"

    114. 

  114. syn region	cCppOut		start="^\s*\(%:\|#\)\s*if\s\+0\+\>" end=".\@=\|$" contains=cCppOut2

    115. 

  115. syn region	cCppOut2	contained start="0" end="^\s*\(%:\|#\)\s*\(endif\>\|else\>\|elif\>\)" contains=cCppSkip

    116. 

  116. syn region	cCppSkip	contained start="^\s*\(%:\|#\)\s*\(if\>\|ifdef\>\|ifndef\>\)" skip="\\$" end="^\s*\(%:\|#\)\s*endif\>" contains=cCppSkip

    117. 

  117. syn region	cIncluded	display contained start=+"+ skip=+\\\\\|\\"+ end=+"+

    118. 

  118. syn match	cIncluded	display contained "<[^>]*>"

    119. 

  119. syn match	cInclude	display "^\s*\(%:\|#\)\s*include\>\s*["<]" contains=cIncluded

    120. 

  120. syn cluster	cPreProcGroup	contains=cPreCondit,cIncluded,cInclude,cDefine,cCppOut,cCppOut2,cCppSkip,cCommentStartError

    121. 

  121. syn region	cDefine		matchgroup=cPreCondit start="^\s*\(%:\|#\)\s*\(define\|undef\)\>" skip="\\$" end="$"

    122. 

  122. syn region	cPreProc	matchgroup=cPreCondit start="^\s*\(%:\|#\)\s*\(pragma\>\|line\>\|warning\>\|warn\>\|error\>\)" skip="\\$" end="$" keepend

    123. 

  123. 

    124. 

  124. syn region	cComment	matchgroup=cCommentStart start="/\*" end="\*/" contains=cCommentStartError,cSpaceError contained

    125. 

  125. syntax match	cCommentError	display "\*/" contained

    126. 

  126. syntax match	cCommentStartError display "/\*"me=e-1 contained

    127. 

  127. syn region	cCppString	start=+L\="+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end='$' contains=cSpecial contained

    128. 

  128. 

    129. 

  129. " Define the default highlighting.

    130. 

  130. " For version 5.7 and earlier: only when not done already

    131. 

  131. " For version 5.8 and later: only when an item doesn't have highlighting yet

    132. 

  132. if version >= 508 || !exists("did_hs_syntax_inits")

    133. 

  133.   if version < 508

    134. 

  134.     let did_hs_syntax_inits = 1

    135. 

  135.     command -nargs=+ HiLink hi link <args>

    136. 

  136.   else

    137. 

  137.     command -nargs=+ HiLink hi def link <args>

    138. 

  138.   endif

    139. 

  139. 

    140. 

  140.   HiLink hsModule			  hsStructure

    141. 

  141.   HiLink hsImport			  Include

    142. 

  142.   HiLink hsImportMod			  hsImport

    143. 

  143.   HiLink hsInfix			  PreProc

    144. 

  144.   HiLink hsStructure			  Structure

    145. 

  145.   HiLink hsStatement			  Statement

    146. 

  146.   HiLink hsConditional			  Conditional

    147. 

  147.   HiLink hsSpecialChar			  SpecialChar

    148. 

  148.   HiLink hsTypedef			  Typedef

    149. 

  149.   HiLink hsVarSym			  hsOperator

    150. 

  150.   HiLink hsConSym			  hsOperator

    151. 

  151.   HiLink hsOperator			  Operator

    152. 

  152.   if exists("hs_highlight_delimiters")

    153. 

  153.     " Some people find this highlighting distracting.

    154. 

  154.     HiLink hsDelimiter			  Delimiter

    155. 

  155.   endif

    156. 

  156.   HiLink hsSpecialCharError		  Error

    157. 

  157.   HiLink hsString			  String

    158. 

  158.   HiLink hsCharacter			  Character

    159. 

  159.   HiLink hsNumber			  Number

    160. 

  160.   HiLink hsFloat			  Float

    161. 

  161.   HiLink hsConditional			  Conditional

    162. 

  162.   HiLink hsLiterateComment		  hsComment

    163. 

  163.   HiLink hsBlockComment		  hsComment

    164. 

  164.   HiLink hsLineComment			  hsComment

    165. 

  165.   HiLink hsComment			  Comment

    166. 

  166.   HiLink hsPragma			  SpecialComment

    167. 

  167.   HiLink hsBoolean			  Boolean

    168. 

  168.   HiLink hsType			  Type

    169. 

  169.   HiLink hsMaybe			  hsEnumConst

    170. 

  170.   HiLink hsOrdering			  hsEnumConst

    171. 

  171.   HiLink hsEnumConst			  Constant

    172. 

  172.   HiLink hsDebug			  Debug

    173. 

  173. 

    174. 

  174.   HiLink cCppString		hsString

    175. 

  175.   HiLink cCommentStart		hsComment

    176. 

  176.   HiLink cCommentError		hsError

    177. 

  177.   HiLink cCommentStartError	hsError

    178. 

  178.   HiLink cInclude		Include

    179. 

  179.   HiLink cPreProc		PreProc

    180. 

  180.   HiLink cDefine		Macro

    181. 

  181.   HiLink cIncluded		hsString

    182. 

  182.   HiLink cError			Error

    183. 

  183.   HiLink cPreCondit		PreCondit

    184. 

  184.   HiLink cComment		Comment

    185. 

  185.   HiLink cCppSkip		cCppOut

    186. 

  186.   HiLink cCppOut2		cCppOut

    187. 

  187.   HiLink cCppOut		Comment

    188. 

  188. 

    189. 

  189.   delcommand HiLink

    190. 

  190. endif

    191. 

  191. 

    192. 

  192. let b:current_syntax = "haskell"

    193. 

  193. 

    194. 

  194. " Options for vi: ts=8 sw=2 sts=2 nowrap noexpandtab ft=vim

    195. 

    196.