9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Acausal bond graph to causal bond graph: mfile format
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.15 2001/07/23 23:24:02 gawthrop
## Now only writes to type.sh and cbg.m when causality is complete
##
## Revision 1.14 2000/12/28 12:16:13 peterg
## *** empty log message ***
##
## Revision 1.13 1998/07/27 20:30:12 peterg
|
>
>
>
>
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# Acausal bond graph to causal bond graph: mfile format
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.16 2001/07/26 04:07:28 gawthrop
## Changed a to w on open (Geraint's suggestion)
## Explictly close files
##
## Revision 1.15 2001/07/23 23:24:02 gawthrop
## Now only writes to type.sh and cbg.m when causality is complete
##
## Revision 1.14 2000/12/28 12:16:13 peterg
## *** empty log message ***
##
## Revision 1.13 1998/07/27 20:30:12 peterg
|
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
|
## close the files
fclose(infofilenum);
fclose(errorfilenum);
fclose(typefilenum);
EOF
if [ "$info" = "info" ]; then
cat $infofile
fi
# cp $1_$1_cbg.m $1_cbg.m 2>> mtt_error.txt
# Print errors, if any.
mtt_error mtt_error.txt
|
|
>
|
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
|
## close the files
fclose(infofilenum);
fclose(errorfilenum);
fclose(typefilenum);
EOF
cat $typefile | sort -u > ${typefile}.tmp
mv ${typefile}.tmp $typefile
if [ "$info" = "info" ]; then
cat $infofile
fi
# cp $1_$1_cbg.m $1_cbg.m 2>> mtt_error.txt
# Print errors, if any.
mtt_error mtt_error.txt
|