codekingpro/portable-devtools

1" Vim syntax file2" Language:     TRASYS input file3" Maintainer:   Adrian Nagle, anagle@ball.com4" Last Change:  2003 May 115" Filenames:    *.inp6" URL:		http://www.naglenet.org/vim/syntax/trasys.vim7" MAIN URL:     http://www.naglenet.org/vim/8 9 10 11" quit when a syntax file was already loaded12if exists("b:current_syntax")13  finish14endif15 16 17" Force free-form fortran format18let fortran_free_source=119 20" Load FORTRAN syntax file21runtime! syntax/fortran.vim22unlet b:current_syntax23 24 25" Ignore case26syn case ignore27 28 29 30" Define keywords for TRASYS31syn keyword trasysOptions    model rsrec info maxfl nogo dmpdoc32syn keyword trasysOptions    rsi rti rso rto bcdou cmerg emerg33syn keyword trasysOptions    user1 nnmin erplot34 35syn keyword trasysSurface    icsn tx ty tz rotx roty rotz inc bcsn36syn keyword trasysSurface    nnx nny nnz nnax nnr nnth unnx37syn keyword trasysSurface    unny unnz unnax unnr unnth type idupsf38syn keyword trasysSurface    imagsf act active com shade bshade axmin39syn keyword trasysSurface    axmax zmin zmax rmin rmax thmin thmin40syn keyword trasysSurface    thmax alpha emiss trani trans spri sprs41syn keyword trasysSurface    refno posit com dupbcs dimensions42syn keyword trasysSurface    dimension position prop surfn43 44syn keyword trasysSurfaceType rect trap disk cyl cone sphere parab45syn keyword trasysSurfaceType box5 box6 shpero tor ogiv elem tape poly46 47syn keyword trasysSurfaceArgs ff di top bottom in out both no only48 49syn keyword trasysArgs       fig smn nodea zero only ir sol50syn keyword trasysArgs       both wband stepn initl51 52syn keyword trasysOperations orbgen build53 54"syn keyword trasysSubRoutine call55syn keyword trasysSubRoutine chgblk ndata ndatas odata odatas56syn keyword trasysSubRoutine pldta ffdata cmdata adsurf rbdata57syn keyword trasysSubRoutine rtdata pffshd orbit1 orbit2 orient58syn keyword trasysSubRoutine didt1 didt1s didt2 didt2s spin59syn keyword trasysSubRoutine spinav dicomp distab drdata gbdata60syn keyword trasysSubRoutine gbaprx rkdata rcdata aqdata stfaq61syn keyword trasysSubRoutine qodata qoinit modar modpr modtr62syn keyword trasysSubRoutine modprs modshd moddat rstoff rston63syn keyword trasysSubRoutine rsmerg ffread diread ffusr1 diusr164syn keyword trasysSubRoutine surfp didt3 didt3s romain stfrc65syn keyword trasysSubRoutine rornt rocstr romove flxdata title66 67syn keyword trassyPrcsrSegm  nplot oplot plot cmcal ffcal rbcal68syn keyword trassyPrcsrSegm  rtcal dical drcal sfcal gbcal rccal69syn keyword trassyPrcsrSegm  rkcal aqcal qocal70 71 72 73" Define matches for TRASYS74syn match  trasysOptions     "list source"75syn match  trasysOptions     "save source"76syn match  trasysOptions     "no print"77 78"syn match  trasysSurface     "^K *.* [^$]"79"syn match  trasysSurface     "^D *[0-9]*\.[0-9]\+"80"syn match  trasysSurface     "^I *.*[0-9]\+\.\="81"syn match  trasysSurface     "^N *[0-9]\+"82"syn match  trasysSurface     "^M *[a-z[A-Z0-9]\+"83"syn match  trasysSurface     "^B[C][S] *[a-zA-Z0-9]*"84"syn match  trasysSurface     "^S *SURFN.*[0-9]"85syn match  trasysSurface     "P[0-9]* *="he=e-186 87syn match  trasysIdentifier  "^L "he=e-188syn match  trasysIdentifier  "^K "he=e-189syn match  trasysIdentifier  "^D "he=e-190syn match  trasysIdentifier  "^I "he=e-191syn match  trasysIdentifier  "^N "he=e-192syn match  trasysIdentifier  "^M "he=e-193syn match  trasysIdentifier  "^B[C][S]"94syn match  trasysIdentifier  "^S "he=e-195 96syn match  trasysComment     "^C.*$"97syn match  trasysComment     "^R.*$"98syn match  trasysComment     "\$.*$"99 100syn match  trasysHeader      "^header[^,]*"101 102syn match  trasysMacro       "^FAC"103 104syn match  trasysInteger     "-\=\<[0-9]*\>"105syn match  trasysFloat       "-\=\<[0-9]*\.[0-9]*"106syn match  trasysScientific  "-\=\<[0-9]*\.[0-9]*E[-+]\=[0-9]\+\>"107 108syn match  trasysBlank       "' \+'"hs=s+1,he=e-1109 110syn match  trasysEndData     "^END OF DATA"111 112if exists("thermal_todo")113  execute 'syn match  trasysTodo ' . '"^'.thermal_todo.'.*$"'114else115  syn match  trasysTodo  "^?.*$"116endif117 118 119 120" Define regions for TRASYS121syn region trasysComment  matchgroup=trasysHeader start="^HEADER DOCUMENTATION DATA" end="^HEADER[^,]*"122 123 124 125" Define synchronizing patterns for TRASYS126syn sync maxlines=500127syn sync match trasysSync grouphere trasysComment "^HEADER DOCUMENTATION DATA"128 129 130 131" Define the default highlighting132" Only when an item doesn't have highlighting yet133 134hi def link trasysOptions		Special135hi def link trasysSurface		Special136hi def link trasysSurfaceType	Constant137hi def link trasysSurfaceArgs	Constant138hi def link trasysArgs		Constant139hi def link trasysOperations	Statement140hi def link trasysSubRoutine	Statement141hi def link trassyPrcsrSegm	PreProc142hi def link trasysIdentifier	Identifier143hi def link trasysComment		Comment144hi def link trasysHeader		Typedef145hi def link trasysMacro		Macro146hi def link trasysInteger		Number147hi def link trasysFloat		Float148hi def link trasysScientific	Float149 150hi def link trasysBlank		SpecialChar151 152hi def link trasysEndData		Macro153 154hi def link trasysTodo		Todo155 156 157 158let b:current_syntax = "trasys"159 160" vim: ts=8 sw=2161