blob: e952ee26c33ee7cdf88a4984fd6a1b109b08c48b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
" 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
" For version 5.x: Clear all syntax items
" For version 6.x: Quit when a syntax file was already loaded
if version < 600
syn clear
elseif 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\+\)\=\>"
if version >= 508 || !exists("did_simula_syntax_inits")
if version < 508
let did_simula_syntax_inits = 1
command -nargs=+ HiLink hi link <args>
else
command -nargs=+ HiLink hi def link <args>
endif
HiLink simulaAssigned Identifier
HiLink simulaBoolean Boolean
HiLink simulaCharacter Character
HiLink simulaCharError Error
HiLink simulaComment Comment
HiLink simulaCompound Statement
HiLink simulaConditional Conditional
HiLink simulaConstant Constant
HiLink simulaFunction Function
HiLink simulaNumber Number
HiLink simulaOperator Operator
HiLink simulaReal Float
HiLink simulaReferenceType Type
HiLink simulaRepeat Repeat
HiLink simulaReserved Error
HiLink simulaSemicolon Statement
HiLink simulaSpecial Special
HiLink simulaSpecialChar SpecialChar
HiLink simulaSpecialCharErr Error
HiLink simulaStatement Statement
HiLink simulaStorageClass StorageClass
HiLink simulaString String
HiLink simulaStructure Structure
HiLink simulaTodo Todo
HiLink simulaType Type
delcommand HiLink
endif
let b:current_syntax = "simula"
" vim: sts=4 sw=4 ts=8
|
