1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
function [bonds,components] = rbg2abg(name,rbonds,rstrokes,rcomponents,port_coord,port_name,infofile)
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.28 1998/07/02 12:36:05 peterg
% %% Removed debugging lines
% %%
% %% Revision 1.27 1998/07/02 12:24:02 peterg
% %% Expand port aliases
% %%
% %% Revision 1.26 1998/04/16 14:07:51 peterg
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
function [bonds,components] = rbg2abg(name,rbonds,rstrokes,rcomponents,port_coord,port_name,infofile)
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.29 1998/07/02 13:28:31 peterg
% %% Added defaults in new form BEFORE alias expansion
% %%
% %% Revision 1.28 1998/07/02 12:36:05 peterg
% %% Removed debugging lines
% %%
% %% Revision 1.27 1998/07/02 12:24:02 peterg
% %% Expand port aliases
% %%
% %% Revision 1.26 1998/04/16 14:07:51 peterg
|
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
|
# Unalias all the ports on this component - if not a junction
unlabelled_ports = 0;
in_bonds = 0;
if ((comp_type!="0")&&(comp_type!="1"))
eval( ["alias = ", comp_type, '_alias';]); # Get aliases
if is_struct(alias) # are there any aliases
for j=1:n_comp_bonds
port_name_index = getindex(port_bond,signed_bond_list(j));
port_direction = -sign(signed_bond_list(j));
if port_name_index==0 # There is no port on this bond - so try
# to default
unlabelled_ports++;
if(unlabelled_ports==1)
if port_direction>0
in_bonds++;
|
>
|
|
|
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
|
# Unalias all the ports on this component - if not a junction
unlabelled_ports = 0;
in_bonds = 0;
if ((comp_type!="0")&&(comp_type!="1"))
eval( ["alias = ", comp_type, '_alias';]); # Get aliases
if is_struct(alias) # are there any aliases
for j=1:n_comp_bonds
signed_bond = signed_bond_list(j);
port_name_index = getindex(port_bond,signed_bond);
port_direction = -sign(signed_bond);
if port_name_index==0 # There is no port on this bond - so try
# to default
unlabelled_ports++;
if(unlabelled_ports==1)
if port_direction>0
in_bonds++;
|
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
|
else
mtt_info(["More than two unlabelled ports on component " \
comp_name " (" comp_type ")"],fnum);
end
mtt_info(["Defaulting to port name " port_name_i " on component " \
comp_name " (" comp_type ")" ],fnum);
port_name = [port_name; ["[" port_name_i "]"]]; # add to list
[port_name_index,junk] = size(port_name); # the corresponding index
else
port_name_i = deblank(port_name(port_name_index,:));
port_name_i = port_name_i(2:length(port_name_i)-1) # strip []
end;
if struct_contains(alias,port_name_i) # Is this an alias?
eval(["new_port_name_i = alias.",port_name_i]);
mtt_info(["Expanding port name " port_name_i " of component " \
|
|
>
>
|
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
|
else
mtt_info(["More than two unlabelled ports on component " \
comp_name " (" comp_type ")"],fnum);
end
mtt_info(["Defaulting to port name " port_name_i " on component " \
comp_name " (" comp_type ")" ],fnum);
port_name = [port_name; ["[" port_name_i "]"]]; # add to list
[port_name_index,junk] = size(port_name); # the corresponding
# index
port_bond(port_name_index,:) = signed_bond; # add to port bond
else
port_name_i = deblank(port_name(port_name_index,:));
port_name_i = port_name_i(2:length(port_name_i)-1) # strip []
end;
if struct_contains(alias,port_name_i) # Is this an alias?
eval(["new_port_name_i = alias.",port_name_i]);
mtt_info(["Expanding port name " port_name_i " of component " \
|