share/vim/vim58/syntax/tsscl.vim

   1 " Vim syntax file
   2 " Language:     TSS (Thermal Synthesizer System) Command Line
   3 " Maintainer:   Adrian Nagle, anagle@ball.com
   4 " Last Change:  2001 May 10
   5 " Filenames:    *.tsscl
   6 " URL:          http://www.naglenet.org/vim/syntax/tsscl.vim
   7 " MAIN URL:     http://www.naglenet.org/vim/
   8
   9
  10
  11 " For version 5.x: Clear all syntax items
  12 " For version 6.x: Quit when a syntax file was already loaded
  13 if version < 600
  14   syntax clear
  15 elseif exists("b:current_syntax")
  16   finish
  17 endif
  18
  19
  20
  21 " Ignore case
  22 syn case ignore
  23
  24
  25
  26 "
  27 "
  28 " Begin syntax definitions for tss geomtery file.
  29 "
  30
  31 " Load TSS geometry syntax file
  32 "source $VIM/myvim/tssgm.vim
  33 "source $VIMRUNTIME/syntax/c.vim
  34
  35 " Define keywords for TSS
  36 syn keyword tssclCommand  begin radk list heatrates attr draw
  37
  38 syn keyword tssclKeyword   cells rays error nodes levels objects cpu
  39 syn keyword tssclKeyword   units length positions energy time unit solar
  40 syn keyword tssclKeyword   solar_constant albedo planet_power
  41
  42 syn keyword tssclEnd    exit
  43
  44 syn keyword tssclUnits  cm feet meters inches
  45 syn keyword tssclUnits  Celsius Kelvin Fahrenheit Rankine
  46
  47
  48
  49 " Define matches for TSS
  50 syn match  tssclString    /"[^"]\+"/ contains=ALLBUT,tssInteger,tssclKeyword,tssclCommand,tssclEnd,tssclUnits
  51
  52 syn match  tssclComment     "#.*$"
  53
  54 "  rational and logical operators
  55 "  <       Less than
  56 "  >       Greater than
  57 "  <=      Less than or equal
  58 "  >=      Greater than or equal
  59 "  == or = Equal to
  60 "  !=      Not equal to
  61 "  && or & Logical AND
  62 "  || or | Logical OR
  63 "  !       Logical NOT
  64 "
  65 " algebraic operators:
  66 "  ^ or ** Exponentation
  67 "  *       Multiplication
  68 "  /       Division
  69 "  %       Remainder
  70 "  +       Addition
  71 "  -       Subtraction
  72 "
  73 syn match  tssclOper      "||\||\|&&\|&\|!=\|!\|>=\|<=\|>\|<\|+\|-\|^\|\*\*\|\*\|/\|%\|==\|=\|\." skipwhite
  74
  75 " CLI Directive Commands, with arguments
  76 "
  77 " BASIC COMMAND LIST
  78 " *ADD input_source
  79 " *ARITHMETIC { [ON] | OFF }
  80 " *CLOSE unit_number
  81 " *CPU
  82 " *DEFINE
  83 " *ECHO[/qualifiers] { [ON] | OFF }
  84 " *ELSE [IF { 0 | 1 } ]
  85 " *END { IF | WHILE }
  86 " *EXIT
  87 " *IF { 0 | 1 }
  88 " *LIST/n list variable
  89 " *OPEN[/r | /r+ | /w | /w+ ] unit_number file_name
  90 " *PROMPT prompt_string sybol_name
  91 " *READ/unit=unit_number[/LOCAL | /GLOBAL ] sym1 [sym2, [sym3 ...]]
  92 " *REWIND
  93 " *STOP
  94 " *STRCMP string_1 string_2 difference
  95 " *SYSTEM command
  96 " *UNDEFINE[/LOCAL][/GLOBAL] symbol_name
  97 " *WHILE { 0 | 1 }
  98 " *WRITE[/unit=unit_number] output text
  99 "
 100 syn match  tssclDirective "\*ADD"
 101 syn match  tssclDirective "\*ARITHMETIC \+\(ON\|OFF\)"
 102 syn match  tssclDirective "\*CLOSE"
 103 syn match  tssclDirective "\*CPU"
 104 syn match  tssclDirective "\*DEFINE"
 105 syn match  tssclDirective "\*ECHO"
 106 syn match  tssclConditional "\*ELSE"
 107 syn match  tssclConditional "\*END \+\(IF\|WHILE\)"
 108 syn match  tssclDirective "\*EXIT"
 109 syn match  tssclConditional "\*IF"
 110 syn match  tssclDirective "\*LIST"
 111 syn match  tssclDirective "\*OPEN"
 112 syn match  tssclDirective "\*PROMPT"
 113 syn match  tssclDirective "\*READ"
 114 syn match  tssclDirective "\*REWIND"
 115 syn match  tssclDirective "\*STOP"
 116 syn match  tssclDirective "\*STRCMP"
 117 syn match  tssclDirective "\*SYSTEM"
 118 syn match  tssclDirective "\*UNDEFINE"
 119 syn match  tssclConditional "\*WHILE"
 120 syn match  tssclDirective "\*WRITE"
 121
 122 syn match  tssclContChar  "-$"
 123
 124 " C library functoins
 125 " Bessel functions (jn, yn)
 126 " Error and complementary error fuctions (erf, erfc)
 127 " Exponential functions (exp)
 128 " Logrithm (log, log10)
 129 " Power (pow)
 130 " Square root (sqrt)
 131 " Floor (floor)
 132 " Ceiling (ceil)
 133 " Floating point remainder (fmod)
 134 " Floating point absolute value (fabs)
 135 " Gamma (gamma)
 136 " Euclidean distance function (hypot)
 137 " Hperbolic functions (sinh, cosh, tanh)
 138 " Trigometric functions in radians (sin, cos, tan, asin, acos, atan, atan2)
 139 " Trigometric functions in degrees (sind, cosd, tand, asind, acosd, atand,
 140 "    atan2d)
 141 "
 142 " local varialbles: cl_arg1, cl_arg2, etc. (cl_arg is an array of arguments)
 143 " cl_args is the number of arguments
 144 "
 145 "
 146 " I/O: *PROMPT, *WRITE, *READ
 147 "
 148 " Conditional branching:
 149 " IF, ELSE IF, END
 150 " *IF value       *IF I==10
 151 " *ELSE IF value  *ELSE IF I<10
 152 " *ELSE           *ELSE
 153 " *ENDIF          *ENDIF
 154 "
 155 "
 156 " Iterative looping:
 157 " WHILE
 158 " *WHILE test
 159 " .....
 160 " *END WHILE
 161 "
 162 "
 163 " EXAMPLE:
 164 " *DEFINE I = 1
 165 " *WHILE (I <= 10)
 166 "    *WRITE I = 'I'
 167 "    *DEFINE I = (I + 1)
 168 " *END WHILE
 169 "
 170
 171 syn match  tssclQualifier "/[^/ ]\+"hs=s+1
 172 syn match  tssclSymbol    "'\S\+'"
 173 "syn match  tssclSymbol2   " \S\+ " contained
 174
 175 syn match  tssclInteger     "-\=\<[0-9]*\>"
 176 syn match  tssclFloat       "-\=\<[0-9]*\.[0-9]*"
 177 syn match  tssclScientific  "-\=\<[0-9]*\.[0-9]*E[-+]\=[0-9]\+\>"
 178
 179
 180
 181 " Define the default highlighting
 182 " For version 5.7 and earlier: only when not done already
 183 " For version 5.8 and later: only when an item doesn't have highlighting yet
 184 if version >= 508 || !exists("did_tsscl_syntax_inits")
 185   if version < 508
 186     let did_tsscl_syntax_inits = 1
 187     command -nargs=+ HiLink hi link <args>
 188   else
 189     command -nargs=+ HiLink hi def link <args>
 190   endif
 191
 192   HiLink tssclCommand          Statement
 193   HiLink tssclKeyword          Special
 194   HiLink tssclEnd              Macro
 195   HiLink tssclUnits            Special
 196
 197   HiLink tssclComment          Comment
 198   HiLink tssclDirective        Statement
 199   HiLink tssclConditional      Conditional
 200   HiLink tssclContChar         Macro
 201   HiLink tssclQualifier        Typedef
 202   HiLink tssclSymbol           Identifier
 203   HiLink tssclSymbol2          Symbol
 204   HiLink tssclString           String
 205   HiLink tssclOper             Operator
 206
 207   HiLink tssclInteger          Number
 208   HiLink tssclFloat            Number
 209   HiLink tssclScientific       Number
 210
 211   delcommand HiLink
 212 endif
 213
 214
 215 let b:current_syntax = "tsscl"
 216
 217 " vim: ts=8 sw=2