JezK
Edit File: simula.vim
" Vim syntax file " Language: Simula " Maintainer: Haakon Riiser <hakonrk@fys.uio.no> " URL: http://folk.uio.no/hakonrk/vim/syntax/simula.vim " Last Change: 2001 May 15 " quit when a syntax file was already loaded if exists("b:current_syntax") finish endif " No case sensitivity in Simula syn case ignore syn match simulaComment "^%.*$" contains=simulaTodo syn region simulaComment start="!\|\<comment\>" end=";" contains=simulaTodo " Text between the keyword 'end' and either a semicolon or one of the " keywords 'end', 'else', 'when' or 'otherwise' is also a comment syn region simulaComment start="\<end\>"lc=3 matchgroup=Statement end=";\|\<\(end\|else\|when\|otherwise\)\>" syn match simulaCharError "'.\{-2,}'" syn match simulaCharacter "'.'" syn match simulaCharacter "'!\d\{-}!'" contains=simulaSpecialChar syn match simulaString '".\{-}"' contains=simulaSpecialChar,simulaTodo syn keyword simulaBoolean true false syn keyword simulaCompound begin end syn keyword simulaConditional else if otherwise then until when syn keyword simulaConstant none notext syn keyword simulaFunction procedure syn keyword simulaOperator eq eqv ge gt imp in is le lt ne new not qua syn keyword simulaRepeat while for syn keyword simulaReserved activate after at before delay go goto label prior reactivate switch to syn keyword simulaStatement do inner inspect step this syn keyword simulaStorageClass external hidden name protected value syn keyword simulaStructure class syn keyword simulaType array boolean character integer long real short text virtual syn match simulaAssigned "\<\h\w*\s*\((.*)\)\=\s*:\(=\|-\)"me=e-2 syn match simulaOperator "[&:=<>+\-*/]" syn match simulaOperator "\<and\(\s\+then\)\=\>" syn match simulaOperator "\<or\(\s\+else\)\=\>" syn match simulaReferenceType "\<ref\s*(.\{-})" syn match simulaSemicolon ";" syn match simulaSpecial "[(),.]" syn match simulaSpecialCharErr "!\d\{-4,}!" contained syn match simulaSpecialCharErr "!!" contained syn match simulaSpecialChar "!\d\{-}!" contains=simulaSpecialCharErr contained syn match simulaTodo "xxx\+" contained " Integer number (or float without `.') syn match simulaNumber "-\=\<\d\+\>" " Real with optional exponent syn match simulaReal "-\=\<\d\+\(\.\d\+\)\=\(&&\=[+-]\=\d\+\)\=\>" " Real starting with a `.', optional exponent syn match simulaReal "-\=\.\d\+\(&&\=[+-]\=\d\+\)\=\>" hi def link simulaAssigned Identifier hi def link simulaBoolean Boolean hi def link simulaCharacter Character hi def link simulaCharError Error hi def link simulaComment Comment hi def link simulaCompound Statement hi def link simulaConditional Conditional hi def link simulaConstant Constant hi def link simulaFunction Function hi def link simulaNumber Number hi def link simulaOperator Operator hi def link simulaReal Float hi def link simulaReferenceType Type hi def link simulaRepeat Repeat hi def link simulaReserved Error hi def link simulaSemicolon Statement hi def link simulaSpecial Special hi def link simulaSpecialChar SpecialChar hi def link simulaSpecialCharErr Error hi def link simulaStatement Statement hi def link simulaStorageClass StorageClass hi def link simulaString String hi def link simulaStructure Structure hi def link simulaTodo Todo hi def link simulaType Type let b:current_syntax = "simula" " vim: sts=4 sw=4 ts=8