share/vim/vim58/syntax/forth.vim

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