runtime/syntax/ampl.vim

   1 " Language:     ampl (A Mathematical Programming Language)
   2 " Maintainer:   Krief David <david.krief@etu.enseeiht.fr> or <david_krief@hotmail.com>
   3 " Last Change:  2003 May 11
   4
   5
   6 if version < 600
   7  syntax clear
   8 elseif exists("b:current_syntax")
   9  finish
  10 endif
  11
  12
  13
  14
  15 "--
  16 syn match   amplEntityKeyword     "\(subject to\)\|\(subj to\)\|\(s\.t\.\)"
  17 syn keyword amplEntityKeyword     minimize   maximize  objective
  18
  19 syn keyword amplEntityKeyword     coeff      coef      cover        obj       default
  20 syn keyword amplEntityKeyword     from       to        to_come      net_in    net_out
  21 syn keyword amplEntityKeyword     dimen      dimension
  22
  23
  24
  25 "--
  26 syn keyword amplType              integer    binary    set          param     var
  27 syn keyword amplType              node       ordered   circular     reversed  symbolic
  28 syn keyword amplType              arc
  29
  30
  31
  32 "--
  33 syn keyword amplStatement         check      close     \display     drop      include
  34 syn keyword amplStatement         print      printf    quit         reset     restore
  35 syn keyword amplStatement         solve      update    write        shell     model
  36 syn keyword amplStatement         data       option    let          solution  fix
  37 syn keyword amplStatement         unfix      end       function     pipe      format
  38
  39
  40
  41 "--
  42 syn keyword amplConditional       if         then      else         and       or
  43 syn keyword amplConditional       exists     forall    in           not       within
  44
  45
  46
  47 "--
  48 syn keyword amplRepeat            while      repeat    for
  49
  50
  51
  52 "--
  53 syn keyword amplOperators         union      diff      difference   symdiff   sum
  54 syn keyword amplOperators         inter      intersect intersection cross     setof
  55 syn keyword amplOperators         by         less      mod          div       product
  56 "syn keyword amplOperators         min        max
  57 "conflict between functions max, min and operators max, min
  58
  59 syn match   amplBasicOperators    "||\|<=\|==\|\^\|<\|=\|!\|-\|\.\.\|:="
  60 syn match   amplBasicOperators    "&&\|>=\|!=\|\*\|>\|:\|/\|+\|\*\*"
  61
  62
  63
  64
  65 "--
  66 syn match   amplComment         "\#.*"
  67 syn region  amplComment         start=+\/\*+              end=+\*\/+
  68
  69 syn region  amplStrings         start=+\'+    skip=+\\'+  end=+\'+
  70 syn region  amplStrings         start=+\"+    skip=+\\"+  end=+\"+
  71
  72 syn match   amplNumerics        "[+-]\=\<\d\+\(\.\d\+\)\=\([dDeE][-+]\=\d\+\)\=\>"
  73 syn match   amplNumerics        "[+-]\=Infinity"
  74
  75
  76 "--
  77 syn keyword amplSetFunction       card       next     nextw       prev      prevw
  78 syn keyword amplSetFunction       first      last     member      ord       ord0
  79
  80 syn keyword amplBuiltInFunction   abs        acos     acosh       alias     asin
  81 syn keyword amplBuiltInFunction   asinh      atan     atan2       atanh     ceil
  82 syn keyword amplBuiltInFunction   cos        exp      floor       log       log10
  83 syn keyword amplBuiltInFunction   max        min      precision   round     sin
  84 syn keyword amplBuiltInFunction   sinh       sqrt     tan         tanh      trunc
  85
  86 syn keyword amplRandomGenerator   Beta       Cauchy   Exponential Gamma     Irand224
  87 syn keyword amplRandomGenerator   Normal     Poisson  Uniform     Uniform01
  88
  89
  90
  91 "-- to highlight the 'dot-suffixes'
  92 syn match   amplDotSuffix       "\h\w*\.\(lb\|ub\)"hs=e-2
  93 syn match   amplDotSuffix       "\h\w*\.\(lb0\|lb1\|lb2\|lrc\|ub0\)"hs=e-3
  94 syn match   amplDotSuffix       "\h\w*\.\(ub1\|ub2\|urc\|val\|lbs\|ubs\)"hs=e-3
  95 syn match   amplDotSuffix       "\h\w*\.\(init\|body\|dinit\|dual\)"hs=e-4
  96 syn match   amplDotSuffix       "\h\w*\.\(init0\|ldual\|slack\|udual\)"hs=e-5
  97 syn match   amplDotSuffix       "\h\w*\.\(lslack\|uslack\|dinit0\)"hs=e-6
  98
  99
 100
 101 "--
 102 syn match   amplPiecewise       "<<\|>>"
 103
 104
 105
 106 "-- Todo.
 107 syn keyword amplTodo contained   TODO FIXME XXX
 108
 109
 110
 111
 112
 113
 114
 115
 116
 117
 118 if version >= 508 || !exists("did_ampl_syntax_inits")
 119   if version < 508
 120     let did_ampl_syntax_inits = 1
 121     command -nargs=+ HiLink hi link <args>
 122   else
 123     command -nargs=+ HiLink hi def link <args>
 124   endif
 125
 126   " The default methods for highlighting. Can be overridden later.
 127   HiLink amplEntityKeyword      Keyword
 128   HiLink amplType               Type
 129   HiLink amplStatement          Statement
 130   HiLink amplOperators          Operator
 131   HiLink amplBasicOperators     Operator
 132   HiLink amplConditional        Conditional
 133   HiLink amplRepeat             Repeat
 134   HiLink amplStrings            String
 135   HiLink amplNumerics           Number
 136   HiLink amplSetFunction        Function
 137   HiLink amplBuiltInFunction    Function
 138   HiLink amplRandomGenerator    Function
 139   HiLink amplComment            Comment
 140   HiLink amplDotSuffix          Special
 141   HiLink amplPiecewise          Special
 142
 143   delcommand HiLink
 144 endif
 145
 146 let b:current_syntax = "ampl"
 147
 148 " vim: ts=8
 149
 150