1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
# Bourne shell script: rbg2abg_m
#
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.19 2002/04/28 18:55:03 geraint
## Fixed [ 549658 ] awk should be gawk.
## Replaced calls to awk with call to gawk.
##
## Revision 1.18 2001/03/30 15:13:58 gawthrop
## Rationalised simulation modes to each return mtt_data
##
|
>
>
>
|
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.20 2004/02/19 12:05:49 gawthrop
## Fix prob. when no bonds
##
## Revision 1.19 2002/04/28 18:55:03 geraint
## Fixed [ 549658 ] awk should be gawk.
## Replaced calls to awk with call to gawk.
##
## Revision 1.18 2001/03/30 15:13:58 gawthrop
## Rationalised simulation modes to each return mtt_data
##
|
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
#Inform user
echo Creating ${abg_file}
# Use matrix manipulation to accomplish the transformation
$MATRIX > rbg2abg_m.log 2>mtt_error.txt << EOF
name = '$1'
infofile = fopen('mtt_info.txt', 'w');
errorfile = fopen('mtt_error.txt', 'w');
%Convert from the fig version of the bonds to a structured version
[rbonds,rstrokes,rcomponents,port_coord,port_name,port_list] = $1_rbg
[n_ports, junk] = size(port_list)
N_ports = 0;
for i=1:n_ports # Count the true number of ports.
|
|
|
|
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
#Inform user
echo Creating ${abg_file}
# Use matrix manipulation to accomplish the transformation
$MATRIX > rbg2abg_m.log 2>mtt_error.txt << EOF
name = '$1'
infofile = fopen('mtt_info.txt', 'wt');
errorfile = fopen('mtt_error.txt', 'wt');
%Convert from the fig version of the bonds to a structured version
[rbonds,rstrokes,rcomponents,port_coord,port_name,port_list] = $1_rbg
[n_ports, junk] = size(port_list)
N_ports = 0;
for i=1:n_ports # Count the true number of ports.
|