runtime/syntax/sinda.vim

   1 " Vim syntax file
   2 " Language:     sinda85, sinda/fluint input file
   3 " Maintainer:   Adrian Nagle, anagle@ball.com
   4 " Last Change:  2003 May 11
   5 " Filenames:    *.sin
   6 " URL:          http://www.naglenet.org/vim/syntax/sinda.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 sinda input and output files.
  29 "
  30
  31 " Force free-form fortran format
  32 let fortran_free_source=1
  33
  34 " Load FORTRAN syntax file
  35 if version < 600
  36   source <sfile>:p:h/fortran.vim
  37 else
  38   runtime! syntax/fortran.vim
  39 endif
  40 unlet b:current_syntax
  41
  42
  43
  44 " Define keywords for SINDA
  45 syn keyword sindaMacro    BUILD BUILDF DEBON DEBOFF DEFMOD FSTART FSTOP
  46
  47 syn keyword sindaOptions  TITLE PPSAVE RSI RSO OUTPUT SAVE QMAP USER1 USER2
  48 syn keyword sindaOptions  MODEL PPOUT NOLIST MLINE NODEBUG DIRECTORIES
  49 syn keyword sindaOptions  DOUBLEPR
  50
  51 syn keyword sindaRoutine  FORWRD FWDBCK STDSTL FASTIC
  52
  53 syn keyword sindaControl  ABSZRO ACCELX ACCELY ACCELZ ARLXCA ATMPCA
  54 syn keyword sindaControl  BACKUP CSGFAC DRLXCA DTIMEH DTIMEI DTIMEL
  55 syn keyword sindaControl  DTIMES DTMPCA EBALNA EBALSA EXTLIM ITEROT
  56 syn keyword sindaControl  ITERXT ITHOLD NLOOPS NLOOPT OUTPUT OPEITR
  57 syn keyword sindaControl  PATMOS SIGMA TIMEO TIMEND UID
  58
  59 syn keyword sindaSubRoutine  ASKERS ADARIN ADDARY ADDMOD ARINDV
  60 syn keyword sindaSubRoutine  RYINV ARYMPY ARYSUB ARYTRN BAROC
  61 syn keyword sindaSubRoutine  BELACC BNDDRV BNDGET CHENNB CHGFLD
  62 syn keyword sindaSubRoutine  CHGLMP CHGSUC CHGVOL CHKCHL CHKCHP
  63 syn keyword sindaSubRoutine  CNSTAB COMBAL COMPLQ COMPRS CONTRN
  64 syn keyword sindaSubRoutine  CPRINT CRASH CRVINT CRYTRN CSIFLX
  65 syn keyword sindaSubRoutine  CVTEMP D11CYL C11DAI D11DIM D11MCY
  66 syn keyword sindaSubRoutine  D11MDA D11MDI D11MDT D12CYL D12MCY
  67 syn keyword sindaSubRoutine  D12MDA D1D1DA D1D1IM D1D1WM D1D2DA
  68 syn keyword sindaSubRoutine  D1D2WM D1DEG1 D1DEG2 D1DG1I D1IMD1
  69 syn keyword sindaSubRoutine  D1IMIM D1IMWM D1M1DA D1M2MD D1M2WM
  70 syn keyword sindaSubRoutine  D1MDG1 D1MDG2 D2D1WM D1DEG1 D2DEG2
  71 syn keyword sindaSubRoutine  D2D2
  72
  73 syn keyword sindaIdentifier  BIV CAL DIM DIV DPM DPV DTV GEN PER PIV PIM
  74 syn keyword sindaIdentifier  SIM SIV SPM SPV TVS TVD
  75
  76
  77
  78 " Define matches for SINDA
  79 syn match  sindaFortran     "^F[0-9 ]"me=e-1
  80 syn match  sindaMotran      "^M[0-9 ]"me=e-1
  81
  82 syn match  sindaComment     "^C.*$"
  83 syn match  sindaComment     "^R.*$"
  84 syn match  sindaComment     "\$.*$"
  85
  86 syn match  sindaHeader      "^header[^,]*"
  87
  88 syn match  sindaIncludeFile "include \+[^ ]\+"hs=s+8 contains=fortranInclude
  89
  90 syn match  sindaMacro       "^PSTART"
  91 syn match  sindaMacro       "^PSTOP"
  92 syn match  sindaMacro       "^FAC"
  93
  94 syn match  sindaInteger     "-\=\<[0-9]*\>"
  95 syn match  sindaFloat       "-\=\<[0-9]*\.[0-9]*"
  96 syn match  sindaScientific  "-\=\<[0-9]*\.[0-9]*E[-+]\=[0-9]\+\>"
  97
  98 syn match  sindaEndData          "^END OF DATA"
  99
 100 if exists("thermal_todo")
 101   execute 'syn match  sindaTodo ' . '"^'.thermal_todo.'.*$"'
 102 else
 103   syn match  sindaTodo     "^?.*$"
 104 endif
 105
 106
 107
 108 " Define the default highlighting
 109 " For version 5.7 and earlier: only when not done already
 110 " For version 5.8 and later: only when an item doesn't have highlighting yet
 111 if version >= 508 || !exists("did_sinda_syntax_inits")
 112   if version < 508
 113     let did_sinda_syntax_inits = 1
 114     command -nargs=+ HiLink hi link <args>
 115   else
 116     command -nargs=+ HiLink hi def link <args>
 117   endif
 118
 119   HiLink sindaMacro             Macro
 120   HiLink sindaOptions           Special
 121   HiLink sindaRoutine           Type
 122   HiLink sindaControl           Special
 123   HiLink sindaSubRoutine        Function
 124   HiLink sindaIdentifier        Identifier
 125
 126   HiLink sindaFortran           PreProc
 127   HiLink sindaMotran            PreProc
 128
 129   HiLink sindaComment           Comment
 130   HiLink sindaHeader            Typedef
 131   HiLink sindaIncludeFile       Type
 132   HiLink sindaInteger           Number
 133   HiLink sindaFloat             Float
 134   HiLink sindaScientific        Float
 135
 136   HiLink sindaEndData           Macro
 137
 138   HiLink sindaTodo              Todo
 139
 140   delcommand HiLink
 141 endif
 142
 143
 144 let b:current_syntax = "sinda"
 145
 146 " vim: ts=8 sw=2