Overview
Comment:Only copy port cuaslity info if not already set within the
subsystem. I thought I'd done this already ....
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 906b281df2df25fec33ca3488358a0eccdc4c2fe950d4e34539f80e6f57a585e
User & Date: gawthrop@users.sourceforge.net on 1997-08-19 10:21:09.000
Other Links: branch diff | manifest | tags
Context
1997-08-19
10:38:26
Added pi to the list check-in: 57e20536a9 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
10:21:09
Only copy port cuaslity info if not already set within the
subsystem. I thought I'd done this already ....
check-in: 906b281df2 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:49:19
Modified to take account of the expanded vector bonds. Only displays
causality corresponding to the bond connecting the first element of
the vector ports.
check-in: f6a850f6fb user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
13
14
15
16
17
18
19



20
21
22
23
24
25
26
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29







+
+
+







% [bonds,status] = abg2cbg(system_name, system_type, full_name, port_bonds, infofile)

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.21  1997/08/18 16:25:25  peterg
% %% Minor bug fixes
% %%
% %% Revision 1.20  1997/08/18 12:45:24  peterg
% %% Replaced: comp_bonds = bonds(bond_list,:)
% %% by: 	for kk = 1:n_comp
% %% 	  comp_bonds(kk,:) = bonds(comp(kk),:);
% %% 	end;
% %%
% %% to avoid an octave bug in 1.92.
168
169
170
171
172
173
174
175
176
177










178
179
180
181
182
183
184
171
172
173
174
175
176
177



178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194







-
-
-
+
+
+
+
+
+
+
+
+
+








  % Check compatibility - if ok copy port bonds to the internal bonds list.
  if n_port_bonds~=n_ports
  mtt_info(sprintf('%s: %1.0f port bonds incompatible with %1.0f ports', ...
               full_name, n_port_bonds, n_ports), infofile);

  else % Copy the port bonds & status
    j = abs(components(1:n_ports,1)) % relevant bond numbers
    bonds(j,:) = port_bonds;
    status(1:n_ports) = port_status;
    port_bond_index = abs(components(1:n_ports,1)) % relevant bond numbers
    for j = 1:n_port_bonds
      jj = port_bond_index(j);
      for k = 1:2
	if bonds(jj,k)==0 % only copy if not already set
	bonds(jj,k) = port_bonds(j,k);
	end;
      end;
      status(1:n_ports) = port_status;
    end
  end
else
  n_port_bonds=0;
end;
bonds,port_bonds

% Causality indicator

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