|
7
|
1 " Vim syntax file
|
|
|
2 " Language: TRASYS input file
|
|
|
3 " Maintainer: Adrian Nagle, anagle@ball.com
|
|
|
4 " Last Change: 2003 May 11
|
|
|
5 " Filenames: *.inp
|
|
|
6 " URL: http://www.naglenet.org/vim/syntax/trasys.vim
|
|
|
7 " MAIN URL: http://www.naglenet.org/vim/
|
|
|
8
|
|
|
9
|
|
|
10
|
|
|
11 " For version 5.x: Clear all syntax items
|
|
|
12 " For version 6.x: Quit when a syntax file was already loaded
|
|
|
13 if version < 600
|
|
|
14 syntax clear
|
|
|
15 elseif exists("b:current_syntax")
|
|
|
16 finish
|
|
|
17 endif
|
|
|
18
|
|
|
19
|
|
|
20 " Force free-form fortran format
|
|
|
21 let fortran_free_source=1
|
|
|
22
|
|
|
23 " Load FORTRAN syntax file
|
|
|
24 if version < 600
|
|
|
25 source <sfile>:p:h/fortran.vim
|
|
|
26 else
|
|
|
27 runtime! syntax/fortran.vim
|
|
|
28 endif
|
|
|
29 unlet b:current_syntax
|
|
|
30
|
|
|
31
|
|
|
32 " Ignore case
|
|
|
33 syn case ignore
|
|
|
34
|
|
|
35
|
|
|
36
|
|
|
37 " Define keywords for TRASYS
|
|
|
38 syn keyword trasysOptions model rsrec info maxfl nogo dmpdoc
|
|
|
39 syn keyword trasysOptions rsi rti rso rto bcdou cmerg emerg
|
|
|
40 syn keyword trasysOptions user1 nnmin erplot
|
|
|
41
|
|
|
42 syn keyword trasysSurface icsn tx ty tz rotx roty rotz inc bcsn
|
|
|
43 syn keyword trasysSurface nnx nny nnz nnax nnr nnth unnx
|
|
|
44 syn keyword trasysSurface unny unnz unnax unnr unnth type idupsf
|
|
|
45 syn keyword trasysSurface imagsf act active com shade bshade axmin
|
|
|
46 syn keyword trasysSurface axmax zmin zmax rmin rmax thmin thmin
|
|
|
47 syn keyword trasysSurface thmax alpha emiss trani trans spri sprs
|
|
|
48 syn keyword trasysSurface refno posit com dupbcs dimensions
|
|
|
49 syn keyword trasysSurface dimension position prop surfn
|
|
|
50
|
|
|
51 syn keyword trasysSurfaceType rect trap disk cyl cone sphere parab
|
|
|
52 syn keyword trasysSurfaceType box5 box6 shpero tor ogiv elem tape poly
|
|
|
53
|
|
|
54 syn keyword trasysSurfaceArgs ff di top bottom in out both no only
|
|
|
55
|
|
|
56 syn keyword trasysArgs fig smn nodea zero only ir sol
|
|
|
57 syn keyword trasysArgs both wband stepn initl
|
|
|
58
|
|
|
59 syn keyword trasysOperations orbgen build
|
|
|
60
|
|
|
61 "syn keyword trasysSubRoutine call
|
|
|
62 syn keyword trasysSubRoutine chgblk ndata ndatas odata odatas
|
|
|
63 syn keyword trasysSubRoutine pldta ffdata cmdata adsurf rbdata
|
|
|
64 syn keyword trasysSubRoutine rtdata pffshd orbit1 orbit2 orient
|
|
|
65 syn keyword trasysSubRoutine didt1 didt1s didt2 didt2s spin
|
|
|
66 syn keyword trasysSubRoutine spinav dicomp distab drdata gbdata
|
|
|
67 syn keyword trasysSubRoutine gbaprx rkdata rcdata aqdata stfaq
|
|
|
68 syn keyword trasysSubRoutine qodata qoinit modar modpr modtr
|
|
|
69 syn keyword trasysSubRoutine modprs modshd moddat rstoff rston
|
|
|
70 syn keyword trasysSubRoutine rsmerg ffread diread ffusr1 diusr1
|
|
|
71 syn keyword trasysSubRoutine surfp didt3 didt3s romain stfrc
|
|
|
72 syn keyword trasysSubRoutine rornt rocstr romove flxdata title
|
|
|
73
|
|
|
74 syn keyword trassyPrcsrSegm nplot oplot plot cmcal ffcal rbcal
|
|
|
75 syn keyword trassyPrcsrSegm rtcal dical drcal sfcal gbcal rccal
|
|
|
76 syn keyword trassyPrcsrSegm rkcal aqcal qocal
|
|
|
77
|
|
|
78
|
|
|
79
|
|
|
80 " Define matches for TRASYS
|
|
|
81 syn match trasysOptions "list source"
|
|
|
82 syn match trasysOptions "save source"
|
|
|
83 syn match trasysOptions "no print"
|
|
|
84
|
|
|
85 "syn match trasysSurface "^K *.* [^$]"
|
|
|
86 "syn match trasysSurface "^D *[0-9]*\.[0-9]\+"
|
|
|
87 "syn match trasysSurface "^I *.*[0-9]\+\.\="
|
|
|
88 "syn match trasysSurface "^N *[0-9]\+"
|
|
|
89 "syn match trasysSurface "^M *[a-z[A-Z0-9]\+"
|
|
|
90 "syn match trasysSurface "^B[C][S] *[a-zA-Z0-9]*"
|
|
|
91 "syn match trasysSurface "^S *SURFN.*[0-9]"
|
|
|
92 syn match trasysSurface "P[0-9]* *="he=e-1
|
|
|
93
|
|
|
94 syn match trasysIdentifier "^L "he=e-1
|
|
|
95 syn match trasysIdentifier "^K "he=e-1
|
|
|
96 syn match trasysIdentifier "^D "he=e-1
|
|
|
97 syn match trasysIdentifier "^I "he=e-1
|
|
|
98 syn match trasysIdentifier "^N "he=e-1
|
|
|
99 syn match trasysIdentifier "^M "he=e-1
|
|
|
100 syn match trasysIdentifier "^B[C][S]"
|
|
|
101 syn match trasysIdentifier "^S "he=e-1
|
|
|
102
|
|
|
103 syn match trasysComment "^C.*$"
|
|
|
104 syn match trasysComment "^R.*$"
|
|
|
105 syn match trasysComment "\$.*$"
|
|
|
106
|
|
|
107 syn match trasysHeader "^header[^,]*"
|
|
|
108
|
|
|
109 syn match trasysMacro "^FAC"
|
|
|
110
|
|
|
111 syn match trasysInteger "-\=\<[0-9]*\>"
|
|
|
112 syn match trasysFloat "-\=\<[0-9]*\.[0-9]*"
|
|
|
113 syn match trasysScientific "-\=\<[0-9]*\.[0-9]*E[-+]\=[0-9]\+\>"
|
|
|
114
|
|
|
115 syn match trasysBlank "' \+'"hs=s+1,he=e-1
|
|
|
116
|
|
|
117 syn match trasysEndData "^END OF DATA"
|
|
|
118
|
|
|
119 if exists("thermal_todo")
|
|
|
120 execute 'syn match trasysTodo ' . '"^'.thermal_todo.'.*$"'
|
|
|
121 else
|
|
|
122 syn match trasysTodo "^?.*$"
|
|
|
123 endif
|
|
|
124
|
|
|
125
|
|
|
126
|
|
|
127 " Define regions for TRASYS
|
|
|
128 syn region trasysComment matchgroup=trasysHeader start="^HEADER DOCUMENTATION DATA" end="^HEADER[^,]*"
|
|
|
129
|
|
|
130
|
|
|
131
|
|
|
132 " Define synchronizing patterns for TRASYS
|
|
|
133 syn sync maxlines=500
|
|
|
134 syn sync match trasysSync grouphere trasysComment "^HEADER DOCUMENTATION DATA"
|
|
|
135
|
|
|
136
|
|
|
137
|
|
|
138 " Define the default highlighting
|
|
|
139 " For version 5.7 and earlier: only when not done already
|
|
|
140 " For version 5.8 and later: only when an item doesn't have highlighting yet
|
|
|
141 if version >= 508 || !exists("did_trasys_syntax_inits")
|
|
|
142 if version < 508
|
|
|
143 let did_trasys_syntax_inits = 1
|
|
|
144 command -nargs=+ HiLink hi link <args>
|
|
|
145 else
|
|
|
146 command -nargs=+ HiLink hi def link <args>
|
|
|
147 endif
|
|
|
148
|
|
|
149 HiLink trasysOptions Special
|
|
|
150 HiLink trasysSurface Special
|
|
|
151 HiLink trasysSurfaceType Constant
|
|
|
152 HiLink trasysSurfaceArgs Constant
|
|
|
153 HiLink trasysArgs Constant
|
|
|
154 HiLink trasysOperations Statement
|
|
|
155 HiLink trasysSubRoutine Statement
|
|
|
156 HiLink trassyPrcsrSegm PreProc
|
|
|
157 HiLink trasysIdentifier Identifier
|
|
|
158 HiLink trasysComment Comment
|
|
|
159 HiLink trasysHeader Typedef
|
|
|
160 HiLink trasysMacro Macro
|
|
|
161 HiLink trasysInteger Number
|
|
|
162 HiLink trasysFloat Float
|
|
|
163 HiLink trasysScientific Float
|
|
|
164
|
|
|
165 HiLink trasysBlank SpecialChar
|
|
|
166
|
|
|
167 HiLink trasysEndData Macro
|
|
|
168
|
|
|
169 HiLink trasysTodo Todo
|
|
|
170
|
|
|
171 delcommand HiLink
|
|
|
172 endif
|
|
|
173
|
|
|
174
|
|
|
175 let b:current_syntax = "trasys"
|
|
|
176
|
|
|
177 " vim: ts=8 sw=2
|
