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 10
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,factorDeclaration,factorString,factorTriString,factorSbuf,@factorNumber,@factorNumErr,factorDelimiter,factorChar,factorBackslash,factorLiteral,factorLiteralBlock,@factorWordOps,factorAlien,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 match factorFrySpecifier /\<\(@\|_\)\>/ contained
59 syn keyword factorDeclaration delimiter deprecated final flushable foldable inline recursive
63 ! uncomment this if you want all words from all vocabularies highlighted. Note
64 ! that this changes factor.vim from around 8k to around 100k (and is a bit
67 ! vocabs [ print-keywords ] each
70 "kernel" "assocs" "combinators" "math" "sequences"
71 "namespaces" "arrays" "io" "strings" "vectors"
73 } [ print-keywords ] each
76 syn cluster factorReal contains=factorInt,factorFloat,factorRatio,factorBinary,factorHex,factorOctal
77 syn cluster factorNumber contains=@factorReal,factorComplex
78 syn cluster factorNumErr contains=factorBinErr,factorHexErr,factorOctErr
79 syn match factorInt /\<-\=[0-9]\([0-9,]*[0-9]\)\?\>/
80 syn match factorFloat /\<-\=[0-9]\([0-9,]*[0-9]\)\?\.[0-9,]*[0-9]\+\>/
81 syn match factorRatio /\<-\=[0-9]\([0-9,]*[0-9]\)\?\(+[0-9]\([0-9,]*[0-9]\+\)\?\)\?\/-\=[0-9]\([0-9,]*[0-9]\+\)\?\.\?\>/
82 syn region factorComplex start=/\<C{\>/ end=/\<}\>/ contains=@factorReal
83 syn match factorBinErr /\<BIN:\s\+-\=[01,]*[^01 ]\S*\>/
84 syn match factorBinary /\<BIN:\s\+-\=[01,]\+\>/
85 syn match factorHexErr /\<HEX:\s\+-\=\(,\S*\|\S*,\|[-0-9a-fA-Fp,]*[^-0-9a-fA-Fp, ]\S*\)\>/
86 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]\)\?\)\?\>/
87 syn match factorOctErr /\<OCT:\s\+-\=\(,\S*\|\S*,\|[0-7,]*[^0-7, ]\S*\)\>/
88 syn match factorOctal /\<OCT:\s\+-\=[0-7,]\+\>/
89 syn match factorNan /\<NAN:\s\+[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\>/
91 syn match factorIn /\<IN:\s\+\S\+\>/
92 syn match factorUse /\<USE:\s\+\S\+\>/
93 syn match factorUnuse /\<UNUSE:\s\+\S\+\>/
95 syn match factorChar /\<CHAR:\s\+\S\+\>/
97 syn match factorBackslash /\<\\\>\s\+\S\+\>/
98 syn match factorLiteral /\<\$\>\s\+\S\+\>/
99 syn region factorLiteralBlock start=/\<\$\[\>/ end=/\<\]\>/
101 syn region factorUsing start=/\<USING:\>/ end=/;/
102 syn match factorQualified /\<QUALIFIED:\s\+\S\+\>/
103 syn match factorQualifiedWith /\<QUALIFIED-WITH:\s\+\S\+\s\+\S\+\>/
104 syn region factorExclude start=/\<EXCLUDE:\>/ end=/;/
105 syn region factorFrom start=/\<FROM:\>/ end=/;/
106 syn region factorRename start=/\<RENAME:\>/ end=/;/
107 syn region factorSingletons start=/\<SINGLETONS:\>/ end=/;/
108 syn match factorSymbol /\<SYMBOL:\s\+\S\+\>/
109 syn region factorSymbols start=/\<SYMBOLS:\>/ end=/;/
110 syn region factorConstructor2 start=/\<CONSTRUCTOR:\?/ end=/;/
111 syn region factorTuple start=/\<TUPLE:\>/ end=/\<;\>/
112 syn region factorStruct start=/\<\(UNION-STRUCT:\|STRUCT:\)\>/ end=/\<;\>/
114 syn match factorConstant /\<CONSTANT:\s\+\S\+\>/
115 syn match factorAlias /\<ALIAS:\s\+\S\+\s\+\S\+\>/
116 syn match factorSingleton /\<SINGLETON:\s\+\S\+\>/
117 syn match factorPostpone /\<POSTPONE:\s\+\S\+\>/
118 syn match factorDefer /\<DEFER:\s\+\S\+\>/
119 syn match factorForget /\<FORGET:\s\+\S\+\>/
120 syn match factorMixin /\<MIXIN:\s\+\S\+\>/
121 syn match factorInstance /\<INSTANCE:\s\+\S\+\s\+\S\+\>/
122 syn match factorHook /\<HOOK:\s\+\S\+\s\+\S\+\>/
123 syn match factorMain /\<MAIN:\s\+\S\+\>/
124 syn match factorConstructor /\<C:\s\+\S\+\s\+\S\+\>/
125 syn match factorAlien /\<ALIEN:\s\+[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\>/
127 syn cluster factorWordOps contains=factorConstant,factorAlias,factorSingleton,factorSingletons,factorSymbol,factorSymbols,factorPostpone,factorDefer,factorForget,factorMixin,factorInstance,factorHook,factorMain,factorConstructor
143 syn region factorString start=/\<"/ skip=/\\"/ end=/"/
144 syn region factorTriString start=/\<"""/ skip=/\\"/ end=/"""/
145 syn region factorSbuf start=/\<[-a-zA-Z0-9]\+"\>/ skip=/\\"/ end=/"/
147 syn region factorMultiString matchgroup=factorMultiStringDelims start=/\<STRING:\s\+\S\+\>/ end=/^;$/ contains=factorMultiStringContents
148 syn match factorMultiStringContents /.*/ contained
150 "syn match factorStackEffectErr /\<)\>/
151 "syn region factorStackEffectErr start=/\<(\>/ end=/\<)\>/
152 "syn region factorStackEffect start=/\<(\>/ end=/\<)\>/ contained
153 syn match factorStackEffect /\<( .*--.* )\>/ contained
154 syn match factorLiteralStackEffect /\<(( .*--.* ))\>/
156 "adapted from lisp.vim
157 if exists("g:factor_norainbow")
158 syn region factorQuotation matchgroup=factorDelimiter start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ matchgroup=factorDelimiter end=/\<\]\>/ contains=ALL
160 syn region factorQuotation0 matchgroup=hlLevel0 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation1,factorArray1
161 syn region factorQuotation1 contained matchgroup=hlLevel1 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation2,factorArray2
162 syn region factorQuotation2 contained matchgroup=hlLevel2 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation3,factorArray3
163 syn region factorQuotation3 contained matchgroup=hlLevel3 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation4,factorArray4
164 syn region factorQuotation4 contained matchgroup=hlLevel4 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation5,factorArray5
165 syn region factorQuotation5 contained matchgroup=hlLevel5 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation6,factorArray6
166 syn region factorQuotation6 contained matchgroup=hlLevel6 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation7,factorArray7
167 syn region factorQuotation7 contained matchgroup=hlLevel7 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation8,factorArray8
168 syn region factorQuotation8 contained matchgroup=hlLevel8 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation9,factorArray9
169 syn region factorQuotation9 contained matchgroup=hlLevel9 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation0,factorArray0
172 if exists("g:factor_norainbow")
173 syn region factorArray matchgroup=factorDelimiter start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ matchgroup=factorDelimiter end=/\<}\>/ contains=ALL
175 syn region factorArray0 matchgroup=hlLevel0 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray1,factorQuotation1
176 syn region factorArray1 contained matchgroup=hlLevel1 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray2,factorQuotation2
177 syn region factorArray2 contained matchgroup=hlLevel2 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray3,factorQuotation3
178 syn region factorArray3 contained matchgroup=hlLevel3 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray4,factorQuotation4
179 syn region factorArray4 contained matchgroup=hlLevel4 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray5,factorQuotation5
180 syn region factorArray5 contained matchgroup=hlLevel5 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray6,factorQuotation6
181 syn region factorArray6 contained matchgroup=hlLevel6 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray7,factorQuotation7
182 syn region factorArray7 contained matchgroup=hlLevel7 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray8,factorQuotation8
183 syn region factorArray8 contained matchgroup=hlLevel8 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray9,factorQuotation9
184 syn region factorArray9 contained matchgroup=hlLevel9 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray0,factorQuotation0
187 syn match factorBracketErr /\<\]\>/
188 syn match factorBracketErr /\<}\>/
192 if version >= 508 || !exists("did_factor_syn_inits")
194 let did_factor_syn_inits = 1
195 command -nargs=+ HiLink hi link <args>
197 command -nargs=+ HiLink hi def link <args>
200 HiLink factorComment Comment
201 HiLink factorStackEffect Typedef
202 HiLink factorLiteralStackEffect Typedef
203 HiLink factorTodo Todo
204 HiLink factorInclude Include
205 HiLink factorRepeat Repeat
206 HiLink factorConditional Conditional
207 HiLink factorKeyword Keyword
208 HiLink factorOperator Operator
209 HiLink factorFrySpecifier Operator
210 HiLink factorBoolean Boolean
211 HiLink factorDefnDelims Typedef
212 HiLink factorMethodDelims Typedef
213 HiLink factorGenericDelims Typedef
214 HiLink factorGenericNDelims Typedef
215 HiLink factorConstructor Typedef
216 HiLink factorConstructor2 Typedef
217 HiLink factorPrivate Special
218 HiLink factorPrivateDefnDelims Special
219 HiLink factorPrivateMethodDelims Special
220 HiLink factorPGenericDelims Special
221 HiLink factorPGenericNDelims Special
222 HiLink factorString String
223 HiLink factorTriString String
224 HiLink factorSbuf String
225 HiLink factorMultiStringContents String
226 HiLink factorMultiStringDelims Typedef
227 HiLink factorBracketErr Error
228 HiLink factorComplex Number
229 HiLink factorRatio Number
230 HiLink factorBinary Number
231 HiLink factorBinErr Error
232 HiLink factorHex Number
233 HiLink factorHexErr Error
234 HiLink factorNan Number
235 HiLink factorOctal Number
236 HiLink factorOctErr Error
237 HiLink factorFloat Float
238 HiLink factorInt Number
239 HiLink factorUsing Include
240 HiLink factorQualified Include
241 HiLink factorQualifiedWith Include
242 HiLink factorExclude Include
243 HiLink factorFrom Include
244 HiLink factorRename Include
245 HiLink factorUse Include
246 HiLink factorUnuse Include
247 HiLink factorIn Define
248 HiLink factorChar Character
249 HiLink factorDelimiter Delimiter
250 HiLink factorBackslash Special
251 HiLink factorLiteral Special
252 HiLink factorLiteralBlock Special
253 HiLink factorDeclaration Typedef
254 HiLink factorSymbol Define
255 HiLink factorSymbols Define
256 HiLink factorConstant Define
257 HiLink factorAlias Define
258 HiLink factorSingleton Define
259 HiLink factorSingletons Define
260 HiLink factorMixin Typedef
261 HiLink factorInstance Typedef
262 HiLink factorHook Typedef
263 HiLink factorMain Define
264 HiLink factorPostpone Define
265 HiLink factorDefer Define
266 HiLink factorForget Define
267 HiLink factorAlien Define
268 HiLink factorTuple Typedef
269 HiLink factorStruct Typedef
272 hi hlLevel0 ctermfg=red guifg=red1
273 hi hlLevel1 ctermfg=yellow guifg=orange1
274 hi hlLevel2 ctermfg=green guifg=yellow1
275 hi hlLevel3 ctermfg=cyan guifg=greenyellow
276 hi hlLevel4 ctermfg=magenta guifg=green1
277 hi hlLevel5 ctermfg=red guifg=springgreen1
278 hi hlLevel6 ctermfg=yellow guifg=cyan1
279 hi hlLevel7 ctermfg=green guifg=slateblue1
280 hi hlLevel8 ctermfg=cyan guifg=magenta1
281 hi hlLevel9 ctermfg=magenta guifg=purple1
283 hi hlLevel0 ctermfg=red guifg=red3
284 hi hlLevel1 ctermfg=darkyellow guifg=orangered3
285 hi hlLevel2 ctermfg=darkgreen guifg=orange2
286 hi hlLevel3 ctermfg=blue guifg=yellow3
287 hi hlLevel4 ctermfg=darkmagenta guifg=olivedrab4
288 hi hlLevel5 ctermfg=red guifg=green4
289 hi hlLevel6 ctermfg=darkyellow guifg=paleturquoise3
290 hi hlLevel7 ctermfg=darkgreen guifg=deepskyblue4
291 hi hlLevel8 ctermfg=blue guifg=darkslateblue
292 hi hlLevel9 ctermfg=darkmagenta guifg=darkviolet
298 let b:current_syntax = "factor"
303 set autoindent " annoying?