" Vim syntax file " Language: Factor " Maintainer: Alex Chapman " Last Change: 2011 Mar 17 " To run: USING: html.templates html.templates.fhtml ; "resource:misc/factor.vim.fgen" call-template " For version 5.x: Clear all syntax items " For version 6.x: Quit when a syntax file was already loaded if version < 600 syntax clear elseif exists("b:current_syntax") finish endif " factor is case sensitive. syn case match " make all of these characters part of a word (useful for skipping over words with w, e, and b) if version >= 600 setlocal iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255 else set iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255 endif syn cluster factorCluster contains=factorComment,factorFrySpecifier,factorKeyword,factorRepeat,factorConditional,factorBoolean,factorBreakpoint,factorDeclaration,factorCallQuotation,factorExecute,factorCallNextMethod,factorString,factorTriString,factorSbuf,@factorNumber,@factorNumErr,factorDelimiter,factorChar,factorBackslash,factorLiteral,factorLiteralBlock,@factorWordOps,factorAlien,factorSlot,factorTuple,factorStruct syn match factorTodo /$TODO\|FIXME\|XXX$:\=/ contained syn match factorComment /\<#!\>\s.*/ contains=factorTodo syn match factorComment /\\s.*/ contains=factorTodo syn cluster factorDefnContents contains=@factorCluster,factorStackEffect,factorLiteralStackEffect,factorArray0,factorQuotation0 syn region factorDefn matchgroup=factorDefnDelims start=/\<$SYNTAX\|\(MACRO\|MEMO$\?:\?\):\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents syn region factorMethod matchgroup=factorMethodDelims start=/\/ end=/\<;\>/ contains=@factorDefnContents syn region factorGeneric matchgroup=factorGenericDelims start=/\/ end=/$/ contains=factorStackEffect syn region factorGenericN matchgroup=factorGenericNDelims start=/\/ end=/$/ contains=factorStackEffect syn region factorPrivateDefn matchgroup=factorPrivateDefnDelims start=/\<$SYNTAX\|\(MACRO\|MEMO$\?:\?\):\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents contained syn region factorPrivateMethod matchgroup=factorPrivateMethodDelims start=/\/ end=/\<;\>/ contains=@factorDefnContents contained syn region factorPGeneric matchgroup=factorPGenericDelims start=/\/ end=/$/ contains=factorStackEffect contained syn region factorPGenericN matchgroup=factorPGenericNDelims start=/\/ end=/$/ contains=factorStackEffect syn region None matchgroup=factorPrivate start=/\</ end=/\\>/ contains=@factorDefnContents,factorPrivateDefn,factorPrivateMethod,factorPGeneric,factorPGenericN syn keyword factorBoolean f t syn keyword factorBreakpoint B syn keyword factorFrySpecifier @ _ contained syn keyword factorDeclaration delimiter deprecated final flushable foldable inline recursive syn match factorCallQuotation /\/ syn match factorExecute /\/ syn keyword factorCallNextMethod call-next-method 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 boolean? identity-hashcode identity-tuple? null new dip bi-curry@ rot xor identity-tuple boolean 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 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 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 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 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 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 2selector sequence 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 selector-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? collector-for accumulate each selector append! new-resizable cut-slice each-index head-slice* 2reverse-each sequence-hashcode pop set-nth ?nth second join when-empty collector immutable-sequence? 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? 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 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 syn keyword factorKeyword 2array 3array pair >array 1array 4array pair? array resize-array array? 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 syn keyword factorKeyword resize-string >string 1string string string? syn keyword factorKeyword vector? ?push vector >vector 1vector syn keyword factorKeyword with-return restarts return-continuation with-datastack recover rethrow-restarts ifcc set-catchstack >continuation< cleanup ignore-errors restart? compute-restarts attempt-all-error error-thread continue attempt-all-error? condition? throw-restarts error catchstack continue-with thread-error-hook continuation rethrow callcc1 error-continuation callcc0 attempt-all condition continuation? restart return syn cluster factorReal contains=factorInt,factorFloat,factorRatio,factorBinary,factorHex,factorOctal syn cluster factorNumber contains=@factorReal,factorComplex syn cluster factorNumErr contains=factorBinErr,factorHexErr,factorOctErr syn match factorInt /\<-\=[0-9]$[0-9,]*[0-9]$\?\>/ syn match factorFloat /\<-\=[0-9]$[0-9,]*[0-9]$\?\.[0-9,]*[0-9]\+\>/ syn match factorRatio /\<-\=[0-9]$[0-9,]*[0-9]$\?$+[0-9]\([0-9,]*[0-9]\+$\?\)\?\/-\=[0-9]$[0-9,]*[0-9]\+$\?\.\?\>/ syn region factorComplex start=/\/ end=/\<}\>/ contains=@factorReal syn match factorBinErr /\/ syn match factorBinary /\/ syn match factorHexErr /\/ syn match factorHex /\/ syn match factorOctErr /\/ syn match factorOctal /\/ syn match factorNan /\/ syn match factorIn /\/ syn match factorUse /\/ syn match factorUnuse /\/ syn match factorChar /\/ syn match factorBackslash /\<\\\>\s\+\S\+\>/ syn match factorLiteral /\<\$\>\s\+\S\+\>/ syn region factorLiteralBlock start=/\<\$\[\>/ end=/\<\]\>/ syn region factorUsing start=/\/ end=/;/ syn match factorQualified /\/ syn match factorQualifiedWith /\/ syn region factorExclude start=/\/ end=/;/ syn region factorFrom start=/\/ end=/;/ syn match factorRename /\\s\+\S\+\>/ syn region factorSingletons start=/\/ end=/;/ syn match factorSymbol /\/ syn region factorSymbols start=/\/ end=/;/ syn region factorConstructor2 start=/\/ end=/\<;\>/ syn region factorTuple start=/\/ end=/\<;\>/ syn region factorUnion start=/\/ end=/\<;\>/ syn region factorStruct start=/\<$UNION-STRUCT:\|STRUCT:$\>/ end=/\<;\>/ syn match factorConstant /\/ syn match factorAlias /\/ syn match factorSingleton /\/ syn match factorPostpone /\/ syn match factorDefer /\/ syn match factorForget /\/ syn match factorMixin /\/ syn match factorInstance /\/ syn match factorHook /\/ syn match factorMain /\/ syn match factorConstructor /\/ syn match factorAlien /\/ syn match factorSlot /\/ syn cluster factorWordOps contains=factorConstant,factorAlias,factorSingleton,factorSingletons,factorSymbol,factorSymbols,factorPostpone,factorDefer,factorForget,factorMixin,factorInstance,factorHook,factorMain,factorConstructor "TODO: "misc: " HELP: " ARTICLE: "literals: " PRIMITIVE: "C interface: " C-ENUM: " FUNCTION: " TYPEDEF: " LIBRARY: "#\ " syn region factorString start=/\<"/ skip=/\\"/ end=/"/ syn region factorTriString start=/\<"""/ skip=/\\"/ end=/"""/ syn region factorSbuf start=/\<[-a-zA-Z0-9]\+"\>/ skip=/\\"/ end=/"/ syn region factorMultiString matchgroup=factorMultiStringDelims start=/\/ end=/^;$/ contains=factorMultiStringContents syn match factorMultiStringContents /.*/ contained "syn match factorStackEffectErr /\<)\>/ "syn region factorStackEffectErr start=/\<(\>/ end=/\<)\>/ "syn region factorStackEffect start=/\<(\>/ end=/\<)\>/ contained syn match factorStackEffect /\<(\s$.*\s$\?--$\s.*$\?\s)\>/ contained syn match factorLiteralStackEffect /\<((\s$.*\s$\?--$\s.*$\?\s))\>/ "adapted from lisp.vim if exists("g:factor_norainbow") syn region factorQuotation matchgroup=factorDelimiter start=/\<$\(\('\|\$\|$\[\)\|\[$let\||$\)\>/ matchgroup=factorDelimiter end=/\<\]\>/ contains=ALL else syn region factorQuotation0 matchgroup=hlLevel0 start=/\<$\(\('\|\$\|$\[\)\|\[$let\||$\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation1,factorArray1 syn region factorQuotation1 contained matchgroup=hlLevel1 start=/\<$\(\('\|\$\|$\[\)\|\[$let\||$\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation2,factorArray2 syn region factorQuotation2 contained matchgroup=hlLevel2 start=/\<$\(\('\|\$\|$\[\)\|\[$let\||$\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation3,factorArray3 syn region factorQuotation3 contained matchgroup=hlLevel3 start=/\<$\(\('\|\$\|$\[\)\|\[$let\||$\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation4,factorArray4 syn region factorQuotation4 contained matchgroup=hlLevel4 start=/\<$\(\('\|\$\|$\[\)\|\[$let\||$\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation5,factorArray5 syn region factorQuotation5 contained matchgroup=hlLevel5 start=/\<$\(\('\|\$\|$\[\)\|\[$let\||$\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation6,factorArray6 syn region factorQuotation6 contained matchgroup=hlLevel6 start=/\<$\(\('\|\$\|$\[\)\|\[$let\||$\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation7,factorArray7 syn region factorQuotation7 contained matchgroup=hlLevel7 start=/\<$\(\('\|\$\|$\[\)\|\[$let\||$\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation8,factorArray8 syn region factorQuotation8 contained matchgroup=hlLevel8 start=/\<$\(\('\|\$\|$\[\)\|\[$let\||$\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation9,factorArray9 syn region factorQuotation9 contained matchgroup=hlLevel9 start=/\<$\(\('\|\$\|$\[\)\|\[$let\||$\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation0,factorArray0 endif if exists("g:factor_norainbow") syn region factorArray matchgroup=factorDelimiter start=/\<$\$\|[-a-zA-Z0-9]\+$\?{\>/ matchgroup=factorDelimiter end=/\<}\>/ contains=ALL else syn region factorArray0 matchgroup=hlLevel0 start=/\<$\$\|[-a-zA-Z0-9]\+$\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray1,factorQuotation1 syn region factorArray1 contained matchgroup=hlLevel1 start=/\<$\$\|[-a-zA-Z0-9]\+$\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray2,factorQuotation2 syn region factorArray2 contained matchgroup=hlLevel2 start=/\<$\$\|[-a-zA-Z0-9]\+$\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray3,factorQuotation3 syn region factorArray3 contained matchgroup=hlLevel3 start=/\<$\$\|[-a-zA-Z0-9]\+$\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray4,factorQuotation4 syn region factorArray4 contained matchgroup=hlLevel4 start=/\<$\$\|[-a-zA-Z0-9]\+$\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray5,factorQuotation5 syn region factorArray5 contained matchgroup=hlLevel5 start=/\<$\$\|[-a-zA-Z0-9]\+$\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray6,factorQuotation6 syn region factorArray6 contained matchgroup=hlLevel6 start=/\<$\$\|[-a-zA-Z0-9]\+$\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray7,factorQuotation7 syn region factorArray7 contained matchgroup=hlLevel7 start=/\<$\$\|[-a-zA-Z0-9]\+$\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray8,factorQuotation8 syn region factorArray8 contained matchgroup=hlLevel8 start=/\<$\$\|[-a-zA-Z0-9]\+$\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray9,factorQuotation9 syn region factorArray9 contained matchgroup=hlLevel9 start=/\<$\$\|[-a-zA-Z0-9]\+$\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray0,factorQuotation0 endif syn match factorBracketErr /\<\]\>/ syn match factorBracketErr /\<}\>/ syn sync lines=100 if version >= 508 || !exists("did_factor_syn_inits") if version <= 508 let did_factor_syn_inits = 1 command -nargs=+ HiLink hi link else command -nargs=+ HiLink hi def link endif HiLink factorComment Comment HiLink factorStackEffect Typedef HiLink factorLiteralStackEffect Typedef HiLink factorTodo Todo HiLink factorInclude Include HiLink factorRepeat Repeat HiLink factorConditional Conditional HiLink factorKeyword Keyword HiLink factorCallQuotation Keyword HiLink factorExecute Keyword HiLink factorCallNextMethod Keyword HiLink factorOperator Operator HiLink factorFrySpecifier Operator HiLink factorBoolean Boolean HiLink factorBreakpoint Debug HiLink factorDefnDelims Typedef HiLink factorMethodDelims Typedef HiLink factorGenericDelims Typedef HiLink factorGenericNDelims Typedef HiLink factorConstructor Typedef HiLink factorConstructor2 Typedef HiLink factorPrivate Special HiLink factorPrivateDefnDelims Special HiLink factorPrivateMethodDelims Special HiLink factorPGenericDelims Special HiLink factorPGenericNDelims Special HiLink factorString String HiLink factorTriString String HiLink factorSbuf String HiLink factorMultiStringContents String HiLink factorMultiStringDelims Typedef HiLink factorBracketErr Error HiLink factorComplex Number HiLink factorRatio Number HiLink factorBinary Number HiLink factorBinErr Error HiLink factorHex Number HiLink factorHexErr Error HiLink factorNan Number HiLink factorOctal Number HiLink factorOctErr Error HiLink factorFloat Float HiLink factorInt Number HiLink factorUsing Include HiLink factorQualified Include HiLink factorQualifiedWith Include HiLink factorExclude Include HiLink factorFrom Include HiLink factorRename Include HiLink factorUse Include HiLink factorUnuse Include HiLink factorIn Define HiLink factorChar Character HiLink factorDelimiter Delimiter HiLink factorBackslash Special HiLink factorLiteral Special HiLink factorLiteralBlock Special HiLink factorDeclaration Typedef HiLink factorSymbol Define HiLink factorSymbols Define HiLink factorConstant Define HiLink factorAlias Define HiLink factorSingleton Define HiLink factorSingletons Define HiLink factorMixin Typedef HiLink factorInstance Typedef HiLink factorHook Typedef HiLink factorMain Define HiLink factorPostpone Define HiLink factorDefer Define HiLink factorForget Define HiLink factorAlien Define HiLink factorSlot Define HiLink factorIntersection Typedef HiLink factorTuple Typedef HiLink factorUnion Typedef HiLink factorStruct Typedef if &bg == "dark" hi hlLevel0 ctermfg=red guifg=red1 hi hlLevel1 ctermfg=yellow guifg=orange1 hi hlLevel2 ctermfg=green guifg=yellow1 hi hlLevel3 ctermfg=cyan guifg=greenyellow hi hlLevel4 ctermfg=magenta guifg=green1 hi hlLevel5 ctermfg=red guifg=springgreen1 hi hlLevel6 ctermfg=yellow guifg=cyan1 hi hlLevel7 ctermfg=green guifg=slateblue1 hi hlLevel8 ctermfg=cyan guifg=magenta1 hi hlLevel9 ctermfg=magenta guifg=purple1 else hi hlLevel0 ctermfg=red guifg=red3 hi hlLevel1 ctermfg=darkyellow guifg=orangered3 hi hlLevel2 ctermfg=darkgreen guifg=orange2 hi hlLevel3 ctermfg=blue guifg=yellow3 hi hlLevel4 ctermfg=darkmagenta guifg=olivedrab4 hi hlLevel5 ctermfg=red guifg=green4 hi hlLevel6 ctermfg=darkyellow guifg=paleturquoise3 hi hlLevel7 ctermfg=darkgreen guifg=deepskyblue4 hi hlLevel8 ctermfg=blue guifg=darkslateblue hi hlLevel9 ctermfg=darkmagenta guifg=darkviolet endif delcommand HiLink endif let b:current_syntax = "factor" set sw=4 set sts=4 set expandtab set autoindent " annoying? " vim: syntax=vim