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 / runtime / dos / syntax / forth.vim < prev    next >
Encoding:
Text File  |  2012-05-31  |  13.5 KB  |  348 lines
  1. " Vim syntax file
  2. " Language:    FORTH
  3. " Maintainer:  Christian V. J. Brⁿssow <cvjb@cvjb.de>
  4. " Last Change: So 27 Mai 2012 15:56:28 CEST
  5. " Filenames:   *.fs,*.ft
  6. " URL:           http://www.cvjb.de/comp/vim/forth.vim
  7.  
  8. " $Id: forth.vim,v 1.14 2012/05/27 15:57:22 bruessow Exp $
  9.  
  10. " The list of keywords is incomplete, compared with the official ANS
  11. " wordlist. If you use this language, please improve it, and send me
  12. " the patches.
  13. "
  14. " Before sending me patches, please download the newest version of this file
  15. " from http://www.cvjb.de/comp/vim/forth.vim or http://www.vim.org/ (search
  16. " for forth.vim).
  17.  
  18. " Many Thanks to...
  19. "
  20. " 2012-05-13:
  21. " Dominique PellΘ <dominique dot pelle at gmail dot com> for sending the
  22. " patch to allow spellchecking of strings, comments, ...
  23. " 
  24. " 2012-01-07:
  25. " Thilo Six <T.Six at gmx dot de> send a patch for cpoptions.
  26. " See the discussion at http://thread.gmane.org/gmane.editors.vim.devel/32151
  27. "
  28. " 2009-06-28:
  29. " Josh Grams send a patch to allow the parenthesis comments at the
  30. " beginning of a line. That patch also fixed a typo in one of the
  31. " comments.
  32. "
  33. " 2008-02-09:
  34. " Shawn K. Quinn <sjquinn at speakeasy dot net> send a big patch with
  35. " new words commonly used in Forth programs or defined by GNU Forth.
  36. "
  37. " 2007-07-11:
  38. " Benjamin Krill <ben at codiert dot org> send me a patch
  39. " to highlight space errors.
  40. " You can toggle this feature on through setting the
  41. " flag forth_space_errors in you vimrc. If you have switched it on,
  42. " you can turn off highlighting of trailing spaces in comments by
  43. " setting forth_no_trail_space_error in your vimrc. If you do not want
  44. " the highlighting of a tabulator following a space in comments, you
  45. " can turn this off by setting forth_no_tab_space_error.
  46. "
  47. " 2006-05-25:
  48. " Bill McCarthy <WJMc@...> and Ilya Sher <ilya-vim@...>
  49. " Who found a bug in the ccomment line in 2004!!!
  50. " I'm really very sorry, that it has taken two years to fix that
  51. " in the official version of this file. Shame on me.
  52. " I think my face will be red the next ten years...
  53. "
  54. " 2006-05-21:
  55. " Thomas E. Vaughan <tevaugha at ball dot com> send me a patch
  56. " for the parenthesis comment word, so words with a trailing
  57. " parenthesis will not start the highlighting for such comments.
  58. "
  59. " 2003-05-10:
  60. " Andrew Gaul <andrew at gaul.org> send me a patch for
  61. " forthOperators.
  62. "
  63. " 2003-04-03:
  64. " Ron Aaron <ron at ronware dot org> made updates for an
  65. " improved Win32Forth support.
  66. "
  67. " 2002-04-22:
  68. " Charles Shattuck <charley at forth dot org> helped me to settle up with the
  69. " binary and hex number highlighting.
  70. "
  71. " 2002-04-20:
  72. " Charles Shattuck <charley at forth dot org> send me some code for correctly
  73. " highlighting char and [char] followed by an opening paren. He also added
  74. " some words for operators, conditionals, and definitions; and added the
  75. " highlighting for s" and c".
  76. "
  77. " 2000-03-28:
  78. " John Providenza <john at probo dot com> made improvements for the
  79. " highlighting of strings, and added the code for highlighting hex numbers.
  80. "
  81.  
  82.  
  83. " For version 5.x: Clear all syntax items
  84. " For version 6.x: Quit when a syntax file was already loaded
  85. if version < 600
  86.     syntax clear
  87. elseif exists("b:current_syntax")
  88.     finish
  89. endif
  90.  
  91. let s:cpo_save = &cpo
  92. set cpo&vim
  93.  
  94. " Synchronization method
  95. syn sync ccomment
  96. syn sync maxlines=200
  97.  
  98. " I use gforth, so I set this to case ignore
  99. syn case ignore
  100.  
  101. " Some special, non-FORTH keywords
  102. syn keyword forthTodo contained TODO FIXME XXX
  103. syn match forthTodo contained 'Copyright\(\s([Cc])\)\=\(\s[0-9]\{2,4}\)\='
  104.  
  105. " Characters allowed in keywords
  106. " I don't know if 128-255 are allowed in ANS-FORTH
  107. if version >= 600
  108.     setlocal iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
  109. else
  110.     set iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
  111. endif
  112.  
  113. " when wanted, highlight trailing white space
  114. if exists("forth_space_errors")
  115.     if !exists("forth_no_trail_space_error")
  116.         syn match forthSpaceError display excludenl "\s\+$"
  117.     endif
  118.     if !exists("forth_no_tab_space_error")
  119.         syn match forthSpaceError display " \+\t"me=e-1
  120.     endif
  121. endif
  122.  
  123. " Keywords
  124.  
  125. " basic mathematical and logical operators
  126. syn keyword forthOperators + - * / MOD /MOD NEGATE ABS MIN MAX
  127. syn keyword forthOperators AND OR XOR NOT LSHIFT RSHIFT INVERT 2* 2/ 1+
  128. syn keyword forthOperators 1- 2+ 2- 8* UNDER+
  129. syn keyword forthOperators M+ */ */MOD M* UM* M*/ UM/MOD FM/MOD SM/REM
  130. syn keyword forthOperators D+ D- DNEGATE DABS DMIN DMAX D2* D2/
  131. syn keyword forthOperators F+ F- F* F/ FNEGATE FABS FMAX FMIN FLOOR FROUND
  132. syn keyword forthOperators F** FSQRT FEXP FEXPM1 FLN FLNP1 FLOG FALOG FSIN
  133. syn keyword forthOperators FCOS FSINCOS FTAN FASIN FACOS FATAN FATAN2 FSINH
  134. syn keyword forthOperators FCOSH FTANH FASINH FACOSH FATANH F2* F2/ 1/F
  135. syn keyword forthOperators F~REL F~ABS F~
  136. syn keyword forthOperators 0< 0<= 0<> 0= 0> 0>= < <= <> = > >= U< U<=
  137. syn keyword forthOperators U> U>= D0< D0<= D0<> D0= D0> D0>= D< D<= D<>
  138. syn keyword forthOperators D= D> D>= DU< DU<= DU> DU>= WITHIN ?NEGATE
  139. syn keyword forthOperators ?DNEGATE
  140.  
  141. " stack manipulations
  142. syn keyword forthStack DROP NIP DUP OVER TUCK SWAP ROT -ROT ?DUP PICK ROLL
  143. syn keyword forthStack 2DROP 2NIP 2DUP 2OVER 2TUCK 2SWAP 2ROT 2-ROT
  144. syn keyword forthStack 3DUP 4DUP 5DUP 3DROP 4DROP 5DROP 8DROP 4SWAP 4ROT
  145. syn keyword forthStack 4-ROT 4TUCK 8SWAP 8DUP
  146. syn keyword forthRStack >R R> R@ RDROP 2>R 2R> 2R@ 2RDROP
  147. syn keyword forthRstack 4>R 4R> 4R@ 4RDROP
  148. syn keyword forthFStack FDROP FNIP FDUP FOVER FTUCK FSWAP FROT
  149.  
  150. " stack pointer manipulations
  151. syn keyword forthSP SP@ SP! FP@ FP! RP@ RP! LP@ LP!
  152.  
  153. " address operations
  154. syn keyword forthMemory @ ! +! C@ C! 2@ 2! F@ F! SF@ SF! DF@ DF!
  155. syn keyword forthAdrArith CHARS CHAR+ CELLS CELL+ CELL ALIGN ALIGNED FLOATS
  156. syn keyword forthAdrArith FLOAT+ FLOAT FALIGN FALIGNED SFLOATS SFLOAT+
  157. syn keyword forthAdrArith SFALIGN SFALIGNED DFLOATS DFLOAT+ DFALIGN DFALIGNED
  158. syn keyword forthAdrArith MAXALIGN MAXALIGNED CFALIGN CFALIGNED
  159. syn keyword forthAdrArith ADDRESS-UNIT-BITS ALLOT ALLOCATE HERE
  160. syn keyword forthMemBlks MOVE ERASE CMOVE CMOVE> FILL BLANK
  161.  
  162. " conditionals
  163. syn keyword forthCond IF ELSE ENDIF THEN CASE OF ENDOF ENDCASE ?DUP-IF
  164. syn keyword forthCond ?DUP-0=-IF AHEAD CS-PICK CS-ROLL CATCH THROW WITHIN
  165.  
  166. " iterations
  167. syn keyword forthLoop BEGIN WHILE REPEAT UNTIL AGAIN
  168. syn keyword forthLoop ?DO LOOP I J K +DO U+DO -DO U-DO DO +LOOP -LOOP
  169. syn keyword forthLoop UNLOOP LEAVE ?LEAVE EXIT DONE FOR NEXT
  170.  
  171. " new words
  172. syn match forthClassDef '\<:class\s*[^ \t]\+\>'
  173. syn match forthObjectDef '\<:object\s*[^ \t]\+\>'
  174. syn match forthColonDef '\<:m\?\s*[^ \t]\+\>'
  175. syn keyword forthEndOfColonDef ; ;M ;m
  176. syn keyword forthEndOfClassDef ;class
  177. syn keyword forthEndOfObjectDef ;object
  178. syn keyword forthDefine CONSTANT 2CONSTANT FCONSTANT VARIABLE 2VARIABLE
  179. syn keyword forthDefine FVARIABLE CREATE USER VALUE TO DEFER IS DOES> IMMEDIATE
  180. syn keyword forthDefine COMPILE-ONLY COMPILE RESTRICT INTERPRET POSTPONE EXECUTE
  181. syn keyword forthDefine LITERAL CREATE-INTERPRET/COMPILE INTERPRETATION>
  182. syn keyword forthDefine <INTERPRETATION COMPILATION> <COMPILATION ] LASTXT
  183. syn keyword forthDefine COMP' POSTPONE, FIND-NAME NAME>INT NAME?INT NAME>COMP
  184. syn keyword forthDefine NAME>STRING STATE C; CVARIABLE
  185. syn keyword forthDefine , 2, F, C,
  186. syn match forthDefine "\[IFDEF]"
  187. syn match forthDefine "\[IFUNDEF]"
  188. syn match forthDefine "\[THEN]"
  189. syn match forthDefine "\[ENDIF]"
  190. syn match forthDefine "\[ELSE]"
  191. syn match forthDefine "\[?DO]"
  192. syn match forthDefine "\[DO]"
  193. syn match forthDefine "\[LOOP]"
  194. syn match forthDefine "\[+LOOP]"
  195. syn match forthDefine "\[NEXT]"
  196. syn match forthDefine "\[BEGIN]"
  197. syn match forthDefine "\[UNTIL]"
  198. syn match forthDefine "\[AGAIN]"
  199. syn match forthDefine "\[WHILE]"
  200. syn match forthDefine "\[REPEAT]"
  201. syn match forthDefine "\[COMP']"
  202. syn match forthDefine "'"
  203. syn match forthDefine '\<\[\>'
  204. syn match forthDefine "\[']"
  205. syn match forthDefine '\[COMPILE]'
  206.  
  207. " debugging
  208. syn keyword forthDebug PRINTDEBUGDATA PRINTDEBUGLINE
  209. syn match forthDebug "\<\~\~\>"
  210.  
  211. " Assembler
  212. syn keyword forthAssembler ASSEMBLER CODE END-CODE ;CODE FLUSH-ICACHE C,
  213.  
  214. " basic character operations
  215. syn keyword forthCharOps (.) CHAR EXPECT FIND WORD TYPE -TRAILING EMIT KEY
  216. syn keyword forthCharOps KEY? TIB CR
  217. " recognize 'char (' or '[char] (' correctly, so it doesn't
  218. " highlight everything after the paren as a comment till a closing ')'
  219. syn match forthCharOps '\<char\s\S\s'
  220. syn match forthCharOps '\<\[char\]\s\S\s'
  221. syn region forthCharOps start=+."\s+ skip=+\\"+ end=+"+
  222.  
  223. " char-number conversion
  224. syn keyword forthConversion <<# <# # #> #>> #S (NUMBER) (NUMBER?) CONVERT D>F
  225. syn keyword forthConversion D>S DIGIT DPL F>D HLD HOLD NUMBER S>D SIGN >NUMBER
  226. syn keyword forthConversion F>S S>F
  227.  
  228. " interpreter, wordbook, compiler
  229. syn keyword forthForth (LOCAL) BYE COLD ABORT >BODY >NEXT >LINK CFA >VIEW HERE
  230. syn keyword forthForth PAD WORDS VIEW VIEW> N>LINK NAME> LINK> L>NAME FORGET
  231. syn keyword forthForth BODY> ASSERT( ASSERT0( ASSERT1( ASSERT2( ASSERT3( )
  232. syn region forthForth start=+ABORT"\s+ skip=+\\"+ end=+"+
  233.  
  234. " vocabularies
  235. syn keyword forthVocs ONLY FORTH ALSO ROOT SEAL VOCS ORDER CONTEXT #VOCS
  236. syn keyword forthVocs VOCABULARY DEFINITIONS
  237.  
  238. " File keywords
  239. syn keyword forthFileMode R/O R/W W/O BIN
  240. syn keyword forthFileWords OPEN-FILE CREATE-FILE CLOSE-FILE DELETE-FILE
  241. syn keyword forthFileWords RENAME-FILE READ-FILE READ-LINE KEY-FILE
  242. syn keyword forthFileWords KEY?-FILE WRITE-FILE WRITE-LINE EMIT-FILE
  243. syn keyword forthFileWords FLUSH-FILE FILE-STATUS FILE-POSITION
  244. syn keyword forthFileWords REPOSITION-FILE FILE-SIZE RESIZE-FILE
  245. syn keyword forthFileWords SLURP-FILE SLURP-FID STDIN STDOUT STDERR
  246. syn keyword forthBlocks OPEN-BLOCKS USE LOAD --> BLOCK-OFFSET
  247. syn keyword forthBlocks GET-BLOCK-FID BLOCK-POSITION LIST SCR BLOCK
  248. syn keyword forthBlocks BUFER EMPTY-BUFFERS EMPTY-BUFFER UPDATE UPDATED?
  249. syn keyword forthBlocks SAVE-BUFFERS SAVE-BUFFER FLUSH THRU +LOAD +THRU
  250. syn keyword forthBlocks BLOCK-INCLUDED
  251.  
  252. " numbers
  253. syn keyword forthMath DECIMAL HEX BASE
  254. syn match forthInteger '\<-\=[0-9.]*[0-9.]\+\>'
  255. syn match forthInteger '\<&-\=[0-9.]*[0-9.]\+\>'
  256. " recognize hex and binary numbers, the '$' and '%' notation is for gforth
  257. syn match forthInteger '\<\$\x*\x\+\>' " *1* --- dont't mess
  258. syn match forthInteger '\<\x*\d\x*\>'  " *2* --- this order!
  259. syn match forthInteger '\<%[0-1]*[0-1]\+\>'
  260. syn match forthFloat '\<-\=\d*[.]\=\d\+[DdEe]\d\+\>'
  261. syn match forthFloat '\<-\=\d*[.]\=\d\+[DdEe][-+]\d\+\>'
  262.  
  263. " XXX If you find this overkill you can remove it. This has to come after the
  264. " highlighting for numbers otherwise it has no effect.
  265. syn region forthComment start='0 \[if\]' end='\[endif\]' end='\[then\]' contains=forthTodo
  266.  
  267. " Strings
  268. syn region forthString start=+\.*\"+ end=+"+ end=+$+ contains=@Spell
  269. " XXX
  270. syn region forthString start=+s\"+ end=+"+ end=+$+ contains=@Spell
  271. syn region forthString start=+c\"+ end=+"+ end=+$+ contains=@Spell
  272.  
  273. " Comments
  274. syn match forthComment '\\\s.*$' contains=@Spell,forthTodo,forthSpaceError
  275. syn region forthComment start='\\S\s' end='.*' contains=@Spell,forthTodo,forthSpaceError
  276. syn match forthComment '\.(\s[^)]*)' contains=@Spell,forthTodo,forthSpaceError
  277. syn region forthComment start='\(^\|\s\)\zs(\s' skip='\\)' end=')' contains=@Spell,forthTodo,forthSpaceError
  278. syn region forthComment start='/\*' end='\*/' contains=@Spell,forthTodo,forthSpaceError
  279.  
  280. " Include files
  281. syn match forthInclude '^INCLUDE\s\+\k\+'
  282. syn match forthInclude '^require\s\+\k\+'
  283. syn match forthInclude '^fload\s\+'
  284. syn match forthInclude '^needs\s\+'
  285.  
  286. " Locals definitions
  287. syn region forthLocals start='{\s' start='{$' end='\s}' end='^}'
  288. syn match forthLocals '{ }' " otherwise, at least two spaces between
  289. syn region forthDeprecated start='locals|' end='|'
  290.  
  291. " Define the default highlighting.
  292. " For version 5.7 and earlier: only when not done already
  293. " For version 5.8 and later: only when an item doesn't have highlighting yet
  294. if version >= 508 || !exists("did_forth_syn_inits")
  295.     if version < 508
  296.     let did_forth_syn_inits = 1
  297.     command -nargs=+ HiLink hi link <args>
  298.     else
  299.     command -nargs=+ HiLink hi def link <args>
  300.     endif
  301.  
  302.     " The default methods for highlighting. Can be overridden later.
  303.     HiLink forthTodo Todo
  304.     HiLink forthOperators Operator
  305.     HiLink forthMath Number
  306.     HiLink forthInteger Number
  307.     HiLink forthFloat Float
  308.     HiLink forthStack Special
  309.     HiLink forthRstack Special
  310.     HiLink forthFStack Special
  311.     HiLink forthSP Special
  312.     HiLink forthMemory Function
  313.     HiLink forthAdrArith Function
  314.     HiLink forthMemBlks Function
  315.     HiLink forthCond Conditional
  316.     HiLink forthLoop Repeat
  317.     HiLink forthColonDef Define
  318.     HiLink forthEndOfColonDef Define
  319.     HiLink forthDefine Define
  320.     HiLink forthDebug Debug
  321.     HiLink forthAssembler Include
  322.     HiLink forthCharOps Character
  323.     HiLink forthConversion String
  324.     HiLink forthForth Statement
  325.     HiLink forthVocs Statement
  326.     HiLink forthString String
  327.     HiLink forthComment Comment
  328.     HiLink forthClassDef Define
  329.     HiLink forthEndOfClassDef Define
  330.     HiLink forthObjectDef Define
  331.     HiLink forthEndOfObjectDef Define
  332.     HiLink forthInclude Include
  333.     HiLink forthLocals Type " nothing else uses type and locals must stand out
  334.     HiLink forthDeprecated Error " if you must, change to Type
  335.     HiLink forthFileMode Function
  336.     HiLink forthFileWords Statement
  337.     HiLink forthBlocks Statement
  338.     HiLink forthSpaceError Error
  339.  
  340.     delcommand HiLink
  341. endif
  342.  
  343. let b:current_syntax = "forth"
  344.  
  345. let &cpo = s:cpo_save
  346. unlet s:cpo_save
  347. " vim:ts=8:sw=4:nocindent:smartindent:
  348.