| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 1 | " Vim syntax file |
| 2 | " Language: Sather/pSather |
| 3 | " Maintainer: Claudio Fleiner <claudio@fleiner.com> |
| 4 | " URL: http://www.fleiner.com/vim/syntax/sather.vim |
| 5 | " Last Change: 2003 May 11 |
| 6 | |
| 7 | " Sather is a OO-language developped at the International Computer Science |
| 8 | " Institute (ICSI) in Berkeley, CA. pSather is a parallel extension to Sather. |
| 9 | " Homepage: http://www.icsi.berkeley.edu/~sather |
| 10 | " Sather files use .sa as suffix |
| 11 | |
| 12 | " For version 5.x: Clear all syntax items |
| 13 | " For version 6.x: Quit when a syntax file was already loaded |
| 14 | if version < 600 |
| 15 | syntax clear |
| 16 | elseif exists("b:current_syntax") |
| 17 | finish |
| 18 | endif |
| 19 | |
| 20 | " keyword definitions |
| 21 | syn keyword satherExternal extern |
| 22 | syn keyword satherBranch break continue |
| 23 | syn keyword satherLabel when then |
| 24 | syn keyword satherConditional if else elsif end case typecase assert with |
| 25 | syn match satherConditional "near$" |
| 26 | syn match satherConditional "far$" |
| 27 | syn match satherConditional "near *[^(]"he=e-1 |
| 28 | syn match satherConditional "far *[^(]"he=e-1 |
| 29 | syn keyword satherSynchronize lock guard sync |
| 30 | syn keyword satherRepeat loop parloop do |
| 31 | syn match satherRepeat "while!" |
| 32 | syn match satherRepeat "break!" |
| 33 | syn match satherRepeat "until!" |
| 34 | syn keyword satherBoolValue true false |
| 35 | syn keyword satherValue self here cluster |
| 36 | syn keyword satherOperator new "== != & ^ | && || |
| 37 | syn keyword satherOperator and or not |
| 38 | syn match satherOperator "[#!]" |
| 39 | syn match satherOperator ":-" |
| 40 | syn keyword satherType void attr where |
| 41 | syn match satherType "near *("he=e-1 |
| 42 | syn match satherType "far *("he=e-1 |
| 43 | syn keyword satherStatement return |
| 44 | syn keyword satherStorageClass static const |
| 45 | syn keyword satherExceptions try raise catch |
| 46 | syn keyword satherMethodDecl is pre post |
| 47 | syn keyword satherClassDecl abstract value class include |
| 48 | syn keyword satherScopeDecl public private readonly |
| 49 | |
| 50 | |
| 51 | syn match satherSpecial contained "\\\d\d\d\|\\." |
| 52 | syn region satherString start=+"+ skip=+\\\\\|\\"+ end=+"+ contains=satherSpecial |
| 53 | syn match satherCharacter "'[^\\]'" |
| 54 | syn match satherSpecialCharacter "'\\.'" |
| 55 | syn match satherNumber "-\=\<\d\+L\=\>\|0[xX][0-9a-fA-F]\+\>" |
| 56 | syn match satherCommentSkip contained "^\s*\*\($\|\s\+\)" |
| 57 | syn region satherComment2String contained start=+"+ skip=+\\\\\|\\"+ end=+$\|"+ contains=satherSpecial |
| 58 | syn match satherComment "--.*" contains=satherComment2String,satherCharacter,satherNumber |
| 59 | |
| 60 | |
| 61 | syn sync ccomment satherComment |
| 62 | |
| 63 | " Define the default highlighting. |
| 64 | " For version 5.7 and earlier: only when not done already |
| 65 | " For version 5.8 and later: only when an item doesn't have highlighting yet |
| 66 | if version >= 508 || !exists("did_sather_syn_inits") |
| 67 | if version < 508 |
| 68 | let did_sather_syn_inits = 1 |
| 69 | command -nargs=+ HiLink hi link <args> |
| 70 | else |
| 71 | command -nargs=+ HiLink hi def link <args> |
| 72 | endif |
| 73 | |
| 74 | HiLink satherBranch satherStatement |
| 75 | HiLink satherLabel satherStatement |
| 76 | HiLink satherConditional satherStatement |
| 77 | HiLink satherSynchronize satherStatement |
| 78 | HiLink satherRepeat satherStatement |
| 79 | HiLink satherExceptions satherStatement |
| 80 | HiLink satherStorageClass satherDeclarative |
| 81 | HiLink satherMethodDecl satherDeclarative |
| 82 | HiLink satherClassDecl satherDeclarative |
| 83 | HiLink satherScopeDecl satherDeclarative |
| 84 | HiLink satherBoolValue satherValue |
| 85 | HiLink satherSpecial satherValue |
| 86 | HiLink satherString satherValue |
| 87 | HiLink satherCharacter satherValue |
| 88 | HiLink satherSpecialCharacter satherValue |
| 89 | HiLink satherNumber satherValue |
| 90 | HiLink satherStatement Statement |
| 91 | HiLink satherOperator Statement |
| 92 | HiLink satherComment Comment |
| 93 | HiLink satherType Type |
| 94 | HiLink satherValue String |
| 95 | HiLink satherString String |
| 96 | HiLink satherSpecial String |
| 97 | HiLink satherCharacter String |
| 98 | HiLink satherDeclarative Type |
| 99 | HiLink satherExternal PreCondit |
| 100 | delcommand HiLink |
| 101 | endif |
| 102 | |
| 103 | let b:current_syntax = "sather" |
| 104 | |
| 105 | " vim: ts=8 |