165 lines
5.0 KiB
VimL
165 lines
5.0 KiB
VimL
if !exists('g:polyglot_disabled') || index(g:polyglot_disabled, 'vim') == -1
|
|
|
|
" Vim syntax file
|
|
" Language: TRASYS input file
|
|
" Maintainer: Adrian Nagle, anagle@ball.com
|
|
" Last Change: 2003 May 11
|
|
" Filenames: *.inp
|
|
" URL: http://www.naglenet.org/vim/syntax/trasys.vim
|
|
" MAIN URL: http://www.naglenet.org/vim/
|
|
|
|
|
|
|
|
" quit when a syntax file was already loaded
|
|
if exists("b:current_syntax")
|
|
finish
|
|
endif
|
|
|
|
|
|
" Force free-form fortran format
|
|
let fortran_free_source=1
|
|
|
|
" Load FORTRAN syntax file
|
|
runtime! syntax/fortran.vim
|
|
unlet b:current_syntax
|
|
|
|
|
|
" Ignore case
|
|
syn case ignore
|
|
|
|
|
|
|
|
" Define keywords for TRASYS
|
|
syn keyword trasysOptions model rsrec info maxfl nogo dmpdoc
|
|
syn keyword trasysOptions rsi rti rso rto bcdou cmerg emerg
|
|
syn keyword trasysOptions user1 nnmin erplot
|
|
|
|
syn keyword trasysSurface icsn tx ty tz rotx roty rotz inc bcsn
|
|
syn keyword trasysSurface nnx nny nnz nnax nnr nnth unnx
|
|
syn keyword trasysSurface unny unnz unnax unnr unnth type idupsf
|
|
syn keyword trasysSurface imagsf act active com shade bshade axmin
|
|
syn keyword trasysSurface axmax zmin zmax rmin rmax thmin thmin
|
|
syn keyword trasysSurface thmax alpha emiss trani trans spri sprs
|
|
syn keyword trasysSurface refno posit com dupbcs dimensions
|
|
syn keyword trasysSurface dimension position prop surfn
|
|
|
|
syn keyword trasysSurfaceType rect trap disk cyl cone sphere parab
|
|
syn keyword trasysSurfaceType box5 box6 shpero tor ogiv elem tape poly
|
|
|
|
syn keyword trasysSurfaceArgs ff di top bottom in out both no only
|
|
|
|
syn keyword trasysArgs fig smn nodea zero only ir sol
|
|
syn keyword trasysArgs both wband stepn initl
|
|
|
|
syn keyword trasysOperations orbgen build
|
|
|
|
"syn keyword trasysSubRoutine call
|
|
syn keyword trasysSubRoutine chgblk ndata ndatas odata odatas
|
|
syn keyword trasysSubRoutine pldta ffdata cmdata adsurf rbdata
|
|
syn keyword trasysSubRoutine rtdata pffshd orbit1 orbit2 orient
|
|
syn keyword trasysSubRoutine didt1 didt1s didt2 didt2s spin
|
|
syn keyword trasysSubRoutine spinav dicomp distab drdata gbdata
|
|
syn keyword trasysSubRoutine gbaprx rkdata rcdata aqdata stfaq
|
|
syn keyword trasysSubRoutine qodata qoinit modar modpr modtr
|
|
syn keyword trasysSubRoutine modprs modshd moddat rstoff rston
|
|
syn keyword trasysSubRoutine rsmerg ffread diread ffusr1 diusr1
|
|
syn keyword trasysSubRoutine surfp didt3 didt3s romain stfrc
|
|
syn keyword trasysSubRoutine rornt rocstr romove flxdata title
|
|
|
|
syn keyword trassyPrcsrSegm nplot oplot plot cmcal ffcal rbcal
|
|
syn keyword trassyPrcsrSegm rtcal dical drcal sfcal gbcal rccal
|
|
syn keyword trassyPrcsrSegm rkcal aqcal qocal
|
|
|
|
|
|
|
|
" Define matches for TRASYS
|
|
syn match trasysOptions "list source"
|
|
syn match trasysOptions "save source"
|
|
syn match trasysOptions "no print"
|
|
|
|
"syn match trasysSurface "^K *.* [^$]"
|
|
"syn match trasysSurface "^D *[0-9]*\.[0-9]\+"
|
|
"syn match trasysSurface "^I *.*[0-9]\+\.\="
|
|
"syn match trasysSurface "^N *[0-9]\+"
|
|
"syn match trasysSurface "^M *[a-z[A-Z0-9]\+"
|
|
"syn match trasysSurface "^B[C][S] *[a-zA-Z0-9]*"
|
|
"syn match trasysSurface "^S *SURFN.*[0-9]"
|
|
syn match trasysSurface "P[0-9]* *="he=e-1
|
|
|
|
syn match trasysIdentifier "^L "he=e-1
|
|
syn match trasysIdentifier "^K "he=e-1
|
|
syn match trasysIdentifier "^D "he=e-1
|
|
syn match trasysIdentifier "^I "he=e-1
|
|
syn match trasysIdentifier "^N "he=e-1
|
|
syn match trasysIdentifier "^M "he=e-1
|
|
syn match trasysIdentifier "^B[C][S]"
|
|
syn match trasysIdentifier "^S "he=e-1
|
|
|
|
syn match trasysComment "^C.*$"
|
|
syn match trasysComment "^R.*$"
|
|
syn match trasysComment "\$.*$"
|
|
|
|
syn match trasysHeader "^header[^,]*"
|
|
|
|
syn match trasysMacro "^FAC"
|
|
|
|
syn match trasysInteger "-\=\<[0-9]*\>"
|
|
syn match trasysFloat "-\=\<[0-9]*\.[0-9]*"
|
|
syn match trasysScientific "-\=\<[0-9]*\.[0-9]*E[-+]\=[0-9]\+\>"
|
|
|
|
syn match trasysBlank "' \+'"hs=s+1,he=e-1
|
|
|
|
syn match trasysEndData "^END OF DATA"
|
|
|
|
if exists("thermal_todo")
|
|
execute 'syn match trasysTodo ' . '"^'.thermal_todo.'.*$"'
|
|
else
|
|
syn match trasysTodo "^?.*$"
|
|
endif
|
|
|
|
|
|
|
|
" Define regions for TRASYS
|
|
syn region trasysComment matchgroup=trasysHeader start="^HEADER DOCUMENTATION DATA" end="^HEADER[^,]*"
|
|
|
|
|
|
|
|
" Define synchronizing patterns for TRASYS
|
|
syn sync maxlines=500
|
|
syn sync match trasysSync grouphere trasysComment "^HEADER DOCUMENTATION DATA"
|
|
|
|
|
|
|
|
" Define the default highlighting
|
|
" Only when an item doesn't have highlighting yet
|
|
|
|
hi def link trasysOptions Special
|
|
hi def link trasysSurface Special
|
|
hi def link trasysSurfaceType Constant
|
|
hi def link trasysSurfaceArgs Constant
|
|
hi def link trasysArgs Constant
|
|
hi def link trasysOperations Statement
|
|
hi def link trasysSubRoutine Statement
|
|
hi def link trassyPrcsrSegm PreProc
|
|
hi def link trasysIdentifier Identifier
|
|
hi def link trasysComment Comment
|
|
hi def link trasysHeader Typedef
|
|
hi def link trasysMacro Macro
|
|
hi def link trasysInteger Number
|
|
hi def link trasysFloat Float
|
|
hi def link trasysScientific Float
|
|
|
|
hi def link trasysBlank SpecialChar
|
|
|
|
hi def link trasysEndData Macro
|
|
|
|
hi def link trasysTodo Todo
|
|
|
|
|
|
|
|
let b:current_syntax = "trasys"
|
|
|
|
" vim: ts=8 sw=2
|
|
|
|
endif
|