|
7
|
1 " Vim syntax file
|
|
|
2 " Language: TAK2, TAK3, TAK2000 thermal modeling input file
|
|
|
3 " Maintainer: Adrian Nagle, anagle@ball.com
|
|
|
4 " Last Change: 2003 May 11
|
|
|
5 " Filenames: *.tak
|
|
|
6 " URL: http://www.naglenet.org/vim/syntax/tak.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
|
|
|
21 " Ignore case
|
|
|
22 syn case ignore
|
|
|
23
|
|
|
24
|
|
|
25
|
|
|
26 "
|
|
|
27 "
|
|
|
28 " Begin syntax definitions for tak input file.
|
|
|
29 "
|
|
|
30
|
|
|
31 " Force free-form fortran format
|
|
|
32 let fortran_free_source=1
|
|
|
33
|
|
|
34 " Load FORTRAN syntax file
|
|
|
35 if version < 600
|
|
|
36 source <sfile>:p:h/fortran.vim
|
|
|
37 else
|
|
|
38 runtime! syntax/fortran.vim
|
|
|
39 endif
|
|
|
40 unlet b:current_syntax
|
|
|
41
|
|
|
42
|
|
|
43
|
|
|
44 " Define keywords for TAK and TAKOUT
|
|
|
45 syn keyword takOptions AUTODAMP CPRINT CSGDUMP GPRINT HPRINT LODTMP
|
|
|
46 syn keyword takOptions LOGIC LPRINT NCVPRINT PLOTQ QPRINT QDUMP
|
|
|
47 syn keyword takOptions SUMMARY SOLRTN UID DICTIONARIES
|
|
|
48
|
|
|
49 syn keyword takRoutine SSITER FWDWRD FWDBCK BCKWRD
|
|
|
50
|
|
|
51 syn keyword takControl ABSZRO BACKUP DAMP DTIMEI DTIMEL DTIMEH IFC
|
|
|
52 syn keyword takControl MAXTEMP NLOOPS NLOOPT NODELIST OUTPUT PLOT
|
|
|
53 syn keyword takControl SCALE SIGMA SSCRIT TIMEND TIMEN TIMEO TRCRIT
|
|
|
54 syn keyword takControl PLOT
|
|
|
55
|
|
|
56 syn keyword takSolids PLATE CYL
|
|
|
57 syn keyword takSolidsArg ID MATNAM NTYPE TEMP XL YL ZL ISTRN ISTRG NNX
|
|
|
58 syn keyword takSolidsArg NNY NNZ INCX INCY INCZ IAK IAC DIFF ARITH BOUN
|
|
|
59 syn keyword takSolidsArg RMIN RMAX AXMAX NNR NNTHETA INCR INCTHETA END
|
|
|
60
|
|
|
61 syn case ignore
|
|
|
62
|
|
|
63 syn keyword takMacro fac pstart pstop
|
|
|
64 syn keyword takMacro takcommon fstart fstop
|
|
|
65
|
|
|
66 syn keyword takIdentifier flq flx gen ncv per sim siv stf stv tvd tvs
|
|
|
67 syn keyword takIdentifier tvt pro thm
|
|
|
68
|
|
|
69
|
|
|
70
|
|
|
71 " Define matches for TAK
|
|
|
72 syn match takFortran "^F[0-9 ]"me=e-1
|
|
|
73 syn match takMotran "^M[0-9 ]"me=e-1
|
|
|
74
|
|
|
75 syn match takComment "^C.*$"
|
|
|
76 syn match takComment "^R.*$"
|
|
|
77 syn match takComment "\$.*$"
|
|
|
78
|
|
|
79 syn match takHeader "^header[^,]*"
|
|
|
80
|
|
|
81 syn match takIncludeFile "include \+[^ ]\+"hs=s+8 contains=fortranInclude
|
|
|
82
|
|
|
83 syn match takInteger "-\=\<[0-9]*\>"
|
|
|
84 syn match takFloat "-\=\<[0-9]*\.[0-9]*"
|
|
|
85 syn match takScientific "-\=\<[0-9]*\.[0-9]*E[-+]\=[0-9]\+\>"
|
|
|
86
|
|
|
87 syn match takEndData "END OF DATA"
|
|
|
88
|
|
|
89 if exists("thermal_todo")
|
|
|
90 execute 'syn match takTodo ' . '"^'.thermal_todo.'.*$"'
|
|
|
91 else
|
|
|
92 syn match takTodo "^?.*$"
|
|
|
93 endif
|
|
|
94
|
|
|
95
|
|
|
96
|
|
|
97 " Define the default highlighting
|
|
|
98 " For version 5.7 and earlier: only when not done already
|
|
|
99 " For version 5.8 and later: only when an item doesn't have highlighting yet
|
|
|
100 if version >= 508 || !exists("did_tak_syntax_inits")
|
|
|
101 if version < 508
|
|
|
102 let did_tak_syntax_inits = 1
|
|
|
103 command -nargs=+ HiLink hi link <args>
|
|
|
104 else
|
|
|
105 command -nargs=+ HiLink hi def link <args>
|
|
|
106 endif
|
|
|
107
|
|
|
108 HiLink takMacro Macro
|
|
|
109 HiLink takOptions Special
|
|
|
110 HiLink takRoutine Type
|
|
|
111 HiLink takControl Special
|
|
|
112 HiLink takSolids Special
|
|
|
113 HiLink takSolidsArg Statement
|
|
|
114 HiLink takIdentifier Identifier
|
|
|
115
|
|
|
116 HiLink takFortran PreProc
|
|
|
117 HiLink takMotran PreProc
|
|
|
118
|
|
|
119 HiLink takComment Comment
|
|
|
120 HiLink takHeader Typedef
|
|
|
121 HiLink takIncludeFile Type
|
|
|
122 HiLink takInteger Number
|
|
|
123 HiLink takFloat Float
|
|
|
124 HiLink takScientific Float
|
|
|
125
|
|
|
126 HiLink takEndData Macro
|
|
|
127
|
|
|
128 HiLink takTodo Todo
|
|
|
129
|
|
|
130 delcommand HiLink
|
|
|
131 endif
|
|
|
132
|
|
|
133
|
|
|
134 let b:current_syntax = "tak"
|
|
|
135
|
|
|
136 " vim: ts=8 sw=2
|
