92 lines
3.4 KiB
VimL
92 lines
3.4 KiB
VimL
if !exists('g:polyglot_disabled') || index(g:polyglot_disabled, 'vim') == -1
|
|
|
|
" 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
|
|
|
|
endif
|