2 USING: kernel io prettyprint vocabs sequences multiline ;
5 : print-keywords ( vocab -- )
7 "syn keyword factorKeyword " write
8 [ bl ] [ pprint ] interleave nl
14 " Maintainer: Alex Chapman <chapman.alex@gmail.com>
15 " Last Change: 2011 Apr 04
16 " To run: USING: html.templates html.templates.fhtml ; "resource:misc/factor.vim.fgen" <fhtml> call-template
18 " For version 5.x: Clear all syntax items
19 " For version 6.x: Quit when a syntax file was already loaded
22 elseif exists("b:current_syntax")
26 " Factor is case sensitive.
29 " Make all of these characters part of a word (useful for skipping over words with w, e, and b)
31 setlocal iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
33 set iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
36 syn cluster factorCluster contains=factorComment,factorFrySpecifier,factorKeyword,factorRepeat,factorConditional,factorBoolean,factorBreakpoint,factorDeclaration,factorCallQuotation,factorExecute,factorCallNextMethod,factorString,factorTriString,factorSbuf,@factorNumber,@factorNumErr,factorDelimiter,factorChar,factorBackslash,factorMBackslash,factorLiteral,factorLiteralBlock,@factorWordOps,factorAlien,factorSlot,factorTuple,factorError,factorStruct
38 syn match factorTodo /\(TODO\|FIXME\|XXX\):\=/ contained
39 syn match factorComment /\<!\>\s.*/ contains=factorTodo,@Spell
40 syn match factorComment /\<#!\>\s.*/ contains=factorTodo,@Spell
41 syn match factorShebang /\%\^#!\s.*/ display
42 syn match factorShebangErr /\%\^#!\S\+/
44 syn cluster factorDefnContents contains=@factorCluster,factorStackEffect,factorLiteralStackEffect,factorArray0,factorQuotation0
46 syn region factorDefn matchgroup=factorDefnDelims start=/\<\(SYNTAX\|\(MACRO\|MEMO\)\?:\?\):\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents
47 syn region factorMethod matchgroup=factorMethodDelims start=/\<M::\?\s\+\S\+\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents
48 syn region factorGeneric matchgroup=factorGenericDelims start=/\<GENERIC:\s\+\S\+\>/ end=/$/ contains=factorStackEffect
49 syn region factorGenericN matchgroup=factorGenericNDelims start=/\<GENERIC#\s\+\S\+\s\+\d\+\>/ end=/$/ contains=factorStackEffect
51 syn region factorPrivateDefn matchgroup=factorPrivateDefnDelims start=/\<\(SYNTAX\|\(MACRO\|MEMO\)\?:\?\):\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents contained
52 syn region factorPrivateMethod matchgroup=factorPrivateMethodDelims start=/\<M::\?\s\+\S\+\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents contained
53 syn region factorPGeneric matchgroup=factorPGenericDelims start=/\<GENERIC:\s\+\S\+\>/ end=/$/ contains=factorStackEffect contained
54 syn region factorPGenericN matchgroup=factorPGenericNDelims start=/\<GENERIC#\s\+\S\+\s\+\d\+\>/ end=/$/ contains=factorStackEffect
56 syn region None matchgroup=factorPrivate start=/\<<PRIVATE\>/ end=/\<PRIVATE>\>/ contains=@factorDefnContents,factorPrivateDefn,factorPrivateMethod,factorPGeneric,factorPGenericN
59 syn keyword factorBoolean f t
60 syn keyword factorBreakpoint B
61 syn keyword factorFrySpecifier @ _ contained
62 syn keyword factorDeclaration delimiter deprecated final flushable foldable inline recursive
63 syn match factorCallQuotation /\<call(\s\(.*\s\)\?--\(\s.*\)\?\s)\>/
64 syn match factorExecute /\<execute(\s\(.*\s\)\?--\(\s.*\)\?\s)\>/
65 syn keyword factorCallNextMethod call-next-method
69 ! uncomment this if you want all words from all vocabularies highlighted. Note
70 ! that this changes factor.vim from around 8k to around 100k (and is a bit
73 ! vocabs [ print-keywords ] each
76 "kernel" "assocs" "combinators" "math" "sequences"
77 "namespaces" "arrays" "io" "strings" "vectors"
79 } [ print-keywords ] each
82 syn cluster factorReal contains=factorInt,factorFloat,factorRatio,factorBinary,factorHex,factorOctal
83 syn cluster factorNumber contains=@factorReal,factorComplex
84 syn cluster factorNumErr contains=factorBinErr,factorHexErr,factorOctErr
85 syn match factorInt /\<-\=[0-9]\([0-9,]*[0-9]\)\?\>/
86 syn match factorFloat /\<-\=[0-9]\([0-9,]*[0-9]\)\?\.[0-9,]*[0-9]\+\>/
87 syn match factorRatio /\<-\=[0-9]\([0-9,]*[0-9]\)\?\(+[0-9]\([0-9,]*[0-9]\+\)\?\)\?\/-\=[0-9]\([0-9,]*[0-9]\+\)\?\.\?\>/
88 syn region factorComplex start=/\<C{\>/ end=/\<}\>/ contains=@factorReal
89 syn match factorBinErr /\<BIN:\s\+-\=[01,]*[^01 ]\S*\>/
90 syn match factorBinary /\<BIN:\s\+-\=[01,]\+\>/
91 syn match factorHexErr /\<HEX:\s\+-\=\(,\S*\|\S*,\|[-0-9a-fA-Fp,]*[^-0-9a-fA-Fp, ]\S*\)\>/
92 syn match factorHex /\<HEX:\s\+-\=[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\(\.[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\)\?\(p-\=[0-9]\([0-9,]*[0-9]\)\?\)\?\>/
93 syn match factorOctErr /\<OCT:\s\+-\=\(,\S*\|\S*,\|[0-7,]*[^0-7, ]\S*\)\>/
94 syn match factorOctal /\<OCT:\s\+-\=[0-7,]\+\>/
95 syn match factorNan /\<NAN:\s\+[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\>/
97 syn match factorIn /\<IN:\s\+\S\+\>/
98 syn match factorUse /\<USE:\s\+\S\+\>/
99 syn match factorUnuse /\<UNUSE:\s\+\S\+\>/
101 syn match factorChar /\<CHAR:\s\+\S\+\>/
103 syn match factorBackslash /\<\\\>\s\+\S\+\>/
104 syn match factorMBackslash /\<M\\\>\s\+\S\+\s\+\S\+\>/
105 syn match factorLiteral /\<\$\>\s\+\S\+\>/
106 syn region factorLiteralBlock start=/\<\$\[\>/ end=/\<\]\>/
108 syn region factorUsing start=/\<USING:\>/ end=/;/
109 syn match factorQualified /\<QUALIFIED:\s\+\S\+\>/
110 syn match factorQualifiedWith /\<QUALIFIED-WITH:\s\+\S\+\s\+\S\+\>/
111 syn region factorExclude start=/\<EXCLUDE:\>/ end=/;/
112 syn region factorFrom start=/\<FROM:\>/ end=/;/
113 syn match factorRename /\<RENAME:\s\+\S\+\s\+\S\+\s=>\s\+\S\+\>/
114 syn region factorSingletons start=/\<SINGLETONS:\>/ end=/;/
115 syn match factorSymbol /\<SYMBOL:\s\+\S\+\>/
116 syn region factorSymbols start=/\<SYMBOLS:\>/ end=/;/
117 syn region factorConstructor2 start=/\<CONSTRUCTOR:\?/ end=/;/
118 syn region factorIntersection start=/\<INTERSECTION:\>/ end=/\<;\>/
119 syn region factorTuple start=/\<TUPLE:\>/ end=/\<;\>/
120 syn region factorError start=/\<ERROR:\>/ end=/\<;\>/
121 syn region factorUnion start=/\<UNION:\>/ end=/\<;\>/
122 syn region factorStruct start=/\<\(UNION-STRUCT:\|STRUCT:\)\>/ end=/\<;\>/
124 syn match factorConstant /\<CONSTANT:\s\+\S\+\>/
125 syn match factorAlias /\<ALIAS:\s\+\S\+\s\+\S\+\>/
126 syn match factorSingleton /\<SINGLETON:\s\+\S\+\>/
127 syn match factorPostpone /\<POSTPONE:\s\+\S\+\>/
128 syn match factorDefer /\<DEFER:\s\+\S\+\>/
129 syn match factorForget /\<FORGET:\s\+\S\+\>/
130 syn match factorMixin /\<MIXIN:\s\+\S\+\>/
131 syn match factorInstance /\<INSTANCE:\s\+\S\+\s\+\S\+\>/
132 syn match factorHook /\<HOOK:\s\+\S\+\s\+\S\+\>/ nextgroup=factorStackEffect skipwhite skipempty
133 syn match factorMain /\<MAIN:\s\+\S\+\>/
134 syn match factorConstructor /\<C:\s\+\S\+\s\+\S\+\>/
135 syn match factorAlien /\<ALIEN:\s\+[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\>/
136 syn match factorSlot /\<SLOT:\s\+\S\+\>/
138 syn cluster factorWordOps contains=factorConstant,factorAlias,factorSingleton,factorSingletons,factorSymbol,factorSymbols,factorPostpone,factorDefer,factorForget,factorMixin,factorInstance,factorHook,factorMain,factorConstructor
154 syn match factorEscape /\\\([\\stnr0e\"]\|u\x\{6}\|u{\S\+}\)/ contained display
155 syn region factorString start=/\<"/ skip=/\\"/ end=/"/ contains=factorEscape
156 syn region factorTriString start=/\<"""/ skip=/\\"/ end=/"""/ contains=factorEscape
157 syn region factorSbuf start=/\<[-a-zA-Z0-9]\+"\>/ skip=/\\"/ end=/"/
159 syn region factorMultiString matchgroup=factorMultiStringDelims start=/\<STRING:\s\+\S\+\>/ end=/^;$/ contains=factorMultiStringContents
160 syn match factorMultiStringContents /.*/ contained
162 "syn match factorStackEffectErr /\<)\>/
163 "syn region factorStackEffectErr start=/\<(\>/ end=/\<)\>/
164 "syn region factorStackEffect start=/\<(\>/ end=/\<)\>/ contained
165 syn match factorStackEffect /\<(\s\(\S*\s\)\?--\(\s\S*\)\?\s)\>/ contained
166 syn match factorLiteralStackEffect /\<((\s\(\S*\s\)\?--\(\s\S*\)\?\s))\>/
168 "adapted from lisp.vim
169 if exists("g:factor_norainbow")
170 syn region factorQuotation matchgroup=factorDelimiter start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ matchgroup=factorDelimiter end=/\<\]\>/ contains=ALL
172 syn region factorQuotation0 matchgroup=hlLevel0 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation1,factorArray1
173 syn region factorQuotation1 contained matchgroup=hlLevel1 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation2,factorArray2
174 syn region factorQuotation2 contained matchgroup=hlLevel2 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation3,factorArray3
175 syn region factorQuotation3 contained matchgroup=hlLevel3 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation4,factorArray4
176 syn region factorQuotation4 contained matchgroup=hlLevel4 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation5,factorArray5
177 syn region factorQuotation5 contained matchgroup=hlLevel5 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation6,factorArray6
178 syn region factorQuotation6 contained matchgroup=hlLevel6 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation7,factorArray7
179 syn region factorQuotation7 contained matchgroup=hlLevel7 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation8,factorArray8
180 syn region factorQuotation8 contained matchgroup=hlLevel8 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation9,factorArray9
181 syn region factorQuotation9 contained matchgroup=hlLevel9 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation0,factorArray0
184 if exists("g:factor_norainbow")
185 syn region factorArray matchgroup=factorDelimiter start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ matchgroup=factorDelimiter end=/\<}\>/ contains=ALL
187 syn region factorArray0 matchgroup=hlLevel0 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray1,factorQuotation1
188 syn region factorArray1 contained matchgroup=hlLevel1 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray2,factorQuotation2
189 syn region factorArray2 contained matchgroup=hlLevel2 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray3,factorQuotation3
190 syn region factorArray3 contained matchgroup=hlLevel3 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray4,factorQuotation4
191 syn region factorArray4 contained matchgroup=hlLevel4 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray5,factorQuotation5
192 syn region factorArray5 contained matchgroup=hlLevel5 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray6,factorQuotation6
193 syn region factorArray6 contained matchgroup=hlLevel6 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray7,factorQuotation7
194 syn region factorArray7 contained matchgroup=hlLevel7 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray8,factorQuotation8
195 syn region factorArray8 contained matchgroup=hlLevel8 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray9,factorQuotation9
196 syn region factorArray9 contained matchgroup=hlLevel9 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray0,factorQuotation0
199 syn match factorBracketErr /\<\]\>/
200 syn match factorBracketErr /\<}\>/
204 if version >= 508 || !exists("did_factor_syn_inits")
206 let did_factor_syn_inits = 1
207 command -nargs=+ HiLink hi link <args>
209 command -nargs=+ HiLink hi def link <args>
212 HiLink factorComment Comment
213 HiLink factorShebang PreProc
214 HiLink factorShebangErr Error
215 HiLink factorStackEffect Typedef
216 HiLink factorLiteralStackEffect Typedef
217 HiLink factorTodo Todo
218 HiLink factorInclude Include
219 HiLink factorRepeat Repeat
220 HiLink factorConditional Conditional
221 HiLink factorKeyword Keyword
222 HiLink factorCallQuotation Keyword
223 HiLink factorExecute Keyword
224 HiLink factorCallNextMethod Keyword
225 HiLink factorOperator Operator
226 HiLink factorFrySpecifier Operator
227 HiLink factorBoolean Boolean
228 HiLink factorBreakpoint Debug
229 HiLink factorDefnDelims Typedef
230 HiLink factorMethodDelims Typedef
231 HiLink factorGenericDelims Typedef
232 HiLink factorGenericNDelims Typedef
233 HiLink factorConstructor Typedef
234 HiLink factorConstructor2 Typedef
235 HiLink factorPrivate Special
236 HiLink factorPrivateDefnDelims Special
237 HiLink factorPrivateMethodDelims Special
238 HiLink factorPGenericDelims Special
239 HiLink factorPGenericNDelims Special
240 HiLink factorEscape SpecialChar
241 HiLink factorString String
242 HiLink factorTriString String
243 HiLink factorSbuf String
244 HiLink factorMultiStringContents String
245 HiLink factorMultiStringDelims Typedef
246 HiLink factorBracketErr Error
247 HiLink factorComplex Number
248 HiLink factorRatio Number
249 HiLink factorBinary Number
250 HiLink factorBinErr Error
251 HiLink factorHex Number
252 HiLink factorHexErr Error
253 HiLink factorNan Number
254 HiLink factorOctal Number
255 HiLink factorOctErr Error
256 HiLink factorFloat Float
257 HiLink factorInt Number
258 HiLink factorUsing Include
259 HiLink factorQualified Include
260 HiLink factorQualifiedWith Include
261 HiLink factorExclude Include
262 HiLink factorFrom Include
263 HiLink factorRename Include
264 HiLink factorUse Include
265 HiLink factorUnuse Include
266 HiLink factorIn Define
267 HiLink factorChar Character
268 HiLink factorDelimiter Delimiter
269 HiLink factorBackslash Special
270 HiLink factorMBackslash Special
271 HiLink factorLiteral Special
272 HiLink factorLiteralBlock Special
273 HiLink factorDeclaration Typedef
274 HiLink factorSymbol Define
275 HiLink factorSymbols Define
276 HiLink factorConstant Define
277 HiLink factorAlias Define
278 HiLink factorSingleton Define
279 HiLink factorSingletons Define
280 HiLink factorMixin Typedef
281 HiLink factorInstance Typedef
282 HiLink factorHook Typedef
283 HiLink factorMain Define
284 HiLink factorPostpone Define
285 HiLink factorDefer Define
286 HiLink factorForget Define
287 HiLink factorAlien Define
288 HiLink factorSlot Define
289 HiLink factorIntersection Typedef
290 HiLink factorTuple Typedef
291 HiLink factorError Typedef
292 HiLink factorUnion Typedef
293 HiLink factorStruct Typedef
296 hi hlLevel0 ctermfg=red guifg=red1
297 hi hlLevel1 ctermfg=yellow guifg=orange1
298 hi hlLevel2 ctermfg=green guifg=yellow1
299 hi hlLevel3 ctermfg=cyan guifg=greenyellow
300 hi hlLevel4 ctermfg=magenta guifg=green1
301 hi hlLevel5 ctermfg=red guifg=springgreen1
302 hi hlLevel6 ctermfg=yellow guifg=cyan1
303 hi hlLevel7 ctermfg=green guifg=slateblue1
304 hi hlLevel8 ctermfg=cyan guifg=magenta1
305 hi hlLevel9 ctermfg=magenta guifg=purple1
307 hi hlLevel0 ctermfg=red guifg=red3
308 hi hlLevel1 ctermfg=darkyellow guifg=orangered3
309 hi hlLevel2 ctermfg=darkgreen guifg=orange2
310 hi hlLevel3 ctermfg=blue guifg=yellow3
311 hi hlLevel4 ctermfg=darkmagenta guifg=olivedrab4
312 hi hlLevel5 ctermfg=red guifg=green4
313 hi hlLevel6 ctermfg=darkyellow guifg=paleturquoise3
314 hi hlLevel7 ctermfg=darkgreen guifg=deepskyblue4
315 hi hlLevel8 ctermfg=blue guifg=darkslateblue
316 hi hlLevel9 ctermfg=darkmagenta guifg=darkviolet
322 let b:current_syntax = "factor"
324 " vim:set ft=vim sw=4: