4 " Maintainer: Alex Chapman <chapman.alex@gmail.com>
5 " Last Change: 2009 May 19
6 " To run: USE: html.templates.fhtml "resource:misc/factor.vim.fgen" <fhtml> call-template
8 " For version 5.x: Clear all syntax items
9 " For version 6.x: Quit when a syntax file was already loaded
12 elseif exists("b:current_syntax")
16 " factor is case sensitive.
19 " make all of these characters part of a word (useful for skipping over words with w, e, and b)
21 setlocal iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
23 set iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
26 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
28 syn match factorTodo /\(TODO\|FIXME\|XXX\):\=/ contained
29 syn match factorComment /\<#!\>.*/ contains=factorTodo
30 syn match factorComment /\<!\>.*/ contains=factorTodo
32 syn cluster factorDefnContents contains=@factorCluster,factorStackEffect,factorLiteralStackEffect,factorArray0,factorQuotation0
34 syn region factorDefn matchgroup=factorDefnDelims start=/\<\(SYNTAX\|\(MACRO\|MEMO\)\?:\?\):\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents
35 syn region factorMethod matchgroup=factorMethodDelims start=/\<M::\?\s\+\S\+\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents
36 syn region factorGeneric matchgroup=factorGenericDelims start=/\<GENERIC:\s\+\S\+\>/ end=/$/ contains=factorStackEffect
37 syn region factorGenericN matchgroup=factorGenericNDelims start=/\<GENERIC#\s\+\S\+\s\+\d\+\>/ end=/$/ contains=factorStackEffect
39 syn region factorPrivateDefn matchgroup=factorPrivateDefnDelims start=/\<\(SYNTAX\|\(MACRO\|MEMO\)\?:\?\):\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents contained
40 syn region factorPrivateMethod matchgroup=factorPrivateMethodDelims start=/\<M::\?\s\+\S\+\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents contained
41 syn region factorPGeneric matchgroup=factorPGenericDelims start=/\<GENERIC:\s\+\S\+\>/ end=/$/ contains=factorStackEffect contained
42 syn region factorPGenericN matchgroup=factorPGenericNDelims start=/\<GENERIC#\s\+\S\+\s\+\d\+\>/ end=/$/ contains=factorStackEffect
44 syn region None matchgroup=factorPrivate start=/\<<PRIVATE\>/ end=/\<PRIVATE>\>/ contains=@factorDefnContents,factorPrivateDefn,factorPrivateMethod,factorPGeneric,factorPGenericN
47 syn keyword factorBoolean f t
48 syn match factorFryDirective /\<\(@\|_\)\>/ contained
49 syn keyword factorCompileDirective inline foldable recursive
51 syn keyword factorKeyword or 2bi 2tri while wrapper nip 4dip wrapper? bi* callstack>array both? hashcode die dupd callstack callstack? 3dup tri@ pick curry build ?execute 3bi prepose >boolean ?if clone eq? tri* ? = swapd 2over 2keep 3keep clear 2dup when not tuple? dup 2bi* 2tri* call tri-curry object bi@ do unless* if* loop bi-curry* drop when* assert= retainstack assert? -rot execute 2bi@ 2tri@ boa with either? 3drop bi curry? datastack until 3dip over 3curry tri-curry* tri-curry@ swap and 2nip throw bi-curry (clone) hashcode* compose 2dip if 3tri unless compose? tuple keep 2curry equal? assert tri 2drop most <wrapper> boolean? identity-hashcode identity-tuple? null new dip bi-curry@ rot xor identity-tuple boolean
52 syn keyword factorKeyword ?at assoc? assoc-clone-like assoc= delete-at* assoc-partition extract-keys new-assoc value? assoc-size map>assoc push-at assoc-like key? assoc-intersect assoc-refine update assoc-union assoc-combine at* assoc-empty? at+ set-at assoc-all? assoc-subset? assoc-hashcode change-at assoc-each assoc-diff zip values value-at rename-at inc-at enum? at cache assoc>map <enum> assoc assoc-map enum value-at* assoc-map-as >alist assoc-filter-as clear-assoc assoc-stack maybe-set-at substitute assoc-filter 2cache delete-at assoc-find keys assoc-any? unzip
53 syn keyword factorKeyword case execute-effect no-cond no-case? 3cleave>quot 2cleave cond>quot wrong-values? no-cond? cleave>quot no-case case>quot 3cleave wrong-values to-fixed-point alist>quot case-find cond cleave call-effect 2cleave>quot recursive-hashcode linear-case-quot spread spread>quot
54 syn keyword factorKeyword number= if-zero next-power-of-2 each-integer ?1+ fp-special? imaginary-part unless-zero float>bits number? fp-infinity? bignum? fp-snan? denominator fp-bitwise= * + power-of-2? - u>= / >= bitand log2-expects-positive < log2 > integer? number bits>double 2/ zero? (find-integer) bits>float float? shift ratio? even? ratio fp-sign bitnot >fixnum complex? /i /f byte-array>bignum when-zero sgn >bignum next-float u< u> mod recip rational find-last-integer >float (all-integers?) 2^ times integer fixnum? neg fixnum sq bignum (each-integer) bit? fp-qnan? find-integer complex <fp-nan> real double>bits bitor rem fp-nan-payload all-integers? real-part log2-expects-positive? prev-float align unordered? float fp-nan? abs bitxor u<= odd? <= /mod rational? >integer real? numerator
55 syn keyword factorKeyword member-eq? append assert-sequence= find-last-from trim-head-slice clone-like 3sequence assert-sequence? map-as last-index-from reversed index-from cut* pad-tail remove-eq! concat-as but-last snip trim-tail nths nth 2pusher sequence slice? <slice> partition remove-nth tail-slice empty? tail* if-empty find-from virtual-sequence? member? set-length drop-prefix unclip unclip-last-slice iota map-sum bounds-error? sequence-hashcode-step pusher-for accumulate-as map start midpoint@ (accumulate) rest-slice prepend fourth sift accumulate! new-sequence follow map! like first4 1sequence reverse slice unless-empty padding virtual@ repetition? set-last index 4sequence max-length set-second immutable-sequence first2 first3 replicate-as reduce-index unclip-slice supremum suffix! insert-nth trim-tail-slice tail 3append short count suffix concat flip filter sum immutable? reverse! 2sequence map-integers delete-all start* indices snip-slice check-slice sequence? head map-find filter! append-as reduce sequence= halves collapse-slice interleave 2map filter-as binary-reduce slice-error? product bounds-check? bounds-check harvest immutable virtual-exemplar find produce remove pad-head last replicate set-fourth remove-eq shorten reversed? map-find-last 3map-as 2unclip-slice shorter? 3map find-last head-slice pop* 2map-as tail-slice* but-last-slice 2map-reduce iota? accumulator-for accumulate each pusher append! new-resizable cut-slice each-index head-slice* 2reverse-each sequence-hashcode pop set-nth ?nth <flat-slice> second join when-empty accumulator immutable-sequence? <reversed> all? 3append-as virtual-sequence subseq? remove-nth! push-either new-like length last-index push-if 2all? lengthen assert-sequence copy map-reduce move third first 3each tail? set-first prefix bounds-error any? <repetition> trim-slice exchange surround 2reduce cut change-nth min-length set-third produce-as push-all head? delete-slice rest sum-lengths 2each head* infimum remove! glue slice-error subseq trim replace-slice push repetition map-index trim-head unclip-last mismatch
56 syn keyword factorKeyword global +@ change set-namestack change-global init-namespaces on off set-global namespace set with-scope bind with-variable inc dec counter initialize namestack get get-global make-assoc
57 syn keyword factorKeyword <array> 2array 3array pair >array 1array 4array pair? array resize-array array?
58 syn keyword factorKeyword +character+ bad-seek-type? readln each-morsel stream-seek read print with-output-stream contents write1 stream-write1 stream-copy stream-element-type with-input-stream stream-print stream-read stream-contents stream-tell tell-output bl seek-output bad-seek-type nl stream-nl write flush stream-lines +byte+ stream-flush read1 seek-absolute? stream-read1 lines stream-readln stream-read-until each-line seek-end with-output-stream* seek-absolute with-streams seek-input seek-relative? input-stream stream-write read-partial seek-end? seek-relative error-stream read-until with-input-stream* with-streams* tell-input each-block output-stream stream-read-partial each-stream-block each-stream-line
59 syn keyword factorKeyword resize-string >string <string> 1string string string?
60 syn keyword factorKeyword vector? <vector> ?push vector >vector 1vector
61 syn keyword factorKeyword with-return restarts return-continuation with-datastack recover rethrow-restarts <restart> ifcc set-catchstack >continuation< cleanup ignore-errors restart? compute-restarts attempt-all-error error-thread continue <continuation> attempt-all-error? condition? <condition> throw-restarts error catchstack continue-with thread-error-hook continuation rethrow callcc1 error-continuation callcc0 attempt-all condition continuation? restart return
64 syn cluster factorReal contains=factorInt,factorFloat,factorRatio,factorBinary,factorHex,factorOctal
65 syn cluster factorNumber contains=@factorReal,factorComplex
66 syn cluster factorNumErr contains=factorBinErr,factorHexErr,factorOctErr
67 syn match factorInt /\<-\=[0-9]\([0-9,]*[0-9]\)\?\>/
68 syn match factorFloat /\<-\=[0-9]\([0-9,]*[0-9]\)\?\.[0-9,]*[0-9]\+\>/
69 syn match factorRatio /\<-\=[0-9]\([0-9,]*[0-9]\)\?\(+[0-9]\([0-9,]*[0-9]\+\)\?\)\?\/-\=[0-9]\([0-9,]*[0-9]\+\)\?\.\?\>/
70 syn region factorComplex start=/\<C{\>/ end=/\<}\>/ contains=@factorReal
71 syn match factorBinErr /\<BIN:\s\+-\=[01,]*[^01 ]\S*\>/
72 syn match factorBinary /\<BIN:\s\+-\=[01,]\+\>/
73 syn match factorHexErr /\<HEX:\s\+-\=\(,\S*\|\S*,\|[-0-9a-fA-Fp,]*[^-0-9a-fA-Fp, ]\S*\)\>/
74 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]\)\?\)\?\>/
75 syn match factorOctErr /\<OCT:\s\+-\=\(,\S*\|\S*,\|[0-7,]*[^0-7, ]\S*\)\>/
76 syn match factorOctal /\<OCT:\s\+-\=[0-7,]\+\>/
77 syn match factorNan /\<NAN:\s\+[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\>/
79 syn match factorIn /\<IN:\s\+\S\+\>/
80 syn match factorUse /\<USE:\s\+\S\+\>/
81 syn match factorUnuse /\<UNUSE:\s\+\S\+\>/
83 syn match factorChar /\<CHAR:\s\+\S\+\>/
85 syn match factorBackslash /\<\\\>\s\+\S\+\>/
86 syn match factorLiteral /\<\$\>\s\+\S\+\>/
87 syn region factorLiteralBlock start=/\<\$\[\>/ end=/\<\]\>/
89 syn region factorUsing start=/\<USING:\>/ end=/;/
90 syn match factorQualified /\<QUALIFIED:\s\+\S\+\>/
91 syn match factorQualifiedWith /\<QUALIFIED-WITH:\s\+\S\+\s\+\S\+\>/
92 syn region factorFrom start=/\<FROM:\>/ end=/;/
93 syn region factorSingletons start=/\<SINGLETONS:\>/ end=/;/
94 syn match factorSymbol /\<SYMBOL:\s\+\S\+\>/
95 syn region factorSymbols start=/\<SYMBOLS:\>/ end=/;/
96 syn region factorConstructor2 start=/\<CONSTRUCTOR:\?/ end=/;/
97 syn region factorTuple start=/\<TUPLE:\>/ end=/\<;\>/
98 syn region factorStruct start=/\<\(UNION-STRUCT:\|STRUCT:\)\>/ end=/\<;\>/
100 syn match factorConstant /\<CONSTANT:\s\+\S\+\>/
101 syn match factorAlias /\<ALIAS:\s\+\S\+\>/
102 syn match factorSingleton /\<SINGLETON:\s\+\S\+\>/
103 syn match factorPostpone /\<POSTPONE:\s\+\S\+\>/
104 syn match factorDefer /\<DEFER:\s\+\S\+\>/
105 syn match factorForget /\<FORGET:\s\+\S\+\>/
106 syn match factorMixin /\<MIXIN:\s\+\S\+\>/
107 syn match factorInstance /\<INSTANCE:\s\+\S\+\s\+\S\+\>/
108 syn match factorHook /\<HOOK:\s\+\S\+\s\+\S\+\>/
109 syn match factorMain /\<MAIN:\s\+\S\+\>/
110 syn match factorConstructor /\<C:\s\+\S\+\s\+\S\+\>/
111 syn match factorAlien /\<ALIEN:\s\+[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\>/
113 syn cluster factorWordOps contains=factorConstant,factorAlias,factorSingleton,factorSingletons,factorSymbol,factorSymbols,factorPostpone,factorDefer,factorForget,factorMixin,factorInstance,factorHook,factorMain,factorConstructor
129 syn region factorString start=/\<"/ skip=/\\"/ end=/"/
130 syn region factorTriString start=/\<"""/ skip=/\\"/ end=/"""/
131 syn region factorSbuf start=/\<SBUF"\>/ skip=/\\"/ end=/"/
133 syn region factorMultiString matchgroup=factorMultiStringDelims start=/\<STRING:\s\+\S\+\>/ end=/^;$/ contains=factorMultiStringContents
134 syn match factorMultiStringContents /.*/ contained
136 "syn match factorStackEffectErr /\<)\>/
137 "syn region factorStackEffectErr start=/\<(\>/ end=/\<)\>/
138 "syn region factorStackEffect start=/\<(\>/ end=/\<)\>/ contained
139 syn match factorStackEffect /\<( .*--.* )\>/ contained
140 syn match factorLiteralStackEffect /\<(( .*--.* ))\>/
142 "adapted from lisp.vim
143 if exists("g:factor_norainbow")
144 syn region factorQuotation matchgroup=factorDelimiter start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ matchgroup=factorDelimiter end=/\<\]\>/ contains=ALL
146 syn region factorQuotation0 matchgroup=hlLevel0 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation1,factorArray1
147 syn region factorQuotation1 contained matchgroup=hlLevel1 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation2,factorArray2
148 syn region factorQuotation2 contained matchgroup=hlLevel2 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation3,factorArray3
149 syn region factorQuotation3 contained matchgroup=hlLevel3 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation4,factorArray4
150 syn region factorQuotation4 contained matchgroup=hlLevel4 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation5,factorArray5
151 syn region factorQuotation5 contained matchgroup=hlLevel5 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation6,factorArray6
152 syn region factorQuotation6 contained matchgroup=hlLevel6 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation7,factorArray7
153 syn region factorQuotation7 contained matchgroup=hlLevel7 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation8,factorArray8
154 syn region factorQuotation8 contained matchgroup=hlLevel8 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation9,factorArray9
155 syn region factorQuotation9 contained matchgroup=hlLevel9 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation0,factorArray0
158 if exists("g:factor_norainbow")
159 syn region factorArray matchgroup=factorDelimiter start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ matchgroup=factorDelimiter end=/\<}\>/ contains=ALL
161 syn region factorArray0 matchgroup=hlLevel0 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray1,factorQuotation1
162 syn region factorArray1 contained matchgroup=hlLevel1 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray2,factorQuotation2
163 syn region factorArray2 contained matchgroup=hlLevel2 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray3,factorQuotation3
164 syn region factorArray3 contained matchgroup=hlLevel3 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray4,factorQuotation4
165 syn region factorArray4 contained matchgroup=hlLevel4 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray5,factorQuotation5
166 syn region factorArray5 contained matchgroup=hlLevel5 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray6,factorQuotation6
167 syn region factorArray6 contained matchgroup=hlLevel6 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray7,factorQuotation7
168 syn region factorArray7 contained matchgroup=hlLevel7 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray8,factorQuotation8
169 syn region factorArray8 contained matchgroup=hlLevel8 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray9,factorQuotation9
170 syn region factorArray9 contained matchgroup=hlLevel9 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray0,factorQuotation0
173 syn match factorBracketErr /\<\]\>/
174 syn match factorBracketErr /\<}\>/
178 if version >= 508 || !exists("did_factor_syn_inits")
180 let did_factor_syn_inits = 1
181 command -nargs=+ HiLink hi link <args>
183 command -nargs=+ HiLink hi def link <args>
186 HiLink factorComment Comment
187 HiLink factorStackEffect Typedef
188 HiLink factorLiteralStackEffect Typedef
189 HiLink factorTodo Todo
190 HiLink factorInclude Include
191 HiLink factorRepeat Repeat
192 HiLink factorConditional Conditional
193 HiLink factorKeyword Keyword
194 HiLink factorOperator Operator
195 HiLink factorFryDirective Operator
196 HiLink factorBoolean Boolean
197 HiLink factorDefnDelims Typedef
198 HiLink factorMethodDelims Typedef
199 HiLink factorGenericDelims Typedef
200 HiLink factorGenericNDelims Typedef
201 HiLink factorConstructor Typedef
202 HiLink factorConstructor2 Typedef
203 HiLink factorPrivate Special
204 HiLink factorPrivateDefnDelims Special
205 HiLink factorPrivateMethodDelims Special
206 HiLink factorPGenericDelims Special
207 HiLink factorPGenericNDelims Special
208 HiLink factorString String
209 HiLink factorTriString String
210 HiLink factorSbuf String
211 HiLink factorMultiStringContents String
212 HiLink factorMultiStringDelims Typedef
213 HiLink factorBracketErr Error
214 HiLink factorComplex Number
215 HiLink factorRatio Number
216 HiLink factorBinary Number
217 HiLink factorBinErr Error
218 HiLink factorHex Number
219 HiLink factorHexErr Error
220 HiLink factorNan Number
221 HiLink factorOctal Number
222 HiLink factorOctErr Error
223 HiLink factorFloat Float
224 HiLink factorInt Number
225 HiLink factorUsing Include
226 HiLink factorQualified Include
227 HiLink factorQualifiedWith Include
228 HiLink factorFrom Include
229 HiLink factorUse Include
230 HiLink factorUnuse Include
231 HiLink factorIn Define
232 HiLink factorChar Character
233 HiLink factorDelimiter Delimiter
234 HiLink factorBackslash Special
235 HiLink factorLiteral Special
236 HiLink factorLiteralBlock Special
237 HiLink factorCompileDirective Typedef
238 HiLink factorSymbol Define
239 HiLink factorConstant Define
240 HiLink factorSingleton Define
241 HiLink factorSingletons Define
242 HiLink factorMixin Typedef
243 HiLink factorInstance Typedef
244 HiLink factorHook Typedef
245 HiLink factorMain Define
246 HiLink factorPostpone Define
247 HiLink factorDefer Define
248 HiLink factorForget Define
249 HiLink factorAlien Define
250 HiLink factorTuple Typedef
251 HiLink factorStruct Typedef
254 hi hlLevel0 ctermfg=red guifg=red1
255 hi hlLevel1 ctermfg=yellow guifg=orange1
256 hi hlLevel2 ctermfg=green guifg=yellow1
257 hi hlLevel3 ctermfg=cyan guifg=greenyellow
258 hi hlLevel4 ctermfg=magenta guifg=green1
259 hi hlLevel5 ctermfg=red guifg=springgreen1
260 hi hlLevel6 ctermfg=yellow guifg=cyan1
261 hi hlLevel7 ctermfg=green guifg=slateblue1
262 hi hlLevel8 ctermfg=cyan guifg=magenta1
263 hi hlLevel9 ctermfg=magenta guifg=purple1
265 hi hlLevel0 ctermfg=red guifg=red3
266 hi hlLevel1 ctermfg=darkyellow guifg=orangered3
267 hi hlLevel2 ctermfg=darkgreen guifg=orange2
268 hi hlLevel3 ctermfg=blue guifg=yellow3
269 hi hlLevel4 ctermfg=darkmagenta guifg=olivedrab4
270 hi hlLevel5 ctermfg=red guifg=green4
271 hi hlLevel6 ctermfg=darkyellow guifg=paleturquoise3
272 hi hlLevel7 ctermfg=darkgreen guifg=deepskyblue4
273 hi hlLevel8 ctermfg=blue guifg=darkslateblue
274 hi hlLevel9 ctermfg=darkmagenta guifg=darkviolet
280 let b:current_syntax = "factor"
285 set autoindent " annoying?