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$
###############################################################
# P.J.Gawthrop March 1997
# Copyright (c) P.J.Gawthrop, 1997
infofile='mtt_info.txt'
|
>
>
>
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
# Acausal bond graph to causal bond graph: mfile format
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
# Revision 1.1 1997/03/18 13:55:01 peterg
# Initial revision
#
###############################################################
# P.J.Gawthrop March 1997
# Copyright (c) P.J.Gawthrop, 1997
infofile='mtt_info.txt'
|
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
awk '/:/ {print $NF}' $1_abg.fig | \
sed 's/\\001//' | \
sort | \
tee $1_raw_list | \
sort -u> $1_unique_raw_list
grep -v '\[[0-9]*\]' $1_raw_list | awk --field-separator ':' \
'{if ($1 ~ "SS") \
print "% Component type", $1, "\n\t" $2 "\t\texternal\texternal";
else \
print "% Component type", $1, "\n\t" $2 "\t\tlin\t\targ1,arg2" }' \
>>$1_lbl.txt
|
>
>
>
>
>
|
>
|
|
>
|
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
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 | awk --field-separator ':' \
'{if (($1 !~ "0")&&($1 !~ "1")) \
{if ($1 ~ "SS") \
print "% Component type", $1, "\n\t" $2 "\t\texternal\texternal";
else \
print "% Component type", $1, "\n\t" $2"\t\tlin\t\targ1,arg2"} \
}' \
>>$1_lbl.txt
|