misc/vim/syntax/factor.vim

   1
   2 " Vim syntax file
   3 " Language: Factor
   4 " Maintainer: Alex Chapman <chapman.alex@gmail.com>
   5 " Last Change: 2012 Jul 11
   6 " To run: USING: html.templates html.templates.fhtml ; "resource:misc/factor.vim.fgen" <fhtml> call-template
   7
   8 " For version 5.x: Clear all syntax items
   9 " For version 6.x: Quit when a syntax file was already loaded
  10 if version < 600
  11     syntax clear
  12 elseif exists("b:current_syntax")
  13     finish
  14 endif
  15
  16 " Factor is case sensitive.
  17 syn case match
  18
  19 " Make all of these characters part of a word (useful for skipping over words with w, e, and b)
  20 if version >= 600
  21     setlocal iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
  22 else
  23     set iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
  24 endif
  25
  26 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
  27
  28 syn match factorTodo /\(TODO\|FIXME\|XXX\):\=/ contained
  29 syn match factorComment /\<#\?!\>.*/ contains=factorTodo,@Spell
  30 syn match factorShebang /\%\^#!.*/ display
  31 syn match factorShebangErr /\%\^#!\S\+/
  32
  33 syn cluster factorDefnContents contains=@factorCluster,factorStackEffect,factorLiteralStackEffect,factorArray0,factorQuotation0
  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\):\s\+\S\+\>/ end=/$/ contains=factorStackEffect
  38 syn region factorGenericN matchgroup=factorGenericNDelims start=/\<GENERIC#\s\+\S\+\s\+\d\+\>/ end=/$/ contains=factorStackEffect
  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\):\s\+\S\+\>/ end=/$/ contains=factorStackEffect contained
  43 syn region factorPGenericN matchgroup=factorPGenericNDelims start=/\<GENERIC#\s\+\S\+\s\+\d\+\>/ end=/$/ contains=factorStackEffect
  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 or 2bi 2tri while wrapper nip bi* wrapper? callstack>array 4dip die dupd both? callstack callstack? 3dup hashcode same? tri@ pick curry build ?execute 3bi prepose ?if clone >boolean 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@ with boa 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 2curry keep equal? assert tri 2drop most <wrapper> boolean? identity-hashcode identity-tuple? null new dip bi-curry@ rot identity-tuple xor boolean
  57 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-differ assoc-like key? assoc-intersect assoc-refine assoc-union! assoc-union assoc-combine at* assoc-filter! assoc-empty? at+ set-at assoc-all? assoc-hashcode assoc-subset? change-at assoc-each assoc-diff zip values value-at rename-at inc-at enum? at cache assoc>map assoc-diff! <enum> assoc assoc-map enum value-at* assoc-map-as >alist assoc-filter-as clear-assoc assoc-stack maybe-set-at assoc-filter 2cache delete-at assoc-find substitute keys assoc-any? unzip
  58 syn keyword factorKeyword case execute-effect no-cond no-case? 3cleave>quot 2cleave cond>quot wrong-values? no-cond? cleave>quot no-case shallow-spread>quot case>quot 3cleave wrong-values to-fixed-point alist>quot case-find cond cleave call-effect 2cleave>quot recursive-hashcode linear-case-quot spread deep-spread>quot
  59 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 neg? < log2 > integer? number bits>double 2/ zero? (find-integer) bits>float float? shift ratio? even? ratio fp-sign bitnot >fixnum complex? /i /f when-zero sgn >bignum next-float u< u> mod recip rational find-last-integer >float (all-integers?) 2^ times integer fixnum? neg fixnum sq bignum (each-integer) bit? fp-qnan? find-integer complex <fp-nan> real double>bits bitor rem fp-nan-payload all-integers? real-part log2-expects-positive? prev-float align unordered? float fp-nan? abs bitxor u<= odd? <= /mod >integer real? rational? numerator
  60 syn keyword factorKeyword member-eq? append assert-sequence= find-last-from selector-for clone-like 3sequence assert-sequence? map-as trim-head-slice last-index-from reversed index-from cut* pad-tail remove-eq! concat-as but-last snip trim-tail nths nth sequence slice? <slice> partition remove-nth tail-slice empty? tail* if-empty member? virtual-sequence? find-from set-length drop-prefix unclip-last-slice iota unclip bounds-error? map-sum accumulate-as map start midpoint@ ?first rest-slice prepend-as prepend fourth sift accumulate! new-sequence ?last follow map! like first4 1sequence reverse slice unless-empty collector padding virtual@ repetition? set-last index 4sequence max-length set-second immutable-sequence first2 first3 supremum reduce-index replicate-as unclip-slice suffix! insert-nth trim-tail-slice tail 3append short count suffix concat flip find-index filter immutable? reverse! sum 2sequence map-integers delete-all start* indices snip-slice check-slice sequence? head map-find filter! append-as halves selector sequence= collapse-slice interleave 2map reduce filter-as binary-reduce ?second slice-error? product bounds-check? bounds-check harvest immutable virtual-exemplar find produce remove pad-head last replicate set-fourth cartesian-product remove-eq shorten cartesian-map cartesian-each reversed? find-index-from map-find-last 3map-as shorter? 3map find-last head-slice pop* 2map-as tail-slice* but-last-slice 2map-reduce iota? accumulate each append! cut-slice new-resizable each-index head-slice* sequence-hashcode pop set-nth ?nth second join when-empty immutable-sequence? <reversed> all? 3append-as virtual-sequence subseq? remove-nth! push-either new-like length last-index collector-for 2selector push-if 2all? lengthen assert-sequence copy map-reduce move third first 3each tail? set-first prefix bounds-error any? <repetition> trim-slice exchange surround 2reduce cut change-nth min-length set-third produce-as push-all head? delete-slice rest sum-lengths 2each head* infimum remove! glue slice-error subseq trim replace-slice trim-head push map-index unclip-last mismatch repetition
  61 syn keyword factorKeyword global +@ set-namestack change-global with-variable on toggle set dec initialize namestack get get-global change init-namespaces with-scope off set-global namespace with-variables inc counter is-global make-assoc with-global
  62 syn keyword factorKeyword <array> 2array 3array pair >array 1array 4array pair? array resize-array array?
  63 syn keyword factorKeyword +character+ bad-seek-type? each-morsel readln stream-seek read print with-output-stream with-output>error each-stream-block-slice contents input-stream? stream-read-partial-unsafe write1 stream-write1 (stream-contents-by-length-or-block) stream-copy stream-element-type with-input-stream with-error-stream* stream-print stream-contents stream-read with-output+error-stream* stream-tell tell-output bl seek-output with-input-output+error-streams* bad-seek-type nl stream-nl stream-length write flush with-error>output +byte+ with-input-output+error-streams stream-read-into with-output+error-stream stream-flush read1 seek-absolute? stream-read1 read-into read-partial-into each-block-size lines stream-readln stream-read-until invalid-read-buffer seek-end each-block-slice with-output-stream* stream-lines stream-read-unsafe seek-absolute output-stream? each-line (stream-contents-by-element) stream-seekable? invalid-read-buffer? (stream-contents-by-block) with-streams seek-input seek-relative? stream-read-partial-into input-stream stream-write with-error-stream read-partial stream-copy* seek-end? seek-relative with-input-stream* error-stream read-until tell-input each-block with-streams* output-stream (stream-contents-by-length) stream-read-partial each-stream-block each-stream-line
  64 syn keyword factorKeyword resize-string >string <string> 1string string string?
  65 syn keyword factorKeyword vector? <vector> ?push vector >vector 1vector
  66 syn keyword factorKeyword with-return restarts return-continuation with-datastack recover in-callback? rethrow-restarts throw-continue <restart> ifcc original-error error-in-thread cleanup restart? ignore-errors compute-restarts attempt-all-error error-thread continue <continuation> attempt-all-error? condition? <condition> throw-restarts error restart thread-error-hook continue-with current-continuation continuation callcc1 rethrow error-continuation condition callcc0 callback-error-hook continuation? attempt-all 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]\)\?\>/
  84
  85 syn match   factorIn            /\<IN:\s\+\S\+\>/
  86 syn match   factorUse           /\<USE:\s\+\S\+\>/
  87 syn match   factorUnuse         /\<UNUSE:\s\+\S\+\>/
  88
  89 syn match   factorChar          /\<CHAR:\s\+\S\+\>/
  90
  91 syn match   factorBackslash     /\<\\\>\s\+\S\+\>/
  92 syn match   factorMBackslash    /\<M\\\>\s\+\S\+\s\+\S\+\>/
  93 syn match   factorLiteral       /\<\$\>\s\+\S\+\>/
  94 syn region  factorLiteralBlock  start=/\<\$\[\>/ end=/\<\]\>/
  95
  96 syn region  factorUsing         start=/\<USING:\>/       end=/;/
  97 syn match   factorQualified     /\<QUALIFIED:\s\+\S\+\>/
  98 syn match   factorQualifiedWith /\<QUALIFIED-WITH:\s\+\S\+\s\+\S\+\>/
  99 syn region  factorExclude       start=/\<EXCLUDE:\>/     end=/;/
 100 syn region  factorFrom          start=/\<FROM:\>/        end=/;/
 101 syn match   factorRename        /\<RENAME:\s\+\S\+\s\+\S\+\s=>\s\+\S\+\>/
 102 syn region  factorSingletons    start=/\<SINGLETONS:\>/  end=/;/
 103 syn match   factorSymbol        /\<SYMBOL:\s\+\S\+\>/
 104 syn region  factorSymbols       start=/\<SYMBOLS:\>/     end=/;/
 105 syn region  factorConstructor2  start=/\<CONSTRUCTOR:\?/ end=/;/
 106 syn region  factorIntersection  start=/\<INTERSECTION:\>/ end=/\<;\>/
 107 syn region  factorTuple         start=/\<TUPLE:\>/ end=/\<;\>/
 108 syn region  factorError         start=/\<ERROR:\>/ end=/\<;\>/
 109 syn region  factorUnion         start=/\<UNION:\>/ end=/\<;\>/
 110 syn region  factorStruct        start=/\<\(UNION-STRUCT:\|STRUCT:\)\>/ end=/\<;\>/
 111
 112 syn match   factorConstant      /\<CONSTANT:\s\+\S\+\>/
 113 syn match   factorAlias         /\<ALIAS:\s\+\S\+\s\+\S\+\>/
 114 syn match   factorSingleton     /\<SINGLETON:\s\+\S\+\>/
 115 syn match   factorPostpone      /\<POSTPONE:\s\+\S\+\>/
 116 syn match   factorDefer         /\<DEFER:\s\+\S\+\>/
 117 syn match   factorForget        /\<FORGET:\s\+\S\+\>/
 118 syn match   factorMixin         /\<MIXIN:\s\+\S\+\>/
 119 syn match   factorInstance      /\<INSTANCE:\s\+\S\+\s\+\S\+\>/
 120 syn match   factorHook          /\<HOOK:\s\+\S\+\s\+\S\+\>/ nextgroup=factorStackEffect skipwhite skipempty
 121 syn match   factorMain          /\<MAIN:\s\+\S\+\>/
 122 syn match   factorConstructor   /\<C:\s\+\S\+\s\+\S\+\>/
 123 syn match   factorAlien         /\<ALIEN:\s\+[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\>/
 124 syn match   factorSlot          /\<SLOT:\s\+\S\+\>/
 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 /\\\([\\astnr0e\"]\|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=factorStackDelims,factorStackItems,factorStackVariables,factorCallExecuteDelim
 154 syn match factorLiteralStackEffect /((\s\+\(\S*\s\+\)*--\(\s\+\S*\)*\s\+))\>/ contained contains=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:
 322