1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
+
+
+
|
#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
# Bourne shell script: rbg2abg_m
#
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.8 1998/02/19 08:57:02 peterg
## Fixed mtt-info bug -- confused filename with number
##
## Revision 1.7 1997/08/05 08:38:23 peterg
## Added n-ports to the argument list in the comment.
##
## Revision 1.6 1996/12/04 21:52:01 peterg
## Uses filenum and fopen instead of filename.
##
## Revision 1.5 1996/08/25 09:20:32 peter
|
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
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
|
+
+
+
+
+
+
+
+
+
+
+
|
# 4 Explicit component (4 means text type)
# 0 Implicit component
# Column 3-14 fig file information (see fig documentation)
#
# P.J.Gawthrop May 1996
# Copyright (c) P.J.Gawthrop, 1996.
while [ -n "`echo $1 | grep '^-'`" ]; do
case $1 in
-I )
info=info;;
*)
echo "$1 is an invalid argument - ignoring" ;;
esac
shift
done
# Remove the old log file
rm -f rbg2abg_m.log
rm -f $1_abg.m
#Inform user
echo Creating $1_abg.m
|
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
+
-
+
+
|
c, date);
mat2mfile(bonds, 'bonds', filenum);
mat2mfile(components, 'components', filenum);
fprintf(filenum, 'n_ports = %1.0f;\n', n_ports);
EOF
if [ "$info" = "info" ]; then
cat mtt_info.txt
cat mtt_info.txt
fi
mtt_error mtt_error.txt
|