| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 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" |