|
7
|
1 " Vim syntax file
|
|
|
2 " Language: SDL
|
|
3237
|
3 " Maintainer: Michael Piefel <entwurf@piefel.de>
|
|
7
|
4 " Last Change: 2 May 2001
|
|
|
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 if !exists("sdl_2000")
|
|
|
15 syntax case ignore
|
|
|
16 endif
|
|
|
17
|
|
|
18 " A bunch of useful SDL keywords
|
|
|
19 syn keyword sdlStatement task else nextstate
|
|
|
20 syn keyword sdlStatement in out with from interface
|
|
|
21 syn keyword sdlStatement to via env and use
|
|
|
22 syn keyword sdlStatement process procedure block system service type
|
|
|
23 syn keyword sdlStatement endprocess endprocedure endblock endsystem
|
|
|
24 syn keyword sdlStatement package endpackage connection endconnection
|
|
|
25 syn keyword sdlStatement channel endchannel connect
|
|
|
26 syn keyword sdlStatement synonym dcl signal gate timer signallist signalset
|
|
|
27 syn keyword sdlStatement create output set reset call
|
|
|
28 syn keyword sdlStatement operators literals
|
|
|
29 syn keyword sdlStatement active alternative any as atleast constants
|
|
|
30 syn keyword sdlStatement default endalternative endmacro endoperator
|
|
|
31 syn keyword sdlStatement endselect endsubstructure external
|
|
|
32 syn keyword sdlStatement if then fi for import macro macrodefinition
|
|
|
33 syn keyword sdlStatement macroid mod nameclass nodelay not operator or
|
|
|
34 syn keyword sdlStatement parent provided referenced rem
|
|
|
35 syn keyword sdlStatement select spelling substructure xor
|
|
|
36 syn keyword sdlNewState state endstate
|
|
|
37 syn keyword sdlInput input start stop return none save priority
|
|
|
38 syn keyword sdlConditional decision enddecision join
|
|
|
39 syn keyword sdlVirtual virtual redefined finalized adding inherits
|
|
|
40 syn keyword sdlExported remote exported export
|
|
|
41
|
|
|
42 if !exists("sdl_no_96")
|
|
|
43 syn keyword sdlStatement all axioms constant endgenerator endrefinement endservice
|
|
|
44 syn keyword sdlStatement error fpar generator literal map noequality ordering
|
|
|
45 syn keyword sdlStatement refinement returns revealed reverse service signalroute
|
|
|
46 syn keyword sdlStatement view viewed
|
|
|
47 syn keyword sdlExported imported
|
|
|
48 endif
|
|
|
49
|
|
|
50 if exists("sdl_2000")
|
|
|
51 syn keyword sdlStatement abstract aggregation association break choice composition
|
|
|
52 syn keyword sdlStatement continue endmethod handle method
|
|
|
53 syn keyword sdlStatement ordered private protected public
|
|
|
54 syn keyword sdlException exceptionhandler endexceptionhandler onexception
|
|
|
55 syn keyword sdlException catch new raise
|
|
|
56 " The same in uppercase
|
|
|
57 syn keyword sdlStatement TASK ELSE NEXTSTATE
|
|
|
58 syn keyword sdlStatement IN OUT WITH FROM INTERFACE
|
|
|
59 syn keyword sdlStatement TO VIA ENV AND USE
|
|
|
60 syn keyword sdlStatement PROCESS PROCEDURE BLOCK SYSTEM SERVICE TYPE
|
|
|
61 syn keyword sdlStatement ENDPROCESS ENDPROCEDURE ENDBLOCK ENDSYSTEM
|
|
|
62 syn keyword sdlStatement PACKAGE ENDPACKAGE CONNECTION ENDCONNECTION
|
|
|
63 syn keyword sdlStatement CHANNEL ENDCHANNEL CONNECT
|
|
|
64 syn keyword sdlStatement SYNONYM DCL SIGNAL GATE TIMER SIGNALLIST SIGNALSET
|
|
|
65 syn keyword sdlStatement CREATE OUTPUT SET RESET CALL
|
|
|
66 syn keyword sdlStatement OPERATORS LITERALS
|
|
|
67 syn keyword sdlStatement ACTIVE ALTERNATIVE ANY AS ATLEAST CONSTANTS
|
|
|
68 syn keyword sdlStatement DEFAULT ENDALTERNATIVE ENDMACRO ENDOPERATOR
|
|
|
69 syn keyword sdlStatement ENDSELECT ENDSUBSTRUCTURE EXTERNAL
|
|
|
70 syn keyword sdlStatement IF THEN FI FOR IMPORT MACRO MACRODEFINITION
|
|
|
71 syn keyword sdlStatement MACROID MOD NAMECLASS NODELAY NOT OPERATOR OR
|
|
|
72 syn keyword sdlStatement PARENT PROVIDED REFERENCED REM
|
|
|
73 syn keyword sdlStatement SELECT SPELLING SUBSTRUCTURE XOR
|
|
|
74 syn keyword sdlNewState STATE ENDSTATE
|
|
|
75 syn keyword sdlInput INPUT START STOP RETURN NONE SAVE PRIORITY
|
|
|
76 syn keyword sdlConditional DECISION ENDDECISION JOIN
|
|
|
77 syn keyword sdlVirtual VIRTUAL REDEFINED FINALIZED ADDING INHERITS
|
|
|
78 syn keyword sdlExported REMOTE EXPORTED EXPORT
|
|
|
79
|
|
|
80 syn keyword sdlStatement ABSTRACT AGGREGATION ASSOCIATION BREAK CHOICE COMPOSITION
|
|
|
81 syn keyword sdlStatement CONTINUE ENDMETHOD ENDOBJECT ENDVALUE HANDLE METHOD OBJECT
|
|
|
82 syn keyword sdlStatement ORDERED PRIVATE PROTECTED PUBLIC
|
|
|
83 syn keyword sdlException EXCEPTIONHANDLER ENDEXCEPTIONHANDLER ONEXCEPTION
|
|
|
84 syn keyword sdlException CATCH NEW RAISE
|
|
|
85 endif
|
|
|
86
|
|
|
87 " String and Character contstants
|
|
|
88 " Highlight special characters (those which have a backslash) differently
|
|
|
89 syn match sdlSpecial contained "\\\d\d\d\|\\."
|
|
|
90 syn region sdlString start=+"+ skip=+\\\\\|\\"+ end=+"+ contains=cSpecial
|
|
|
91 syn region sdlString start=+'+ skip=+''+ end=+'+
|
|
|
92
|
|
|
93 " No, this doesn't happen, I just wanted to scare you. SDL really allows all
|
|
|
94 " these characters for identifiers; fortunately, keywords manage without them.
|
|
|
95 " set iskeyword=@,48-57,_,192-214,216-246,248-255,-
|
|
|
96
|
|
|
97 syn region sdlComment start="/\*" end="\*/"
|
|
|
98 syn region sdlComment start="comment" end=";"
|
|
|
99 syn region sdlComment start="--" end="--\|$"
|
|
|
100 syn match sdlCommentError "\*/"
|
|
|
101
|
|
|
102 syn keyword sdlOperator present
|
|
|
103 syn keyword sdlType integer real natural duration pid boolean time
|
|
|
104 syn keyword sdlType character charstring ia5string
|
|
|
105 syn keyword sdlType self now sender offspring
|
|
|
106 syn keyword sdlStructure asntype endasntype syntype endsyntype struct
|
|
|
107
|
|
|
108 if !exists("sdl_no_96")
|
|
|
109 syn keyword sdlStructure newtype endnewtype
|
|
|
110 endif
|
|
|
111
|
|
|
112 if exists("sdl_2000")
|
|
|
113 syn keyword sdlStructure object endobject value endvalue
|
|
|
114 " The same in uppercase
|
|
|
115 syn keyword sdlStructure OBJECT ENDOBJECT VALUE ENDVALUE
|
|
|
116 syn keyword sdlOperator PRESENT
|
|
|
117 syn keyword sdlType INTEGER NATURAL DURATION PID BOOLEAN TIME
|
|
|
118 syn keyword sdlType CHARSTRING IA5STRING
|
|
|
119 syn keyword sdlType SELF NOW SENDER OFFSPRING
|
|
|
120 syn keyword sdlStructure ASNTYPE ENDASNTYPE SYNTYPE ENDSYNTYPE STRUCT
|
|
|
121 endif
|
|
|
122
|
|
|
123 " ASN.1 in SDL
|
|
|
124 syn case match
|
|
|
125 syn keyword sdlType SET OF BOOLEAN INTEGER REAL BIT OCTET
|
|
|
126 syn keyword sdlType SEQUENCE CHOICE
|
|
|
127 syn keyword sdlType STRING OBJECT IDENTIFIER NULL
|
|
|
128
|
|
|
129 syn sync ccomment sdlComment
|
|
|
130
|
|
|
131 " Define the default highlighting.
|
|
|
132 " For version 5.7 and earlier: only when not done already
|
|
|
133 " For version 5.8 and later: only when an item doesn't have highlighting yet
|
|
|
134 if version >= 508 || !exists("did_sdl_syn_inits")
|
|
|
135 if version < 508
|
|
|
136 let did_sdl_syn_inits = 1
|
|
|
137 command -nargs=+ HiLink hi link <args>
|
|
|
138 command -nargs=+ Hi hi <args>
|
|
|
139 else
|
|
|
140 command -nargs=+ HiLink hi def link <args>
|
|
|
141 command -nargs=+ Hi hi def <args>
|
|
|
142 endif
|
|
|
143
|
|
|
144 HiLink sdlException Label
|
|
|
145 HiLink sdlConditional sdlStatement
|
|
|
146 HiLink sdlVirtual sdlStatement
|
|
|
147 HiLink sdlExported sdlFlag
|
|
|
148 HiLink sdlCommentError sdlError
|
|
|
149 HiLink sdlOperator Operator
|
|
|
150 HiLink sdlStructure sdlType
|
|
|
151 Hi sdlStatement term=bold ctermfg=4 guifg=Blue
|
|
|
152 Hi sdlFlag term=bold ctermfg=4 guifg=Blue gui=italic
|
|
|
153 Hi sdlNewState term=italic ctermfg=2 guifg=Magenta gui=underline
|
|
|
154 Hi sdlInput term=bold guifg=Red
|
|
|
155 HiLink sdlType Type
|
|
|
156 HiLink sdlString String
|
|
|
157 HiLink sdlComment Comment
|
|
|
158 HiLink sdlSpecial Special
|
|
|
159 HiLink sdlError Error
|
|
|
160
|
|
|
161 delcommand HiLink
|
|
|
162 delcommand Hi
|
|
|
163 endif
|
|
|
164
|
|
|
165 let b:current_syntax = "sdl"
|
|
|
166
|
|
|
167 " vim: ts=8
|
