home *** CD-ROM | disk | FTP | other *** search
Text File | 1999-09-25 | 3.2 KB | 72 lines | [TEXT/VIM!] |
- " Vim syntax file
- " Language: Modula 2
- " Maintainer: pf@artcom0.north.de (Peter Funk)
- " based on original work of Bram Moolenaar <Bram@vim.org>
- " Last change: 1999 Jun 14
-
- " Remove any old syntax stuff hanging around
- syn clear
-
- " Don't ignore case (Modula-2 is case significant). This is the default in vim
-
- " Especially emphasize headers of procedures and modules:
- syn region modula2Header matchgroup=modula2Header start="PROCEDURE " end="(" contains=modula2Ident oneline
- syn region modula2Header matchgroup=modula2Header start="MODULE " end=";" contains=modula2Ident oneline
- syn region modula2Header matchgroup=modula2Header start="BEGIN (\*" end="\*)" contains=modula2Ident oneline
- syn region modula2Header matchgroup=modula2Header start="END " end=";" contains=modula2Ident oneline
- syn region modula2Keyword start="END" end=";" contains=ALLBUT,modula2Ident oneline
-
- " Some very important keywords which should be emphasized more than others:
- syn keyword modula2AttKeyword CONST EXIT HALT RETURN TYPE VAR
- " All other keywords in alphabetical order:
- syn keyword modula2Keyword AND ARRAY BY CASE DEFINITION DIV DO ELSE
- syn keyword modula2Keyword ELSIF EXPORT FOR FROM IF IMPLEMENTATION IMPORT
- syn keyword modula2Keyword IN LOOP MOD NOT OF OR POINTER QUALIFIED RECORD
- syn keyword modula2Keyword SET THEN TO UNTIL WHILE WITH
-
- syn keyword modula2Type ADDRESS BITSET BOOLEAN CARDINAL CHAR INTEGER REAL WORD
- syn keyword modula2StdFunc ABS CAP CHR DEC EXCL INC INCL ORD SIZE TSIZE VAL
- syn keyword modula2StdConst FALSE NIL TRUE
- " The following may be discussed, since NEW and DISPOSE are some kind of
- " special builtin macro functions:
- syn keyword modula2StdFunc NEW DISPOSE
- " The following types are added later on and may be missing from older
- " Modula-2 Compilers (they are at least missing from the original report
- " by N.Wirth from March 1980 ;-) Highlighting should apply nevertheless:
- syn keyword modula2Type BYTE LONGCARD LONGINT LONGREAL PROC SHORTCARD SHORTINT
- " same note applies to min and max, which were also added later to m2:
- syn keyword modula2StdFunc MAX MIN
- " The underscore was originally disallowed in m2 ids, it was also added later:
- syn match modula2Ident " [A-Z,a-z][A-Z,a-z,0-9,_]*" contained
-
- " Comments may be nested in Modula-2:
- syn region modula2Comment start="(\*" end="\*)" contains=modula2Comment,modula2Todo
- syn keyword modula2Todo contained TODO FIXME XXX
-
- " Strings
- syn region modula2String start=+"+ end=+"+
- syn region modula2String start="'" end="'"
- syn region modula2Set start="{" end="}"
-
- if !exists("did_modula2_syntax_inits")
- let did_modula2_syntax_inits = 1
- " The default methods for highlighting. Can be overridden later
- hi link modula2Ident Identifier
- hi link modula2StdConst Boolean
- hi link modula2Type Identifier
- hi link modula2StdFunc Identifier
- hi link modula2Header Type
- hi link modula2Keyword Statement
- hi link modula2AttKeyword PreProc
- hi link modula2Comment Comment
- " The following is just a matter of taste (you want to try this instead):
- " hi modula2Comment term=bold ctermfg=DarkBlue guifg=Blue gui=bold
- hi link modula2Todo Todo
- hi link modula2String String
- hi link modula2Set String
- endif
-
- let b:current_syntax = "modula2"
-
- " vim: ts=8
-