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: 2009 May 19
16 " To run: USE: 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,factorFryDirective,factorKeyword,factorRepeat,factorConditional,factorBoolean,factorCompileDirective,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 /\<#!\>.*/ contains=factorTodo
40 syn match factorComment /\<!\>.*/ 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 factorFryDirective /\<\(@\|_\)\>/ contained
59 syn keyword factorCompileDirective inline foldable 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 factorFrom start=/\<FROM:\>/ end=/;/
105 syn region factorSingletons start=/\<SINGLETONS:\>/ end=/;/
106 syn match factorSymbol /\<SYMBOL:\s\+\S\+\>/
107 syn region factorSymbols start=/\<SYMBOLS:\>/ end=/;/
108 syn region factorConstructor2 start=/\<CONSTRUCTOR:\?/ end=/;/
109 syn region factorTuple start=/\<TUPLE:\>/ end=/\<;\>/
110 syn region factorStruct start=/\<\(UNION-STRUCT:\|STRUCT:\)\>/ end=/\<;\>/
112 syn match factorConstant /\<CONSTANT:\s\+\S\+\>/
113 syn match factorAlias /\<ALIAS:\s\+\S\+\>/
114 syn match factorSingleton /\<SINGLETON:\s\+\S\+\>/
115 syn match factorPostpone /\<POSTPONE:\s\+\S\+\>/
116 syn match factorDefer /\<DEFER:\s\+\S\+\>/
117 syn match factorForget /\<FORGET:\s\+\S\+\>/
118 syn match factorMixin /\<MIXIN:\s\+\S\+\>/
119 syn match factorInstance /\<INSTANCE:\s\+\S\+\s\+\S\+\>/
120 syn match factorHook /\<HOOK:\s\+\S\+\s\+\S\+\>/
121 syn match factorMain /\<MAIN:\s\+\S\+\>/
122 syn match factorConstructor /\<C:\s\+\S\+\s\+\S\+\>/
123 syn match factorAlien /\<ALIEN:\s\+[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\>/
125 syn cluster factorWordOps contains=factorConstant,factorAlias,factorSingleton,factorSingletons,factorSymbol,factorSymbols,factorPostpone,factorDefer,factorForget,factorMixin,factorInstance,factorHook,factorMain,factorConstructor
141 syn region factorString start=/\<"/ skip=/\\"/ end=/"/
142 syn region factorTriString start=/\<"""/ skip=/\\"/ end=/"""/
143 syn region factorSbuf start=/\<SBUF"\>/ skip=/\\"/ end=/"/
145 syn region factorMultiString matchgroup=factorMultiStringDelims start=/\<STRING:\s\+\S\+\>/ end=/^;$/ contains=factorMultiStringContents
146 syn match factorMultiStringContents /.*/ contained
148 "syn match factorStackEffectErr /\<)\>/
149 "syn region factorStackEffectErr start=/\<(\>/ end=/\<)\>/
150 "syn region factorStackEffect start=/\<(\>/ end=/\<)\>/ contained
151 syn match factorStackEffect /\<( .*--.* )\>/ contained
152 syn match factorLiteralStackEffect /\<(( .*--.* ))\>/
154 "adapted from lisp.vim
155 if exists("g:factor_norainbow")
156 syn region factorQuotation matchgroup=factorDelimiter start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ matchgroup=factorDelimiter end=/\<\]\>/ contains=ALL
158 syn region factorQuotation0 matchgroup=hlLevel0 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation1,factorArray1
159 syn region factorQuotation1 contained matchgroup=hlLevel1 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation2,factorArray2
160 syn region factorQuotation2 contained matchgroup=hlLevel2 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation3,factorArray3
161 syn region factorQuotation3 contained matchgroup=hlLevel3 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation4,factorArray4
162 syn region factorQuotation4 contained matchgroup=hlLevel4 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation5,factorArray5
163 syn region factorQuotation5 contained matchgroup=hlLevel5 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation6,factorArray6
164 syn region factorQuotation6 contained matchgroup=hlLevel6 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation7,factorArray7
165 syn region factorQuotation7 contained matchgroup=hlLevel7 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation8,factorArray8
166 syn region factorQuotation8 contained matchgroup=hlLevel8 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation9,factorArray9
167 syn region factorQuotation9 contained matchgroup=hlLevel9 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation0,factorArray0
170 if exists("g:factor_norainbow")
171 syn region factorArray matchgroup=factorDelimiter start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ matchgroup=factorDelimiter end=/\<}\>/ contains=ALL
173 syn region factorArray0 matchgroup=hlLevel0 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray1,factorQuotation1
174 syn region factorArray1 contained matchgroup=hlLevel1 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray2,factorQuotation2
175 syn region factorArray2 contained matchgroup=hlLevel2 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray3,factorQuotation3
176 syn region factorArray3 contained matchgroup=hlLevel3 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray4,factorQuotation4
177 syn region factorArray4 contained matchgroup=hlLevel4 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray5,factorQuotation5
178 syn region factorArray5 contained matchgroup=hlLevel5 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray6,factorQuotation6
179 syn region factorArray6 contained matchgroup=hlLevel6 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray7,factorQuotation7
180 syn region factorArray7 contained matchgroup=hlLevel7 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray8,factorQuotation8
181 syn region factorArray8 contained matchgroup=hlLevel8 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray9,factorQuotation9
182 syn region factorArray9 contained matchgroup=hlLevel9 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray0,factorQuotation0
185 syn match factorBracketErr /\<\]\>/
186 syn match factorBracketErr /\<}\>/
190 if version >= 508 || !exists("did_factor_syn_inits")
192 let did_factor_syn_inits = 1
193 command -nargs=+ HiLink hi link <args>
195 command -nargs=+ HiLink hi def link <args>
198 HiLink factorComment Comment
199 HiLink factorStackEffect Typedef
200 HiLink factorLiteralStackEffect Typedef
201 HiLink factorTodo Todo
202 HiLink factorInclude Include
203 HiLink factorRepeat Repeat
204 HiLink factorConditional Conditional
205 HiLink factorKeyword Keyword
206 HiLink factorOperator Operator
207 HiLink factorFryDirective Operator
208 HiLink factorBoolean Boolean
209 HiLink factorDefnDelims Typedef
210 HiLink factorMethodDelims Typedef
211 HiLink factorGenericDelims Typedef
212 HiLink factorGenericNDelims Typedef
213 HiLink factorConstructor Typedef
214 HiLink factorConstructor2 Typedef
215 HiLink factorPrivate Special
216 HiLink factorPrivateDefnDelims Special
217 HiLink factorPrivateMethodDelims Special
218 HiLink factorPGenericDelims Special
219 HiLink factorPGenericNDelims Special
220 HiLink factorString String
221 HiLink factorTriString String
222 HiLink factorSbuf String
223 HiLink factorMultiStringContents String
224 HiLink factorMultiStringDelims Typedef
225 HiLink factorBracketErr Error
226 HiLink factorComplex Number
227 HiLink factorRatio Number
228 HiLink factorBinary Number
229 HiLink factorBinErr Error
230 HiLink factorHex Number
231 HiLink factorHexErr Error
232 HiLink factorNan Number
233 HiLink factorOctal Number
234 HiLink factorOctErr Error
235 HiLink factorFloat Float
236 HiLink factorInt Number
237 HiLink factorUsing Include
238 HiLink factorQualified Include
239 HiLink factorQualifiedWith Include
240 HiLink factorFrom Include
241 HiLink factorUse Include
242 HiLink factorUnuse Include
243 HiLink factorIn Define
244 HiLink factorChar Character
245 HiLink factorDelimiter Delimiter
246 HiLink factorBackslash Special
247 HiLink factorLiteral Special
248 HiLink factorLiteralBlock Special
249 HiLink factorCompileDirective Typedef
250 HiLink factorSymbol Define
251 HiLink factorConstant Define
252 HiLink factorSingleton Define
253 HiLink factorSingletons Define
254 HiLink factorMixin Typedef
255 HiLink factorInstance Typedef
256 HiLink factorHook Typedef
257 HiLink factorMain Define
258 HiLink factorPostpone Define
259 HiLink factorDefer Define
260 HiLink factorForget Define
261 HiLink factorAlien Define
262 HiLink factorTuple Typedef
263 HiLink factorStruct Typedef
266 hi hlLevel0 ctermfg=red guifg=red1
267 hi hlLevel1 ctermfg=yellow guifg=orange1
268 hi hlLevel2 ctermfg=green guifg=yellow1
269 hi hlLevel3 ctermfg=cyan guifg=greenyellow
270 hi hlLevel4 ctermfg=magenta guifg=green1
271 hi hlLevel5 ctermfg=red guifg=springgreen1
272 hi hlLevel6 ctermfg=yellow guifg=cyan1
273 hi hlLevel7 ctermfg=green guifg=slateblue1
274 hi hlLevel8 ctermfg=cyan guifg=magenta1
275 hi hlLevel9 ctermfg=magenta guifg=purple1
277 hi hlLevel0 ctermfg=red guifg=red3
278 hi hlLevel1 ctermfg=darkyellow guifg=orangered3
279 hi hlLevel2 ctermfg=darkgreen guifg=orange2
280 hi hlLevel3 ctermfg=blue guifg=yellow3
281 hi hlLevel4 ctermfg=darkmagenta guifg=olivedrab4
282 hi hlLevel5 ctermfg=red guifg=green4
283 hi hlLevel6 ctermfg=darkyellow guifg=paleturquoise3
284 hi hlLevel7 ctermfg=darkgreen guifg=deepskyblue4
285 hi hlLevel8 ctermfg=blue guifg=darkslateblue
286 hi hlLevel9 ctermfg=darkmagenta guifg=darkviolet
292 let b:current_syntax = "factor"
297 set autoindent " annoying?