runtime/syntax/forth.vim

   1 " Vim syntax file
   2 " Language:    FORTH
   3 " Maintainer:  Christian V. J. Brüssow <cvjb@cvjb.de>
   4 " Last Change: Di 06 Jul 2004 18:40:33 CEST
   5 " Filenames:   *.fs,*.ft
   6 " URL:         http://www.cvjb.de/comp/vim/forth.vim
   7
   8 " $Id: forth.vim,v 1.2 2004/07/10 09:40:55 vimboss Exp $
   9
  10 " The list of keywords is incomplete, compared with the offical ANS
  11 " wordlist. If you use this language, please improve it, and send me
  12 " the patches.
  13
  14 " Many Thanks to...
  15 "
  16 " 2004-07-06:
  17 " Changed "syn sync ccomment maxlines=200" line: splitted it into two separate
  18 " lines.
  19 "
  20 " 2003-05-10:
  21 " Andrew Gaul <andrew at gaul.org> send me a patch for
  22 " forthOperators.
  23 "
  24 " 2003-04-03:
  25 " Ron Aaron <ronaharon at yahoo.com> made updates for an
  26 " improved Win32Forth support.
  27 "
  28 " 2002-04-22:
  29 " Charles Shattuck <charley at forth.org> helped me to settle up with the
  30 " binary and hex number highlighting.
  31 "
  32 " 2002-04-20:
  33 " Charles Shattuck <charley at forth.org> send me some code for correctly
  34 " highlighting char and [char] followed by an opening paren. He also added
  35 " some words for operators, conditionals, and definitions; and added the
  36 " highlighting for s" and c".
  37 "
  38 " 2000-03-28:
  39 " John Providenza <john at probo.com> made improvements for the
  40 " highlighting of strings, and added the code for highlighting hex numbers.
  41 "
  42
  43
  44 " For version 5.x: Clear all syntax items
  45 " For version 6.x: Quit when a syntax file was already loaded
  46 if version < 600
  47     syntax clear
  48 elseif exists("b:current_syntax")
  49     finish
  50 endif
  51
  52 " Synchronization method
  53 syn sync ccomment
  54 syn sync maxlines=200
  55
  56 " I use gforth, so I set this to case ignore
  57 syn case ignore
  58
  59 " Some special, non-FORTH keywords
  60 syn keyword forthTodo contained TODO FIXME XXX
  61 syn match forthTodo contained 'Copyright\(\s([Cc])\)\=\(\s[0-9]\{2,4}\)\='
  62
  63 " Characters allowed in keywords
  64 " I don't know if 128-255 are allowed in ANS-FORHT
  65 if version >= 600
  66     setlocal iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
  67 else
  68     set iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
  69 endif
  70
  71
  72 " Keywords
  73
  74 " basic mathematical and logical operators
  75 syn keyword forthOperators + - * / MOD /MOD NEGATE ABS MIN MAX
  76 syn keyword forthOperators AND OR XOR NOT INVERT 2* 2/ 1+ 1- 2+ 2- 8*
  77 syn keyword forthOperators M+ */ */MOD M* UM* M*/ UM/MOD FM/MOD SM/REM
  78 syn keyword forthOperators D+ D- DNEGATE DABS DMIN DMAX
  79 syn keyword forthOperators F+ F- F* F/ FNEGATE FABS FMAX FMIN FLOOR FROUND
  80 syn keyword forthOperators F** FSQRT FEXP FEXPM1 FLN FLNP1 FLOG FALOG FSIN
  81 syn keyword forthOperators FCOS FSINCOS FTAN FASIN FACOS FATAN FATAN2 FSINH
  82 syn keyword forthOperators FCOSH FTANH FASINH FACOSH FATANH
  83 syn keyword forthOperators 0< 0<= 0<> 0= 0> 0>= < <= <> = > >=
  84 syn keyword forthOperators ?NEGATE ?DNEGATE
  85
  86 " stack manipulations
  87 syn keyword forthStack DROP NIP DUP OVER TUCK SWAP ROT -ROT ?DUP PICK ROLL
  88 syn keyword forthStack 2DROP 2NIP 2DUP 2OVER 2TUCK 2SWAP 2ROT
  89 syn keyword forthStack 3DUP 4DUP
  90 syn keyword forthRStack >R R> R@ RDROP 2>R 2R> 2R@ 2RDROP
  91 syn keyword forthFStack FDROP FNIP FDUP FOVER FTUCK FSWAP FROT
  92
  93 " stack pointer manipulations
  94 syn keyword forthSP SP@ SP! FP@ FP! RP@ RP! LP@ LP!
  95
  96 " address operations
  97 syn keyword forthMemory @ ! +! C@ C! 2@ 2! F@ F! SF@ SF! DF@ DF!
  98 syn keyword forthAdrArith CHARS CHAR+ CELLS CELL+ CELL ALIGN ALIGNED FLOATS
  99 syn keyword forthAdrArith FLOAT+ FLOAT FALIGN FALIGNED SFLOATS SFLOAT+
 100 syn keyword forthAdrArith SFALIGN SFALIGNED DFLOATS DFLOAT+ DFALIGN DFALIGNED
 101 syn keyword forthAdrArith MAXALIGN MAXALIGNED CFALIGN CFALIGNED
 102 syn keyword forthAdrArith ADDRESS-UNIT-BITS ALLOT ALLOCATE HERE
 103 syn keyword forthMemBlks MOVE ERASE CMOVE CMOVE> FILL BLANK
 104
 105 " conditionals
 106 syn keyword forthCond IF ELSE ENDIF THEN CASE OF ENDOF ENDCASE ?DUP-IF
 107 syn keyword forthCond ?DUP-0=-IF AHEAD CS-PICK CS-ROLL CATCH THROW WITHIN
 108
 109 " iterations
 110 syn keyword forthLoop BEGIN WHILE REPEAT UNTIL AGAIN
 111 syn keyword forthLoop ?DO LOOP I J K +DO U+DO -DO U-DO DO +LOOP -LOOP
 112 syn keyword forthLoop UNLOOP LEAVE ?LEAVE EXIT DONE FOR NEXT
 113
 114 " new words
 115 syn match forthColonDef '\<:m\?\s*[^ \t]\+\>'
 116 syn keyword forthEndOfColonDef ; ;M ;m
 117 syn keyword forthDefine CONSTANT 2CONSTANT FCONSTANT VARIABLE 2VARIABLE CREATE
 118 syn keyword forthDefine USER VALUE TO DEFER IS DOES> IMMEDIATE COMPILE-ONLY
 119 syn keyword forthDefine COMPILE RESTRICT INTERPRET POSTPONE EXECUTE LITERAL
 120 syn keyword forthDefine CREATE-INTERPRET/COMPILE INTERPRETATION> <INTERPRETATION
 121 syn keyword forthDefine COMPILATION> <COMPILATION ] LASTXT COMP' POSTPONE,
 122 syn keyword forthDefine FIND-NAME NAME>INT NAME?INT NAME>COMP NAME>STRING STATE
 123 syn keyword forthDefine C; CVARIABLE
 124 syn match forthDefine "\[COMP']"
 125 syn match forthDefine "'"
 126 syn match forthDefine '\<\[\>'
 127 syn match forthDefine "\[']"
 128 syn match forthDefine '\[COMPILE]'
 129 syn match forthClassDef '\<:class\s*[^ \t]\+\>'
 130 syn match forthObjectDef '\<:object\s*[^ \t]\+\>'
 131 syn keyword forthEndOfClassDef ';class'
 132 syn keyword forthEndOfObjectDef ';object'
 133
 134 " debugging
 135 syn keyword forthDebug PRINTDEBUGDATA PRINTDEBUGLINE
 136 syn match forthDebug "\<\~\~\>"
 137
 138 " Assembler
 139 syn keyword forthAssembler ASSEMBLER CODE END-CODE ;CODE FLUSH-ICACHE C,
 140
 141 " basic character operations
 142 syn keyword forthCharOps (.) CHAR EXPECT FIND WORD TYPE -TRAILING EMIT KEY
 143 syn keyword forthCharOps KEY? TIB CR
 144 " recognize 'char (' or '[char] (' correctly, so it doesn't
 145 " highlight everything after the paren as a comment till a closing ')'
 146 syn match forthCharOps '\<char\s\S\s'
 147 syn match forthCharOps '\<\[char\]\s\S\s'
 148 syn region forthCharOps start=+."\s+ skip=+\\"+ end=+"+
 149
 150 " char-number conversion
 151 syn keyword forthConversion <# # #> #S (NUMBER) (NUMBER?) CONVERT D>F D>S DIGIT
 152 syn keyword forthConversion DPL F>D HLD HOLD NUMBER S>D SIGN >NUMBER
 153
 154 " interptreter, wordbook, compiler
 155 syn keyword forthForth (LOCAL) BYE COLD ABORT >BODY >NEXT >LINK CFA >VIEW HERE
 156 syn keyword forthForth PAD WORDS VIEW VIEW> N>LINK NAME> LINK> L>NAME FORGET
 157 syn keyword forthForth BODY>
 158 syn region forthForth start=+ABORT"\s+ skip=+\\"+ end=+"+
 159
 160 " vocabularies
 161 syn keyword forthVocs ONLY FORTH ALSO ROOT SEAL VOCS ORDER CONTEXT #VOCS
 162 syn keyword forthVocs VOCABULARY DEFINITIONS
 163
 164 " numbers
 165 syn keyword forthMath DECIMAL HEX BASE
 166 syn match forthInteger '\<-\=[0-9.]*[0-9.]\+\>'
 167 " recognize hex and binary numbers, the '$' and '%' notation is for gforth
 168 syn match forthInteger '\<\$\x*\x\+\>' " *1* --- dont't mess
 169 syn match forthInteger '\<\x*\d\x*\>'  " *2* --- this order!
 170 syn match forthInteger '\<%[0-1]*[0-1]\+\>'
 171 syn match forthFloat '\<-\=\d*[.]\=\d\+[Ee]\d\+\>'
 172
 173 " Strings
 174 syn region forthString start=+\.*\"+ end=+"+ end=+$+
 175 " XXX
 176 syn region forthString start=+s\"+ end=+"+ end=+$+
 177 syn region forthString start=+c\"+ end=+"+ end=+$+
 178
 179 " Comments
 180 syn match forthComment '\\\s.*$' contains=forthTodo
 181 syn region forthComment start='\\S\s' end='.*' contains=forthTodo
 182 syn match forthComment '\.(\s[^)]*)' contains=forthTodo
 183 syn region forthComment start='(\s' skip='\\)' end=')' contains=forthTodo
 184 syn region forthComment start='/\*' end='\*/' contains=forthTodo
 185 "syn match forthComment '(\s[^\-]*\-\-[^\-]*)' contains=forthTodo
 186
 187 " Include files
 188 syn match forthInclude '^INCLUDE\s\+\k\+'
 189 syn match forthInclude '^fload\s\+'
 190 syn match forthInclude '^needs\s\+'
 191
 192 " Define the default highlighting.
 193 " For version 5.7 and earlier: only when not done already
 194 " For version 5.8 and later: only when an item doesn't have highlighting yet
 195 if version >= 508 || !exists("did_forth_syn_inits")
 196     if version < 508
 197         let did_forth_syn_inits = 1
 198         command -nargs=+ HiLink hi link <args>
 199     else
 200         command -nargs=+ HiLink hi def link <args>
 201     endif
 202
 203     " The default methods for highlighting. Can be overriden later.
 204     HiLink forthTodo Todo
 205     HiLink forthOperators Operator
 206     HiLink forthMath Number
 207     HiLink forthInteger Number
 208     HiLink forthFloat Float
 209     HiLink forthStack Special
 210     HiLink forthRstack Special
 211     HiLink forthFStack Special
 212     HiLink forthSP Special
 213     HiLink forthMemory Function
 214     HiLink forthAdrArith Function
 215     HiLink forthMemBlks Function
 216     HiLink forthCond Conditional
 217     HiLink forthLoop Repeat
 218     HiLink forthColonDef Define
 219     HiLink forthEndOfColonDef Define
 220     HiLink forthDefine Define
 221     HiLink forthDebug Debug
 222     HiLink forthAssembler Include
 223     HiLink forthCharOps Character
 224     HiLink forthConversion String
 225     HiLink forthForth Statement
 226     HiLink forthVocs Statement
 227     HiLink forthString String
 228     HiLink forthComment Comment
 229     HiLink forthClassDef Define
 230     HiLink forthEndOfClassDef Define
 231     HiLink forthObjectDef Define
 232     HiLink forthEndOfObjectDef Define
 233     HiLink forthInclude Include
 234
 235     delcommand HiLink
 236 endif
 237
 238 let b:current_syntax = "forth"
 239
 240 " vim:ts=8:sw=4:nocindent:smartindent: