blob: de8bdade6702039e156f2570e26389f757f0198d (
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
|
" 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
hi def link satherBranch satherStatement
hi def link satherLabel satherStatement
hi def link satherConditional satherStatement
hi def link satherSynchronize satherStatement
hi def link satherRepeat satherStatement
hi def link satherExceptions satherStatement
hi def link satherStorageClass satherDeclarative
hi def link satherMethodDecl satherDeclarative
hi def link satherClassDecl satherDeclarative
hi def link satherScopeDecl satherDeclarative
hi def link satherBoolValue satherValue
hi def link satherSpecial satherValue
hi def link satherString satherValue
hi def link satherCharacter satherValue
hi def link satherSpecialCharacter satherValue
hi def link satherNumber satherValue
hi def link satherStatement Statement
hi def link satherOperator Statement
hi def link satherComment Comment
hi def link satherType Type
hi def link satherValue String
hi def link satherString String
hi def link satherSpecial String
hi def link satherCharacter String
hi def link satherDeclarative Type
hi def link satherExternal PreCondit
let b:current_syntax = "sather"
" vim: ts=8
|
