mirror of
https://github.com/vim/vim.git
synced 2025-09-24 03:44:06 -04:00
updated for version 7.0001
This commit is contained in:
Bram Moolenaar
235
runtime/syntax/forth.vim
Normal file
235
runtime/syntax/forth.vim
Normal file
@@ -0,0 +1,235 @@
|
||||
" Vim syntax file
|
||||
" Language: FORTH
|
||||
" Maintainer: Christian V. J. Br<42>ssow <cvjb@cvjb.de>
|
||||
" Last Change: Son 22 Jun 2003 20:42:55 CEST
|
||||
" Filenames: *.fs,*.ft
|
||||
" URL: http://www.cvjb.de/comp/vim/forth.vim
|
||||
|
||||
" $Id$
|
||||
|
||||
" The list of keywords is incomplete, compared with the offical ANS
|
||||
" wordlist. If you use this language, please improve it, and send me
|
||||
" the patches.
|
||||
|
||||
" Many Thanks to...
|
||||
"
|
||||
" 2003-05-10:
|
||||
" Andrew Gaul <andrew at gaul.org> send me a patch for
|
||||
" forthOperators.
|
||||
"
|
||||
" 2003-04-03:
|
||||
" Ron Aaron <ron at ronware.org> made updates for an
|
||||
" improved Win32Forth support.
|
||||
"
|
||||
" 2002-04-22:
|
||||
" Charles Shattuck <charley at forth.org> helped me to settle up with the
|
||||
" binary and hex number highlighting.
|
||||
"
|
||||
" 2002-04-20:
|
||||
" Charles Shattuck <charley at forth.org> send me some code for correctly
|
||||
" highlighting char and [char] followed by an opening paren. He also added
|
||||
" some words for operators, conditionals, and definitions; and added the
|
||||
" highlighting for s" and c".
|
||||
"
|
||||
" 2000-03-28:
|
||||
" John Providenza <john at probo.com> made improvements for the
|
||||
" highlighting of strings, and added the code for highlighting hex numbers.
|
||||
"
|
||||
|
||||
|
||||
" For version 5.x: Clear all syntax items
|
||||
" For version 6.x: Quit when a syntax file was already loaded
|
||||
if version < 600
|
||||
syntax clear
|
||||
elseif exists("b:current_syntax")
|
||||
finish
|
||||
endif
|
||||
|
||||
" Synchronization method
|
||||
syn sync ccomment maxlines=200
|
||||
|
||||
" I use gforth, so I set this to case ignore
|
||||
syn case ignore
|
||||
|
||||
" Some special, non-FORTH keywords
|
||||
syn keyword forthTodo contained TODO FIXME XXX
|
||||
syn match forthTodo contained 'Copyright\(\s([Cc])\)\=\(\s[0-9]\{2,4}\)\='
|
||||
|
||||
" Characters allowed in keywords
|
||||
" I don't know if 128-255 are allowed in ANS-FORHT
|
||||
if version >= 600
|
||||
setlocal iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
|
||||
else
|
||||
set iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
|
||||
endif
|
||||
|
||||
|
||||
" Keywords
|
||||
|
||||
" basic mathematical and logical operators
|
||||
syn keyword forthOperators + - * / MOD /MOD NEGATE ABS MIN MAX
|
||||
syn keyword forthOperators AND OR XOR NOT INVERT 2* 2/ 1+ 1- 2+ 2- 8*
|
||||
syn keyword forthOperators M+ */ */MOD M* UM* M*/ UM/MOD FM/MOD SM/REM
|
||||
syn keyword forthOperators D+ D- DNEGATE DABS DMIN DMAX
|
||||
syn keyword forthOperators F+ F- F* F/ FNEGATE FABS FMAX FMIN FLOOR FROUND
|
||||
syn keyword forthOperators F** FSQRT FEXP FEXPM1 FLN FLNP1 FLOG FALOG FSIN
|
||||
syn keyword forthOperators FCOS FSINCOS FTAN FASIN FACOS FATAN FATAN2 FSINH
|
||||
syn keyword forthOperators FCOSH FTANH FASINH FACOSH FATANH
|
||||
syn keyword forthOperators 0< 0<= 0<> 0= 0> 0>= < <= <> = > >=
|
||||
syn keyword forthOperators ?NEGATE ?DNEGATE
|
||||
|
||||
" stack manipulations
|
||||
syn keyword forthStack DROP NIP DUP OVER TUCK SWAP ROT -ROT ?DUP PICK ROLL
|
||||
syn keyword forthStack 2DROP 2NIP 2DUP 2OVER 2TUCK 2SWAP 2ROT
|
||||
syn keyword forthStack 3DUP 4DUP
|
||||
syn keyword forthRStack >R R> R@ RDROP 2>R 2R> 2R@ 2RDROP
|
||||
syn keyword forthFStack FDROP FNIP FDUP FOVER FTUCK FSWAP FROT
|
||||
|
||||
" stack pointer manipulations
|
||||
syn keyword forthSP SP@ SP! FP@ FP! RP@ RP! LP@ LP!
|
||||
|
||||
" address operations
|
||||
syn keyword forthMemory @ ! +! C@ C! 2@ 2! F@ F! SF@ SF! DF@ DF!
|
||||
syn keyword forthAdrArith CHARS CHAR+ CELLS CELL+ CELL ALIGN ALIGNED FLOATS
|
||||
syn keyword forthAdrArith FLOAT+ FLOAT FALIGN FALIGNED SFLOATS SFLOAT+
|
||||
syn keyword forthAdrArith SFALIGN SFALIGNED DFLOATS DFLOAT+ DFALIGN DFALIGNED
|
||||
syn keyword forthAdrArith MAXALIGN MAXALIGNED CFALIGN CFALIGNED
|
||||
syn keyword forthAdrArith ADDRESS-UNIT-BITS ALLOT ALLOCATE HERE
|
||||
syn keyword forthMemBlks MOVE ERASE CMOVE CMOVE> FILL BLANK
|
||||
|
||||
" conditionals
|
||||
syn keyword forthCond IF ELSE ENDIF THEN CASE OF ENDOF ENDCASE ?DUP-IF
|
||||
syn keyword forthCond ?DUP-0=-IF AHEAD CS-PICK CS-ROLL CATCH THROW WITHIN
|
||||
|
||||
" iterations
|
||||
syn keyword forthLoop BEGIN WHILE REPEAT UNTIL AGAIN
|
||||
syn keyword forthLoop ?DO LOOP I J K +DO U+DO -DO U-DO DO +LOOP -LOOP
|
||||
syn keyword forthLoop UNLOOP LEAVE ?LEAVE EXIT DONE FOR NEXT
|
||||
|
||||
" new words
|
||||
syn match forthColonDef '\<:m\?\s*[^ \t]\+\>'
|
||||
syn keyword forthEndOfColonDef ; ;M ;m
|
||||
syn keyword forthDefine CONSTANT 2CONSTANT FCONSTANT VARIABLE 2VARIABLE CREATE
|
||||
syn keyword forthDefine USER VALUE TO DEFER IS DOES> IMMEDIATE COMPILE-ONLY
|
||||
syn keyword forthDefine COMPILE RESTRICT INTERPRET POSTPONE EXECUTE LITERAL
|
||||
syn keyword forthDefine CREATE-INTERPRET/COMPILE INTERPRETATION> <INTERPRETATION
|
||||
syn keyword forthDefine COMPILATION> <COMPILATION ] LASTXT COMP' POSTPONE,
|
||||
syn keyword forthDefine FIND-NAME NAME>INT NAME?INT NAME>COMP NAME>STRING STATE
|
||||
syn keyword forthDefine C; CVARIABLE
|
||||
syn match forthDefine "\[COMP']"
|
||||
syn match forthDefine "'"
|
||||
syn match forthDefine '\<\[\>'
|
||||
syn match forthDefine "\[']"
|
||||
syn match forthDefine '\[COMPILE]'
|
||||
syn match forthClassDef '\<:class\s*[^ \t]\+\>'
|
||||
syn match forthObjectDef '\<:object\s*[^ \t]\+\>'
|
||||
syn keyword forthEndOfClassDef ';class'
|
||||
syn keyword forthEndOfObjectDef ';object'
|
||||
|
||||
" debugging
|
||||
syn keyword forthDebug PRINTDEBUGDATA PRINTDEBUGLINE
|
||||
syn match forthDebug "\<\~\~\>"
|
||||
|
||||
" Assembler
|
||||
syn keyword forthAssembler ASSEMBLER CODE END-CODE ;CODE FLUSH-ICACHE C,
|
||||
|
||||
" basic character operations
|
||||
syn keyword forthCharOps (.) CHAR EXPECT FIND WORD TYPE -TRAILING EMIT KEY
|
||||
syn keyword forthCharOps KEY? TIB CR
|
||||
" recognize 'char (' or '[char] (' correctly, so it doesn't
|
||||
" highlight everything after the paren as a comment till a closing ')'
|
||||
syn match forthCharOps '\<char\s\S\s'
|
||||
syn match forthCharOps '\<\[char\]\s\S\s'
|
||||
syn region forthCharOps start=+."\s+ skip=+\\"+ end=+"+
|
||||
|
||||
" char-number conversion
|
||||
syn keyword forthConversion <# # #> #S (NUMBER) (NUMBER?) CONVERT D>F D>S DIGIT
|
||||
syn keyword forthConversion DPL F>D HLD HOLD NUMBER S>D SIGN >NUMBER
|
||||
|
||||
" interptreter, wordbook, compiler
|
||||
syn keyword forthForth (LOCAL) BYE COLD ABORT >BODY >NEXT >LINK CFA >VIEW HERE
|
||||
syn keyword forthForth PAD WORDS VIEW VIEW> N>LINK NAME> LINK> L>NAME FORGET
|
||||
syn keyword forthForth BODY>
|
||||
syn region forthForth start=+ABORT"\s+ skip=+\\"+ end=+"+
|
||||
|
||||
" vocabularies
|
||||
syn keyword forthVocs ONLY FORTH ALSO ROOT SEAL VOCS ORDER CONTEXT #VOCS
|
||||
syn keyword forthVocs VOCABULARY DEFINITIONS
|
||||
|
||||
" numbers
|
||||
syn keyword forthMath DECIMAL HEX BASE
|
||||
syn match forthInteger '\<-\=[0-9.]*[0-9.]\+\>'
|
||||
" recognize hex and binary numbers, the '$' and '%' notation is for gforth
|
||||
syn match forthInteger '\<\$\x*\x\+\>' " *1* --- dont't mess
|
||||
syn match forthInteger '\<\x*\d\x*\>' " *2* --- this order!
|
||||
syn match forthInteger '\<%[0-1]*[0-1]\+\>'
|
||||
syn match forthFloat '\<-\=\d*[.]\=\d\+[Ee]\d\+\>'
|
||||
|
||||
" Strings
|
||||
syn region forthString start=+\.*\"+ end=+"+ end=+$+
|
||||
" XXX
|
||||
syn region forthString start=+s\"+ end=+"+ end=+$+
|
||||
syn region forthString start=+c\"+ end=+"+ end=+$+
|
||||
|
||||
" Comments
|
||||
syn match forthComment '\\\s.*$' contains=forthTodo
|
||||
syn region forthComment start='\\S\s' end='.*' contains=forthTodo
|
||||
syn match forthComment '\.(\s[^)]*)' contains=forthTodo
|
||||
syn region forthComment start='(\s' skip='\\)' end=')' contains=forthTodo
|
||||
syn region forthComment start='/\*' end='\*/' contains=forthTodo
|
||||
"syn match forthComment '(\s[^\-]*\-\-[^\-]*)' contains=forthTodo
|
||||
|
||||
" Include files
|
||||
syn match forthInclude '^INCLUDE\s\+\k\+'
|
||||
syn match forthInclude '^fload\s\+'
|
||||
syn match forthInclude '^needs\s\+'
|
||||
|
||||
" Define the default highlighting.
|
||||
" For version 5.7 and earlier: only when not done already
|
||||
" For version 5.8 and later: only when an item doesn't have highlighting yet
|
||||
if version >= 508 || !exists("did_forth_syn_inits")
|
||||
if version < 508
|
||||
let did_forth_syn_inits = 1
|
||||
command -nargs=+ HiLink hi link <args>
|
||||
else
|
||||
command -nargs=+ HiLink hi def link <args>
|
||||
endif
|
||||
|
||||
" The default methods for highlighting. Can be overriden later.
|
||||
HiLink forthTodo Todo
|
||||
HiLink forthOperators Operator
|
||||
HiLink forthMath Number
|
||||
HiLink forthInteger Number
|
||||
HiLink forthFloat Float
|
||||
HiLink forthStack Special
|
||||
HiLink forthRstack Special
|
||||
HiLink forthFStack Special
|
||||
HiLink forthSP Special
|
||||
HiLink forthMemory Function
|
||||
HiLink forthAdrArith Function
|
||||
HiLink forthMemBlks Function
|
||||
HiLink forthCond Conditional
|
||||
HiLink forthLoop Repeat
|
||||
HiLink forthColonDef Define
|
||||
HiLink forthEndOfColonDef Define
|
||||
HiLink forthDefine Define
|
||||
HiLink forthDebug Debug
|
||||
HiLink forthAssembler Include
|
||||
HiLink forthCharOps Character
|
||||
HiLink forthConversion String
|
||||
HiLink forthForth Statement
|
||||
HiLink forthVocs Statement
|
||||
HiLink forthString String
|
||||
HiLink forthComment Comment
|
||||
HiLink forthClassDef Define
|
||||
HiLink forthEndOfClassDef Define
|
||||
HiLink forthObjectDef Define
|
||||
HiLink forthEndOfObjectDef Define
|
||||
HiLink forthInclude Include
|
||||
|
||||
delcommand HiLink
|
||||
endif
|
||||
|
||||
let b:current_syntax = "forth"
|
||||
|
||||
" vim:ts=8:sw=4:nocindent:smartindent:
|
||||
Reference in New Issue
Block a user