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 / rebol.vim < prev    next >
Encoding:
Text File  |  2003-05-11  |  7.4 KB  |  217 lines
  1. " Vim syntax file
  2. " Language:    Rebol
  3. " Maintainer:    Mike Williams <mrw@eandem.co.uk>
  4. " Filenames:    *.r
  5. " Last Change:    27th June 2002
  6. " URL:        http://www.eandem.co.uk/mrw/vim
  7. "
  8.  
  9. " For version 5.x: Clear all syntax items
  10. " For version 6.x: Quit when a syntax file was already loaded
  11. if version < 600
  12.   syntax clear
  13. elseif exists("b:current_syntax")
  14.   finish
  15. endif
  16.  
  17. " Rebol is case insensitive
  18. syn case ignore
  19.  
  20. " As per current users documentation
  21. if version < 600
  22.   set isk=@,48-57,?,!,.,',+,-,*,&,\|,=,_,~
  23. else
  24.   setlocal isk=@,48-57,?,!,.,',+,-,*,&,\|,=,_,~
  25. endif
  26.  
  27. " Yer TODO highlighter
  28. syn keyword    rebolTodo    contained TODO
  29.  
  30. " Comments
  31. syn match       rebolComment    ";.*$" contains=rebolTodo
  32.  
  33. " Words
  34. syn match       rebolWord       "\a\k*"
  35. syn match       rebolWordPath   "[^[:space:]]/[^[:space]]"ms=s+1,me=e-1
  36.  
  37. " Booleans
  38. syn keyword     rebolBoolean    true false on off yes no
  39.  
  40. " Values
  41. " Integers
  42. syn match       rebolInteger    "\<[+-]\=\d\+\('\d*\)*\>"
  43. " Decimals
  44. syn match       rebolDecimal    "[+-]\=\(\d\+\('\d*\)*\)\=[,.]\d*\(e[+-]\=\d\+\)\="
  45. syn match       rebolDecimal    "[+-]\=\d\+\('\d*\)*\(e[+-]\=\d\+\)\="
  46. " Time
  47. syn match       rebolTime       "[+-]\=\(\d\+\('\d*\)*\:\)\{1,2}\d\+\('\d*\)*\([.,]\d\+\)\=\([AP]M\)\=\>"
  48. syn match       rebolTime       "[+-]\=:\d\+\([.,]\d*\)\=\([AP]M\)\=\>"
  49. " Dates
  50. " DD-MMM-YY & YYYY format
  51. syn match       rebolDate       "\d\{1,2}\([/-]\)\(Jan\|Feb\|Mar\|Apr\|May\|Jun\|Jul\|Aug\|Sep\|Oct\|Nov\|Dec\)\1\(\d\{2}\)\{1,2}\>"
  52. " DD-month-YY & YYYY format
  53. syn match       rebolDate       "\d\{1,2}\([/-]\)\(January\|February\|March\|April\|May\|June\|July\|August\|September\|October\|November\|December\)\1\(\d\{2}\)\{1,2}\>"
  54. " DD-MM-YY & YY format
  55. syn match       rebolDate       "\d\{1,2}\([/-]\)\d\{1,2}\1\(\d\{2}\)\{1,2}\>"
  56. " YYYY-MM-YY format
  57. syn match       rebolDate       "\d\{4}-\d\{1,2}-\d\{1,2}\>"
  58. " DD.MM.YYYY format
  59. syn match       rebolDate       "\d\{1,2}\.\d\{1,2}\.\d\{4}\>"
  60. " Money
  61. syn match       rebolMoney      "\a*\$\d\+\('\d*\)*\([,.]\d\+\)\="
  62. " Strings
  63. syn region      rebolString     oneline start=+"+ skip=+^"+ end=+"+ contains=rebolSpecialCharacter
  64. syn region      rebolString     start=+[^#]{+ end=+}+ skip=+{[^}]*}+ contains=rebolSpecialCharacter
  65. " Binary
  66. syn region      rebolBinary     start=+\d*#{+ end=+}+ contains=rebolComment
  67. " Email
  68. syn match       rebolEmail      "\<\k\+@\(\k\+\.\)*\k\+\>"
  69. " File
  70. syn match       rebolFile       "%\(\k\+/\)*\k\+[/]\=" contains=rebolSpecialCharacter
  71. syn region      rebolFile       oneline start=+%"+ end=+"+ contains=rebolSpecialCharacter
  72. " URLs
  73. syn match    rebolURL    "http://\k\+\(\.\k\+\)*\(:\d\+\)\=\(/\(\k\+/\)*\(\k\+\)\=\)*"
  74. syn match    rebolURL    "file://\k\+\(\.\k\+\)*/\(\k\+/\)*\k\+"
  75. syn match    rebolURL    "ftp://\(\k\+:\k\+@\)\=\k\+\(\.\k\+\)*\(:\d\+\)\=/\(\k\+/\)*\k\+"
  76. syn match    rebolURL    "mailto:\k\+\(\.\k\+\)*@\k\+\(\.\k\+\)*"
  77. " Issues
  78. syn match    rebolIssue    "#\(\d\+-\)*\d\+"
  79. " Tuples
  80. syn match    rebolTuple    "\(\d\+\.\)\{2,}"
  81.  
  82. " Characters
  83. syn match       rebolSpecialCharacter contained "\^[^[:space:][]"
  84. syn match       rebolSpecialCharacter contained "%\d\+"
  85.  
  86.  
  87. " Operators
  88. " Math operators
  89. syn match       rebolMathOperator  "\(\*\{1,2}\|+\|-\|/\{1,2}\)"
  90. syn keyword     rebolMathFunction  abs absolute add arccosine arcsine arctangent cosine
  91. syn keyword     rebolMathFunction  divide exp log-10 log-2 log-e max maximum min
  92. syn keyword     rebolMathFunction  minimum multiply negate power random remainder sine
  93. syn keyword     rebolMathFunction  square-root subtract tangent
  94. " Binary operators
  95. syn keyword     rebolBinaryOperator complement and or xor ~
  96. " Logic operators
  97. syn match       rebolLogicOperator "[<>=]=\="
  98. syn match       rebolLogicOperator "<>"
  99. syn keyword     rebolLogicOperator not
  100. syn keyword     rebolLogicFunction all any
  101. syn keyword     rebolLogicFunction head? tail?
  102. syn keyword     rebolLogicFunction negative? positive? zero? even? odd?
  103. syn keyword     rebolLogicFunction binary? block? char? date? decimal? email? empty?
  104. syn keyword     rebolLogicFunction file? found? function? integer? issue? logic? money?
  105. syn keyword     rebolLogicFunction native? none? object? paren? path? port? series?
  106. syn keyword     rebolLogicFunction string? time? tuple? url? word?
  107. syn keyword     rebolLogicFunction exists? input? same? value?
  108.  
  109. " Datatypes
  110. syn keyword     rebolType       binary! block! char! date! decimal! email! file!
  111. syn keyword     rebolType       function! integer! issue! logic! money! native!
  112. syn keyword     rebolType       none! object! paren! path! port! string! time!
  113. syn keyword     rebolType       tuple! url! word!
  114. syn keyword     rebolTypeFunction type?
  115.  
  116. " Control statements
  117. syn keyword     rebolStatement  break catch exit halt reduce return shield
  118. syn keyword     rebolConditional if else
  119. syn keyword     rebolRepeat     for forall foreach forskip loop repeat while until do
  120.  
  121. " Series statements
  122. syn keyword     rebolStatement  change clear copy fifth find first format fourth free
  123. syn keyword     rebolStatement  func function head insert last match next parse past
  124. syn keyword     rebolStatement  pick remove second select skip sort tail third trim length?
  125.  
  126. " Context
  127. syn keyword     rebolStatement  alias bind use
  128.  
  129. " Object
  130. syn keyword     rebolStatement  import make make-object rebol info?
  131.  
  132. " I/O statements
  133. syn keyword     rebolStatement  delete echo form format import input load mold prin
  134. syn keyword     rebolStatement  print probe read save secure send write
  135. syn keyword     rebolOperator   size? modified?
  136.  
  137. " Debug statement
  138. syn keyword     rebolStatement  help probe trace
  139.  
  140. " Misc statements
  141. syn keyword     rebolStatement  func function free
  142.  
  143. " Constants
  144. syn keyword     rebolConstant   none
  145.  
  146.  
  147. " Define the default highlighting.
  148. " For version 5.7 and earlier: only when not done already
  149. " For version 5.8 and later: only when an item doesn't have highlighting yet
  150. if version >= 508 || !exists("did_rebol_syntax_inits")
  151.   if version < 508
  152.     let did_rebol_syntax_inits = 1
  153.     command -nargs=+ HiLink hi link <args>
  154.   else
  155.     command -nargs=+ HiLink hi def link <args>
  156.   endif
  157.  
  158.   HiLink rebolTodo     Todo
  159.  
  160.   HiLink rebolStatement Statement
  161.   HiLink rebolLabel    Label
  162.   HiLink rebolConditional Conditional
  163.   HiLink rebolRepeat    Repeat
  164.  
  165.   HiLink rebolOperator    Operator
  166.   HiLink rebolLogicOperator rebolOperator
  167.   HiLink rebolLogicFunction rebolLogicOperator
  168.   HiLink rebolMathOperator rebolOperator
  169.   HiLink rebolMathFunction rebolMathOperator
  170.   HiLink rebolBinaryOperator rebolOperator
  171.   HiLink rebolBinaryFunction rebolBinaryOperator
  172.  
  173.   HiLink rebolType     Type
  174.   HiLink rebolTypeFunction rebolOperator
  175.  
  176.   HiLink rebolWord     Identifier
  177.   HiLink rebolWordPath rebolWord
  178.   HiLink rebolFunction    Function
  179.  
  180.   HiLink rebolCharacter Character
  181.   HiLink rebolSpecialCharacter SpecialChar
  182.   HiLink rebolString    String
  183.  
  184.   HiLink rebolNumber   Number
  185.   HiLink rebolInteger  rebolNumber
  186.   HiLink rebolDecimal  rebolNumber
  187.   HiLink rebolTime     rebolNumber
  188.   HiLink rebolDate     rebolNumber
  189.   HiLink rebolMoney    rebolNumber
  190.   HiLink rebolBinary   rebolNumber
  191.   HiLink rebolEmail    rebolString
  192.   HiLink rebolFile     rebolString
  193.   HiLink rebolURL      rebolString
  194.   HiLink rebolIssue    rebolNumber
  195.   HiLink rebolTuple    rebolNumber
  196.   HiLink rebolFloat    Float
  197.   HiLink rebolBoolean  Boolean
  198.  
  199.   HiLink rebolConstant Constant
  200.  
  201.   HiLink rebolComment    Comment
  202.  
  203.   HiLink rebolError    Error
  204.  
  205.   delcommand HiLink
  206. endif
  207.  
  208. if exists("my_rebol_file")
  209.   if file_readable(expand(my_rebol_file))
  210.     execute "source " . my_rebol_file
  211.   endif
  212. endif
  213.  
  214. let b:current_syntax = "rebol"
  215.  
  216. " vim: ts=8
  217.