share/vim/vim73/syntax/tssgm.vim

   1 " Vim syntax file
   2 " Language:     TSS (Thermal Synthesizer System) Geometry
   3 " Maintainer:   Adrian Nagle, anagle@ball.com
   4 " Last Change:  2003 May 11
   5 " Filenames:    *.tssgm
   6 " URL:          http://www.naglenet.org/vim/syntax/tssgm.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 " Define keywords for TSS
  32 syn keyword tssgmParam  units mirror param active sides submodel include
  33 syn keyword tssgmParam  iconductor nbeta ngamma optics material thickness color
  34 syn keyword tssgmParam  initial_temp
  35 syn keyword tssgmParam  initial_id node_ids node_add node_type
  36 syn keyword tssgmParam  gamma_boundaries gamma_add beta_boundaries
  37 syn keyword tssgmParam  p1 p2 p3 p4 p5 p6 rot1 rot2 rot3 tx ty tz
  38
  39 syn keyword tssgmSurfType  rectangle trapezoid disc ellipse triangle
  40 syn keyword tssgmSurfType  polygon cylinder cone sphere ellipic-cone
  41 syn keyword tssgmSurfType  ogive torus box paraboloid hyperboloid ellipsoid
  42 syn keyword tssgmSurfType  quadrilateral trapeziod
  43
  44 syn keyword tssgmArgs   OUT IN DOWN BOTH DOUBLE NONE SINGLE RADK CC FECC
  45 syn keyword tssgmArgs   white red blue green yellow orange violet pink
  46 syn keyword tssgmArgs   turquoise grey black
  47 syn keyword tssgmArgs   Arithmetic Boundary Heater
  48
  49 syn keyword tssgmDelim  assembly
  50
  51 syn keyword tssgmEnd    end
  52
  53 syn keyword tssgmUnits  cm feet meters inches
  54 syn keyword tssgmUnits  Celsius Kelvin Fahrenheit Rankine
  55
  56
  57
  58 " Define matches for TSS
  59 syn match  tssgmDefault     "^DEFAULT/LENGTH = \(ft\|in\|cm\|m\)"
  60 syn match  tssgmDefault     "^DEFAULT/TEMP = [CKFR]"
  61
  62 syn match  tssgmComment       /comment \+= \+".*"/ contains=tssParam,tssgmCommentString
  63 syn match  tssgmCommentString /".*"/ contained
  64
  65 syn match  tssgmSurfIdent   " \S\+\.\d\+ \=$"
  66
  67 syn match  tssgmString      /"[^" ]\+"/ms=s+1,me=e-1 contains=ALLBUT,tssInteger
  68
  69 syn match  tssgmArgs        / = [xyz],"/ms=s+3,me=e-2
  70
  71 syn match  tssgmInteger     "-\=\<[0-9]*\>"
  72 syn match  tssgmFloat       "-\=\<[0-9]*\.[0-9]*"
  73 syn match  tssgmScientific  "-\=\<[0-9]*\.[0-9]*E[-+]\=[0-9]\+\>"
  74
  75
  76
  77 " Define the default highlighting
  78 " For version 5.7 and earlier: only when not done already
  79 " For version 5.8 and later: only when an item doesn't have highlighting yet
  80 if version >= 508 || !exists("did_tssgm_syntax_inits")
  81   if version < 508
  82     let did_tssgm_syntax_inits = 1
  83     command -nargs=+ HiLink hi link <args>
  84   else
  85     command -nargs=+ HiLink hi def link <args>
  86   endif
  87
  88   HiLink tssgmParam             Statement
  89   HiLink tssgmSurfType          Type
  90   HiLink tssgmArgs              Special
  91   HiLink tssgmDelim             Typedef
  92   HiLink tssgmEnd               Macro
  93   HiLink tssgmUnits             Special
  94
  95   HiLink tssgmDefault           SpecialComment
  96   HiLink tssgmComment           Statement
  97   HiLink tssgmCommentString     Comment
  98   HiLink tssgmSurfIdent         Identifier
  99   HiLink tssgmString            Delimiter
 100
 101   HiLink tssgmInteger           Number
 102   HiLink tssgmFloat             Float
 103   HiLink tssgmScientific        Float
 104
 105   delcommand HiLink
 106 endif
 107
 108
 109 let b:current_syntax = "tssgm"
 110
 111 " vim: ts=8 sw=2