blob: b363ea33c605853d7ed511af30f0a0a37ec18f5d (
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
|
" Vim syntax file
" Language: TAK2, TAK3, TAK2000 thermal modeling input file
" Maintainer: Adrian Nagle, anagle@ball.com
" Last Change: 2003 May 11
" Filenames: *.tak
" URL: http://www.naglenet.org/vim/syntax/tak.vim
" MAIN URL: http://www.naglenet.org/vim/
" quit when a syntax file was already loaded
if exists("b:current_syntax")
finish
endif
" Ignore case
syn case ignore
"
"
" Begin syntax definitions for tak input file.
"
" Force free-form fortran format
let fortran_free_source=1
" Load FORTRAN syntax file
runtime! syntax/fortran.vim
unlet b:current_syntax
" Define keywords for TAK and TAKOUT
syn keyword takOptions AUTODAMP CPRINT CSGDUMP GPRINT HPRINT LODTMP
syn keyword takOptions LOGIC LPRINT NCVPRINT PLOTQ QPRINT QDUMP
syn keyword takOptions SUMMARY SOLRTN UID DICTIONARIES
syn keyword takRoutine SSITER FWDWRD FWDBCK BCKWRD
syn keyword takControl ABSZRO BACKUP DAMP DTIMEI DTIMEL DTIMEH IFC
syn keyword takControl MAXTEMP NLOOPS NLOOPT NODELIST OUTPUT PLOT
syn keyword takControl SCALE SIGMA SSCRIT TIMEND TIMEN TIMEO TRCRIT
syn keyword takControl PLOT
syn keyword takSolids PLATE CYL
syn keyword takSolidsArg ID MATNAM NTYPE TEMP XL YL ZL ISTRN ISTRG NNX
syn keyword takSolidsArg NNY NNZ INCX INCY INCZ IAK IAC DIFF ARITH BOUN
syn keyword takSolidsArg RMIN RMAX AXMAX NNR NNTHETA INCR INCTHETA END
syn case ignore
syn keyword takMacro fac pstart pstop
syn keyword takMacro takcommon fstart fstop
syn keyword takIdentifier flq flx gen ncv per sim siv stf stv tvd tvs
syn keyword takIdentifier tvt pro thm
" Define matches for TAK
syn match takFortran "^F[0-9 ]"me=e-1
syn match takMotran "^M[0-9 ]"me=e-1
syn match takComment "^C.*$"
syn match takComment "^R.*$"
syn match takComment "\$.*$"
syn match takHeader "^header[^,]*"
syn match takIncludeFile "include \+[^ ]\+"hs=s+8 contains=fortranInclude
syn match takInteger "-\=\<[0-9]*\>"
syn match takFloat "-\=\<[0-9]*\.[0-9]*"
syn match takScientific "-\=\<[0-9]*\.[0-9]*E[-+]\=[0-9]\+\>"
syn match takEndData "END OF DATA"
if exists("thermal_todo")
execute 'syn match takTodo ' . '"^'.thermal_todo.'.*$"'
else
syn match takTodo "^?.*$"
endif
" Define the default highlighting
" Only when an item doesn't have highlighting yet
command -nargs=+ HiLink hi def link <args>
HiLink takMacro Macro
HiLink takOptions Special
HiLink takRoutine Type
HiLink takControl Special
HiLink takSolids Special
HiLink takSolidsArg Statement
HiLink takIdentifier Identifier
HiLink takFortran PreProc
HiLink takMotran PreProc
HiLink takComment Comment
HiLink takHeader Typedef
HiLink takIncludeFile Type
HiLink takInteger Number
HiLink takFloat Float
HiLink takScientific Float
HiLink takEndData Macro
HiLink takTodo Todo
delcommand HiLink
let b:current_syntax = "tak"
" vim: ts=8 sw=2
|
