blob: 7a8fceb8607bb725b5c181bbdf51e7b1c67de4ad (
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
|
" 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
hi def link takMacro Macro
hi def link takOptions Special
hi def link takRoutine Type
hi def link takControl Special
hi def link takSolids Special
hi def link takSolidsArg Statement
hi def link takIdentifier Identifier
hi def link takFortran PreProc
hi def link takMotran PreProc
hi def link takComment Comment
hi def link takHeader Typedef
hi def link takIncludeFile Type
hi def link takInteger Number
hi def link takFloat Float
hi def link takScientific Float
hi def link takEndData Macro
hi def link takTodo Todo
let b:current_syntax = "tak"
" vim: ts=8 sw=2
|
