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 Mar 15
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,factorCallNextMethod,factorString,factorTriString,factorSbuf,@factorNumber,@factorNumErr,factorDelimiter,factorChar,factorBackslash,factorLiteral,factorLiteralBlock,@factorWordOps,factorAlien,factorSlot,factorTuple,factorStruct
38 syn match factorTodo /\(TODO\|FIXME\|XXX\):\=/ contained
39 syn match factorComment /\<#!\>\s.*/ contains=factorTodo
40 syn match factorComment /\<!\>\s.*/ contains=factorTodo
42 syn cluster factorDefnContents contains=@factorCluster,factorStackEffect,factorLiteralStackEffect,factorArray0,factorQuotation0
44 syn region factorDefn matchgroup=factorDefnDelims start=/\<\(SYNTAX\|\(MACRO\|MEMO\)\?:\?\):\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents
45 syn region factorMethod matchgroup=factorMethodDelims start=/\<M::\?\s\+\S\+\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents
46 syn region factorGeneric matchgroup=factorGenericDelims start=/\<GENERIC:\s\+\S\+\>/ end=/$/ contains=factorStackEffect
47 syn region factorGenericN matchgroup=factorGenericNDelims start=/\<GENERIC#\s\+\S\+\s\+\d\+\>/ end=/$/ contains=factorStackEffect
49 syn region factorPrivateDefn matchgroup=factorPrivateDefnDelims start=/\<\(SYNTAX\|\(MACRO\|MEMO\)\?:\?\):\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents contained
50 syn region factorPrivateMethod matchgroup=factorPrivateMethodDelims start=/\<M::\?\s\+\S\+\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents contained
51 syn region factorPGeneric matchgroup=factorPGenericDelims start=/\<GENERIC:\s\+\S\+\>/ end=/$/ contains=factorStackEffect contained
52 syn region factorPGenericN matchgroup=factorPGenericNDelims start=/\<GENERIC#\s\+\S\+\s\+\d\+\>/ end=/$/ contains=factorStackEffect
54 syn region None matchgroup=factorPrivate start=/\<<PRIVATE\>/ end=/\<PRIVATE>\>/ contains=@factorDefnContents,factorPrivateDefn,factorPrivateMethod,factorPGeneric,factorPGenericN
57 syn keyword factorBoolean f t
58 syn keyword factorBreakpoint B
59 syn keyword factorFrySpecifier @ _ contained
60 syn keyword factorDeclaration delimiter deprecated final flushable foldable inline recursive
61 syn match factorCallQuotation /\<call(\s.*\s--\s.*\s)\>/
62 syn keyword factorCallNextMethod call-next-method
66 ! uncomment this if you want all words from all vocabularies highlighted. Note
67 ! that this changes factor.vim from around 8k to around 100k (and is a bit
70 ! vocabs [ print-keywords ] each
73 "kernel" "assocs" "combinators" "math" "sequences"
74 "namespaces" "arrays" "io" "strings" "vectors"
76 } [ print-keywords ] each
79 syn cluster factorReal contains=factorInt,factorFloat,factorRatio,factorBinary,factorHex,factorOctal
80 syn cluster factorNumber contains=@factorReal,factorComplex
81 syn cluster factorNumErr contains=factorBinErr,factorHexErr,factorOctErr
82 syn match factorInt /\<-\=[0-9]\([0-9,]*[0-9]\)\?\>/
83 syn match factorFloat /\<-\=[0-9]\([0-9,]*[0-9]\)\?\.[0-9,]*[0-9]\+\>/
84 syn match factorRatio /\<-\=[0-9]\([0-9,]*[0-9]\)\?\(+[0-9]\([0-9,]*[0-9]\+\)\?\)\?\/-\=[0-9]\([0-9,]*[0-9]\+\)\?\.\?\>/
85 syn region factorComplex start=/\<C{\>/ end=/\<}\>/ contains=@factorReal
86 syn match factorBinErr /\<BIN:\s\+-\=[01,]*[^01 ]\S*\>/
87 syn match factorBinary /\<BIN:\s\+-\=[01,]\+\>/
88 syn match factorHexErr /\<HEX:\s\+-\=\(,\S*\|\S*,\|[-0-9a-fA-Fp,]*[^-0-9a-fA-Fp, ]\S*\)\>/
89 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]\)\?\)\?\>/
90 syn match factorOctErr /\<OCT:\s\+-\=\(,\S*\|\S*,\|[0-7,]*[^0-7, ]\S*\)\>/
91 syn match factorOctal /\<OCT:\s\+-\=[0-7,]\+\>/
92 syn match factorNan /\<NAN:\s\+[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\>/
94 syn match factorIn /\<IN:\s\+\S\+\>/
95 syn match factorUse /\<USE:\s\+\S\+\>/
96 syn match factorUnuse /\<UNUSE:\s\+\S\+\>/
98 syn match factorChar /\<CHAR:\s\+\S\+\>/
100 syn match factorBackslash /\<\\\>\s\+\S\+\>/
101 syn match factorLiteral /\<\$\>\s\+\S\+\>/
102 syn region factorLiteralBlock start=/\<\$\[\>/ end=/\<\]\>/
104 syn region factorUsing start=/\<USING:\>/ end=/;/
105 syn match factorQualified /\<QUALIFIED:\s\+\S\+\>/
106 syn match factorQualifiedWith /\<QUALIFIED-WITH:\s\+\S\+\s\+\S\+\>/
107 syn region factorExclude start=/\<EXCLUDE:\>/ end=/;/
108 syn region factorFrom start=/\<FROM:\>/ end=/;/
109 syn region factorRename start=/\<RENAME:\>/ end=/;/
110 syn region factorSingletons start=/\<SINGLETONS:\>/ end=/;/
111 syn match factorSymbol /\<SYMBOL:\s\+\S\+\>/
112 syn region factorSymbols start=/\<SYMBOLS:\>/ end=/;/
113 syn region factorConstructor2 start=/\<CONSTRUCTOR:\?/ end=/;/
114 syn region factorIntersection start=/\<INTERSECTION:\>/ end=/\<;\>/
115 syn region factorTuple start=/\<TUPLE:\>/ end=/\<;\>/
116 syn region factorUnion start=/\<UNION:\>/ end=/\<;\>/
117 syn region factorStruct start=/\<\(UNION-STRUCT:\|STRUCT:\)\>/ end=/\<;\>/
119 syn match factorConstant /\<CONSTANT:\s\+\S\+\>/
120 syn match factorAlias /\<ALIAS:\s\+\S\+\s\+\S\+\>/
121 syn match factorSingleton /\<SINGLETON:\s\+\S\+\>/
122 syn match factorPostpone /\<POSTPONE:\s\+\S\+\>/
123 syn match factorDefer /\<DEFER:\s\+\S\+\>/
124 syn match factorForget /\<FORGET:\s\+\S\+\>/
125 syn match factorMixin /\<MIXIN:\s\+\S\+\>/
126 syn match factorInstance /\<INSTANCE:\s\+\S\+\s\+\S\+\>/
127 syn match factorHook /\<HOOK:\s\+\S\+\s\+\S\+\>/
128 syn match factorMain /\<MAIN:\s\+\S\+\>/
129 syn match factorConstructor /\<C:\s\+\S\+\s\+\S\+\>/
130 syn match factorAlien /\<ALIEN:\s\+[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\>/
131 syn match factorSlot /\<SLOT:\s\+\S\+\>/
133 syn cluster factorWordOps contains=factorConstant,factorAlias,factorSingleton,factorSingletons,factorSymbol,factorSymbols,factorPostpone,factorDefer,factorForget,factorMixin,factorInstance,factorHook,factorMain,factorConstructor
149 syn region factorString start=/\<"/ skip=/\\"/ end=/"/
150 syn region factorTriString start=/\<"""/ skip=/\\"/ end=/"""/
151 syn region factorSbuf start=/\<[-a-zA-Z0-9]\+"\>/ skip=/\\"/ end=/"/
153 syn region factorMultiString matchgroup=factorMultiStringDelims start=/\<STRING:\s\+\S\+\>/ end=/^;$/ contains=factorMultiStringContents
154 syn match factorMultiStringContents /.*/ contained
156 "syn match factorStackEffectErr /\<)\>/
157 "syn region factorStackEffectErr start=/\<(\>/ end=/\<)\>/
158 "syn region factorStackEffect start=/\<(\>/ end=/\<)\>/ contained
159 syn match factorStackEffect /\<(\s.*\s--\s.*\s)\>/ contained
160 syn match factorLiteralStackEffect /\<((\s.*\s--\s.*\s))\>/
162 "adapted from lisp.vim
163 if exists("g:factor_norainbow")
164 syn region factorQuotation matchgroup=factorDelimiter start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ matchgroup=factorDelimiter end=/\<\]\>/ contains=ALL
166 syn region factorQuotation0 matchgroup=hlLevel0 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation1,factorArray1
167 syn region factorQuotation1 contained matchgroup=hlLevel1 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation2,factorArray2
168 syn region factorQuotation2 contained matchgroup=hlLevel2 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation3,factorArray3
169 syn region factorQuotation3 contained matchgroup=hlLevel3 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation4,factorArray4
170 syn region factorQuotation4 contained matchgroup=hlLevel4 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation5,factorArray5
171 syn region factorQuotation5 contained matchgroup=hlLevel5 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation6,factorArray6
172 syn region factorQuotation6 contained matchgroup=hlLevel6 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation7,factorArray7
173 syn region factorQuotation7 contained matchgroup=hlLevel7 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation8,factorArray8
174 syn region factorQuotation8 contained matchgroup=hlLevel8 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation9,factorArray9
175 syn region factorQuotation9 contained matchgroup=hlLevel9 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation0,factorArray0
178 if exists("g:factor_norainbow")
179 syn region factorArray matchgroup=factorDelimiter start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ matchgroup=factorDelimiter end=/\<}\>/ contains=ALL
181 syn region factorArray0 matchgroup=hlLevel0 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray1,factorQuotation1
182 syn region factorArray1 contained matchgroup=hlLevel1 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray2,factorQuotation2
183 syn region factorArray2 contained matchgroup=hlLevel2 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray3,factorQuotation3
184 syn region factorArray3 contained matchgroup=hlLevel3 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray4,factorQuotation4
185 syn region factorArray4 contained matchgroup=hlLevel4 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray5,factorQuotation5
186 syn region factorArray5 contained matchgroup=hlLevel5 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray6,factorQuotation6
187 syn region factorArray6 contained matchgroup=hlLevel6 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray7,factorQuotation7
188 syn region factorArray7 contained matchgroup=hlLevel7 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray8,factorQuotation8
189 syn region factorArray8 contained matchgroup=hlLevel8 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray9,factorQuotation9
190 syn region factorArray9 contained matchgroup=hlLevel9 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray0,factorQuotation0
193 syn match factorBracketErr /\<\]\>/
194 syn match factorBracketErr /\<}\>/
198 if version >= 508 || !exists("did_factor_syn_inits")
200 let did_factor_syn_inits = 1
201 command -nargs=+ HiLink hi link <args>
203 command -nargs=+ HiLink hi def link <args>
206 HiLink factorComment Comment
207 HiLink factorStackEffect Typedef
208 HiLink factorLiteralStackEffect Typedef
209 HiLink factorTodo Todo
210 HiLink factorInclude Include
211 HiLink factorRepeat Repeat
212 HiLink factorConditional Conditional
213 HiLink factorKeyword Keyword
214 HiLink factorCallQuotation Keyword
215 HiLink factorCallNextMethod Keyword
216 HiLink factorOperator Operator
217 HiLink factorFrySpecifier Operator
218 HiLink factorBoolean Boolean
219 HiLink factorBreakpoint Debug
220 HiLink factorDefnDelims Typedef
221 HiLink factorMethodDelims Typedef
222 HiLink factorGenericDelims Typedef
223 HiLink factorGenericNDelims Typedef
224 HiLink factorConstructor Typedef
225 HiLink factorConstructor2 Typedef
226 HiLink factorPrivate Special
227 HiLink factorPrivateDefnDelims Special
228 HiLink factorPrivateMethodDelims Special
229 HiLink factorPGenericDelims Special
230 HiLink factorPGenericNDelims Special
231 HiLink factorString String
232 HiLink factorTriString String
233 HiLink factorSbuf String
234 HiLink factorMultiStringContents String
235 HiLink factorMultiStringDelims Typedef
236 HiLink factorBracketErr Error
237 HiLink factorComplex Number
238 HiLink factorRatio Number
239 HiLink factorBinary Number
240 HiLink factorBinErr Error
241 HiLink factorHex Number
242 HiLink factorHexErr Error
243 HiLink factorNan Number
244 HiLink factorOctal Number
245 HiLink factorOctErr Error
246 HiLink factorFloat Float
247 HiLink factorInt Number
248 HiLink factorUsing Include
249 HiLink factorQualified Include
250 HiLink factorQualifiedWith Include
251 HiLink factorExclude Include
252 HiLink factorFrom Include
253 HiLink factorRename Include
254 HiLink factorUse Include
255 HiLink factorUnuse Include
256 HiLink factorIn Define
257 HiLink factorChar Character
258 HiLink factorDelimiter Delimiter
259 HiLink factorBackslash Special
260 HiLink factorLiteral Special
261 HiLink factorLiteralBlock Special
262 HiLink factorDeclaration Typedef
263 HiLink factorSymbol Define
264 HiLink factorSymbols Define
265 HiLink factorConstant Define
266 HiLink factorAlias Define
267 HiLink factorSingleton Define
268 HiLink factorSingletons Define
269 HiLink factorMixin Typedef
270 HiLink factorInstance Typedef
271 HiLink factorHook Typedef
272 HiLink factorMain Define
273 HiLink factorPostpone Define
274 HiLink factorDefer Define
275 HiLink factorForget Define
276 HiLink factorAlien Define
277 HiLink factorSlot Define
278 HiLink factorIntersection Typedef
279 HiLink factorTuple Typedef
280 HiLink factorUnion Typedef
281 HiLink factorStruct Typedef
284 hi hlLevel0 ctermfg=red guifg=red1
285 hi hlLevel1 ctermfg=yellow guifg=orange1
286 hi hlLevel2 ctermfg=green guifg=yellow1
287 hi hlLevel3 ctermfg=cyan guifg=greenyellow
288 hi hlLevel4 ctermfg=magenta guifg=green1
289 hi hlLevel5 ctermfg=red guifg=springgreen1
290 hi hlLevel6 ctermfg=yellow guifg=cyan1
291 hi hlLevel7 ctermfg=green guifg=slateblue1
292 hi hlLevel8 ctermfg=cyan guifg=magenta1
293 hi hlLevel9 ctermfg=magenta guifg=purple1
295 hi hlLevel0 ctermfg=red guifg=red3
296 hi hlLevel1 ctermfg=darkyellow guifg=orangered3
297 hi hlLevel2 ctermfg=darkgreen guifg=orange2
298 hi hlLevel3 ctermfg=blue guifg=yellow3
299 hi hlLevel4 ctermfg=darkmagenta guifg=olivedrab4
300 hi hlLevel5 ctermfg=red guifg=green4
301 hi hlLevel6 ctermfg=darkyellow guifg=paleturquoise3
302 hi hlLevel7 ctermfg=darkgreen guifg=deepskyblue4
303 hi hlLevel8 ctermfg=blue guifg=darkslateblue
304 hi hlLevel9 ctermfg=darkmagenta guifg=darkviolet
310 let b:current_syntax = "factor"
315 set autoindent " annoying?