mirror of
https://github.com/vim/vim.git
synced 2025-10-31 09:57:14 -04:00
194 lines
8.5 KiB
VimL
194 lines
8.5 KiB
VimL
|
" Vim syntax file
|
||
|
|
" Language: NASTRAN input/DMAP
|
||
|
|
" Maintainer: Tom Kowalski <trk@schaefferas.com>
|
||
|
|
" Last change: April 27, 2001
|
||
|
|
" Thanks to the authors and maintainers of fortran.vim.
|
||
|
|
" Since DMAP shares some traits with fortran, this syntax file
|
||
|
|
" is based on the fortran.vim syntax file.
|
||
|
|
"----------------------------------------------------------------------
|
||
|
|
" Remove any old syntax stuff hanging around
|
||
|
|
"syn clear
|
||
|
|
if version < 600
|
||
|
|
syntax clear
|
||
|
|
elseif exists("b:current_syntax")
|
||
|
|
finish
|
||
|
|
endif
|
||
|
|
" DMAP is not case dependent
|
||
|
|
syn case ignore
|
||
|
|
"
|
||
|
|
"--------------------DMAP SYNTAX---------------------------------------
|
||
|
|
"
|
||
|
|
" -------Executive Modules and Statements
|
||
|
|
"
|
||
|
|
syn keyword nastranDmapexecmod call dbview delete end equiv equivx exit
|
||
|
|
syn keyword nastranDmapexecmod file message purge purgex return subdmap
|
||
|
|
syn keyword nastranDmapType type
|
||
|
|
syn keyword nastranDmapLabel go to goto
|
||
|
|
syn keyword nastranDmapRepeat if else elseif endif then
|
||
|
|
syn keyword nastranDmapRepeat do while
|
||
|
|
syn region nastranDmapString start=+"+ end=+"+ oneline
|
||
|
|
syn region nastranDmapString start=+'+ end=+'+ oneline
|
||
|
|
" If you don't like initial tabs in dmap (or at all)
|
||
|
|
"syn match nastranDmapIniTab "^\t.*$"
|
||
|
|
"syn match nastranDmapTab "\t"
|
||
|
|
|
||
|
|
" Any integer
|
||
|
|
syn match nastranDmapNumber "-\=\<[0-9]\+\>"
|
||
|
|
" floating point number, with dot, optional exponent
|
||
|
|
syn match nastranDmapFloat "\<[0-9]\+\.[0-9]*\([edED][-+]\=[0-9]\+\)\=\>"
|
||
|
|
" floating point number, starting with a dot, optional exponent
|
||
|
|
syn match nastranDmapFloat "\.[0-9]\+\([edED][-+]\=[0-9]\+\)\=\>"
|
||
|
|
" floating point number, without dot, with exponent
|
||
|
|
syn match nastranDmapFloat "\<[0-9]\+[edED][-+]\=[0-9]\+\>"
|
||
|
|
|
||
|
|
syn match nastranDmapLogical "\(true\|false\)"
|
||
|
|
|
||
|
|
syn match nastranDmapPreCondit "^#define\>"
|
||
|
|
syn match nastranDmapPreCondit "^#include\>"
|
||
|
|
"
|
||
|
|
" -------Comments may be contained in another line.
|
||
|
|
"
|
||
|
|
syn match nastranDmapComment "^[\$].*$"
|
||
|
|
syn match nastranDmapComment "\$.*$"
|
||
|
|
syn match nastranDmapComment "^[\$].*$" contained
|
||
|
|
syn match nastranDmapComment "\$.*$" contained
|
||
|
|
" Treat all past 72nd column as a comment. Do not work with tabs!
|
||
|
|
" Breaks down when 72-73rd column is in another match (eg number or keyword)
|
||
|
|
syn match nastranDmapComment "^.\{-72}.*$"lc=72 contained
|
||
|
|
|
||
|
|
"
|
||
|
|
" -------Utility Modules
|
||
|
|
"
|
||
|
|
syn keyword nastranDmapUtilmod append copy dbc dbdict dbdir dmin drms1
|
||
|
|
syn keyword nastranDmapUtilmod dtiin eltprt ifp ifp1 inputt2 inputt4 lamx
|
||
|
|
syn keyword nastranDmapUtilmod matgen matgpr matmod matpch matprn matprt
|
||
|
|
syn keyword nastranDmapUtilmod modtrl mtrxin ofp output2 output4 param
|
||
|
|
syn keyword nastranDmapUtilmod paraml paramr prtparam pvt scalar
|
||
|
|
syn keyword nastranDmapUtilmod seqp setval tabedit tabprt tabpt vec vecplot
|
||
|
|
syn keyword nastranDmapUtilmod xsort
|
||
|
|
"
|
||
|
|
" -------Matrix Modules
|
||
|
|
"
|
||
|
|
syn keyword nastranDmapMatmod add add5 cead dcmp decomp diagonal fbs merge
|
||
|
|
syn keyword nastranDmapMatmod mpyad norm read reigl smpyad solve solvit
|
||
|
|
syn keyword nastranDmapMatmod trnsp umerge umerge1 upartn dmiin partn
|
||
|
|
syn region nastranDmapMatmod start=+^ *[Dd][Mm][Ii]+ end=+[\/]+
|
||
|
|
"
|
||
|
|
" -------Implicit Functions
|
||
|
|
"
|
||
|
|
syn keyword nastranDmapImplicit abs acos acosh andl asin asinh atan atan2
|
||
|
|
syn keyword nastranDmapImplicit atanh atanh2 char clen clock cmplx concat1
|
||
|
|
syn keyword nastranDmapImplicit concat2 concat3 conjg cos cosh dble diagoff
|
||
|
|
syn keyword nastranDmapImplicit diagon dim dlablank dlxblank dprod eqvl exp
|
||
|
|
syn keyword nastranDmapImplicit getdiag getsys ichar imag impl index indexstr
|
||
|
|
syn keyword nastranDmapImplicit int itol leq lge lgt lle llt lne log log10
|
||
|
|
syn keyword nastranDmapImplicit logx ltoi mcgetsys mcputsys max min mod neqvl
|
||
|
|
syn keyword nastranDmapImplicit nint noop normal notl numeq numge numgt numle
|
||
|
|
syn keyword nastranDmapImplicit numlt numne orl pi precison putdiag putsys
|
||
|
|
syn keyword nastranDmapImplicit rand rdiagon real rtimtogo setcore sign sin
|
||
|
|
syn keyword nastranDmapImplicit sinh sngl sprod sqrt substrin tan tanh
|
||
|
|
syn keyword nastranDmapImplicit timetogo wlen xorl
|
||
|
|
"
|
||
|
|
"
|
||
|
|
"--------------------INPUT FILE SYNTAX---------------------------------------
|
||
|
|
"
|
||
|
|
"
|
||
|
|
" -------Nastran Statement
|
||
|
|
"
|
||
|
|
syn keyword nastranNastranCard nastran
|
||
|
|
"
|
||
|
|
" -------The File Management Section (FMS)
|
||
|
|
"
|
||
|
|
syn region nastranFMSCard start=+^ *[Aa][Cc][Qq][Uu][Ii]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Aa][Ss][Ss][Ii][Gg]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Cc][oO][Nn][Nn][Ee]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Dd][Bb][Cc][Ll][Ee]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Dd][Bb][Dd][Ii][Cc]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Dd][Bb][Dd][Ii][Rr]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Dd][Bb][Ff][Ii][Xx]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Dd][Bb][Ll][Oo][Aa]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Dd][Bb][Ll][Oo][Cc]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Dd][Bb][Ss][Ee][Tt]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Dd][Bb][Uu][Nn][Ll]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Dd][Bb][Uu][Pp][Dd]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Dd][Ee][Ff][Ii][Nn]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Ee][Nn][Dd][Jj][Oo]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Ee][Xx][Pp][Aa][Nn]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Ii][Nn][Cc][Ll][Uu]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Ii][Nn][Ii][Tt]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Pp][Rr][Oo][Jj]+ end=+$+ oneline
|
||
|
|
syn region nastranFMSCard start=+^ *[Rr][Ee][Ss][Tt]+ end=+$+ oneline
|
||
|
|
syn match nastranDmapUtilmod "^ *[Rr][Ee][Ss][Tt][Aa].*,.*," contains=nastranDmapComment
|
||
|
|
"
|
||
|
|
" -------Executive Control Section
|
||
|
|
"
|
||
|
|
syn region nastranECSCard start=+^ *[Aa][Ll][Tt][Ee][Rr]+ end=+$+ oneline
|
||
|
|
syn region nastranECSCard start=+^ *[Aa][Pp][Pp]+ end=+$+ oneline
|
||
|
|
syn region nastranECSCard start=+^ *[Cc][Oo][Mm][Pp][Ii]+ end=+$+ oneline
|
||
|
|
syn region nastranECSCard start=+^ *[Dd][Ii][Aa][Gg] + end=+$+ oneline
|
||
|
|
syn region nastranECSCard start=+^ *[Ee][Cc][Hh][Oo]+ end=+$+ oneline
|
||
|
|
syn region nastranECSCard start=+^ *[Ee][Nn][Dd][Aa][Ll]+ end=+$+ oneline
|
||
|
|
syn region nastranECSCard start=+^ *[Ii][Dd]+ end=+$+ oneline
|
||
|
|
syn region nastranECSCard start=+^ *[Ii][Nn][Cc][Ll][Uu]+ end=+$+ oneline
|
||
|
|
syn region nastranECSCard start=+^ *[Ll][Ii][Nn][Kk]+ end=+$+ oneline
|
||
|
|
syn region nastranECSCard start=+^ *[Mm][Aa][Ll][Tt][Ee]+ end=+$+ oneline
|
||
|
|
syn region nastranECSCard start=+^ *[Ss][Oo][Ll] + end=+$+ oneline
|
||
|
|
syn region nastranECSCard start=+^ *[Tt][Ii][Mm][Ee]+ end=+$+ oneline
|
||
|
|
"
|
||
|
|
" -------Delimiters
|
||
|
|
"
|
||
|
|
syn match nastranDelimiter "[Cc][Ee][Nn][Dd]" contained
|
||
|
|
syn match nastranDelimiter "[Bb][Ee][Gg][Ii][Nn]" contained
|
||
|
|
syn match nastranDelimiter " *[Bb][Uu][Ll][Kk]" contained
|
||
|
|
syn match nastranDelimiter "[Ee][Nn][Dd] *[dD][Aa][Tt][Aa]" contained
|
||
|
|
"
|
||
|
|
" -------Case Control section
|
||
|
|
"
|
||
|
|
syn region nastranCC start=+^ *[Cc][Ee][Nn][Dd]+ end=+^ *[Bb][Ee][Gg][Ii][Nn]+ contains=nastranDelimiter,nastranBulkData,nastranDmapComment
|
||
|
|
|
||
|
|
"
|
||
|
|
" -------Bulk Data section
|
||
|
|
"
|
||
|
|
syn region nastranBulkData start=+ *[Bb][Uu][Ll][Kk] *$+ end=+^ [Ee][Nn][Dd] *[Dd]+ contains=nastranDelimiter,nastranDmapComment
|
||
|
|
"
|
||
|
|
" -------The following cards may appear in multiple sections of the file
|
||
|
|
"
|
||
|
|
syn keyword nastranUtilCard ECHOON ECHOOFF INCLUDE PARAM
|
||
|
|
|
||
|
|
|
||
|
|
if version >= 508 || !exists("did_nastran_syntax_inits")
|
||
|
|
if version < 508
|
||
|
|
let did_nastran_syntax_inits = 1
|
||
|
|
command -nargs=+ HiLink hi link <args>
|
||
|
|
else
|
||
|
|
command -nargs=+ HiLink hi link <args>
|
||
|
|
endif
|
||
|
|
" The default methods for highlighting. Can be overridden later
|
||
|
|
HiLink nastranDmapexecmod Statement
|
||
|
|
HiLink nastranDmapType Type
|
||
|
|
HiLink nastranDmapPreCondit Error
|
||
|
|
HiLink nastranDmapUtilmod PreProc
|
||
|
|
HiLink nastranDmapMatmod nastranDmapUtilmod
|
||
|
|
HiLink nastranDmapString String
|
||
|
|
HiLink nastranDmapNumber Constant
|
||
|
|
HiLink nastranDmapFloat nastranDmapNumber
|
||
|
|
HiLink nastranDmapInitTab nastranDmapNumber
|
||
|
|
HiLink nastranDmapTab nastranDmapNumber
|
||
|
|
HiLink nastranDmapLogical nastranDmapExecmod
|
||
|
|
HiLink nastranDmapImplicit Identifier
|
||
|
|
HiLink nastranDmapComment Comment
|
||
|
|
HiLink nastranDmapRepeat nastranDmapexecmod
|
||
|
|
HiLink nastranNastranCard nastranDmapPreCondit
|
||
|
|
HiLink nastranECSCard nastranDmapUtilmod
|
||
|
|
HiLink nastranFMSCard nastranNastranCard
|
||
|
|
HiLink nastranCC nastranDmapexecmod
|
||
|
|
HiLink nastranDelimiter Special
|
||
|
|
HiLink nastranBulkData nastranDmapType
|
||
|
|
HiLink nastranUtilCard nastranDmapexecmod
|
||
|
|
delcommand HiLink
|
||
|
|
endif
|
||
|
|
|
||
|
|
let b:current_syntax = "nastran"
|
||
|
|
|
||
|
|
"EOF vim: ts=8 noet tw=120 sw=8 sts=0
|