runtime/syntax/modula3.vim

   1 " Vim syntax file
   2 " Language:     Modula-3
   3 " Maintainer:   Timo Pedersen <dat97tpe@ludat.lth.se>
   4 " Last Change:  2001 May 10
   5
   6 " Basic things only...
   7 " Based on the modula 2 syntax file
   8
   9 " For version 5.x: Clear all syntax items
  10 " For version 6.x: Quit when a syntax file was already loaded
  11 if version < 600
  12   syntax clear
  13 elseif exists("b:current_syntax")
  14   finish
  15 endif
  16
  17 " Modula-3 is case-sensitive
  18 " syn case ignore
  19
  20 " Modula-3 keywords
  21 syn keyword modula3Keyword ABS ADDRES ADR ADRSIZE AND ANY
  22 syn keyword modula3Keyword ARRAY AS BITS BITSIZE BOOLEAN BRANDED BY BYTESIZE
  23 syn keyword modula3Keyword CARDINAL CASE CEILING CHAR CONST DEC DEFINITION
  24 syn keyword modula3Keyword DISPOSE DIV
  25 syn keyword modula3Keyword EVAL EXIT EXCEPT EXCEPTION
  26 syn keyword modula3Keyword EXIT EXPORTS EXTENDED FALSE FINALLY FIRST FLOAT
  27 syn keyword modula3Keyword FLOOR FROM GENERIC IMPORT
  28 syn keyword modula3Keyword IN INC INTEGER ISTYPE LAST LOCK
  29 syn keyword modula3Keyword LONGREAL LOOPHOLE MAX METHOD MIN MOD MUTEX
  30 syn keyword modula3Keyword NARROW NEW NIL NOT NULL NUMBER OF OR ORD RAISE
  31 syn keyword modula3Keyword RAISES READONLY REAL RECORD REF REFANY
  32 syn keyword modula3Keyword RETURN ROOT
  33 syn keyword modula3Keyword ROUND SET SUBARRAY TEXT TRUE TRUNC TRY TYPE
  34 syn keyword modula3Keyword TYPECASE TYPECODE UNSAFE UNTRACED VAL VALUE VAR WITH
  35
  36 " Special keywords, block delimiters etc
  37 syn keyword modula3Block PROCEDURE FUNCTION MODULE INTERFACE REPEAT THEN
  38 syn keyword modula3Block BEGIN END OBJECT METHODS OVERRIDES RECORD REVEAL
  39 syn keyword modula3Block WHILE UNTIL DO TO IF FOR ELSIF ELSE LOOP
  40
  41 " Comments
  42 syn region modula3Comment start="(\*" end="\*)"
  43
  44 " Strings
  45 syn region modula3String start=+"+ end=+"+
  46 syn region modula3String start=+'+ end=+'+
  47
  48 " Define the default highlighting.
  49 " For version 5.7 and earlier: only when not done already
  50 " For version 5.8 and later: only when an item doesn't have highlighting yet
  51 if version >= 508 || !exists("did_modula3_syntax_inits")
  52   if version < 508
  53     let did_modula3_syntax_inits = 1
  54     command -nargs=+ HiLink hi link <args>
  55   else
  56     command -nargs=+ HiLink hi def link <args>
  57   endif
  58
  59   " The default methods for highlighting.  Can be overridden later
  60   HiLink modula3Keyword Statement
  61   HiLink modula3Block           PreProc
  62   HiLink modula3Comment Comment
  63   HiLink modula3String          String
  64
  65   delcommand HiLink
  66 endif
  67
  68 let b:current_syntax = "modula3"
  69
  70 "I prefer to use this...
  71 "set ai
  72 "vim: ts=8