3 " Maintainer: Alex Chapman <chapman.alex@gmail.com>
4 " Last Change: 2007 Jan 18
6 " For version 5.x: Clear all syntax items
7 " For version 6.x: Quit when a syntax file was already loaded
10 elseif exists("b:current_syntax")
14 " factor is case sensitive.
17 " make all of these characters part of a word (useful for skipping over words with w, e, and b)
19 setlocal iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
21 set iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
24 syn cluster factorCluster contains=factorComment,factorKeyword,factorRepeat,factorConditional,factorBoolean,factorString,factorSbuf,@factorNumber,@factorNumErr,factorDelimiter,factorChar,factorCharErr,factorBackslash,@factorWordOps,factorAlien,factorTuple
26 syn match factorTodo /\(TODO\|FIXME\|XXX\):\=/ contained
27 syn match factorComment /\<#! .*/ contains=factorTodo
28 syn match factorComment /\<! .*/ contains=factorTodo
30 syn region None matchgroup=factorDefinition start=/\<\(C\|M\|G\|UNION\|PREDICATE\)\?:\>/ end=/\<;\>/ contains=@factorCluster,factorStackEffect,factorStackEffectErr,factorArray0,factorQuotation0
32 syn region None matchgroup=factorGeneric start=/\<GENERIC:\>/ end=/$/ contains=factorStackEffect,factorStackEffectErr
34 syn keyword factorBoolean boolean f general-t t
35 syn keyword factorCompileDirective inline foldable parsing
39 " kernel vocab keywords
40 syn keyword factorKeyword continuation-name set-datastack wrapper continuation-catch set-continuation-name slip pick 2slip 2nip tuple set-boot clone with-datastack cpu -roll tuck -rot (continue) set-continuation-retain swapd <continuation> >boolean wrapper? dupd 3dup dup ifcc callstack windows? os-env = over continuation alist>quot ? <wrapper> 2dup cond win64? <quotation> continue 3drop hashcode quotation xor when curry millis set-callstack unless >r die version callcc0 or os callcc1 get-walker-hook depth equal? 3keep no-cond? continue-with if exit tuple? set-retainstack unix? (continue-with) general-t continuation? 3slip <no-cond> macosx? r> rot win32? retainstack 2apply >quotation >continuation< type continuation-call clear call drop continuation-data set-continuation-call 2drop no-cond unit set-continuation-data keep-datastack and when* quotation? ?if literalize datastack swap unless* 2swap set-continuation-catch eq? not roll set-walker-hook continuation-retain with make-dip wrapped keep 2keep <=> if* nip
41 syn keyword factorKeyword sin integer? log2 cot oct> number>string integer first-bignum sech abs repeat tanh real? vmin norm-sq neg between? asech >rect bignum? atanh -i * + fp-nan? - small / sqrt infimum fix-float cosech even? v*n < bits>double > most-positive-fixnum ^theta numerator digit+ >base (random-int) acosech cosh min pi number vmax zero? sum digit> rem bitor supremum string>integer most-negative-fixnum >polar >fraction ceiling acos acot ^ asin acosh /f ratio e fixnum? /i ^n cis coth 1+ 1- conjugate sinh acosec i number= number? double>bits epsilon float product string>number n/v norm max tan acoth absq float? asinh denominator rational? fixnum rect> >fixnum imaginary recip exp sec bitxor w>h/h >bin align base> times log <= [-] init-random sq odd? (repeat) [v-] ^mag bitnot ratio? random-int >digit (next-power-of-2) v* v+ v- v. v/ >float [-1,1]? arg small? bitand set-axis >oct v/n complex rational shift (^) polar> (gcd) cosec next-power-of-2 >float-rect atan sgn >= float>bits normalize real bin> complex? gcd d>w/w hex> mod string>ratio asec floor n*v >hex truncate bits>float vneg >bignum bignum power-of-2? integer, /mod (string>integer) cos
42 syn keyword factorKeyword second sort-values all-eq? pop* find slice-error-reason inject-with prune remove (group) split1-slice slice-error (slice*) split* head-slice* find* split, first remove-nth hash-prune push-if ?push reverse subseq split1 diff subset split new padding column? copy-into-check column@ <column> peek last/first add find-last ?nth add* slice-from cache-nth subseq? <reversed> <slice-error> (3append) replace-slice reversed-seq find-last-with empty? ((append)) reversed? reversed@ map-with find-last-with* set-slice-error-reason set-column-col natural-sort (subst) set-slice-seq index* concat push binsearch slice-seq 3append nsort length tail-slice* reversed ?head sequence= ?tail sequence? memq? join split-next, delete set-nth subst monotonic? group map flip unclip set-reversed-seq find-last* start* max-length assoc min-length all-equal? all? pad-left contains? inject slice <slice> first2 first3 first4 exchange bounds-check? column-seq check-slice pad-right each subset-with unpair tail head interleave (delete) copy-into sort sequence reduce set-slice-from set-slice-to 2map (cut) member? cut rassoc (append) last-index* sort-keys change-nth 2each >sequence nth tail* head* third tail-slice set-length collapse-slice column (mismatch) contains-with? push-new pop tail? head? slice? slice@ delete-all binsearch* move find-with* 2reduce slice-to find-with like slice-error? set-column-seq nappend column-col cut* (split) index each-with last-index fourth append accumulate drop-prefix mismatch head-slice all-with? start
43 syn keyword factorKeyword namespace-error-object inc dec make off bind get-global init-namespaces set-global namespace on ndrop namespace-error? namestack namespace-error +@ # % make-hash global , set-namestack with-scope building <namespace-error> change nest set-namespace-error-object get set counter
44 syn keyword factorKeyword array <array> pair byte-array pair? 1array 2array resize-array 4array 3array byte-array? <byte-array> array? >array
45 syn keyword factorKeyword cwd duplex-stream pathname? set-pathname-string with-log-file directory duplex-stream-out format <nested-style-stream> (readln) duplex-stream? read1 with-stream-style c-stream-error? <file-reader> stream-write1 with-stream line-reader? set-duplex-stream-out server? cr> <check-closed> directory? log-message flush format-column stream-readln nested-style-stream? <line-reader> <file-r/w> set-timeout write-pathname file-modified duplex-stream-closed? print set-duplex-stream-closed? pathname line-reader ?resource-path terpri write-object le> string-out stream-terpri log-client do-nested-style path+ <c-stream-error> set-client-stream-host plain-writer? server-stream resource-path >be parent-dir with-stream* <file-writer> server-loop string-in nested-style-stream stream-close stream-copy c-stream-error <client-stream> with-style client-stream-host stat plain-writer file-length contents <string-reader> stream-read stream-format check-closed? set-client-stream-port <duplex-stream> <server> write1 bl write-outliner map-last (with-stream-style) set-line-reader-cr tabular-output (lines) stream-write log-stream server-client (stream-copy) with-nested-stream lines readln cd client-stream nth-byte with-logging stream-read1 nested-style-stream-style accept check-closed client-stream-port do-nested-quot pathname-string set-nested-style-stream-style read home close with-stream-table stdio be> log-error duplex-stream-out+ server stream-flush set-duplex-stream-in line-reader-cr >le with-client <client> <pathname> <string-writer> (directory) set-server-client stream-print with-server exists? <plain-writer> with-nesting string-lines write duplex-stream-in client-stream? duplex-stream-in+
46 syn keyword factorKeyword sbuf ch>upper string? LETTER? >sbuf >lower quotable? string>sbuf blank? string sbuf? printable? >string letter? resize-string control? alpha? <string> >upper Letter? ch>lower digit? <sbuf> ch>string
47 syn keyword factorKeyword <vector> >vector array>vector vector? vector
48 syn keyword factorKeyword set-restart-continuation cleanup error-hook restart-name restarts. stack-underflow. expired-error. restart restart? word-xt. (:help-none) set-catchstack c-string-error. condition <assert> debug-help :get datastack-overflow. set-condition-restarts condition? error. objc-error. print-error assert :res catchstack rethrow assert= kernel-error restart-obj assert? undefined-symbol-error. retainstack-overflow. restarts error-help divide-by-zero-error. ffi-error. signal-error. (:help-multi) set-restart-obj xt. memory-error. retainstack-underflow. set-condition-continuation datastack-underflow. try assert-depth error-continuation error-stack-trace assert-expect recover :edit kernel-error? error callstack-overflow. stack-overflow. callstack-underflow. set-assert-got set-restart-name restart-continuation condition-restarts heap-scan-error. :help type-check-error. <condition> assert-got throw negative-array-size-error. :c condition-continuation :trace undefined-word-error. io-error. parse-dump <restart> set-assert-expect :r :s compute-restarts catch restart.
51 syn cluster factorReal contains=factorInt,factorFloat,factorRatio,factorBinary,factorHex,factorOctal
52 syn cluster factorNumber contains=@factorReal,factorComplex
53 syn cluster factorNumErr contains=factorBinErr,factorHexErr,factorOctErr
54 syn match factorInt /\<-\=\d\+\>/
55 syn match factorFloat /\<-\=\d*\.\d\+\>/
56 syn match factorRatio /\<-\=\d*\.*\d\+\/-\=\d*\.*\d\+\>/
57 syn region factorComplex start=/\<C{\>/ end=/\<}\>/ contains=@factorReal
58 syn match factorBinErr /\<BIN:\s\+[01]*[^\s01]\S*\>/
59 syn match factorBinary /\<BIN:\s\+[01]\+\>/
60 syn match factorHexErr /\<HEX:\s\+\x*[^\x\s]\S*\>/
61 syn match factorHex /\<HEX:\s\+\x\+\>/
62 syn match factorOctErr /\<OCT:\s\+\o*[^\o\s]\S*\>/
63 syn match factorOctal /\<OCT:\s\+\o\+\>/
65 syn match factorIn /\<IN:\s\+\S\+\>/
66 syn match factorUse /\<USE:\s\+\S\+\>/
68 syn match factorCharErr /\<CHAR:\s\+\S\+/
69 syn match factorChar /\<CHAR:\s\+\\\=\S\>/
71 syn match factorBackslash /\<\\\>\s\+\S\+\>/
73 syn region factorUsing start=/\<USING:\>/ end=/;/
74 syn region factorRequires start=/\<REQUIRES:\>/ end=/;/
76 syn cluster factorWordOps contains=factorSymbol,factorPostpone,factorDefer,factorForget
77 syn match factorSymbol /\<SYMBOL:\s\+\S\+\>/
78 syn match factorPostpone /\<POSTPONE:\s\+\S\+\>/
79 syn match factorDefer /\<DEFER:\s\+\S\+\>/
80 syn match factorForget /\<FORGET:\s\+\S\+\>/
82 syn match factorAlien /\<ALIEN:\s\+\d\+\>/
84 syn region factorTuple start=/\<TUPLE:\>/ end=/\<;\>/
106 syn region factorString start=/"/ skip=/\\"/ end=/"/ oneline
107 syn region factorSbuf start=/SBUF" / skip=/\\"/ end=/"/ oneline
109 syn match factorStackEffectErr /\<)\>/
110 syn region factorStackEffectErr start=/\<(\>/ end=/\<)\>/
111 syn region factorStackEffect start=/\<(\>/ end=/\<)\>/ contained
113 "adapted from lisp.vim
114 if exists("g:factor_norainbow")
115 syn region factorQuotation matchgroup=factorDelimiter start=/\<\[\>/ matchgroup=factorDelimiter end=/\<\]\>/ contains=ALL
117 syn region factorQuotation0 matchgroup=hlLevel0 start=/\<\[\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation1,factorArray1
118 syn region factorQuotation1 contained matchgroup=hlLevel1 start=/\<\[\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation2,factorArray2
119 syn region factorQuotation2 contained matchgroup=hlLevel2 start=/\<\[\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation3,factorArray3
120 syn region factorQuotation3 contained matchgroup=hlLevel3 start=/\<\[\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation4,factorArray4
121 syn region factorQuotation4 contained matchgroup=hlLevel4 start=/\<\[\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation5,factorArray5
122 syn region factorQuotation5 contained matchgroup=hlLevel5 start=/\<\[\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation6,factorArray6
123 syn region factorQuotation6 contained matchgroup=hlLevel6 start=/\<\[\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation7,factorArray7
124 syn region factorQuotation7 contained matchgroup=hlLevel7 start=/\<\[\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation8,factorArray8
125 syn region factorQuotation8 contained matchgroup=hlLevel8 start=/\<\[\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation9,factorArray9
126 syn region factorQuotation9 contained matchgroup=hlLevel9 start=/\<\[\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation0,factorArray0
129 if exists("g:factor_norainbow")
130 syn region factorArray matchgroup=factorDelimiter start=/\<\(V\|H\|T\|W\)\?{\>/ matchgroup=factorDelimiter end=/\<}\>/ contains=ALL
132 syn region factorArray0 matchgroup=hlLevel0 start=/\<\(V\|H\|T\|W\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray1,factorQuotation1
133 syn region factorArray1 contained matchgroup=hlLevel1 start=/\<\(V\|H\|T\|W\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray2,factorQuotation2
134 syn region factorArray2 contained matchgroup=hlLevel2 start=/\<\(V\|H\|T\|W\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray3,factorQuotation3
135 syn region factorArray3 contained matchgroup=hlLevel3 start=/\<\(V\|H\|T\|W\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray4,factorQuotation4
136 syn region factorArray4 contained matchgroup=hlLevel4 start=/\<\(V\|H\|T\|W\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray5,factorQuotation5
137 syn region factorArray5 contained matchgroup=hlLevel5 start=/\<\(V\|H\|T\|W\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray6,factorQuotation6
138 syn region factorArray6 contained matchgroup=hlLevel6 start=/\<\(V\|H\|T\|W\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray7,factorQuotation7
139 syn region factorArray7 contained matchgroup=hlLevel7 start=/\<\(V\|H\|T\|W\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray8,factorQuotation8
140 syn region factorArray8 contained matchgroup=hlLevel8 start=/\<\(V\|H\|T\|W\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray9,factorQuotation9
141 syn region factorArray9 contained matchgroup=hlLevel9 start=/\<\(V\|H\|T\|W\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray0,factorQuotation0
144 syn match factorBracketErr /\<\]\>/
145 syn match factorBracketErr /\<}\>/
149 if version >= 508 || !exists("did_factor_syn_inits")
151 let did_factor_syn_inits = 1
152 command -nargs=+ HiLink hi link <args>
154 command -nargs=+ HiLink hi def link <args>
157 HiLink factorComment Comment
158 HiLink factorStackEffect Typedef
159 HiLink factorTodo Todo
160 HiLink factorInclude Include
161 HiLink factorRepeat Repeat
162 HiLink factorConditional Conditional
163 HiLink factorKeyword Keyword
164 HiLink factorOperator Operator
165 HiLink factorBoolean Boolean
166 HiLink factorDefinition Typedef
167 HiLink factorString String
168 HiLink factorSbuf String
169 HiLink factorBracketErr Error
170 HiLink factorStackEffectErr Error
171 HiLink factorComplex Number
172 HiLink factorRatio Number
173 HiLink factorBinary Number
174 HiLink factorBinErr Error
175 HiLink factorHex Number
176 HiLink factorHexErr Error
177 HiLink factorOctal Number
178 HiLink factorOctErr Error
179 HiLink factorFloat Float
180 HiLink factorInt Number
181 HiLink factorUsing Include
182 HiLink factorUse Include
183 HiLink factorRequires Include
184 HiLink factorIn Define
185 HiLink factorChar Character
186 HiLink factorCharErr Error
187 HiLink factorDelimiter Delimiter
188 HiLink factorBackslash Special
189 HiLink factorCompileDirective Keyword
190 HiLink factorSymbol Define
191 HiLink factorPostpone Define
192 HiLink factorDefer Define
193 HiLink factorForget Define
194 HiLink factorAlien Define
195 HiLink factorTuple Typedef
196 HiLink factorGeneric Define
199 hi hlLevel0 ctermfg=red guifg=red1
200 hi hlLevel1 ctermfg=yellow guifg=orange1
201 hi hlLevel2 ctermfg=green guifg=yellow1
202 hi hlLevel3 ctermfg=cyan guifg=greenyellow
203 hi hlLevel4 ctermfg=magenta guifg=green1
204 hi hlLevel5 ctermfg=red guifg=springgreen1
205 hi hlLevel6 ctermfg=yellow guifg=cyan1
206 hi hlLevel7 ctermfg=green guifg=slateblue1
207 hi hlLevel8 ctermfg=cyan guifg=magenta1
208 hi hlLevel9 ctermfg=magenta guifg=purple1
210 hi hlLevel0 ctermfg=red guifg=red3
211 hi hlLevel1 ctermfg=darkyellow guifg=orangered3
212 hi hlLevel2 ctermfg=darkgreen guifg=orange2
213 hi hlLevel3 ctermfg=blue guifg=yellow3
214 hi hlLevel4 ctermfg=darkmagenta guifg=olivedrab4
215 hi hlLevel5 ctermfg=red guifg=green4
216 hi hlLevel6 ctermfg=darkyellow guifg=paleturquoise3
217 hi hlLevel7 ctermfg=darkgreen guifg=deepskyblue4
218 hi hlLevel8 ctermfg=blue guifg=darkslateblue
219 hi hlLevel9 ctermfg=darkmagenta guifg=darkviolet
225 let b:current_syntax = "factor"
230 set autoindent " annoying?