home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / unix / vim-6.2.tar.bz2 / vim-6.2.tar / vim62 / runtime / syntax / sml.vim < prev    next >
Encoding:
Text File  |  2003-05-11  |  9.3 KB  |  231 lines
  1. " Vim syntax file
  2. " Language:     SML
  3. " Filenames:    *.sml *.sig
  4. " Maintainers:    Markus Mottl        <markus@oefai.at>
  5. "        Fabrizio Zeno Cornelli    <zeno@filibusta.crema.unimi.it>
  6. " URL:        http://www.ai.univie.ac.at/~markus/vim/syntax/sml.vim
  7. " Last Change:    2003 May 11
  8. "        2001 Nov 20 - Fixed small highlighting bug with modules (MM)
  9. "        2001 Aug 29 - Fixed small highlighting bug  (MM)
  10.  
  11. " For version 5.x: Clear all syntax items
  12. " For version 6.x: Quit when a syntax file was already loaded
  13. if version < 600
  14.   syntax clear
  15. elseif exists("b:current_syntax")
  16.   finish
  17. endif
  18.  
  19. " SML is case sensitive.
  20. syn case match
  21.  
  22. " lowercase identifier - the standard way to match
  23. syn match    smlLCIdentifier /\<\(\l\|_\)\(\w\|'\)*\>/
  24.  
  25. syn match    smlKeyChar    "|"
  26.  
  27. " Errors
  28. syn match    smlBraceErr   "}"
  29. syn match    smlBrackErr   "\]"
  30. syn match    smlParenErr   ")"
  31. syn match    smlCommentErr "\*)"
  32. syn match    smlThenErr    "\<then\>"
  33.  
  34. " Error-highlighting of "end" without synchronization:
  35. " as keyword or as error (default)
  36. if exists("sml_noend_error")
  37.   syn match    smlKeyword    "\<end\>"
  38. else
  39.   syn match    smlEndErr     "\<end\>"
  40. endif
  41.  
  42. " Some convenient clusters
  43. syn cluster  smlAllErrs contains=smlBraceErr,smlBrackErr,smlParenErr,smlCommentErr,smlEndErr,smlThenErr
  44.  
  45. syn cluster  smlAENoParen contains=smlBraceErr,smlBrackErr,smlCommentErr,smlEndErr,smlThenErr
  46.  
  47. syn cluster  smlContained contains=smlTodo,smlPreDef,smlModParam,smlModParam1,smlPreMPRestr,smlMPRestr,smlMPRestr1,smlMPRestr2,smlMPRestr3,smlModRHS,smlFuncWith,smlFuncStruct,smlModTypeRestr,smlModTRWith,smlWith,smlWithRest,smlModType,smlFullMod
  48.  
  49.  
  50. " Enclosing delimiters
  51. syn region   smlEncl transparent matchgroup=smlKeyword start="(" matchgroup=smlKeyword end=")" contains=ALLBUT,@smlContained,smlParenErr
  52. syn region   smlEncl transparent matchgroup=smlKeyword start="{" matchgroup=smlKeyword end="}"  contains=ALLBUT,@smlContained,smlBraceErr
  53. syn region   smlEncl transparent matchgroup=smlKeyword start="\[" matchgroup=smlKeyword end="\]" contains=ALLBUT,@smlContained,smlBrackErr
  54. syn region   smlEncl transparent matchgroup=smlKeyword start="#\[" matchgroup=smlKeyword end="\]" contains=ALLBUT,@smlContained,smlBrackErr
  55.  
  56.  
  57. " Comments
  58. syn region   smlComment start="(\*" end="\*)" contains=smlComment,smlTodo
  59. syn keyword  smlTodo contained TODO FIXME XXX
  60.  
  61.  
  62. " let
  63. syn region   smlEnd matchgroup=smlKeyword start="\<let\>" matchgroup=smlKeyword end="\<end\>" contains=ALLBUT,@smlContained,smlEndErr
  64.  
  65. " local
  66. syn region   smlEnd matchgroup=smlKeyword start="\<local\>" matchgroup=smlKeyword end="\<end\>" contains=ALLBUT,@smlContained,smlEndErr
  67.  
  68. " abstype
  69. syn region   smlNone matchgroup=smlKeyword start="\<abstype\>" matchgroup=smlKeyword end="\<end\>" contains=ALLBUT,@smlContained,smlEndErr
  70.  
  71. " begin
  72. syn region   smlEnd matchgroup=smlKeyword start="\<begin\>" matchgroup=smlKeyword end="\<end\>" contains=ALLBUT,@smlContained,smlEndErr
  73.  
  74. " if
  75. syn region   smlNone matchgroup=smlKeyword start="\<if\>" matchgroup=smlKeyword end="\<then\>" contains=ALLBUT,@smlContained,smlThenErr
  76.  
  77.  
  78. "" Modules
  79.  
  80. " "struct"
  81. syn region   smlStruct matchgroup=smlModule start="\<struct\>" matchgroup=smlModule end="\<end\>" contains=ALLBUT,@smlContained,smlEndErr
  82.  
  83. " "sig"
  84. syn region   smlSig matchgroup=smlModule start="\<sig\>" matchgroup=smlModule end="\<end\>" contains=ALLBUT,@smlContained,smlEndErr,smlModule
  85. syn region   smlModSpec matchgroup=smlKeyword start="\<structure\>" matchgroup=smlModule end="\<\u\(\w\|'\)*\>" contained contains=@smlAllErrs,smlComment skipwhite skipempty nextgroup=smlModTRWith,smlMPRestr
  86.  
  87. " "open"
  88. syn region   smlNone matchgroup=smlKeyword start="\<open\>" matchgroup=smlModule end="\<\u\(\w\|'\)*\(\.\u\(\w\|'\)*\)*\>" contains=@smlAllErrs,smlComment
  89.  
  90. " "structure" - somewhat complicated stuff ;-)
  91. syn region   smlModule matchgroup=smlKeyword start="\<\(structure\|functor\)\>" matchgroup=smlModule end="\<\u\(\w\|'\)*\>" contains=@smlAllErrs,smlComment skipwhite skipempty nextgroup=smlPreDef
  92. syn region   smlPreDef start="."me=e-1 matchgroup=smlKeyword end="\l\|="me=e-1 contained contains=@smlAllErrs,smlComment,smlModParam,smlModTypeRestr,smlModTRWith nextgroup=smlModPreRHS
  93. syn region   smlModParam start="([^*]" end=")" contained contains=@smlAENoParen,smlModParam1
  94. syn match    smlModParam1 "\<\u\(\w\|'\)*\>" contained skipwhite skipempty nextgroup=smlPreMPRestr
  95.  
  96. syn region   smlPreMPRestr start="."me=e-1 end=")"me=e-1 contained contains=@smlAllErrs,smlComment,smlMPRestr,smlModTypeRestr
  97.  
  98. syn region   smlMPRestr start=":" end="."me=e-1 contained contains=@smlComment skipwhite skipempty nextgroup=smlMPRestr1,smlMPRestr2,smlMPRestr3
  99. syn region   smlMPRestr1 matchgroup=smlModule start="\ssig\s\=" matchgroup=smlModule end="\<end\>" contained contains=ALLBUT,@smlContained,smlEndErr,smlModule
  100. syn region   smlMPRestr2 start="\sfunctor\(\s\|(\)\="me=e-1 matchgroup=smlKeyword end="->" contained contains=@smlAllErrs,smlComment,smlModParam skipwhite skipempty nextgroup=smlFuncWith
  101. syn match    smlMPRestr3 "\w\(\w\|'\)*\(\.\w\(\w\|'\)*\)*" contained
  102. syn match    smlModPreRHS "=" contained skipwhite skipempty nextgroup=smlModParam,smlFullMod
  103. syn region   smlModRHS start="." end=".\w\|([^*]"me=e-2 contained contains=smlComment skipwhite skipempty nextgroup=smlModParam,smlFullMod
  104. syn match    smlFullMod "\<\u\(\w\|'\)*\(\.\u\(\w\|'\)*\)*" contained skipwhite skipempty nextgroup=smlFuncWith
  105.  
  106. syn region   smlFuncWith start="([^*]"me=e-1 end=")" contained contains=smlComment,smlWith,smlFuncStruct
  107. syn region   smlFuncStruct matchgroup=smlModule start="[^a-zA-Z]struct\>"hs=s+1 matchgroup=smlModule end="\<end\>" contains=ALLBUT,@smlContained,smlEndErr
  108.  
  109. syn match    smlModTypeRestr "\<\w\(\w\|'\)*\(\.\w\(\w\|'\)*\)*\>" contained
  110. syn region   smlModTRWith start=":\s*("hs=s+1 end=")" contained contains=@smlAENoParen,smlWith
  111. syn match    smlWith "\<\(\u\(\w\|'\)*\.\)*\w\(\w\|'\)*\>" contained skipwhite skipempty nextgroup=smlWithRest
  112. syn region   smlWithRest start="[^)]" end=")"me=e-1 contained contains=ALLBUT,@smlContained
  113.  
  114. " "signature"
  115. syn region   smlKeyword start="\<signature\>" matchgroup=smlModule end="\<\w\(\w\|'\)*\>" contains=smlComment skipwhite skipempty nextgroup=smlMTDef
  116. syn match    smlMTDef "=\s*\w\(\w\|'\)*\>"hs=s+1,me=s
  117.  
  118. syn keyword  smlKeyword  and andalso case
  119. syn keyword  smlKeyword  datatype else eqtype
  120. syn keyword  smlKeyword  exception fn fun handle
  121. syn keyword  smlKeyword  in infix infixl infixr
  122. syn keyword  smlKeyword  match nonfix of orelse
  123. syn keyword  smlKeyword  raise handle type
  124. syn keyword  smlKeyword  val where while with withtype
  125.  
  126. syn keyword  smlType     bool char exn int list option
  127. syn keyword  smlType     real string unit
  128.  
  129. syn keyword  smlOperator div mod not or quot rem
  130.  
  131. syn keyword  smlBoolean      true false
  132. syn match    smlConstructor  "(\s*)"
  133. syn match    smlConstructor  "\[\s*\]"
  134. syn match    smlConstructor  "#\[\s*\]"
  135. syn match    smlConstructor  "\u\(\w\|'\)*\>"
  136.  
  137. " Module prefix
  138. syn match    smlModPath      "\u\(\w\|'\)*\."he=e-1
  139.  
  140. syn match    smlCharacter    +#"."\|#"\\\d\d\d"+
  141. syn match    smlCharErr      +#"\\\d\d"\|#"\\\d"+
  142. syn region   smlString       start=+"+ skip=+\\\\\|\\"+ end=+"+
  143.  
  144. syn match    smlFunDef       "=>"
  145. syn match    smlRefAssign    ":="
  146. syn match    smlTopStop      ";;"
  147. syn match    smlOperator     "\^"
  148. syn match    smlOperator     "::"
  149. syn match    smlAnyVar       "\<_\>"
  150. syn match    smlKeyChar      "!"
  151. syn match    smlKeyChar      ";"
  152. syn match    smlKeyChar      "\*"
  153. syn match    smlKeyChar      "="
  154.  
  155. syn match    smlNumber          "\<-\=\d\+\>"
  156. syn match    smlNumber          "\<-\=0[x|X]\x\+\>"
  157. syn match    smlReal          "\<-\=\d\+\.\d*\([eE][-+]\=\d\+\)\=[fl]\=\>"
  158.  
  159. " Synchronization
  160. syn sync minlines=20
  161. syn sync maxlines=500
  162.  
  163. syn sync match smlEndSync     grouphere  smlEnd     "\<begin\>"
  164. syn sync match smlEndSync     groupthere smlEnd     "\<end\>"
  165. syn sync match smlStructSync  grouphere  smlStruct  "\<struct\>"
  166. syn sync match smlStructSync  groupthere smlStruct  "\<end\>"
  167. syn sync match smlSigSync     grouphere  smlSig     "\<sig\>"
  168. syn sync match smlSigSync     groupthere smlSig     "\<end\>"
  169.  
  170. " Define the default highlighting.
  171. " For version 5.7 and earlier: only when not done already
  172. " For version 5.8 and later: only when an item doesn't have highlighting yet
  173. if version >= 508 || !exists("did_sml_syntax_inits")
  174.   if version < 508
  175.     let did_sml_syntax_inits = 1
  176.     command -nargs=+ HiLink hi link <args>
  177.   else
  178.     command -nargs=+ HiLink hi def link <args>
  179.   endif
  180.  
  181.   HiLink smlBraceErr     Error
  182.   HiLink smlBrackErr     Error
  183.   HiLink smlParenErr     Error
  184.  
  185.   HiLink smlCommentErr     Error
  186.  
  187.   HiLink smlEndErr     Error
  188.   HiLink smlThenErr     Error
  189.  
  190.   HiLink smlCharErr     Error
  191.  
  192.   HiLink smlComment     Comment
  193.  
  194.   HiLink smlModPath     Include
  195.   HiLink smlModule     Include
  196.   HiLink smlModParam1     Include
  197.   HiLink smlModType     Include
  198.   HiLink smlMPRestr3     Include
  199.   HiLink smlFullMod     Include
  200.   HiLink smlModTypeRestr Include
  201.   HiLink smlWith     Include
  202.   HiLink smlMTDef     Include
  203.  
  204.   HiLink smlConstructor  Constant
  205.  
  206.   HiLink smlModPreRHS     Keyword
  207.   HiLink smlMPRestr2     Keyword
  208.   HiLink smlKeyword     Keyword
  209.   HiLink smlFunDef     Keyword
  210.   HiLink smlRefAssign     Keyword
  211.   HiLink smlKeyChar     Keyword
  212.   HiLink smlAnyVar     Keyword
  213.   HiLink smlTopStop     Keyword
  214.   HiLink smlOperator     Keyword
  215.  
  216.   HiLink smlBoolean     Boolean
  217.   HiLink smlCharacter     Character
  218.   HiLink smlNumber     Number
  219.   HiLink smlReal     Float
  220.   HiLink smlString     String
  221.   HiLink smlType     Type
  222.   HiLink smlTodo     Todo
  223.   HiLink smlEncl     Keyword
  224.  
  225.   delcommand HiLink
  226. endif
  227.  
  228. let b:current_syntax = "sml"
  229.  
  230. " vim: ts=8
  231.