blob: cfecc1c1fd612141167fc5a9912ed460d74d7db0 (
plain)
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
|
" 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/
" For version 5.x: Clear all syntax items
" For version 6.x: Quit when a syntax file was already loaded
if version < 600
syntax clear
elseif exists("b:current_syntax")
finish
endif
" Force free-form fortran format
let fortran_free_source=1
" Load FORTRAN syntax file
if version < 600
source <sfile>:p:h/fortran.vim
else
runtime! syntax/fortran.vim
endif
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
" For version 5.7 and earlier: only when not done already
" For version 5.8 and later: only when an item doesn't have highlighting yet
if version >= 508 || !exists("did_trasys_syntax_inits")
if version < 508
let did_trasys_syntax_inits = 1
command -nargs=+ HiLink hi link <args>
else
command -nargs=+ HiLink hi def link <args>
endif
HiLink trasysOptions Special
HiLink trasysSurface Special
HiLink trasysSurfaceType Constant
HiLink trasysSurfaceArgs Constant
HiLink trasysArgs Constant
HiLink trasysOperations Statement
HiLink trasysSubRoutine Statement
HiLink trassyPrcsrSegm PreProc
HiLink trasysIdentifier Identifier
HiLink trasysComment Comment
HiLink trasysHeader Typedef
HiLink trasysMacro Macro
HiLink trasysInteger Number
HiLink trasysFloat Float
HiLink trasysScientific Float
HiLink trasysBlank SpecialChar
HiLink trasysEndData Macro
HiLink trasysTodo Todo
delcommand HiLink
endif
let b:current_syntax = "trasys"
" vim: ts=8 sw=2
|
