9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
+
+
+
+
+
+
|
# Acausal bond graph to causal bond graph: mfile format
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.7 1998/07/04 10:37:21 peterg
## Major revision to include:
## aliases
## new Style
## prettyfied
##
## Revision 1.6 1998/03/05 10:09:47 peterg
## Corrected bug in writing "other" components
##
## Revision 1.5 1998/03/02 09:26:18 peterg
## Now does default CR and args for the basic components only
## SS,I,R,C,GY,TF
## C now has a default of effort input.
|
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
-
+
|
#Inform user
echo Creating $1_lbl.txt
( \
echo "%% Label file for system $1 ($1_lbl.txt)"; \
echo "%SUMMARY $1"; \
echo "%DESCRIPTION <Detailed description here>"; \
echo "%DESCRIPTION "; \
cat $MTTPATH/trans/m/rcs_header.txt; \
)>mtt_junk_top.txt
( \
echo; \
echo "%% Each line should be of one of the following forms:"; \
echo "% a comment (ie starting with %)"; \
|
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
-
+
|
#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 != "0")&&($1 != "1"))
{
if (Component !~ $1) print "\n% Component type", $1
if ($1 == "SS") {
port_alias[++j] = $2
print "\t" $2 "\tSS\t\texternal,external";
}
|