home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / unix / vim-6.2.tar.bz2 / vim-6.2.tar / vim62 / runtime / syntax / tak.vim < prev    next >
Encoding:
Text File  |  2003-05-11  |  3.3 KB  |  137 lines
  1. " Vim syntax file
  2. " Language:     TAK2, TAK3, TAK2000 thermal modeling input file
  3. " Maintainer:   Adrian Nagle, anagle@ball.com
  4. " Last Change:  2003 May 11
  5. " Filenames:    *.tak
  6. " URL:        http://www.naglenet.org/vim/syntax/tak.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 tak input file.
  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 TAK and TAKOUT
  45. syn keyword takOptions  AUTODAMP CPRINT CSGDUMP GPRINT HPRINT LODTMP
  46. syn keyword takOptions  LOGIC LPRINT NCVPRINT PLOTQ QPRINT QDUMP
  47. syn keyword takOptions  SUMMARY SOLRTN UID DICTIONARIES
  48.  
  49. syn keyword takRoutine  SSITER FWDWRD FWDBCK BCKWRD
  50.  
  51. syn keyword takControl  ABSZRO BACKUP DAMP DTIMEI DTIMEL DTIMEH IFC
  52. syn keyword takControl  MAXTEMP NLOOPS NLOOPT NODELIST OUTPUT PLOT
  53. syn keyword takControl  SCALE SIGMA SSCRIT TIMEND TIMEN TIMEO TRCRIT
  54. syn keyword takControl  PLOT
  55.  
  56. syn keyword takSolids   PLATE CYL
  57. syn keyword takSolidsArg   ID MATNAM NTYPE TEMP XL YL ZL ISTRN ISTRG NNX
  58. syn keyword takSolidsArg   NNY NNZ INCX INCY INCZ IAK IAC DIFF ARITH BOUN
  59. syn keyword takSolidsArg   RMIN RMAX AXMAX NNR NNTHETA INCR INCTHETA END
  60.  
  61. syn case ignore
  62.  
  63. syn keyword takMacro    fac pstart pstop
  64. syn keyword takMacro    takcommon fstart fstop
  65.  
  66. syn keyword takIdentifier  flq flx gen ncv per sim siv stf stv tvd tvs
  67. syn keyword takIdentifier  tvt pro thm
  68.  
  69.  
  70.  
  71. " Define matches for TAK
  72. syn match  takFortran     "^F[0-9 ]"me=e-1
  73. syn match  takMotran      "^M[0-9 ]"me=e-1
  74.  
  75. syn match  takComment     "^C.*$"
  76. syn match  takComment     "^R.*$"
  77. syn match  takComment     "\$.*$"
  78.  
  79. syn match  takHeader      "^header[^,]*"
  80.  
  81. syn match  takIncludeFile "include \+[^ ]\+"hs=s+8 contains=fortranInclude
  82.  
  83. syn match  takInteger     "-\=\<[0-9]*\>"
  84. syn match  takFloat       "-\=\<[0-9]*\.[0-9]*"
  85. syn match  takScientific  "-\=\<[0-9]*\.[0-9]*E[-+]\=[0-9]\+\>"
  86.  
  87. syn match  takEndData     "END OF DATA"
  88.  
  89. if exists("thermal_todo")
  90.   execute 'syn match  takTodo ' . '"^'.thermal_todo.'.*$"'
  91. else
  92.   syn match  takTodo        "^?.*$"
  93. endif
  94.  
  95.  
  96.  
  97. " Define the default highlighting
  98. " For version 5.7 and earlier: only when not done already
  99. " For version 5.8 and later: only when an item doesn't have highlighting yet
  100. if version >= 508 || !exists("did_tak_syntax_inits")
  101.   if version < 508
  102.     let did_tak_syntax_inits = 1
  103.     command -nargs=+ HiLink hi link <args>
  104.   else
  105.     command -nargs=+ HiLink hi def link <args>
  106.   endif
  107.  
  108.   HiLink takMacro        Macro
  109.   HiLink takOptions        Special
  110.   HiLink takRoutine        Type
  111.   HiLink takControl        Special
  112.   HiLink takSolids        Special
  113.   HiLink takSolidsArg        Statement
  114.   HiLink takIdentifier        Identifier
  115.  
  116.   HiLink takFortran        PreProc
  117.   HiLink takMotran        PreProc
  118.  
  119.   HiLink takComment        Comment
  120.   HiLink takHeader        Typedef
  121.   HiLink takIncludeFile        Type
  122.   HiLink takInteger        Number
  123.   HiLink takFloat        Float
  124.   HiLink takScientific        Float
  125.  
  126.   HiLink takEndData        Macro
  127.  
  128.   HiLink takTodo        Todo
  129.  
  130.   delcommand HiLink
  131. endif
  132.  
  133.  
  134. let b:current_syntax = "tak"
  135.  
  136. " vim: ts=8 sw=2
  137.