1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
" 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
|
