blob: 2bde267c2fbadfc521b9e5d117bb78ba79af475e (
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
|
" Vim syntax file
" Language: sinda85, sinda/fluint input file
" Maintainer: Adrian Nagle, anagle@ball.com
" Last Change: 2003 May 11
" Filenames: *.sin
" URL: http://www.naglenet.org/vim/syntax/sinda.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
" Ignore case
syn case ignore
"
"
" Begin syntax definitions for sinda input and output files.
"
" 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
" Define keywords for SINDA
syn keyword sindaMacro BUILD BUILDF DEBON DEBOFF DEFMOD FSTART FSTOP
syn keyword sindaOptions TITLE PPSAVE RSI RSO OUTPUT SAVE QMAP USER1 USER2
syn keyword sindaOptions MODEL PPOUT NOLIST MLINE NODEBUG DIRECTORIES
syn keyword sindaOptions DOUBLEPR
syn keyword sindaRoutine FORWRD FWDBCK STDSTL FASTIC
syn keyword sindaControl ABSZRO ACCELX ACCELY ACCELZ ARLXCA ATMPCA
syn keyword sindaControl BACKUP CSGFAC DRLXCA DTIMEH DTIMEI DTIMEL
syn keyword sindaControl DTIMES DTMPCA EBALNA EBALSA EXTLIM ITEROT
syn keyword sindaControl ITERXT ITHOLD NLOOPS NLOOPT OUTPUT OPEITR
syn keyword sindaControl PATMOS SIGMA TIMEO TIMEND UID
syn keyword sindaSubRoutine ASKERS ADARIN ADDARY ADDMOD ARINDV
syn keyword sindaSubRoutine RYINV ARYMPY ARYSUB ARYTRN BAROC
syn keyword sindaSubRoutine BELACC BNDDRV BNDGET CHENNB CHGFLD
syn keyword sindaSubRoutine CHGLMP CHGSUC CHGVOL CHKCHL CHKCHP
syn keyword sindaSubRoutine CNSTAB COMBAL COMPLQ COMPRS CONTRN
syn keyword sindaSubRoutine CPRINT CRASH CRVINT CRYTRN CSIFLX
syn keyword sindaSubRoutine CVTEMP D11CYL C11DAI D11DIM D11MCY
syn keyword sindaSubRoutine D11MDA D11MDI D11MDT D12CYL D12MCY
syn keyword sindaSubRoutine D12MDA D1D1DA D1D1IM D1D1WM D1D2DA
syn keyword sindaSubRoutine D1D2WM D1DEG1 D1DEG2 D1DG1I D1IMD1
syn keyword sindaSubRoutine D1IMIM D1IMWM D1M1DA D1M2MD D1M2WM
syn keyword sindaSubRoutine D1MDG1 D1MDG2 D2D1WM D1DEG1 D2DEG2
syn keyword sindaSubRoutine D2D2
syn keyword sindaIdentifier BIV CAL DIM DIV DPM DPV DTV GEN PER PIV PIM
syn keyword sindaIdentifier SIM SIV SPM SPV TVS TVD
" Define matches for SINDA
syn match sindaFortran "^F[0-9 ]"me=e-1
syn match sindaMotran "^M[0-9 ]"me=e-1
syn match sindaComment "^C.*$"
syn match sindaComment "^R.*$"
syn match sindaComment "\$.*$"
syn match sindaHeader "^header[^,]*"
syn match sindaIncludeFile "include \+[^ ]\+"hs=s+8 contains=fortranInclude
syn match sindaMacro "^PSTART"
syn match sindaMacro "^PSTOP"
syn match sindaMacro "^FAC"
syn match sindaInteger "-\=\<[0-9]*\>"
syn match sindaFloat "-\=\<[0-9]*\.[0-9]*"
syn match sindaScientific "-\=\<[0-9]*\.[0-9]*E[-+]\=[0-9]\+\>"
syn match sindaEndData "^END OF DATA"
if exists("thermal_todo")
execute 'syn match sindaTodo ' . '"^'.thermal_todo.'.*$"'
else
syn match sindaTodo "^?.*$"
endif
" 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_sinda_syntax_inits")
if version < 508
let did_sinda_syntax_inits = 1
command -nargs=+ HiLink hi link <args>
else
command -nargs=+ HiLink hi def link <args>
endif
HiLink sindaMacro Macro
HiLink sindaOptions Special
HiLink sindaRoutine Type
HiLink sindaControl Special
HiLink sindaSubRoutine Function
HiLink sindaIdentifier Identifier
HiLink sindaFortran PreProc
HiLink sindaMotran PreProc
HiLink sindaComment Comment
HiLink sindaHeader Typedef
HiLink sindaIncludeFile Type
HiLink sindaInteger Number
HiLink sindaFloat Float
HiLink sindaScientific Float
HiLink sindaEndData Macro
HiLink sindaTodo Todo
delcommand HiLink
endif
let b:current_syntax = "sinda"
" vim: ts=8 sw=2
|
