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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
|
" Vim syntax file
"
" Language: NATURAL
" Version: 2.1.0.5
" Maintainer: Marko von Oppen <marko@von-oppen.com>
" Last Changed: 2012-02-05 18:50:43
" Support: http://www.von-oppen.com/
" quit when a syntax file was already loaded
if exists("b:current_syntax")
finish
endif
setlocal iskeyword+=-,*,#,+,_,/
let s:cpo_save = &cpo
set cpo&vim
" NATURAL is case insensitive
syntax case ignore
" preprocessor
syn keyword naturalInclude include nextgroup=naturalObjName skipwhite
" define data
syn keyword naturalKeyword define data end-define
syn keyword naturalKeyword independent global parameter local redefine view
syn keyword naturalKeyword const[ant] init initial
" loops
syn keyword naturalLoop read end-read end-work find end-find histogram end-histogram
syn keyword naturalLoop end-all sort end-sort sorted descending ascending
syn keyword naturalRepeat repeat end-repeat while until for step end-for
syn keyword naturalKeyword in file with field starting from ending at thru by isn where
syn keyword naturalError on error end-error
syn keyword naturalKeyword accept reject end-enddata number unique retain as release
syn keyword naturalKeyword start end-start break end-break physical page top sequence
syn keyword naturalKeyword end-toppage end-endpage end-endfile before processing
syn keyword naturalKeyword end-before
" conditionals
syn keyword naturalConditional if then else end-if end-norec
syn keyword naturalConditional decide end-decide value when condition none any
" assignment / calculation
syn keyword naturalKeyword reset assign move left right justified compress to into edited
syn keyword naturalKeyword add subtract multiply divide compute name
syn keyword naturalKeyword all giving remainder rounded leaving space numeric
syn keyword naturalKeyword examine full replace giving separate delimiter modified
syn keyword naturalKeyword suspend identical suppress
" program flow
syn keyword naturalFlow callnat fetch return enter escape bottom top stack formatted
syn keyword naturalFlow command call
syn keyword naturalflow end-subroutine routine
" file operations
syn keyword naturalKeyword update store get delete end transaction work once close
" other keywords
syn keyword naturalKeyword first every of no record[s] found ignore immediate
syn keyword naturalKeyword set settime key control stop terminate
" in-/output
syn keyword naturalKeyword write display input reinput notitle nohdr map newpage
syn keyword naturalKeyword alarm text help eject index window base size
syn keyword naturalKeyword format printer skip lines
" functions
syn keyword naturalKeyword abs atn cos exp frac int log sgn sin sqrt tan val old
syn keyword naturalKeyword pos
" report mode keywords
syn keyword naturalRMKeyword same loop obtain indexed do doend
" Subroutine name
syn keyword naturalFlow perform subroutine nextgroup=naturalFunction skipwhite
syn match naturalFunction "\<[a-z][-_a-z0-9]*\>"
syn keyword naturalFlow using nextgroup=naturalKeyword,naturalObjName skipwhite
syn match naturalObjName "\<[a-z][-_a-z0-9]\{,7}\>"
" Labels
syn match naturalLabel "\<[+#a-z][-_#a-z0-9]*\."
syn match naturalRef "\<[+#a-z][-_#a-z0-9]*\>\.\<[+#a-z][*]\=[-_#a-z0-9]*\>"
" mark keyword special handling
syn keyword naturalKeyword mark nextgroup=naturalMark skipwhite
syn match naturalMark "\<\*[a-z][-_#.a-z0-9]*\>"
" System variables
syn match naturalSysVar "\<\*[a-z][-a-z0-9]*\>"
"integer number, or floating point number without a dot.
syn match naturalNumber "\<-\=\d\+\>"
"floating point number, with dot
syn match naturalNumber "\<-\=\d\+\.\d\+\>"
"floating point number, starting with a dot
syn match naturalNumber "\.\d\+"
" Formats in write statement
syn match naturalFormat "\<\d\+[TX]\>"
" String and Character contstants
syn match naturalString "H'\x\+'"
syn region naturalString start=+"+ end=+"+
syn region naturalString start=+'+ end=+'+
" Type definition
syn match naturalAttribute "\<[-a-z][a-z]=[-a-z0-9_\.,]\+\>"
syn match naturalType contained "\<[ABINP]\d\+\(,\d\+\)\=\>"
syn match naturalType contained "\<[CL]\>"
" "TODO" / other comments
syn keyword naturalTodo contained todo test
syn match naturalCommentMark contained "[a-z][^ \t/:|]*\(\s[^ \t/:'"|]\+\)*:\s"he=e-1
" comments
syn region naturalComment start="/\*" end="$" contains=naturalTodo,naturalLineRef,naturalCommentMark
syn region naturalComment start="^\*[ *]" end="$" contains=naturalTodo,naturalLineRef,naturalCommentMark
syn region naturalComment start="^\d\{4} \*[\ \*]"lc=5 end="$" contains=naturalTodo,naturalLineRef,naturalCommentMark
syn match naturalComment "^\*$"
syn match naturalComment "^\d\{4} \*$"lc=5
" /* is legal syntax in parentheses e.g. "#ident(label./*)"
syn region naturalPComment contained start="/\*\s*[^),]" end="$" contains=naturalTodo,naturalLineRef,naturalCommentMark
" operators
syn keyword naturalOperator and or not eq ne gt lt ge le mask scan modified
" constants
syn keyword naturalBoolean true false
syn match naturalLineNo "^\d\{4}"
" identifiers
syn match naturalIdent "\<[+#a-z][-_#a-z0-9]*\>[^\.']"me=e-1
syn match naturalIdent "\<[+#a-z][-_#a-z0-9]*$"
syn match naturalLegalIdent "[+#a-z][-_#a-z0-9]*/[-_#a-z0-9]*"
" parentheses
syn region naturalPar matchgroup=naturalParGui start="(" end=")" contains=naturalLabel,naturalRef,naturalOperator,@naturalConstant,naturalType,naturalSysVar,naturalPar,naturalLineNo,naturalPComment
syn match naturalLineRef "(\d\{4})"
" build syntax groups
syntax cluster naturalConstant contains=naturalString,naturalNumber,naturalAttribute,naturalBoolean
" folding
if v:version >= 600
set foldignore=*
endif
if v:version >= 508 || !exists("did_natural_syntax_inits")
if v:version < 508
let did_natural_syntax_inits = 1
command -nargs=+ HiLink hi link <args>
else
command -nargs=+ HiLink hi def link <args>
endif
" The default methods for highlighting. Can be overridden later
" Constants
HiLink naturalFormat Constant
HiLink naturalAttribute Constant
HiLink naturalNumber Number
HiLink naturalString String
HiLink naturalBoolean Boolean
" All kinds of keywords
HiLink naturalConditional Conditional
HiLink naturalRepeat Repeat
HiLink naturalLoop Repeat
HiLink naturalFlow Keyword
HiLink naturalError Keyword
HiLink naturalKeyword Keyword
HiLink naturalOperator Operator
HiLink naturalParGui Operator
" Labels
HiLink naturalLabel Label
HiLink naturalRefLabel Label
" Comments
HiLink naturalPComment Comment
HiLink naturalComment Comment
HiLink naturalTodo Todo
HiLink naturalCommentMark PreProc
HiLink naturalInclude Include
HiLink naturalSysVar Identifier
HiLink naturalLineNo LineNr
HiLink naturalLineRef Error
HiLink naturalSpecial Special
HiLink naturalComKey Todo
" illegal things
HiLink naturalRMKeyword Error
HiLink naturalLegalIdent Error
HiLink naturalType Type
HiLink naturalFunction Function
HiLink naturalObjName PreProc
delcommand HiLink
endif
let b:current_syntax = "natural"
let &cpo = s:cpo_save
unlet s:cpo_save
" vim:set ts=8 sw=8 noet ft=vim list:
|
