runtime/syntax/csc.vim

   1 " Vim syntax file
   2 " Language: Essbase script
   3 " Maintainer:   Raul Segura Acevedo <raulseguraaceved@netscape.net>
   4 " Last change:  2001 Sep 25
   5
   6 " For version 5.x: Clear all syntax items
   7 " For version 6.x: Quit when a syntax file was already loaded
   8 if version < 600
   9         syntax clear
  10 elseif exists("b:current_syntax")
  11         finish
  12 endif
  13
  14 " folds: fix/endfix and comments
  15 sy      region  EssFold start="\<Fix" end="EndFix" transparent fold
  16
  17 sy      keyword cscTodo contained TODO FIXME XXX
  18
  19 " cscCommentGroup allows adding matches for special things in comments
  20 sy      cluster cscCommentGroup contains=cscTodo
  21
  22 " Strings in quotes
  23 sy      match   cscError        '"'
  24 sy      match   cscString       '"[^"]*"'
  25
  26 "when wanted, highlight trailing white space
  27 if exists("csc_space_errors")
  28         if !exists("csc_no_trail_space_error")
  29                 sy      match   cscSpaceE       "\s\+$"
  30         endif
  31         if !exists("csc_no_tab_space_error")
  32                 sy      match   cscSpaceE       " \+\t"me=e-1
  33         endif
  34 endif
  35
  36 "catch errors caused by wrong parenthesis and brackets
  37 sy      cluster cscParenGroup   contains=cscParenE,@cscCommentGroup,cscUserCont,cscBitField,cscFormat,cscNumber,cscFloat,cscOctal,cscNumbers,cscIfError,cscComW,cscCom,cscFormula,cscBPMacro
  38 sy      region  cscParen        transparent start='(' end=')' contains=ALLBUT,@cscParenGroup
  39 sy      match   cscParenE       ")"
  40
  41 "integer number, or floating point number without a dot and with "f".
  42 sy      case    ignore
  43 sy      match   cscNumbers      transparent "\<\d\|\.\d" contains=cscNumber,cscFloat,cscOctal
  44 sy      match   cscNumber       contained "\d\+\(u\=l\{0,2}\|ll\=u\)\>"
  45 "hex number
  46 sy      match   cscNumber       contained "0x\x\+\(u\=l\{0,2}\|ll\=u\)\>"
  47 " Flag the first zero of an octal number as something special
  48 sy      match   cscOctal        contained "0\o\+\(u\=l\{0,2}\|ll\=u\)\>"
  49 sy      match   cscFloat        contained "\d\+f"
  50 "floating point number, with dot, optional exponent
  51 sy      match   cscFloat        contained "\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\="
  52 "floating point number, starting with a dot, optional exponent
  53 sy      match   cscFloat        contained "\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>"
  54 "floating point number, without dot, with exponent
  55 sy      match   cscFloat        contained "\d\+e[-+]\=\d\+[fl]\=\>"
  56
  57 sy      region  cscComment      start="/\*" end="\*/" contains=@cscCommentGroup,cscSpaceE fold
  58 sy      match   cscCommentE     "\*/"
  59
  60 sy      keyword cscIfError      IF ELSE ENDIF ELSEIF
  61 sy      keyword cscCondition    contained IF ELSE ENDIF ELSEIF
  62 sy      keyword cscFunction     contained VARPER VAR UDA TRUNCATE SYD SUMRANGE SUM
  63 sy      keyword cscFunction     contained STDDEVRANGE STDDEV SPARENTVAL SLN SIBLINGS SHIFT
  64 sy      keyword cscFunction     contained SANCESTVAL RSIBLINGS ROUND REMAINDER RELATIVE PTD
  65 sy      keyword cscFunction     contained PRIOR POWER PARENTVAL NPV NEXT MOD MINRANGE MIN
  66 sy      keyword cscFunction     contained MDSHIFT MDPARENTVAL MDANCESTVAL MAXRANGE MAX MATCH
  67 sy      keyword cscFunction     contained LSIBLINGS LEVMBRS LEV
  68 sy      keyword cscFunction     contained ISUDA ISSIBLING ISSAMELEV ISSAMEGEN ISPARENT ISMBR
  69 sy      keyword cscFunction     contained ISLEV ISISIBLING ISIPARENT ISIDESC ISICHILD ISIBLINGS
  70 sy      keyword cscFunction     contained ISIANCEST ISGEN ISDESC ISCHILD ISANCEST ISACCTYPE
  71 sy      keyword cscFunction     contained IRSIBLINGS IRR INTEREST INT ILSIBLINGS IDESCENDANTS
  72 sy      keyword cscFunction     contained ICHILDREN IANCESTORS IALLANCESTORS
  73 sy      keyword cscFunction     contained GROWTH GENMBRS GEN FACTORIAL DISCOUNT DESCENDANTS
  74 sy      keyword cscFunction     contained DECLINE CHILDREN CURRMBRRANGE CURLEV CURGEN
  75 sy      keyword cscFunction     contained COMPOUNDGROWTH COMPOUND AVGRANGE AVG ANCESTVAL
  76 sy      keyword cscFunction     contained ANCESTORS ALLANCESTORS ACCUM ABS
  77 sy      keyword cscFunction     contained @VARPER @VAR @UDA @TRUNCATE @SYD @SUMRANGE @SUM
  78 sy      keyword cscFunction     contained @STDDEVRANGE @STDDEV @SPARENTVAL @SLN @SIBLINGS @SHIFT
  79 sy      keyword cscFunction     contained @SANCESTVAL @RSIBLINGS @ROUND @REMAINDER @RELATIVE @PTD
  80 sy      keyword cscFunction     contained @PRIOR @POWER @PARENTVAL @NPV @NEXT @MOD @MINRANGE @MIN
  81 sy      keyword cscFunction     contained @MDSHIFT @MDPARENTVAL @MDANCESTVAL @MAXRANGE @MAX @MATCH
  82 sy      keyword cscFunction     contained @LSIBLINGS @LEVMBRS @LEV
  83 sy      keyword cscFunction     contained @ISUDA @ISSIBLING @ISSAMELEV @ISSAMEGEN @ISPARENT @ISMBR
  84 sy      keyword cscFunction     contained @ISLEV @ISISIBLING @ISIPARENT @ISIDESC @ISICHILD @ISIBLINGS
  85 sy      keyword cscFunction     contained @ISIANCEST @ISGEN @ISDESC @ISCHILD @ISANCEST @ISACCTYPE
  86 sy      keyword cscFunction     contained @IRSIBLINGS @IRR @INTEREST @INT @ILSIBLINGS @IDESCENDANTS
  87 sy      keyword cscFunction     contained @ICHILDREN @IANCESTORS @IALLANCESTORS
  88 sy      keyword cscFunction     contained @GROWTH @GENMBRS @GEN @FACTORIAL @DISCOUNT @DESCENDANTS
  89 sy      keyword cscFunction     contained @DECLINE @CHILDREN @CURRMBRRANGE @CURLEV @CURGEN
  90 sy      keyword cscFunction     contained @COMPOUNDGROWTH @COMPOUND @AVGRANGE @AVG @ANCESTVAL
  91 sy      keyword cscFunction     contained @ANCESTORS @ALLANCESTORS @ACCUM @ABS
  92 sy      match   cscFunction     contained "@"
  93 sy      match   cscError        "@\s*\a*" contains=cscFunction
  94
  95 sy      match   cscStatement    "&"
  96 sy      keyword cscStatement    AGG ARRAY VAR CCONV CLEARDATA DATACOPY
  97
  98 sy      match   cscComE contained "^\s*CALC.*"
  99 sy      match   cscComE contained "^\s*CLEARBLOCK.*"
 100 sy      match   cscComE contained "^\s*SET.*"
 101 sy      match   cscComE contained "^\s*FIX"
 102 sy      match   cscComE contained "^\s*ENDFIX"
 103 sy      match   cscComE contained "^\s*ENDLOOP"
 104 sy      match   cscComE contained "^\s*LOOP"
 105 " sy    keyword cscCom  FIX ENDFIX LOOP ENDLOOP
 106
 107 sy      match   cscComW "^\s*CALC.*"
 108 sy      match   cscCom  "^\s*CALC\s*ALL"
 109 sy      match   cscCom  "^\s*CALC\s*AVERAGE"
 110 sy      match   cscCom  "^\s*CALC\s*DIM"
 111 sy      match   cscCom  "^\s*CALC\s*FIRST"
 112 sy      match   cscCom  "^\s*CALC\s*LAST"
 113 sy      match   cscCom  "^\s*CALC\s*TWOPASS"
 114
 115 sy      match   cscComW "^\s*CLEARBLOCK.*"
 116 sy      match   cscCom  "^\s*CLEARBLOCK\s\+ALL"
 117 sy      match   cscCom  "^\s*CLEARBLOCK\s\+UPPER"
 118 sy      match   cscCom  "^\s*CLEARBLOCK\s\+NONINPUT"
 119
 120 sy      match   cscComW "^\s*\<SET.*"
 121 sy      match   cscCom  "^\s*\<SET\s\+Commands"
 122 sy      match   cscCom  "^\s*\<SET\s\+AGGMISSG"
 123 sy      match   cscCom  "^\s*\<SET\s\+CACHE"
 124 sy      match   cscCom  "^\s*\<SET\s\+CALCHASHTBL"
 125 sy      match   cscCom  "^\s*\<SET\s\+CLEARUPDATESTATUS"
 126 sy      match   cscCom  "^\s*\<SET\s\+FRMLBOTTOMUP"
 127 sy      match   cscCom  "^\s*\<SET\s\+LOCKBLOCK"
 128 sy      match   cscCom  "^\s*\<SET\s\+MSG"
 129 sy      match   cscCom  "^\s*\<SET\s\+NOTICE"
 130 sy      match   cscCom  "^\s*\<SET\s\+UPDATECALC"
 131 sy      match   cscCom  "^\s*\<SET\s\+UPTOLOCAL"
 132
 133 sy      keyword cscBPMacro      contained !LoopOnAll !LoopOnLevel !LoopOnSelected
 134 sy      keyword cscBPMacro      contained !CurrentMember !LoopOnDimensions !CurrentDimension
 135 sy      keyword cscBPMacro      contained !CurrentOtherLoopDimension !LoopOnOtherLoopDimensions
 136 sy      keyword cscBPMacro      contained !EndLoop !AllMembers !SelectedMembers !If !Else !EndIf
 137 sy      keyword cscBPMacro      contained LoopOnAll LoopOnLevel LoopOnSelected
 138 sy      keyword cscBPMacro      contained CurrentMember LoopOnDimensions CurrentDimension
 139 sy      keyword cscBPMacro      contained CurrentOtherLoopDimension LoopOnOtherLoopDimensions
 140 sy      keyword cscBPMacro      contained EndLoop AllMembers SelectedMembers If Else EndIf
 141 sy      match   cscBPMacro      contained       "!"
 142 sy      match   cscBPW  "!\s*\a*"       contains=cscBPmacro
 143
 144 " when wanted, highlighting lhs members or erros in asignments (may lag the editing)
 145 if version >= 600 && exists("csc_asignment")
 146         sy      match   cscEqError      '\("[^"]*"\s*\|[^][\t !%()*+,--/:;<=>{}~]\+\s*\|->\s*\)*=\([^=]\@=\|$\)'
 147         sy      region  cscFormula      transparent matchgroup=cscVarName start='\("[^"]*"\|[^][\t !%()*+,--/:;<=>{}~]\+\)\s*=\([^=]\@=\|\n\)' skip='"[^"]*"' end=';' contains=ALLBUT,cscFormula,cscFormulaIn,cscBPMacro,cscCondition
 148         sy      region  cscFormulaIn    matchgroup=cscVarName transparent start='\("[^"]*"\|[^][\t !%()*+,--/:;<=>{}~]\+\)\(->\("[^"]*"\|[^][\t !%()*+,--/:;<=>{}~]\+\)\)*\s*=\([^=]\@=\|$\)' skip='"[^"]*"' end=';' contains=ALLBUT,cscFormula,cscFormulaIn,cscBPMacro,cscCondition contained
 149         sy      match   cscEq   "=="
 150 endif
 151
 152 if !exists("csc_minlines")
 153         let csc_minlines = 50   " mostly for () constructs
 154 endif
 155 exec "sy sync ccomment cscComment minlines=" . csc_minlines
 156
 157 " Define the default highlighting.
 158 " For version 5.7 and earlier: only when not done already
 159 " For version 5.8 and later: only when an item doesn't have highlighting yet
 160 if version >= 508 || !exists("did_csc_syntax_inits")
 161         if version < 508
 162                 let did_csc_syntax_inits = 1
 163                 command -nargs=+ HiLink hi link <args>
 164         else
 165                 command -nargs=+ HiLink hi def link <args>
 166         endif
 167
 168         hi cscVarName term=bold ctermfg=9 gui=bold guifg=blue
 169
 170         HiLink  cscNumber       Number
 171         HiLink  cscOctal        Number
 172         HiLink  cscFloat        Float
 173         HiLink  cscParenE       Error
 174         HiLink  cscCommentE     Error
 175         HiLink  cscSpaceE       Error
 176         HiLink  cscError        Error
 177         HiLink  cscString       String
 178         HiLink  cscComment      Comment
 179         HiLink  cscTodo         Todo
 180         HiLink  cscStatement    Statement
 181         HiLink  cscIfError      Error
 182         HiLink  cscEqError      Error
 183         HiLink  cscFunction     Statement
 184         HiLink  cscCondition    Statement
 185         HiLink  cscWarn         WarningMsg
 186
 187         HiLink  cscComE Error
 188         HiLink  cscCom  Statement
 189         HiLink  cscComW WarningMsg
 190
 191         HiLink  cscBPMacro      Identifier
 192         HiLink  cscBPW          WarningMsg
 193
 194         delcommand HiLink
 195 endif
 196
 197 let b:current_syntax = "csc"
 198
 199 " vim: ts=8