" Vim syntax file" Language:     TAK2, TAK3, TAK2000 thermal modeling input file" Maintainer:   Adrian Nagle, anagle@ball.com" Last Change:  2001 May 15" Filenames:    *.tak" URL:          http://www.naglenet.org/vim/syntax/tak.vim" MAIN URL:     http://www.naglenet.org/vim/" For version 5.x: Clear all syntax items" For version 6.x: Quit when a syntax file was already loadedif version < 600  syntax clearelseif exists("b:current_syntax")  finishendif" Ignore casesyn case ignore""" Begin syntax definitions for tak input file."" Force free-form fortran formatlet fortran_free_source=1" Load FORTRAN syntax fileif version < 600  source <sfile>:p:h/fortran.vimelse  runtime! syntax/fortran.vimendifunlet b:current_syntax" Define keywords for TAK and TAKOUTsyn keyword takOptions  AUTODAMP CPRINT CSGDUMP GPRINT HPRINT LODTMPsyn keyword takOptions  LOGIC LPRINT NCVPRINT PLOTQ QPRINT QDUMPsyn keyword takOptions  SUMMARY SOLRTN UID DICTIONARIESsyn keyword takRoutine  SSITER FWDWRD FWDBCK BCKWRDsyn keyword takControl  ABSZRO BACKUP DAMP DTIMEI DTIMEL DTIMEH IFCsyn keyword takControl  MAXTEMP NLOOPS NLOOPT NODELIST OUTPUT PLOTsyn keyword takControl  SCALE SIGMA SSCRIT TIMEND TIMEN TIMEO TRCRITsyn keyword takControl  PLOTsyn keyword takSolids   PLATE CYLsyn keyword takSolidsArg   ID MATNAM NTYPE TEMP XL YL ZL ISTRN ISTRG NNXsyn keyword takSolidsArg   NNY NNZ INCX INCY INCZ IAK IAC DIFF ARITH BOUN syn keyword takSolidsArg   RMIN RMAX AXMAX NNR NNTHETA INCR INCTHETA ENDsyn case ignoresyn keyword takMacro    fac pstart pstopsyn keyword takMacro    takcommon fstart fstopsyn keyword takIdentifier  flq flx gen ncv per sim siv stf stv tvd tvssyn keyword takIdentifier  tvt pro thm" Define matches for TAKsyn match  takFortran     "^F[0-9 ]"me=e-1syn match  takMotran      "^M[0-9 ]"me=e-1syn match  takComment     "^C.*$"syn match  takComment     "^R.*$"syn match  takComment     "\$.*$"syn match  takHeader      "^header[^,]*"syn match  takIncludeFile "include \+[^ ]\+"hs=s+8 contains=fortranIncludesyn match  takInteger     "-\=\<[0-9]*\>"syn match  takFloat       "-\=\<[0-9]*\.[0-9]*"syn match  takScientific  "-\=\<[0-9]*\.[0-9]*E[-+]\=[0-9]\+\>"syn match  takEndData     "END OF DATA"if exists("thermal_todo")  execute 'syn match  takTodo ' . '"^'.thermal_todo.'.*$"'else  syn match  takTodo        "^?.*$"endif" Define the default highlighting" For version 5.7 and earlier: only when not done already" For version 5.8 and later: only when an item doesn't have highlighting yetif version >= 508 || !exists("did_tak_syntax_inits")  if version < 508    let did_tak_syntax_inits = 1    command -nargs=+ HiLink hi link <args>  else    command -nargs=+ HiLink hi def link <args>  endif  HiLink takMacro               Macro  HiLink takOptions             Special  HiLink takRoutine             Type  HiLink takControl             Special  HiLink takSolids              Special  HiLink takSolidsArg           Statement  HiLink takIdentifier          Identifier  HiLink takFortran             PreProc  HiLink takMotran              PreProc  HiLink takComment             Comment  HiLink takHeader              Typedef  HiLink takIncludeFile         Type  HiLink takInteger             Number  HiLink takFloat               Float  HiLink takScientific          Float  HiLink takEndData             Macro  HiLink takTodo                Todo  delcommand HiLinkendiflet b:current_syntax = "tak"" vim: ts=8 sw=2