misc/vim/syntax/factor.vim

   1 " Vim syntax file
   2 " Language: Factor
   3 " Maintainer: Alex Chapman <chapman.alex@gmail.com>
   4 " Last Change: 2020 May 29
   5 " To run: USING: html.templates html.templates.fhtml ; "resource:misc/factor.vim.fgen" <fhtml> call-template
   6
   7 " For version 5.x: Clear all syntax items
   8 " For version 6.x: Quit when a syntax file was already loaded
   9 if version < 600
  10     syntax clear
  11 elseif exists("b:current_syntax")
  12     finish
  13 endif
  14
  15 " Factor is case sensitive.
  16 syn case match
  17
  18 " Make all of these characters part of a word (useful for skipping over words with w, e, and b)
  19 if version >= 600
  20     setlocal iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
  21 else
  22     set iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
  23 endif
  24
  25 syn cluster factorCluster contains=factorComment,factorFrySpecifier,factorKeyword,factorRepeat,factorConditional,factorBoolean,factorBreakpoint,factorDeclaration,factorCallQuotation,factorExecute,factorCallNextMethod,factorString,factorTriString,factorSbuf,@factorNumber,@factorNumErr,factorDelimiter,factorChar,factorBackslash,factorMBackslash,factorLiteral,factorLiteralBlock,@factorWordOps,factorAlien,factorSlot,factorTuple,factorError,factorStruct
  26
  27 " All syntax patterns are "very magic" (see `:help /\v`).
  28 " Escape all literal [^0-9a-zA-Z_-!:;] characters in these patterns.
  29 " (Not escaping [-!:;] characters risks forward-incompatibility,
  30 "   but fixes if an incompatibile Vim arises would be trivial,
  31 "   and Factor likes these characters.)
  32
  33 syn match factorTodo /\v(TODO|FIXME|XXX):=/ contained
  34 syn match factorComment /\v<\#?!>.*/ contains=factorTodo,@Spell
  35 syn match factorShebang /\v%^\#!.*/ display
  36 syn match factorShebangErr /\v%^\#!\S+/
  37
  38 syn cluster factorDefnContents contains=@factorCluster,factorStackEffect,factorLiteralStackEffect,factorArray0,factorQuotation0
  39 syn cluster factorGenericContents contains=factorComment,factorStackEffect
  40
  41 syn region factorDefn matchgroup=factorDefnDelims start=/\v<(SYNTAX|(MACRO|MEMO|TYPED)?:?):\s+\S+>/ end=/\v<;>/ contains=@factorDefnContents
  42 syn region factorMethod matchgroup=factorMethodDelims start=/\v<M::?\s+\S+\s+\S+>/ end=/\v<;>/ contains=@factorDefnContents
  43 syn region factorGeneric matchgroup=factorGenericDelims start=/\v<(GENERIC|MATH|PRIMITIVE):\s+\S+>/ end=/\v$/ contains=@factorGenericContents
  44 syn region factorGenericN matchgroup=factorGenericNDelims start=/\v<GENERIC\#:\s+\S+\s+\d+>/ end=/\v$/ contains=@factorGenericContents
  45
  46 syn region factorPrivateDefn matchgroup=factorPrivateDefnDelims start=/\v<(SYNTAX|(MACRO|MEMO|TYPED)?:?):\s+\S+>/ end=/\v<;>/ contains=@factorDefnContents contained
  47 syn region factorPrivateMethod matchgroup=factorPrivateMethodDelims start=/\v<M::?\s+\S+\s+\S+>/ end=/\v<;>/ contains=@factorDefnContents contained
  48 syn region factorPGeneric matchgroup=factorPGenericDelims start=/\v<(GENERIC|MATH|PRIMITIVE):\s+\S+>/ end=/\v$/ contains=@factorGenericContents contained
  49 syn region factorPGenericN matchgroup=factorPGenericNDelims start=/\v<GENERIC\#:\s+\S+\s+\d+>/ end=/\v$/ contains=@factorGenericContents contained
  50
  51 syn region None matchgroup=factorPrivate start=/\v<\<PRIVATE>/ end=/\v<PRIVATE\>>/ contains=@factorDefnContents,factorPrivateDefn,factorPrivateMethod,factorPGeneric,factorPGenericN
  52
  53
  54 syn keyword factorBoolean f t
  55 syn keyword factorBreakpoint B
  56 syn keyword factorFrySpecifier @ _ contained
  57 syn keyword factorDeclaration delimiter deprecated final flushable foldable inline recursive
  58 syn match factorCallQuotation /\v<call\(\s+(\S*\s+)*--(\s+\S*)*\s+\)>/ contained contains=factorStackEffect
  59 syn match factorExecute /\v<execute\(\s+(\S*\s+)*--(\s+\S*)*\s+\)>/ contained contains=factorStackEffect
  60 syn keyword factorCallNextMethod call-next-method
  61
  62 syn keyword factorKeyword (clone) -roll -rot -rotd 2bi 2bi* 2bi@ 2curry 2dip 2drop 2dup 2keep 2keepd 2nip 2nipd 2over 2tri 2tri* 2tri@ 2with 3bi 3curry 3dip 3drop 3dup 3keep 3nip 3nipd 3tri 4dip 4drop 4dup 4keep 4nip 5drop 5nip <wrapper> = >boolean ? ?if and assert assert= assert? bi bi* bi-curry bi-curry* bi-curry@ bi@ boa boolean boolean? both? build call callstack callstack>array callstack? clear clone compose composed composed? curried curried? curry die dip do drop dup dupd either? eq? equal? execute get-callstack get-datastack get-retainstack hashcode hashcode* identity-hashcode identity-tuple identity-tuple? if if* keep keepd keepdd loop most new nip nipd not null object or over overd pick pickd prepose reach roll rot rotd same? spin swap swapd throw tri tri* tri-curry tri-curry* tri-curry@ tri@ tuck tuple tuple? unless unless* until when when* while while* with wrapper wrapper? xor
  63 syn keyword factorKeyword 2cache <enumerated> >alist ?at ?delete-at ?of assoc assoc-all? assoc-any? assoc-clone-like assoc-combine assoc-diff assoc-diff! assoc-differ assoc-each assoc-empty? assoc-filter assoc-filter! assoc-filter-as assoc-find assoc-hashcode assoc-intersect assoc-like assoc-map assoc-map-as assoc-partition assoc-refine assoc-reject assoc-reject! assoc-reject-as assoc-size assoc-stack assoc-subset? assoc-union assoc-union! assoc-union-as assoc= assoc>map assoc? at at* at+ cache change-at clear-assoc collect-by delete-at delete-at* enumerated enumerated? extract-keys harvest-keys harvest-values inc-at key? keys map>alist map>assoc maybe-set-at new-assoc of push-at rename-at set-at sift-keys sift-values substitute unzip value-at value-at* value? values zip zip-as zip-index zip-index-as
  64 syn keyword factorKeyword 2cleave 2cleave>quot 3cleave 3cleave>quot 4cleave 4cleave>quot alist>quot call-effect case case-find case>quot cleave cleave>quot cond cond>quot deep-spread>quot execute-effect linear-case-quot no-case no-case? no-cond no-cond? recursive-hashcode shallow-spread>quot spread to-fixed-point wrong-values wrong-values?
  65 syn keyword factorKeyword (all-integers?) (each-integer) (find-integer) * + - / /f /i /mod 2/ 2^ < <= <fp-nan> > >= >bignum >fixnum >float >fraction >integer >rect ?1+ abs align all-integers? bignum bignum? bit? bitand bitnot bitor bits>double bits>float bitxor complex complex? denominator double>bits each-integer even? find-integer find-last-integer fixnum fixnum? float float>bits float? fp-bitwise= fp-infinity? fp-nan-payload fp-nan? fp-qnan? fp-sign fp-snan? fp-special? gcd if-zero imaginary-part integer integer>fixnum integer>fixnum-strict integer? log2 log2-expects-positive log2-expects-positive? mod neg neg? next-float next-power-of-2 number number= number? numerator odd? power-of-2? prev-float ratio ratio? rational rational? real real-part real? recip rect> rem sgn shift simple-gcd sq times u< u<= u> u>= unless-zero unordered? when-zero zero?
  66 syn keyword factorKeyword 1sequence 2all? 2each 2each-from 2map 2map-as 2map-reduce 2reduce 2selector 2sequence 3append 3append-as 3each 3map 3map-as 3sequence 4sequence <iota> <repetition> <reversed> <slice> ?first ?last ?nth ?second ?set-nth accumulate accumulate! accumulate* accumulate*! accumulate*-as accumulate-as all? any? append append! append-as assert-sequence assert-sequence= assert-sequence? binary-reduce bounds-check bounds-check? bounds-error bounds-error? but-last but-last-slice cartesian-each cartesian-find cartesian-map cartesian-product change-nth check-slice clone-like collapse-slice collector collector-as collector-for collector-for-as concat concat-as copy count cut cut* cut-slice delete-all delete-slice drop-prefix each each-from each-index empty? exchange filter filter! filter-as find find-from find-index find-index-from find-last find-last-from first first2 first3 first4 flip follow fourth glue halves harvest head head* head-slice head-slice* head? if-empty immutable immutable-sequence immutable-sequence? immutable? index index-from indices infimum infimum-by insert-nth interleave iota iota? join join-as last last-index last-index-from length lengthen like longer longer? longest map map! map-as map-find map-find-last map-index map-index-as map-integers map-reduce map-sum max-length member-eq? member? midpoint@ min-length mismatch move new-like new-resizable new-sequence non-negative-integer-expected non-negative-integer-expected? none? nth nths pad-head pad-tail padding partition pop pop* prefix prepend prepend-as produce produce-as product push push-all push-either push-if reduce reduce-index reject reject! reject-as remove remove! remove-eq remove-eq! remove-nth remove-nth! repetition repetition? replace-slice replicate replicate-as rest rest-slice reverse reverse! reversed reversed? second selector selector-as sequence sequence-hashcode sequence= sequence? set-first set-fourth set-last set-length set-nth set-second set-third short shorten shorter shorter? shortest sift slice slice-error slice-error? slice? snip snip-slice subseq subseq-as subseq-start subseq-start-from subseq? suffix suffix! sum sum-lengths supremum supremum-by surround tail tail* tail-slice tail-slice* tail? third trim trim-head trim-head-slice trim-slice trim-tail trim-tail-slice unclip unclip-last unclip-last-slice unclip-slice unless-empty virtual-exemplar virtual-sequence virtual-sequence? virtual@ when-empty
  67 syn keyword factorKeyword +@ change change-global counter dec get get-global get-namestack global inc init-namespaces initialize namespace off on set set-global set-namestack toggle with-global with-scope with-variable with-variable-off with-variable-on with-variables
  68 syn keyword factorKeyword 1array 2array 3array 4array <array> >array array array? pair pair? resize-array
  69 syn keyword factorKeyword (each-stream-block) (each-stream-block-slice) (stream-contents-by-block) (stream-contents-by-element) (stream-contents-by-length) (stream-contents-by-length-or-block) +byte+ +character+ bad-seek-type bad-seek-type? bl contents each-block each-block-size each-block-slice each-line each-stream-block each-stream-block-slice each-stream-line error-stream flush input-stream input-stream? invalid-read-buffer invalid-read-buffer? lines nl output-stream output-stream? print read read-into read-partial read-partial-into read-until read1 readln seek-absolute seek-absolute? seek-end seek-end? seek-input seek-output seek-relative seek-relative? stream-bl stream-contents stream-contents* stream-copy stream-copy* stream-element-type stream-flush stream-length stream-lines stream-nl stream-print stream-read stream-read-into stream-read-partial stream-read-partial-into stream-read-partial-unsafe stream-read-unsafe stream-read-until stream-read1 stream-readln stream-seek stream-seekable? stream-tell stream-write stream-write1 tell-input tell-output with-error-stream with-error-stream* with-error>output with-input-output+error-streams with-input-output+error-streams* with-input-stream with-input-stream* with-output+error-stream with-output+error-stream* with-output-stream with-output-stream* with-output>error with-streams with-streams* write write1
  70 syn keyword factorKeyword 1string <string> >string resize-string string string?
  71 syn keyword factorKeyword 1vector <vector> >vector ?push vector vector?
  72 syn keyword factorKeyword <condition> <continuation> <restart> attempt-all attempt-all-error attempt-all-error? callback-error-hook callcc0 callcc1 cleanup compute-restarts condition condition? continuation continuation? continue continue-restart continue-with current-continuation error error-continuation error-in-thread error-thread finally ifcc ignore-error ignore-error/f ignore-errors in-callback? original-error recover restart restart? restarts rethrow rethrow-restarts return return-continuation thread-error-hook throw-continue throw-restarts with-datastack with-return
  73
  74
  75 syn cluster factorReal          contains=factorInt,factorFloat,factorPosRatio,factorNegRatio,factorBinary,factorHex,factorOctal
  76 syn cluster factorNumber        contains=@factorReal,factorComplex
  77 syn cluster factorNumErr        contains=factorBinErr,factorHexErr,factorOctErr
  78 syn match   factorInt           /\v<[+-]=[0-9]([0-9,]*[0-9])?([eE]([+-])?[0-9]+)?>/
  79 syn match   factorFloat         /\v<[+-]=([0-9,]*[0-9])?(\.(([0-9,]*[0-9]+)?([eE]([+-])?[0-9]+)?)?)?>/
  80 syn match   factorPosRatio      /\v<\+=[0-9]([0-9,]*[0-9])?(\+[0-9]([0-9,]*[0-9]+)?)?\/-=[0-9]([0-9,]*[0-9]+)?\.?>/
  81 syn match   factorNegRatio      /\v<\-[0-9]([0-9,]*[0-9])?(\-[0-9]([0-9,]*[0-9]+)?)?\/-=[0-9]([0-9,]*[0-9]+)?\.?>/
  82 syn region  factorComplex       start=/\v<C\{>/ end=/\v<\}>/ contains=@factorReal
  83 syn match   factorBinErr        /\v<[+-]=0b[01,]*[^01 ]\S*>/
  84 syn match   factorBinary        /\v<[+-]=0b[01,]+>/
  85 syn match   factorHexErr        /\v<[+-]=0x(,\S*|\S*,|[-0-9a-fA-Fp,]*[^-0-9a-fA-Fp, ]\S*)>/
  86 syn match   factorHex           /\v<[+-]=0x[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        /\v<[+-]=0o(,\S*|\S*,|[0-7,]*[^0-7, ]\S*)>/
  88 syn match   factorOctal         /\v<[+-]=0o[0-7,]+>/
  89 syn match   factorNan           /\v<NAN:\s+[0-9a-fA-F]([0-9a-fA-F,]*[0-9a-fA-F])?>/ contains=factorComment
  90
  91 syn match   factorIn            /\v<IN:\s+\S+>/    contains=factorComment
  92 syn match   factorUse           /\v<USE:\s+\S+>/   contains=factorComment
  93 syn match   factorUnuse         /\v<UNUSE:\s+\S+>/ contains=factorComment
  94
  95 syn match   factorChar          /\v<CHAR:\s+\S+>/
  96
  97 syn match   factorBackslash     /\v<\\>\s+\S+>/               contains=factorComment
  98 syn match   factorMBackslash    /\v<M\\>\s+\S+\s+\S+>/        contains=factorComment
  99 syn match   factorLiteral       /\v<\$>\s+\S+>/               contains=factorComment
 100 syn region  factorLiteralBlock  start=/\v<\$\[>/ end=/\v<\]>/ contains=factorComment
 101
 102 syn region  factorUsing         start=/\v<USING:>/                  end=/\v;/   contains=factorComment
 103 syn match   factorQualified     /\v<QUALIFIED:\s+\S+>/                          contains=factorComment
 104 syn match   factorQualifiedWith /\v<QUALIFIED-WITH:\s+\S+\s+\S+>/               contains=factorComment
 105 syn region  factorExclude       start=/\v<EXCLUDE:>/                end=/\v;/   contains=factorComment
 106 syn region  factorFrom          start=/\v<FROM:>/                   end=/\v;/   contains=factorComment
 107 syn match   factorRename        /\v<RENAME:\s+\S+\s+\S+\s\=\>\s+\S+>/           contains=factorComment
 108 syn region  factorSingletons    start=/\v<SINGLETONS:>/             end=/\v;/   contains=factorComment
 109 syn match   factorSymbol        /\v<SYMBOL:\s+\S+>/                             contains=factorComment
 110 syn region  factorSymbols       start=/\v<SYMBOLS:>/                end=/\v;/   contains=factorComment
 111 syn region  factorConstructor2  start=/\v<CONSTRUCTOR:?/            end=/\v;/   contains=factorComment
 112 syn region  factorIntersection  start=/\v<INTERSECTION:>/           end=/\v<;>/ contains=factorComment
 113 syn region  factorTuple         start=/\v<(TUPLE|BUILTIN):>/        end=/\v<;>/ contains=factorComment
 114 syn region  factorError         start=/\v<ERROR:>/                  end=/\v<;>/ contains=factorComment
 115 syn region  factorUnion         start=/\v<UNION:>/                  end=/\v<;>/ contains=factorComment
 116 syn region  factorStruct        start=/\v<(UNION-STRUCT:|STRUCT:)>/ end=/\v<;>/ contains=factorComment
 117
 118 syn match   factorConstant      /\v<CONSTANT:\s+\S+>/       contains=factorComment
 119 syn match   factorAlias         /\v<ALIAS:\s+\S+\s+\S+>/    contains=factorComment
 120 syn match   factorSingleton     /\v<SINGLETON:\s+\S+>/      contains=factorComment
 121 syn match   factorPostpone      /\v<POSTPONE:\s+\S+>/       contains=factorComment
 122 syn match   factorDefer         /\v<DEFER:\s+\S+>/          contains=factorComment
 123 syn match   factorForget        /\v<FORGET:\s+\S+>/         contains=factorComment
 124 syn match   factorMixin         /\v<MIXIN:\s+\S+>/          contains=factorComment
 125 syn match   factorInstance      /\v<INSTANCE:\s+\S+\s+\S+>/ contains=factorComment
 126 syn match   factorHook          /\v<HOOK:\s+\S+\s+\S+>/     contains=factorComment nextgroup=factorStackEffect skipwhite skipempty
 127 syn match   factorMain          /\v<MAIN:\s+\S+>/           contains=factorComment
 128 syn match   factorConstructor   /\v<C:\s+\S+\s+\S+>/        contains=factorComment
 129 syn match   factorAlien         /\v<ALIEN:\s+[0-9a-fA-F]([0-9a-fA-F,]*[0-9a-fA-F])?>/ contains=factorComment
 130 syn match   factorSlot          /\v<SLOT:\s+\S+>/           contains=factorComment
 131
 132 syn cluster factorWordOps       contains=factorConstant,factorAlias,factorSingleton,factorSingletons,factorSymbol,factorSymbols,factorPostpone,factorDefer,factorForget,factorMixin,factorInstance,factorHook,factorMain,factorConstructor
 133
 134 "TODO:
 135 "misc:
 136 " HELP:
 137 " ARTICLE:
 138 "literals:
 139 " PRIMITIVE:
 140
 141 "C interface:
 142 " C-ENUM:
 143 " FUNCTION:
 144 " TYPEDEF:
 145 " LIBRARY:
 146 "#\ "
 147
 148 syn match factorEscape /\v\\([\\astnrbvf0e\"]|u\x{6}|u\{\S+}|x\x{2})/ contained display
 149 syn region factorString start=/\v<"/ skip=/\v\\"/ end=/\v"/ contains=factorEscape
 150 syn region factorTriString start=/\v<"""/ skip=/\v\\"/ end=/\v"""/ contains=factorEscape
 151 syn region factorSbuf start=/\v<[-a-zA-Z0-9]+">/ skip=/\v\\"/ end=/\v"/
 152
 153 syn region factorMultiString matchgroup=factorMultiStringDelims start=/\v<STRING:\s+\S+>/ end=/\v^;$/ contains=factorMultiStringContents
 154 syn match factorMultiStringContents /\v.*/ contained
 155
 156 "syn match factorStackEffectErr /\v<\)>/
 157 "syn region factorStackEffectErr start=/\v<\(>/ end=/\v<\)>/
 158 "syn region factorStackEffect start=/\v<\(>/ end=/\v<\)>/ contained
 159 syn match factorStackEffect /\v\(\s+(\S*\s+)*--(\s+\S*)*\s+\)>/ contained contains=factorComment,factorStackDelims,factorStackItems,factorStackVariables,factorCallExecuteDelim
 160 syn match factorLiteralStackEffect /\v\(\(\s+(\S*\s+)*--(\s+\S*)*\s+\)\)>/ contained contains=factorComment,factorStackDelims,factorStackItems,factorStackVariables,factorCallExecuteDelim
 161 syn match factorStackVariables contained "\<\.\.\S\+\>"
 162 syn match factorStackItems contained "\<\(\.\.\)\@!\S\+\>"
 163 syn keyword factorStackDelims contained ( ) (( )) --
 164 syn match factorCallExecuteDelim contained /\v\(\s/
 165
 166 "adapted from lisp.vim
 167 if exists("g:factor_norainbow")
 168     syn region factorQuotation matchgroup=factorDelimiter start=/\v<((('|\$|)\[)|\[(let|\|))>/ matchgroup=factorDelimiter end=/\v<\]>/ contains=ALL
 169 else
 170     syn region factorQuotation0           matchgroup=hlLevel0 start=/\v<((('|\$|)\[)|\[(let|\|))>/  end=/\v<\]>/ contains=@factorCluster,factorQuotation1,factorArray1
 171     syn region factorQuotation1 contained matchgroup=hlLevel1 start=/\v<((('|\$|)\[)|\[(let|\|))>/  end=/\v<\]>/ contains=@factorCluster,factorQuotation2,factorArray2
 172     syn region factorQuotation2 contained matchgroup=hlLevel2 start=/\v<((('|\$|)\[)|\[(let|\|))>/  end=/\v<\]>/ contains=@factorCluster,factorQuotation3,factorArray3
 173     syn region factorQuotation3 contained matchgroup=hlLevel3 start=/\v<((('|\$|)\[)|\[(let|\|))>/  end=/\v<\]>/ contains=@factorCluster,factorQuotation4,factorArray4
 174     syn region factorQuotation4 contained matchgroup=hlLevel4 start=/\v<((('|\$|)\[)|\[(let|\|))>/  end=/\v<\]>/ contains=@factorCluster,factorQuotation5,factorArray5
 175     syn region factorQuotation5 contained matchgroup=hlLevel5 start=/\v<((('|\$|)\[)|\[(let|\|))>/  end=/\v<\]>/ contains=@factorCluster,factorQuotation6,factorArray6
 176     syn region factorQuotation6 contained matchgroup=hlLevel6 start=/\v<((('|\$|)\[)|\[(let|\|))>/  end=/\v<\]>/ contains=@factorCluster,factorQuotation7,factorArray7
 177     syn region factorQuotation7 contained matchgroup=hlLevel7 start=/\v<((('|\$|)\[)|\[(let|\|))>/  end=/\v<\]>/ contains=@factorCluster,factorQuotation8,factorArray8
 178     syn region factorQuotation8 contained matchgroup=hlLevel8 start=/\v<((('|\$|)\[)|\[(let|\|))>/  end=/\v<\]>/ contains=@factorCluster,factorQuotation9,factorArray9
 179     syn region factorQuotation9 contained matchgroup=hlLevel9 start=/\v<((('|\$|)\[)|\[(let|\|))>/  end=/\v<\]>/ contains=@factorCluster,factorQuotation0,factorArray0
 180 endif
 181
 182 if exists("g:factor_norainbow")
 183     syn region factorArray    matchgroup=factorDelimiter start=/\v<(\$|[-a-zA-Z0-9]+)?\{>/  matchgroup=factorDelimiter end=/\v<}>/ contains=ALL
 184 else
 185     syn region factorArray0           matchgroup=hlLevel0 start=/\v<(\$|[-a-zA-Z0-9]+)?\{>/ end=/\v<}>/ contains=@factorCluster,factorArray1,factorQuotation1
 186     syn region factorArray1 contained matchgroup=hlLevel1 start=/\v<(\$|[-a-zA-Z0-9]+)?\{>/ end=/\v<}>/ contains=@factorCluster,factorArray2,factorQuotation2
 187     syn region factorArray2 contained matchgroup=hlLevel2 start=/\v<(\$|[-a-zA-Z0-9]+)?\{>/ end=/\v<}>/ contains=@factorCluster,factorArray3,factorQuotation3
 188     syn region factorArray3 contained matchgroup=hlLevel3 start=/\v<(\$|[-a-zA-Z0-9]+)?\{>/ end=/\v<}>/ contains=@factorCluster,factorArray4,factorQuotation4
 189     syn region factorArray4 contained matchgroup=hlLevel4 start=/\v<(\$|[-a-zA-Z0-9]+)?\{>/ end=/\v<}>/ contains=@factorCluster,factorArray5,factorQuotation5
 190     syn region factorArray5 contained matchgroup=hlLevel5 start=/\v<(\$|[-a-zA-Z0-9]+)?\{>/ end=/\v<}>/ contains=@factorCluster,factorArray6,factorQuotation6
 191     syn region factorArray6 contained matchgroup=hlLevel6 start=/\v<(\$|[-a-zA-Z0-9]+)?\{>/ end=/\v<}>/ contains=@factorCluster,factorArray7,factorQuotation7
 192     syn region factorArray7 contained matchgroup=hlLevel7 start=/\v<(\$|[-a-zA-Z0-9]+)?\{>/ end=/\v<}>/ contains=@factorCluster,factorArray8,factorQuotation8
 193     syn region factorArray8 contained matchgroup=hlLevel8 start=/\v<(\$|[-a-zA-Z0-9]+)?\{>/ end=/\v<}>/ contains=@factorCluster,factorArray9,factorQuotation9
 194     syn region factorArray9 contained matchgroup=hlLevel9 start=/\v<(\$|[-a-zA-Z0-9]+)?\{>/ end=/\v<}>/ contains=@factorCluster,factorArray0,factorQuotation0
 195 endif
 196
 197 syn match factorBracketErr /\v<\]>/
 198 syn match factorBracketErr /\v<}>/
 199
 200 syn sync lines=100
 201
 202 if version >= 508 || !exists("did_factor_syn_inits")
 203     if version <= 508
 204         let did_factor_syn_inits = 1
 205         command -nargs=+ HiLink hi link <args>
 206     else
 207         command -nargs=+ HiLink hi def link <args>
 208     endif
 209
 210     HiLink factorComment                Comment
 211     HiLink factorShebang                PreProc
 212     HiLink factorShebangErr             Error
 213     HiLink factorStackEffect            Typedef
 214     HiLink factorStackDelims            Delimiter
 215     HiLink factorCallExecuteDelim       Delimiter
 216     HiLink factorStackVariables         Special
 217     HiLink factorStackItems             Identifier
 218     HiLink factorLiteralStackEffect     Typedef
 219     HiLink factorTodo                   Todo
 220     HiLink factorInclude                Include
 221     HiLink factorRepeat                 Repeat
 222     HiLink factorConditional            Conditional
 223     HiLink factorKeyword                Keyword
 224     HiLink factorCallQuotation          Keyword
 225     HiLink factorExecute                Keyword
 226     HiLink factorCallNextMethod         Keyword
 227     HiLink factorOperator               Operator
 228     HiLink factorFrySpecifier           Operator
 229     HiLink factorBoolean                Boolean
 230     HiLink factorBreakpoint             Debug
 231     HiLink factorDefnDelims             Typedef
 232     HiLink factorMethodDelims           Typedef
 233     HiLink factorGenericDelims          Typedef
 234     HiLink factorGenericNDelims         Typedef
 235     HiLink factorConstructor            Typedef
 236     HiLink factorConstructor2           Typedef
 237     HiLink factorPrivate                Special
 238     HiLink factorPrivateDefnDelims      Special
 239     HiLink factorPrivateMethodDelims    Special
 240     HiLink factorPGenericDelims         Special
 241     HiLink factorPGenericNDelims        Special
 242     HiLink factorEscape                 SpecialChar
 243     HiLink factorString                 String
 244     HiLink factorTriString              String
 245     HiLink factorSbuf                   String
 246     HiLink factorMultiStringContents    String
 247     HiLink factorMultiStringDelims      Typedef
 248     HiLink factorBracketErr             Error
 249     HiLink factorComplex                Number
 250     HiLink factorPosRatio               Number
 251     HiLink factorNegRatio               Number
 252     HiLink factorBinary                 Number
 253     HiLink factorBinErr                 Error
 254     HiLink factorHex                    Number
 255     HiLink factorHexErr                 Error
 256     HiLink factorNan                    Number
 257     HiLink factorOctal                  Number
 258     HiLink factorOctErr                 Error
 259     HiLink factorFloat                  Float
 260     HiLink factorInt                    Number
 261     HiLink factorUsing                  Include
 262     HiLink factorQualified              Include
 263     HiLink factorQualifiedWith          Include
 264     HiLink factorExclude                Include
 265     HiLink factorFrom                   Include
 266     HiLink factorRename                 Include
 267     HiLink factorUse                    Include
 268     HiLink factorUnuse                  Include
 269     HiLink factorIn                     Define
 270     HiLink factorChar                   Character
 271     HiLink factorDelimiter              Delimiter
 272     HiLink factorBackslash              Special
 273     HiLink factorMBackslash             Special
 274     HiLink factorLiteral                Special
 275     HiLink factorLiteralBlock           Special
 276     HiLink factorDeclaration            Typedef
 277     HiLink factorSymbol                 Define
 278     HiLink factorSymbols                Define
 279     HiLink factorConstant               Define
 280     HiLink factorAlias                  Define
 281     HiLink factorSingleton              Define
 282     HiLink factorSingletons             Define
 283     HiLink factorMixin                  Typedef
 284     HiLink factorInstance               Typedef
 285     HiLink factorHook                   Typedef
 286     HiLink factorMain                   Define
 287     HiLink factorPostpone               Define
 288     HiLink factorDefer                  Define
 289     HiLink factorForget                 Define
 290     HiLink factorAlien                  Define
 291     HiLink factorSlot                   Define
 292     HiLink factorIntersection           Typedef
 293     HiLink factorTuple                  Typedef
 294     HiLink factorError                  Typedef
 295     HiLink factorUnion                  Typedef
 296     HiLink factorStruct                 Typedef
 297
 298     if &bg == "dark"
 299         hi   hlLevel0 ctermfg=red         guifg=red1
 300         hi   hlLevel1 ctermfg=yellow      guifg=orange1
 301         hi   hlLevel2 ctermfg=green       guifg=yellow1
 302         hi   hlLevel3 ctermfg=cyan        guifg=greenyellow
 303         hi   hlLevel4 ctermfg=magenta     guifg=green1
 304         hi   hlLevel5 ctermfg=red         guifg=springgreen1
 305         hi   hlLevel6 ctermfg=yellow      guifg=cyan1
 306         hi   hlLevel7 ctermfg=green       guifg=slateblue1
 307         hi   hlLevel8 ctermfg=cyan        guifg=magenta1
 308         hi   hlLevel9 ctermfg=magenta     guifg=purple1
 309     else
 310         hi   hlLevel0 ctermfg=red         guifg=red3
 311         hi   hlLevel1 ctermfg=darkyellow  guifg=orangered3
 312         hi   hlLevel2 ctermfg=darkgreen   guifg=orange2
 313         hi   hlLevel3 ctermfg=blue        guifg=yellow3
 314         hi   hlLevel4 ctermfg=darkmagenta guifg=olivedrab4
 315         hi   hlLevel5 ctermfg=red         guifg=green4
 316         hi   hlLevel6 ctermfg=darkyellow  guifg=paleturquoise3
 317         hi   hlLevel7 ctermfg=darkgreen   guifg=deepskyblue4
 318         hi   hlLevel8 ctermfg=blue        guifg=darkslateblue
 319         hi   hlLevel9 ctermfg=darkmagenta guifg=darkviolet
 320     endif
 321
 322     delcommand HiLink
 323 endif
 324
 325 let b:current_syntax = "factor"
 326
 327 " vim:set ft=vim sw=4: