|
7
|
1 " Vim syntax file
|
|
|
2 " Language: NASTRAN input/DMAP
|
|
|
3 " Maintainer: Tom Kowalski <trk@schaefferas.com>
|
|
|
4 " Last change: April 27, 2001
|
|
|
5 " Thanks to the authors and maintainers of fortran.vim.
|
|
|
6 " Since DMAP shares some traits with fortran, this syntax file
|
|
|
7 " is based on the fortran.vim syntax file.
|
|
|
8 "----------------------------------------------------------------------
|
|
|
9 " Remove any old syntax stuff hanging around
|
|
|
10 "syn clear
|
|
|
11 if version < 600
|
|
|
12 syntax clear
|
|
|
13 elseif exists("b:current_syntax")
|
|
|
14 finish
|
|
|
15 endif
|
|
|
16 " DMAP is not case dependent
|
|
|
17 syn case ignore
|
|
|
18 "
|
|
|
19 "--------------------DMAP SYNTAX---------------------------------------
|
|
|
20 "
|
|
|
21 " -------Executive Modules and Statements
|
|
|
22 "
|
|
|
23 syn keyword nastranDmapexecmod call dbview delete end equiv equivx exit
|
|
|
24 syn keyword nastranDmapexecmod file message purge purgex return subdmap
|
|
|
25 syn keyword nastranDmapType type
|
|
|
26 syn keyword nastranDmapLabel go to goto
|
|
|
27 syn keyword nastranDmapRepeat if else elseif endif then
|
|
|
28 syn keyword nastranDmapRepeat do while
|
|
|
29 syn region nastranDmapString start=+"+ end=+"+ oneline
|
|
|
30 syn region nastranDmapString start=+'+ end=+'+ oneline
|
|
|
31 " If you don't like initial tabs in dmap (or at all)
|
|
|
32 "syn match nastranDmapIniTab "^\t.*$"
|
|
|
33 "syn match nastranDmapTab "\t"
|
|
|
34
|
|
|
35 " Any integer
|
|
|
36 syn match nastranDmapNumber "-\=\<[0-9]\+\>"
|
|
|
37 " floating point number, with dot, optional exponent
|
|
|
38 syn match nastranDmapFloat "\<[0-9]\+\.[0-9]*\([edED][-+]\=[0-9]\+\)\=\>"
|
|
|
39 " floating point number, starting with a dot, optional exponent
|
|
|
40 syn match nastranDmapFloat "\.[0-9]\+\([edED][-+]\=[0-9]\+\)\=\>"
|
|
|
41 " floating point number, without dot, with exponent
|
|
|
42 syn match nastranDmapFloat "\<[0-9]\+[edED][-+]\=[0-9]\+\>"
|
|
|
43
|
|
|
44 syn match nastranDmapLogical "\(true\|false\)"
|
|
|
45
|
|
|
46 syn match nastranDmapPreCondit "^#define\>"
|
|
|
47 syn match nastranDmapPreCondit "^#include\>"
|
|
|
48 "
|
|
|
49 " -------Comments may be contained in another line.
|
|
|
50 "
|
|
|
51 syn match nastranDmapComment "^[\$].*$"
|
|
|
52 syn match nastranDmapComment "\$.*$"
|
|
|
53 syn match nastranDmapComment "^[\$].*$" contained
|
|
|
54 syn match nastranDmapComment "\$.*$" contained
|
|
|
55 " Treat all past 72nd column as a comment. Do not work with tabs!
|
|
|
56 " Breaks down when 72-73rd column is in another match (eg number or keyword)
|
|
|
57 syn match nastranDmapComment "^.\{-72}.*$"lc=72 contained
|
|
|
58
|
|
|
59 "
|
|
|
60 " -------Utility Modules
|
|
|
61 "
|
|
|
62 syn keyword nastranDmapUtilmod append copy dbc dbdict dbdir dmin drms1
|
|
|
63 syn keyword nastranDmapUtilmod dtiin eltprt ifp ifp1 inputt2 inputt4 lamx
|
|
|
64 syn keyword nastranDmapUtilmod matgen matgpr matmod matpch matprn matprt
|
|
|
65 syn keyword nastranDmapUtilmod modtrl mtrxin ofp output2 output4 param
|
|
|
66 syn keyword nastranDmapUtilmod paraml paramr prtparam pvt scalar
|
|
|
67 syn keyword nastranDmapUtilmod seqp setval tabedit tabprt tabpt vec vecplot
|
|
|
68 syn keyword nastranDmapUtilmod xsort
|
|
|
69 "
|
|
|
70 " -------Matrix Modules
|
|
|
71 "
|
|
|
72 syn keyword nastranDmapMatmod add add5 cead dcmp decomp diagonal fbs merge
|
|
|
73 syn keyword nastranDmapMatmod mpyad norm read reigl smpyad solve solvit
|
|
|
74 syn keyword nastranDmapMatmod trnsp umerge umerge1 upartn dmiin partn
|
|
|
75 syn region nastranDmapMatmod start=+^ *[Dd][Mm][Ii]+ end=+[\/]+
|
|
|
76 "
|
|
|
77 " -------Implicit Functions
|
|
|
78 "
|
|
|
79 syn keyword nastranDmapImplicit abs acos acosh andl asin asinh atan atan2
|
|
|
80 syn keyword nastranDmapImplicit atanh atanh2 char clen clock cmplx concat1
|
|
|
81 syn keyword nastranDmapImplicit concat2 concat3 conjg cos cosh dble diagoff
|
|
|
82 syn keyword nastranDmapImplicit diagon dim dlablank dlxblank dprod eqvl exp
|
|
|
83 syn keyword nastranDmapImplicit getdiag getsys ichar imag impl index indexstr
|
|
|
84 syn keyword nastranDmapImplicit int itol leq lge lgt lle llt lne log log10
|
|
|
85 syn keyword nastranDmapImplicit logx ltoi mcgetsys mcputsys max min mod neqvl
|
|
|
86 syn keyword nastranDmapImplicit nint noop normal notl numeq numge numgt numle
|
|
|
87 syn keyword nastranDmapImplicit numlt numne orl pi precison putdiag putsys
|
|
|
88 syn keyword nastranDmapImplicit rand rdiagon real rtimtogo setcore sign sin
|
|
|
89 syn keyword nastranDmapImplicit sinh sngl sprod sqrt substrin tan tanh
|
|
|
90 syn keyword nastranDmapImplicit timetogo wlen xorl
|
|
|
91 "
|
|
|
92 "
|
|
|
93 "--------------------INPUT FILE SYNTAX---------------------------------------
|
|
|
94 "
|
|
|
95 "
|
|
|
96 " -------Nastran Statement
|
|
|
97 "
|
|
|
98 syn keyword nastranNastranCard nastran
|
|
|
99 "
|
|
|
100 " -------The File Management Section (FMS)
|
|
|
101 "
|
|
|
102 syn region nastranFMSCard start=+^ *[Aa][Cc][Qq][Uu][Ii]+ end=+$+ oneline
|
|
|
103 syn region nastranFMSCard start=+^ *[Aa][Ss][Ss][Ii][Gg]+ end=+$+ oneline
|
|
|
104 syn region nastranFMSCard start=+^ *[Cc][oO][Nn][Nn][Ee]+ end=+$+ oneline
|
|
|
105 syn region nastranFMSCard start=+^ *[Dd][Bb][Cc][Ll][Ee]+ end=+$+ oneline
|
|
|
106 syn region nastranFMSCard start=+^ *[Dd][Bb][Dd][Ii][Cc]+ end=+$+ oneline
|
|
|
107 syn region nastranFMSCard start=+^ *[Dd][Bb][Dd][Ii][Rr]+ end=+$+ oneline
|
|
|
108 syn region nastranFMSCard start=+^ *[Dd][Bb][Ff][Ii][Xx]+ end=+$+ oneline
|
|
|
109 syn region nastranFMSCard start=+^ *[Dd][Bb][Ll][Oo][Aa]+ end=+$+ oneline
|
|
|
110 syn region nastranFMSCard start=+^ *[Dd][Bb][Ll][Oo][Cc]+ end=+$+ oneline
|
|
|
111 syn region nastranFMSCard start=+^ *[Dd][Bb][Ss][Ee][Tt]+ end=+$+ oneline
|
|
|
112 syn region nastranFMSCard start=+^ *[Dd][Bb][Uu][Nn][Ll]+ end=+$+ oneline
|
|
|
113 syn region nastranFMSCard start=+^ *[Dd][Bb][Uu][Pp][Dd]+ end=+$+ oneline
|
|
|
114 syn region nastranFMSCard start=+^ *[Dd][Ee][Ff][Ii][Nn]+ end=+$+ oneline
|
|
|
115 syn region nastranFMSCard start=+^ *[Ee][Nn][Dd][Jj][Oo]+ end=+$+ oneline
|
|
|
116 syn region nastranFMSCard start=+^ *[Ee][Xx][Pp][Aa][Nn]+ end=+$+ oneline
|
|
|
117 syn region nastranFMSCard start=+^ *[Ii][Nn][Cc][Ll][Uu]+ end=+$+ oneline
|
|
|
118 syn region nastranFMSCard start=+^ *[Ii][Nn][Ii][Tt]+ end=+$+ oneline
|
|
|
119 syn region nastranFMSCard start=+^ *[Pp][Rr][Oo][Jj]+ end=+$+ oneline
|
|
|
120 syn region nastranFMSCard start=+^ *[Rr][Ee][Ss][Tt]+ end=+$+ oneline
|
|
|
121 syn match nastranDmapUtilmod "^ *[Rr][Ee][Ss][Tt][Aa].*,.*," contains=nastranDmapComment
|
|
|
122 "
|
|
|
123 " -------Executive Control Section
|
|
|
124 "
|
|
|
125 syn region nastranECSCard start=+^ *[Aa][Ll][Tt][Ee][Rr]+ end=+$+ oneline
|
|
|
126 syn region nastranECSCard start=+^ *[Aa][Pp][Pp]+ end=+$+ oneline
|
|
|
127 syn region nastranECSCard start=+^ *[Cc][Oo][Mm][Pp][Ii]+ end=+$+ oneline
|
|
|
128 syn region nastranECSCard start=+^ *[Dd][Ii][Aa][Gg] + end=+$+ oneline
|
|
|
129 syn region nastranECSCard start=+^ *[Ee][Cc][Hh][Oo]+ end=+$+ oneline
|
|
|
130 syn region nastranECSCard start=+^ *[Ee][Nn][Dd][Aa][Ll]+ end=+$+ oneline
|
|
|
131 syn region nastranECSCard start=+^ *[Ii][Dd]+ end=+$+ oneline
|
|
|
132 syn region nastranECSCard start=+^ *[Ii][Nn][Cc][Ll][Uu]+ end=+$+ oneline
|
|
|
133 syn region nastranECSCard start=+^ *[Ll][Ii][Nn][Kk]+ end=+$+ oneline
|
|
|
134 syn region nastranECSCard start=+^ *[Mm][Aa][Ll][Tt][Ee]+ end=+$+ oneline
|
|
|
135 syn region nastranECSCard start=+^ *[Ss][Oo][Ll] + end=+$+ oneline
|
|
|
136 syn region nastranECSCard start=+^ *[Tt][Ii][Mm][Ee]+ end=+$+ oneline
|
|
|
137 "
|
|
|
138 " -------Delimiters
|
|
|
139 "
|
|
|
140 syn match nastranDelimiter "[Cc][Ee][Nn][Dd]" contained
|
|
|
141 syn match nastranDelimiter "[Bb][Ee][Gg][Ii][Nn]" contained
|
|
|
142 syn match nastranDelimiter " *[Bb][Uu][Ll][Kk]" contained
|
|
|
143 syn match nastranDelimiter "[Ee][Nn][Dd] *[dD][Aa][Tt][Aa]" contained
|
|
|
144 "
|
|
|
145 " -------Case Control section
|
|
|
146 "
|
|
|
147 syn region nastranCC start=+^ *[Cc][Ee][Nn][Dd]+ end=+^ *[Bb][Ee][Gg][Ii][Nn]+ contains=nastranDelimiter,nastranBulkData,nastranDmapComment
|
|
|
148
|
|
|
149 "
|
|
|
150 " -------Bulk Data section
|
|
|
151 "
|
|
|
152 syn region nastranBulkData start=+ *[Bb][Uu][Ll][Kk] *$+ end=+^ [Ee][Nn][Dd] *[Dd]+ contains=nastranDelimiter,nastranDmapComment
|
|
|
153 "
|
|
|
154 " -------The following cards may appear in multiple sections of the file
|
|
|
155 "
|
|
|
156 syn keyword nastranUtilCard ECHOON ECHOOFF INCLUDE PARAM
|
|
|
157
|
|
|
158
|
|
|
159 if version >= 508 || !exists("did_nastran_syntax_inits")
|
|
|
160 if version < 508
|
|
|
161 let did_nastran_syntax_inits = 1
|
|
|
162 command -nargs=+ HiLink hi link <args>
|
|
|
163 else
|
|
|
164 command -nargs=+ HiLink hi link <args>
|
|
|
165 endif
|
|
|
166 " The default methods for highlighting. Can be overridden later
|
|
|
167 HiLink nastranDmapexecmod Statement
|
|
|
168 HiLink nastranDmapType Type
|
|
|
169 HiLink nastranDmapPreCondit Error
|
|
|
170 HiLink nastranDmapUtilmod PreProc
|
|
|
171 HiLink nastranDmapMatmod nastranDmapUtilmod
|
|
|
172 HiLink nastranDmapString String
|
|
|
173 HiLink nastranDmapNumber Constant
|
|
|
174 HiLink nastranDmapFloat nastranDmapNumber
|
|
|
175 HiLink nastranDmapInitTab nastranDmapNumber
|
|
|
176 HiLink nastranDmapTab nastranDmapNumber
|
|
|
177 HiLink nastranDmapLogical nastranDmapExecmod
|
|
|
178 HiLink nastranDmapImplicit Identifier
|
|
|
179 HiLink nastranDmapComment Comment
|
|
|
180 HiLink nastranDmapRepeat nastranDmapexecmod
|
|
|
181 HiLink nastranNastranCard nastranDmapPreCondit
|
|
|
182 HiLink nastranECSCard nastranDmapUtilmod
|
|
|
183 HiLink nastranFMSCard nastranNastranCard
|
|
|
184 HiLink nastranCC nastranDmapexecmod
|
|
|
185 HiLink nastranDelimiter Special
|
|
|
186 HiLink nastranBulkData nastranDmapType
|
|
|
187 HiLink nastranUtilCard nastranDmapexecmod
|
|
|
188 delcommand HiLink
|
|
|
189 endif
|
|
|
190
|
|
|
191 let b:current_syntax = "nastran"
|
|
|
192
|
|
|
193 "EOF vim: ts=8 noet tw=120 sw=8 sts=0
|
