codekingpro/portable-devtools

1" Vim syntax file2" Language:	Modsim III, by compuware corporation (www.compuware.com)3" Maintainer:	Philipp Jocham <flip@sbox.tu-graz.ac.at>4" Extension:	*.mod5" Last Change:	2001 May 106"7" 2001 March 24:8"  - Modsim III is a registered trademark from compuware corporation9"  - made compatible with Vim 6.010"11" 1999 Apr 22 : Changed modsim3Literal from region to match12"13" very basic things only (based on the modula2 and c files).14 15" quit when a syntax file was already loaded16if exists("b:current_syntax")17  finish18endif19 20 21" syn case match " case sensitiv match is default22 23" A bunch of keywords24syn keyword modsim3Keyword ACTID ALL AND AS ASK25syn keyword modsim3Keyword BY CALL CASE CLASS CONST DIV26syn keyword modsim3Keyword DOWNTO DURATION ELSE ELSIF EXIT FALSE FIXED FOR27syn keyword modsim3Keyword FOREACH FORWARD IF IN INHERITED INOUT28syn keyword modsim3Keyword INTERRUPT LOOP29syn keyword modsim3Keyword MOD MONITOR NEWVALUE30syn keyword modsim3Keyword NONMODSIM NOT OBJECT OF ON OR ORIGINAL OTHERWISE OUT31syn keyword modsim3Keyword OVERRIDE PRIVATE PROTO REPEAT32syn keyword modsim3Keyword RETURN REVERSED SELF STRERR TELL33syn keyword modsim3Keyword TERMINATE THISMETHOD TO TRUE TYPE UNTIL VALUE VAR34syn keyword modsim3Keyword WAIT WAITFOR WHEN WHILE WITH35 36" Builtin functions and procedures37syn keyword modsim3Builtin ABS ACTIVATE ADDMONITOR CAP CHARTOSTR CHR CLONE38syn keyword modsim3Builtin DEACTIVATE DEC DISPOSE FLOAT GETMONITOR HIGH INC39syn keyword modsim3Builtin INPUT INSERT INTTOSTR ISANCESTOR LOW LOWER MAX MAXOF40syn keyword modsim3Builtin MIN MINOF NEW OBJTYPEID OBJTYPENAME OBJVARID ODD41syn keyword modsim3Builtin ONERROR ONEXIT ORD OUTPUT POSITION PRINT REALTOSTR42syn keyword modsim3Builtin REPLACE REMOVEMONITOR ROUND SCHAR SIZEOF SPRINT43syn keyword modsim3Builtin STRLEN STRTOCHAR STRTOINT STRTOREAL SUBSTR TRUNC44syn keyword modsim3Builtin UPDATEVALUE UPPER VAL45 46syn keyword modsim3BuiltinNoParen HALT TRACE47 48" Special keywords49syn keyword modsim3Block PROCEDURE METHOD MODULE MAIN DEFINITION IMPLEMENTATION50syn keyword modsim3Block BEGIN END51 52syn keyword modsim3Include IMPORT FROM53 54syn keyword modsim3Type ANYARRAY ANYOBJ ANYREC ARRAY BOOLEAN CHAR INTEGER55syn keyword modsim3Type LMONITORED LRMONITORED NILARRAY NILOBJ NILREC REAL56syn keyword modsim3Type RECORD RMONITOR RMONITORED STRING57 58" catch errros cause by wrong parenthesis59" slight problem with "( *)" or "(* )". Hints?60syn region modsim3Paren	transparent start='(' end=')' contains=ALLBUT,modsim3ParenError61syn match modsim3ParenError ")"62 63" Comments64syn region modsim3Comment1 start="{" end="}" contains=modsim3Comment1,modsim3Comment265syn region modsim3Comment2 start="(\*" end="\*)" contains=modsim3Comment1,modsim3Comment266" highlighting is wrong for constructs like "{  (*  }  *)",67" which are allowed in Modsim III, but68" I think something like that shouldn't be used anyway.69 70" Strings71syn region modsim3String start=+"+ end=+"+72 73" Literals74"syn region modsim3Literal start=+'+ end=+'+75syn match modsim3Literal "'[^']'\|''''"76 77" Define the default highlighting.78" Only when an item doesn't have highlighting yet79 80" The default methods for highlighting.  Can be overridden later81hi def link modsim3Keyword	Statement82hi def link modsim3Block		Statement83hi def link modsim3Comment1	Comment84hi def link modsim3Comment2	Comment85hi def link modsim3String		String86hi def link modsim3Literal	Character87hi def link modsim3Include	Statement88hi def link modsim3Type		Type89hi def link modsim3ParenError	Error90hi def link modsim3Builtin	Function91hi def link modsim3BuiltinNoParen	Function92 93 94let b:current_syntax = "modsim3"95 96" vim: ts=8 sw=297 98