|
7
|
1 " Vim syntax file
|
|
|
2 " Language: Smalltalk
|
|
|
3 " Maintainer: Arndt Hesse <hesse@self.de>
|
|
|
4 " Last Change: 2001 May 09
|
|
|
5
|
|
|
6 " For version 5.x: Clear all syntax items
|
|
|
7 " For version 6.x: Quit when a syntax file was already loaded
|
|
|
8 if version < 600
|
|
|
9 syntax clear
|
|
|
10 elseif exists("b:current_syntax")
|
|
|
11 finish
|
|
|
12 endif
|
|
|
13
|
|
|
14 " some Smalltalk keywords and standard methods
|
|
|
15 syn keyword stKeyword super self class true false new not
|
|
|
16 syn keyword stKeyword notNil isNil inspect out nil
|
|
|
17 syn match stMethod "\<do\>:"
|
|
|
18 syn match stMethod "\<whileTrue\>:"
|
|
|
19 syn match stMethod "\<whileFalse\>:"
|
|
|
20 syn match stMethod "\<ifTrue\>:"
|
|
|
21 syn match stMethod "\<ifFalse\>:"
|
|
|
22 syn match stMethod "\<put\>:"
|
|
|
23 syn match stMethod "\<to\>:"
|
|
|
24 syn match stMethod "\<at\>:"
|
|
|
25 syn match stMethod "\<add\>:"
|
|
|
26 syn match stMethod "\<new\>:"
|
|
|
27 syn match stMethod "\<for\>:"
|
|
|
28 syn match stMethod "\<methods\>:"
|
|
|
29 syn match stMethod "\<methodsFor\>:"
|
|
|
30 syn match stMethod "\<instanceVariableNames\>:"
|
|
|
31 syn match stMethod "\<classVariableNames\>:"
|
|
|
32 syn match stMethod "\<poolDictionaries\>:"
|
|
|
33 syn match stMethod "\<subclass\>:"
|
|
|
34
|
|
|
35 " the block of local variables of a method
|
|
|
36 syn region stLocalVariables start="^[ \t]*|" end="|"
|
|
|
37
|
|
|
38 " the Smalltalk comment
|
|
|
39 syn region stComment start="\"" end="\""
|
|
|
40
|
|
|
41 " the Smalltalk strings and single characters
|
|
|
42 syn region stString start='\'' skip="''" end='\''
|
|
|
43 syn match stCharacter "$."
|
|
|
44
|
|
|
45 syn case ignore
|
|
|
46
|
|
|
47 " the symols prefixed by a '#'
|
|
|
48 syn match stSymbol "\(#\<[a-z_][a-z0-9_]*\>\)"
|
|
|
49 syn match stSymbol "\(#'[^']*'\)"
|
|
|
50
|
|
|
51 " the variables in a statement block for loops
|
|
|
52 syn match stBlockVariable "\(:[ \t]*\<[a-z_][a-z0-9_]*\>[ \t]*\)\+|" contained
|
|
|
53
|
|
|
54 " some representations of numbers
|
|
|
55 syn match stNumber "\<\d\+\(u\=l\=\|lu\|f\)\>"
|
|
|
56 syn match stFloat "\<\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\=\>"
|
|
|
57 syn match stFloat "\<\d\+e[-+]\=\d\+[fl]\=\>"
|
|
|
58
|
|
|
59 syn case match
|
|
|
60
|
|
|
61 " a try to higlight paren mismatches
|
|
|
62 syn region stParen transparent start='(' end=')' contains=ALLBUT,stParenError
|
|
|
63 syn match stParenError ")"
|
|
|
64 syn region stBlock transparent start='\[' end='\]' contains=ALLBUT,stBlockError
|
|
|
65 syn match stBlockError "\]"
|
|
|
66 syn region stSet transparent start='{' end='}' contains=ALLBUT,stSetError
|
|
|
67 syn match stSetError "}"
|
|
|
68
|
|
|
69 hi link stParenError stError
|
|
|
70 hi link stSetError stError
|
|
|
71 hi link stBlockError stError
|
|
|
72
|
|
|
73 " synchronization for syntax analysis
|
|
|
74 syn sync minlines=50
|
|
|
75
|
|
|
76 " Define the default highlighting.
|
|
|
77 " For version 5.7 and earlier: only when not done already
|
|
|
78 " For version 5.8 and later: only when an item doesn't have highlighting yet
|
|
|
79 if version >= 508 || !exists("did_st_syntax_inits")
|
|
|
80 if version < 508
|
|
|
81 let did_st_syntax_inits = 1
|
|
|
82 command -nargs=+ HiLink hi link <args>
|
|
|
83 else
|
|
|
84 command -nargs=+ HiLink hi def link <args>
|
|
|
85 endif
|
|
|
86
|
|
|
87 HiLink stKeyword Statement
|
|
|
88 HiLink stMethod Statement
|
|
|
89 HiLink stComment Comment
|
|
|
90 HiLink stCharacter Constant
|
|
|
91 HiLink stString Constant
|
|
|
92 HiLink stSymbol Special
|
|
|
93 HiLink stNumber Type
|
|
|
94 HiLink stFloat Type
|
|
|
95 HiLink stError Error
|
|
|
96 HiLink stLocalVariables Identifier
|
|
|
97 HiLink stBlockVariable Identifier
|
|
|
98
|
|
|
99 delcommand HiLink
|
|
|
100 endif
|
|
|
101
|
|
|
102 let b:current_syntax = "st"
|
