Overview
Comment:Now gets portlist from the _abg.m file NOT the _rbg.m file
- this allows expansion of vector SS ports.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 1b19943eba1d2214bcaa58e5d932db60552701e4833b86d0ac7b0c7a16d092ba
User & Date: gawthrop@users.sourceforge.net on 1999-03-12 00:58:06
Other Links: branch diff | manifest | tags
Context
1999-03-12
01:12:09
Now does up to 10 ports check-in: eaecddc91b user: gawthrop@users.sourceforge.net tags: origin/master, trunk
00:58:06
Now gets portlist from the _abg.m file NOT the _rbg.m file
- this allows expansion of vector SS ports.
check-in: 1b19943eba user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1999-03-11
23:54:11
Include possibility of vector SS when finding port_bond_index check-in: 52908cf045 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/m/rbg2abg.m from [1acc00e785] to [aa49fa00f2].

1
2
3
4
5
6
7
8
9



10
11
12
13
14
15
16
function [bonds,components] = rbg2abg(name,rbonds,rstrokes,rcomponents,\
				      port_coord,port_name,\
				      infofile,errorfile)

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$



% %% 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









>
>
>







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
  % 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;']);


  else
    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







|
>
>

|







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(["ABG = ",comp_type, "_abg;"]);
    port_list = ABG.portlist;
  else
    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


MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]