misc/vim/syntax/factor.vim

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