| " Vim syntax file |
| " Language: FORTH |
| " Maintainer: Christian V. J. Brüssow <cvjb@cvjb.de> |
| " Last Change: Di 06 Jul 2004 18:40:33 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... |
| " |
| " 2004-07-06: |
| " Changed "syn sync ccomment maxlines=200" line: splitted it into two separate |
| " lines. |
| " |
| " 2003-05-10: |
| " Andrew Gaul <andrew at gaul.org> send me a patch for |
| " forthOperators. |
| " |
| " 2003-04-03: |
| " Ron Aaron <ronaharon at yahoo.com> 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 |
| syn sync 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: |