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 syn match factorTodo /\(TODO\|FIXME\|XXX\):\=/ contained
  28 syn match factorComment /\<#\?!\>.*/ contains=factorTodo,@Spell
  29 syn match factorShebang /\%\^#!.*/ display
  30 syn match factorShebangErr /\%\^#!\S\+/
  31
  32 syn cluster factorDefnContents contains=@factorCluster,factorStackEffect,factorLiteralStackEffect,factorArray0,factorQuotation0
  33 syn cluster factorGenericContents contains=factorComment,factorStackEffect
  34
  35 syn region factorDefn matchgroup=factorDefnDelims start=/\<\(SYNTAX\|\(MACRO\|MEMO\|TYPED\)\?:\?\):\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents
  36 syn region factorMethod matchgroup=factorMethodDelims start=/\<M::\?\s\+\S\+\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents
  37 syn region factorGeneric matchgroup=factorGenericDelims start=/\<\(GENERIC\|MATH\|PRIMITIVE\):\s\+\S\+\>/ end=/$/ contains=@factorGenericContents
  38 syn region factorGenericN matchgroup=factorGenericNDelims start=/\<GENERIC#:\s\+\S\+\s\+\d\+\>/ end=/$/ contains=@factorGenericContents
  39
  40 syn region factorPrivateDefn matchgroup=factorPrivateDefnDelims start=/\<\(SYNTAX\|\(MACRO\|MEMO\|TYPED\)\?:\?\):\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents contained
  41 syn region factorPrivateMethod matchgroup=factorPrivateMethodDelims start=/\<M::\?\s\+\S\+\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents contained
  42 syn region factorPGeneric matchgroup=factorPGenericDelims start=/\<\(GENERIC\|MATH\|PRIMITIVE\):\s\+\S\+\>/ end=/$/ contains=@factorGenericContents contained
  43 syn region factorPGenericN matchgroup=factorPGenericNDelims start=/\<GENERIC#:\s\+\S\+\s\+\d\+\>/ end=/$/ contains=@factorGenericContents contained
  44
  45 syn region None matchgroup=factorPrivate start=/\<<PRIVATE\>/ end=/\<PRIVATE>\>/ contains=@factorDefnContents,factorPrivateDefn,factorPrivateMethod,factorPGeneric,factorPGenericN
  46
  47
  48 syn keyword factorBoolean f t
  49 syn keyword factorBreakpoint B
  50 syn keyword factorFrySpecifier @ _ contained
  51 syn keyword factorDeclaration delimiter deprecated final flushable foldable inline recursive
  52 syn match factorCallQuotation /\<call(\s\+\(\S*\s\+\)*--\(\s\+\S*\)*\s\+)\>/ contained contains=factorStackEffect
  53 syn match factorExecute /\<execute(\s\+\(\S*\s\+\)*--\(\s\+\S*\)*\s\+)\>/ contained contains=factorStackEffect
  54 syn keyword factorCallNextMethod call-next-method
  55
  56 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
  57 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
  58 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?
  59 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?
  60 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
  61 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
  62 syn keyword factorKeyword 1array 2array 3array 4array <array> >array array array? pair pair? resize-array
  63 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
  64 syn keyword factorKeyword 1string <string> >string resize-string string string?
  65 syn keyword factorKeyword 1vector <vector> >vector ?push vector vector?
  66 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
  67
  68
  69 syn cluster factorReal          contains=factorInt,factorFloat,factorPosRatio,factorNegRatio,factorBinary,factorHex,factorOctal
  70 syn cluster factorNumber        contains=@factorReal,factorComplex
  71 syn cluster factorNumErr        contains=factorBinErr,factorHexErr,factorOctErr
  72 syn match   factorInt           /\<[+-]\=[0-9]\([0-9,]*[0-9]\)\?\([eE]\([+-]\)\?[0-9]\+\)\?\>/
  73 syn match   factorFloat         /\<[+-]\=\([0-9,]*[0-9]\)\?\(\.\(\([0-9,]*[0-9]\+\)\?\([eE]\([+-]\)\?[0-9]\+\)\?\)\?\)\?\>/
  74 syn match   factorPosRatio      /\<+\=[0-9]\([0-9,]*[0-9]\)\?\(+[0-9]\([0-9,]*[0-9]\+\)\?\)\?\/-\=[0-9]\([0-9,]*[0-9]\+\)\?\.\?\>/
  75 syn match   factorNegRatio      /\<\-[0-9]\([0-9,]*[0-9]\)\?\(\-[0-9]\([0-9,]*[0-9]\+\)\?\)\?\/-\=[0-9]\([0-9,]*[0-9]\+\)\?\.\?\>/
  76 syn region  factorComplex       start=/\<C{\>/ end=/\<}\>/ contains=@factorReal
  77 syn match   factorBinErr        /\<[+-]\=0b[01,]*[^01 ]\S*\>/
  78 syn match   factorBinary        /\<[+-]\=0b[01,]\+\>/
  79 syn match   factorHexErr        /\<[+-]\=0x\(,\S*\|\S*,\|[-0-9a-fA-Fp,]*[^-0-9a-fA-Fp, ]\S*\)\>/
  80 syn match   factorHex           /\<[+-]\=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]\)\?\)\?\>/
  81 syn match   factorOctErr        /\<[+-]\=0o\(,\S*\|\S*,\|[0-7,]*[^0-7, ]\S*\)\>/
  82 syn match   factorOctal         /\<[+-]\=0o[0-7,]\+\>/
  83 syn match   factorNan           /\<NAN:\s\+[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\>/ contains=factorComment
  84
  85 syn match   factorIn            /\<IN:\s\+\S\+\>/    contains=factorComment
  86 syn match   factorUse           /\<USE:\s\+\S\+\>/   contains=factorComment
  87 syn match   factorUnuse         /\<UNUSE:\s\+\S\+\>/ contains=factorComment
  88
  89 syn match   factorChar          /\<CHAR:\s\+\S\+\>/
  90
  91 syn match   factorBackslash     /\<\\\>\s\+\S\+\>/            contains=factorComment
  92 syn match   factorMBackslash    /\<M\\\>\s\+\S\+\s\+\S\+\>/   contains=factorComment
  93 syn match   factorLiteral       /\<\$\>\s\+\S\+\>/            contains=factorComment
  94 syn region  factorLiteralBlock  start=/\<\$\[\>/ end=/\<\]\>/ contains=factorComment
  95
  96 syn region  factorUsing         start=/\<USING:\>/       end=/;/                   contains=factorComment
  97 syn match   factorQualified     /\<QUALIFIED:\s\+\S\+\>/                           contains=factorComment
  98 syn match   factorQualifiedWith /\<QUALIFIED-WITH:\s\+\S\+\s\+\S\+\>/              contains=factorComment
  99 syn region  factorExclude       start=/\<EXCLUDE:\>/     end=/;/                   contains=factorComment
 100 syn region  factorFrom          start=/\<FROM:\>/        end=/;/                   contains=factorComment
 101 syn match   factorRename        /\<RENAME:\s\+\S\+\s\+\S\+\s=>\s\+\S\+\>/          contains=factorComment
 102 syn region  factorSingletons    start=/\<SINGLETONS:\>/  end=/;/                   contains=factorComment
 103 syn match   factorSymbol        /\<SYMBOL:\s\+\S\+\>/                              contains=factorComment
 104 syn region  factorSymbols       start=/\<SYMBOLS:\>/     end=/;/                   contains=factorComment
 105 syn region  factorConstructor2  start=/\<CONSTRUCTOR:\?/ end=/;/                   contains=factorComment
 106 syn region  factorIntersection  start=/\<INTERSECTION:\>/ end=/\<;\>/              contains=factorComment
 107 syn region  factorTuple         start=/\<\(TUPLE\|BUILTIN\):\>/ end=/\<;\>/        contains=factorComment
 108 syn region  factorError         start=/\<ERROR:\>/ end=/\<;\>/                     contains=factorComment
 109 syn region  factorUnion         start=/\<UNION:\>/ end=/\<;\>/                     contains=factorComment
 110 syn region  factorStruct        start=/\<\(UNION-STRUCT:\|STRUCT:\)\>/ end=/\<;\>/ contains=factorComment
 111
 112 syn match   factorConstant      /\<CONSTANT:\s\+\S\+\>/         contains=factorComment
 113 syn match   factorAlias         /\<ALIAS:\s\+\S\+\s\+\S\+\>/    contains=factorComment
 114 syn match   factorSingleton     /\<SINGLETON:\s\+\S\+\>/        contains=factorComment
 115 syn match   factorPostpone      /\<POSTPONE:\s\+\S\+\>/         contains=factorComment
 116 syn match   factorDefer         /\<DEFER:\s\+\S\+\>/            contains=factorComment
 117 syn match   factorForget        /\<FORGET:\s\+\S\+\>/           contains=factorComment
 118 syn match   factorMixin         /\<MIXIN:\s\+\S\+\>/            contains=factorComment
 119 syn match   factorInstance      /\<INSTANCE:\s\+\S\+\s\+\S\+\>/ contains=factorComment
 120 syn match   factorHook          /\<HOOK:\s\+\S\+\s\+\S\+\>/     contains=factorComment nextgroup=factorStackEffect skipwhite skipempty
 121 syn match   factorMain          /\<MAIN:\s\+\S\+\>/             contains=factorComment
 122 syn match   factorConstructor   /\<C:\s\+\S\+\s\+\S\+\>/        contains=factorComment
 123 syn match   factorAlien         /\<ALIEN:\s\+[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\>/ contains=factorComment
 124 syn match   factorSlot          /\<SLOT:\s\+\S\+\>/             contains=factorComment
 125
 126 syn cluster factorWordOps       contains=factorConstant,factorAlias,factorSingleton,factorSingletons,factorSymbol,factorSymbols,factorPostpone,factorDefer,factorForget,factorMixin,factorInstance,factorHook,factorMain,factorConstructor
 127
 128 "TODO:
 129 "misc:
 130 " HELP:
 131 " ARTICLE:
 132 "literals:
 133 " PRIMITIVE:
 134
 135 "C interface:
 136 " C-ENUM:
 137 " FUNCTION:
 138 " TYPEDEF:
 139 " LIBRARY:
 140 "#\ "
 141
 142 syn match factorEscape /\\\([\\astnrbvf0e\"]\|u\x\{6}\|u{\S\+}\|x\x\{2}\)/ contained display
 143 syn region factorString start=/\<"/ skip=/\\"/ end=/"/ contains=factorEscape
 144 syn region factorTriString start=/\<"""/ skip=/\\"/ end=/"""/ contains=factorEscape
 145 syn region factorSbuf start=/\<[-a-zA-Z0-9]\+"\>/ skip=/\\"/ end=/"/
 146
 147 syn region factorMultiString matchgroup=factorMultiStringDelims start=/\<STRING:\s\+\S\+\>/ end=/^;$/ contains=factorMultiStringContents
 148 syn match factorMultiStringContents /.*/ contained
 149
 150 "syn match factorStackEffectErr /\<)\>/
 151 "syn region factorStackEffectErr start=/\<(\>/ end=/\<)\>/
 152 "syn region factorStackEffect start=/\<(\>/ end=/\<)\>/ contained
 153 syn match factorStackEffect /(\s\+\(\S*\s\+\)*--\(\s\+\S*\)*\s\+)\>/ contained contains=factorComment,factorStackDelims,factorStackItems,factorStackVariables,factorCallExecuteDelim
 154 syn match factorLiteralStackEffect /((\s\+\(\S*\s\+\)*--\(\s\+\S*\)*\s\+))\>/ contained contains=factorComment,factorStackDelims,factorStackItems,factorStackVariables,factorCallExecuteDelim
 155 syn match factorStackVariables contained "\<\.\.\S\+\>"
 156 syn match factorStackItems contained "\<\(\.\.\)\@!\S\+\>"
 157 syn keyword factorStackDelims contained ( ) (( )) --
 158 syn match factorCallExecuteDelim contained /(\s/
 159
 160 "adapted from lisp.vim
 161 if exists("g:factor_norainbow")
 162     syn region factorQuotation matchgroup=factorDelimiter start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ matchgroup=factorDelimiter end=/\<\]\>/ contains=ALL
 163 else
 164     syn region factorQuotation0           matchgroup=hlLevel0 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/  end=/\<\]\>/ contains=@factorCluster,factorQuotation1,factorArray1
 165     syn region factorQuotation1 contained matchgroup=hlLevel1 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/  end=/\<\]\>/ contains=@factorCluster,factorQuotation2,factorArray2
 166     syn region factorQuotation2 contained matchgroup=hlLevel2 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/  end=/\<\]\>/ contains=@factorCluster,factorQuotation3,factorArray3
 167     syn region factorQuotation3 contained matchgroup=hlLevel3 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/  end=/\<\]\>/ contains=@factorCluster,factorQuotation4,factorArray4
 168     syn region factorQuotation4 contained matchgroup=hlLevel4 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/  end=/\<\]\>/ contains=@factorCluster,factorQuotation5,factorArray5
 169     syn region factorQuotation5 contained matchgroup=hlLevel5 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/  end=/\<\]\>/ contains=@factorCluster,factorQuotation6,factorArray6
 170     syn region factorQuotation6 contained matchgroup=hlLevel6 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/  end=/\<\]\>/ contains=@factorCluster,factorQuotation7,factorArray7
 171     syn region factorQuotation7 contained matchgroup=hlLevel7 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/  end=/\<\]\>/ contains=@factorCluster,factorQuotation8,factorArray8
 172     syn region factorQuotation8 contained matchgroup=hlLevel8 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/  end=/\<\]\>/ contains=@factorCluster,factorQuotation9,factorArray9
 173     syn region factorQuotation9 contained matchgroup=hlLevel9 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/  end=/\<\]\>/ contains=@factorCluster,factorQuotation0,factorArray0
 174 endif
 175
 176 if exists("g:factor_norainbow")
 177     syn region factorArray    matchgroup=factorDelimiter start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/  matchgroup=factorDelimiter end=/\<}\>/ contains=ALL
 178 else
 179     syn region factorArray0           matchgroup=hlLevel0 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray1,factorQuotation1
 180     syn region factorArray1 contained matchgroup=hlLevel1 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray2,factorQuotation2
 181     syn region factorArray2 contained matchgroup=hlLevel2 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray3,factorQuotation3
 182     syn region factorArray3 contained matchgroup=hlLevel3 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray4,factorQuotation4
 183     syn region factorArray4 contained matchgroup=hlLevel4 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray5,factorQuotation5
 184     syn region factorArray5 contained matchgroup=hlLevel5 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray6,factorQuotation6
 185     syn region factorArray6 contained matchgroup=hlLevel6 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray7,factorQuotation7
 186     syn region factorArray7 contained matchgroup=hlLevel7 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray8,factorQuotation8
 187     syn region factorArray8 contained matchgroup=hlLevel8 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray9,factorQuotation9
 188     syn region factorArray9 contained matchgroup=hlLevel9 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray0,factorQuotation0
 189 endif
 190
 191 syn match factorBracketErr /\<\]\>/
 192 syn match factorBracketErr /\<}\>/
 193
 194 syn sync lines=100
 195
 196 if version >= 508 || !exists("did_factor_syn_inits")
 197     if version <= 508
 198         let did_factor_syn_inits = 1
 199         command -nargs=+ HiLink hi link <args>
 200     else
 201         command -nargs=+ HiLink hi def link <args>
 202     endif
 203
 204     HiLink factorComment                Comment
 205     HiLink factorShebang                PreProc
 206     HiLink factorShebangErr             Error
 207     HiLink factorStackEffect            Typedef
 208     HiLink factorStackDelims            Delimiter
 209     HiLink factorCallExecuteDelim       Delimiter
 210     HiLink factorStackVariables         Special
 211     HiLink factorStackItems             Identifier
 212     HiLink factorLiteralStackEffect     Typedef
 213     HiLink factorTodo                   Todo
 214     HiLink factorInclude                Include
 215     HiLink factorRepeat                 Repeat
 216     HiLink factorConditional            Conditional
 217     HiLink factorKeyword                Keyword
 218     HiLink factorCallQuotation          Keyword
 219     HiLink factorExecute                Keyword
 220     HiLink factorCallNextMethod         Keyword
 221     HiLink factorOperator               Operator
 222     HiLink factorFrySpecifier           Operator
 223     HiLink factorBoolean                Boolean
 224     HiLink factorBreakpoint             Debug
 225     HiLink factorDefnDelims             Typedef
 226     HiLink factorMethodDelims           Typedef
 227     HiLink factorGenericDelims          Typedef
 228     HiLink factorGenericNDelims         Typedef
 229     HiLink factorConstructor            Typedef
 230     HiLink factorConstructor2           Typedef
 231     HiLink factorPrivate                Special
 232     HiLink factorPrivateDefnDelims      Special
 233     HiLink factorPrivateMethodDelims    Special
 234     HiLink factorPGenericDelims         Special
 235     HiLink factorPGenericNDelims        Special
 236     HiLink factorEscape                 SpecialChar
 237     HiLink factorString                 String
 238     HiLink factorTriString              String
 239     HiLink factorSbuf                   String
 240     HiLink factorMultiStringContents    String
 241     HiLink factorMultiStringDelims      Typedef
 242     HiLink factorBracketErr             Error
 243     HiLink factorComplex                Number
 244     HiLink factorPosRatio               Number
 245     HiLink factorNegRatio               Number
 246     HiLink factorBinary                 Number
 247     HiLink factorBinErr                 Error
 248     HiLink factorHex                    Number
 249     HiLink factorHexErr                 Error
 250     HiLink factorNan                    Number
 251     HiLink factorOctal                  Number
 252     HiLink factorOctErr                 Error
 253     HiLink factorFloat                  Float
 254     HiLink factorInt                    Number
 255     HiLink factorUsing                  Include
 256     HiLink factorQualified              Include
 257     HiLink factorQualifiedWith          Include
 258     HiLink factorExclude                Include
 259     HiLink factorFrom                   Include
 260     HiLink factorRename                 Include
 261     HiLink factorUse                    Include
 262     HiLink factorUnuse                  Include
 263     HiLink factorIn                     Define
 264     HiLink factorChar                   Character
 265     HiLink factorDelimiter              Delimiter
 266     HiLink factorBackslash              Special
 267     HiLink factorMBackslash             Special
 268     HiLink factorLiteral                Special
 269     HiLink factorLiteralBlock           Special
 270     HiLink factorDeclaration            Typedef
 271     HiLink factorSymbol                 Define
 272     HiLink factorSymbols                Define
 273     HiLink factorConstant               Define
 274     HiLink factorAlias                  Define
 275     HiLink factorSingleton              Define
 276     HiLink factorSingletons             Define
 277     HiLink factorMixin                  Typedef
 278     HiLink factorInstance               Typedef
 279     HiLink factorHook                   Typedef
 280     HiLink factorMain                   Define
 281     HiLink factorPostpone               Define
 282     HiLink factorDefer                  Define
 283     HiLink factorForget                 Define
 284     HiLink factorAlien                  Define
 285     HiLink factorSlot                   Define
 286     HiLink factorIntersection           Typedef
 287     HiLink factorTuple                  Typedef
 288     HiLink factorError                  Typedef
 289     HiLink factorUnion                  Typedef
 290     HiLink factorStruct                 Typedef
 291
 292     if &bg == "dark"
 293         hi   hlLevel0 ctermfg=red         guifg=red1
 294         hi   hlLevel1 ctermfg=yellow      guifg=orange1
 295         hi   hlLevel2 ctermfg=green       guifg=yellow1
 296         hi   hlLevel3 ctermfg=cyan        guifg=greenyellow
 297         hi   hlLevel4 ctermfg=magenta     guifg=green1
 298         hi   hlLevel5 ctermfg=red         guifg=springgreen1
 299         hi   hlLevel6 ctermfg=yellow      guifg=cyan1
 300         hi   hlLevel7 ctermfg=green       guifg=slateblue1
 301         hi   hlLevel8 ctermfg=cyan        guifg=magenta1
 302         hi   hlLevel9 ctermfg=magenta     guifg=purple1
 303     else
 304         hi   hlLevel0 ctermfg=red         guifg=red3
 305         hi   hlLevel1 ctermfg=darkyellow  guifg=orangered3
 306         hi   hlLevel2 ctermfg=darkgreen   guifg=orange2
 307         hi   hlLevel3 ctermfg=blue        guifg=yellow3
 308         hi   hlLevel4 ctermfg=darkmagenta guifg=olivedrab4
 309         hi   hlLevel5 ctermfg=red         guifg=green4
 310         hi   hlLevel6 ctermfg=darkyellow  guifg=paleturquoise3
 311         hi   hlLevel7 ctermfg=darkgreen   guifg=deepskyblue4
 312         hi   hlLevel8 ctermfg=blue        guifg=darkslateblue
 313         hi   hlLevel9 ctermfg=darkmagenta guifg=darkviolet
 314     endif
 315
 316     delcommand HiLink
 317 endif
 318
 319 let b:current_syntax = "factor"
 320
 321 " vim:set ft=vim sw=4: