1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
# Bourne shell script: abg2lbl_fig2txt
#
# Acausal bond graph to causal bond graph: mfile format
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.19 2001/07/03 23:51:10 gawthrop
## Now puts outline #Summary and #Description lines at top of lbl file
##
## Revision 1.18 2001/06/13 18:24:10 gawthrop
## Made "lin" default in place of "none"
## Still needs arg and cr alias clashes to be sorted ....
##
|
|
>
>
>
|
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
|
#!/bin/sh
######################################
##### Model Transformation Tools #####
######################################
# Bourne shell script: abg2lbl_fig2txt
#
# Acausal bond graph to causal bond graph: mfile format
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.20 2001/07/04 05:19:57 gawthrop
## Added RT & CT to list
##
## Revision 1.19 2001/07/03 23:51:10 gawthrop
## Now puts outline #Summary and #Description lines at top of lbl file
##
## Revision 1.18 2001/06/13 18:24:10 gawthrop
## Made "lin" default in place of "none"
## Still needs arg and cr alias clashes to be sorted ....
##
|
︙ | | | ︙ | |
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
|
# Copyright (c) P.J.Gawthrop, 1997
infofile='mtt_info.txt'
typefile="$1_type.sh"
sensitivity=$2;
system=$1
outfile=$1_lbl.txt
# Remove the old log file
rm -f abg2lbl_fig2txt.log
rm -f $1_cbg.m
rm -f $typefile
rm -f $infofile
rm -f mtt_junk*
## Create lbl files beneath this one
mtt -q -u -l 1 $1 sub sh # Create the list
sh $1_sub.sh "abg2lbl_fig2txt "
if [ -f "$1_lbl.txt" ]; then
##echo "$1_lbl.txt exists in `pwd` - no action taken"
exit
##else
##echo "$1_lbl.txt dosn not exist in `pwd` "
fi
|
>
>
>
>
>
>
|
|
|
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
|
# Copyright (c) P.J.Gawthrop, 1997
infofile='mtt_info.txt'
typefile="$1_type.sh"
sensitivity=$2;
system=$1
outfile=$1_lbl.txt
if [ -n "$sensitivity" ]; then
sys="-s ${system}"
else
sys=${system}
fi
# Remove the old log file
rm -f abg2lbl_fig2txt.log
rm -f $1_cbg.m
rm -f $typefile
rm -f $infofile
rm -f mtt_junk*
## Create lbl files beneath this one
mtt -q -u -l 1 ${sys} sub sh # Create the list
sh $1_sub.sh "abg2lbl_fig2txt " " $sensitivity"
if [ -f "$1_lbl.txt" ]; then
##echo "$1_lbl.txt exists in `pwd` - no action taken"
exit
##else
##echo "$1_lbl.txt dosn not exist in `pwd` "
fi
|
︙ | | | ︙ | |
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
create_lbl_body()
{
awk '/:/ {print $NF}' $1_abg.fig | \
sed 's/\\001//' | \
sort | \
tee $1_raw_list | \
sort -u> $1_unique_raw_list
#Write out non-unique names
#echo 'Non-unique names (if any):'
#diff $1_unique_raw_list $1_raw_list | grep '>' | sed 's/>/ /'
#Write out the outline lbl file
grep -v '\[[0-9]*\]' $1_unique_raw_list | \
|
>
|
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
create_lbl_body()
{
awk '/:/ {print $NF}' $1_abg.fig | \
sed 's/\\001//' | \
sort | \
tee $1_raw_list | \
sort -u> $1_unique_raw_list
#Write out non-unique names
#echo 'Non-unique names (if any):'
#diff $1_unique_raw_list $1_raw_list | grep '>' | sed 's/>/ /'
#Write out the outline lbl file
grep -v '\[[0-9]*\]' $1_unique_raw_list | \
|
︙ | | | ︙ | |
283
284
285
286
287
288
289
290
291
292
293
294
295
296
|
create_lbl_body $1> mtt_junk_lbl.txt
write_header > ${outfile}
cat mtt_junk_alias.txt >> ${outfile}
create_args mtt_junk >> ${outfile}
write_blurb >> ${outfile}
cat mtt_junk_lbl.txt >> ${outfile}
## Clean up
rm -f mtt_junk*
|
>
>
>
<
<
<
|
293
294
295
296
297
298
299
300
301
302
303
304
305
306
|
create_lbl_body $1> mtt_junk_lbl.txt
write_header > ${outfile}
cat mtt_junk_alias.txt >> ${outfile}
create_args mtt_junk >> ${outfile}
write_blurb >> ${outfile}
cat mtt_junk_lbl.txt >> ${outfile}
## Put a blank line at end
cat >> ${outfile} <<EOF
EOF
## Clean up
rm -f mtt_junk*
|