blob: 1b84ed8f3843b7265ef513b11f8ba74d836037d2 (
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
|
" Vim syntax file
" Language: Sather/pSather
" Maintainer: Claudio Fleiner <claudio@fleiner.com>
" URL: http://www.fleiner.com/vim/syntax/sather.vim
" Last Change: 2003 May 11
" Sather is a OO-language developped at the International Computer Science
" Institute (ICSI) in Berkeley, CA. pSather is a parallel extension to Sather.
" Homepage: http://www.icsi.berkeley.edu/~sather
" Sather files use .sa as suffix
" quit when a syntax file was already loaded
if exists("b:current_syntax")
finish
endif
" keyword definitions
syn keyword satherExternal extern
syn keyword satherBranch break continue
syn keyword satherLabel when then
syn keyword satherConditional if else elsif end case typecase assert with
syn match satherConditional "near$"
syn match satherConditional "far$"
syn match satherConditional "near *[^(]"he=e-1
syn match satherConditional "far *[^(]"he=e-1
syn keyword satherSynchronize lock guard sync
syn keyword satherRepeat loop parloop do
syn match satherRepeat "while!"
syn match satherRepeat "break!"
syn match satherRepeat "until!"
syn keyword satherBoolValue true false
syn keyword satherValue self here cluster
syn keyword satherOperator new "== != & ^ | && ||
syn keyword satherOperator and or not
syn match satherOperator "[#!]"
syn match satherOperator ":-"
syn keyword satherType void attr where
syn match satherType "near *("he=e-1
syn match satherType "far *("he=e-1
syn keyword satherStatement return
syn keyword satherStorageClass static const
syn keyword satherExceptions try raise catch
syn keyword satherMethodDecl is pre post
syn keyword satherClassDecl abstract value class include
syn keyword satherScopeDecl public private readonly
syn match satherSpecial contained "\\\d\d\d\|\\."
syn region satherString start=+"+ skip=+\\\\\|\\"+ end=+"+ contains=satherSpecial
syn match satherCharacter "'[^\\]'"
syn match satherSpecialCharacter "'\\.'"
syn match satherNumber "-\=\<\d\+L\=\>\|0[xX][0-9a-fA-F]\+\>"
syn match satherCommentSkip contained "^\s*\*\($\|\s\+\)"
syn region satherComment2String contained start=+"+ skip=+\\\\\|\\"+ end=+$\|"+ contains=satherSpecial
syn match satherComment "--.*" contains=satherComment2String,satherCharacter,satherNumber
syn sync ccomment satherComment
" Define the default highlighting.
" Only when an item doesn't have highlighting yet
command -nargs=+ HiLink hi def link <args>
HiLink satherBranch satherStatement
HiLink satherLabel satherStatement
HiLink satherConditional satherStatement
HiLink satherSynchronize satherStatement
HiLink satherRepeat satherStatement
HiLink satherExceptions satherStatement
HiLink satherStorageClass satherDeclarative
HiLink satherMethodDecl satherDeclarative
HiLink satherClassDecl satherDeclarative
HiLink satherScopeDecl satherDeclarative
HiLink satherBoolValue satherValue
HiLink satherSpecial satherValue
HiLink satherString satherValue
HiLink satherCharacter satherValue
HiLink satherSpecialCharacter satherValue
HiLink satherNumber satherValue
HiLink satherStatement Statement
HiLink satherOperator Statement
HiLink satherComment Comment
HiLink satherType Type
HiLink satherValue String
HiLink satherString String
HiLink satherSpecial String
HiLink satherCharacter String
HiLink satherDeclarative Type
HiLink satherExternal PreCondit
delcommand HiLink
let b:current_syntax = "sather"
" vim: ts=8
|
