" 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
|