1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
+
+
+
|
function [bonds,components] = rbg2abg(name,rbonds,rstrokes,rcomponents,\
port_coord,port_name,\
infofile,errorfile)
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.37 1998/07/28 19:06:43 peterg
% %% Still some bugs (vector SS ports)??
% %%
% %% Revision 1.36 1998/07/28 10:30:50 peterg
% %% Implemented vector SS ports.
% %%
% %% Revision 1.35 1998/07/08 15:35:15 peterg
% %% Added errorfile argument
% %%
% %% Revision 1.34 1998/07/02 19:41:29 peterg
|
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
|
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
|
-
+
+
+
-
+
|
% Find the (unsorted) bond list on this component
signed_bond_list = nozeros(components(i,:));
n_comp_bonds = length(signed_bond_list);
direction = sign(signed_bond_list);
%Find the port list for this component
if exist([comp_type, '_cause'])==0
eval(['[junk1,junk2,junk3,junk4,junk5,port_list]=', comp_type, '_rbg;']);
# eval(['[junk1,junk2,junk3,junk4,junk5,port_list]=', comp_type, '_rbg;']);
eval(["ABG = ",comp_type, "_abg;"]);
port_list = ABG.portlist;
else
port_list=comp_ports(comp_type,n_comp_bonds);
port_list=comp_ports(comp_type,n_comp_bonds)
end;
[n_comp_ports,m_comp_ports] = size(port_list);
subport_list="";
for p=1:n_comp_ports # Expand any vector ports
[subport,n_sub] = split_port(port_list(p,:), ','); # Find the components
# of the vector port
|