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.49 2001/07/26 05:02:53 geraint
## ## Now writes cbg.fig when under-causal (again).
## ##
## ## Revision 1.48 2001/07/23 23:20:27 gawthrop
## ## Now only writes to type.sh and cbg.m when causality is completed.
## ##
## ## Revision 1.47 2000/03/20 16:45:26 peterg
|
>
>
>
|
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
## [bonds,status] = abg2cbg(system_name, system_type, full_name, port_bonds, infofile)
## ###############################################################
## ## Version control history
## ###############################################################
## ## $Id$
## ## $Log$
## ## Revision 1.50 2003/03/13 15:18:39 gawthrop
## ## Now uses __ to delimit subsystems in names.
## ##
## ## Revision 1.49 2001/07/26 05:02:53 geraint
## ## Now writes cbg.fig when under-causal (again).
## ##
## ## Revision 1.48 2001/07/23 23:20:27 gawthrop
## ## Now only writes to type.sh and cbg.m when causality is completed.
## ##
## ## Revision 1.47 2000/03/20 16:45:26 peterg
|
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
|
## return
## end;
## Coerce the port (SS:[]) component bonds to have the same direction as
## of the bonds in the encapsulating system -- but not at top level
Flipped.ports="";Flipped.subs="";Flipped.cons="";
if (n_ports>0)&&(!at_top_level) # Coerce directions
for i=1:n_ports
name = deblank(ABG.portlist(i,:)); # Name of this port
eval(["port = ABG.ports.",name,";"]); # Extract port info
disp ("----");
i
|
|
|
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
|
## return
## end;
## Coerce the port (SS:[]) component bonds to have the same direction as
## of the bonds in the encapsulating system -- but not at top level
Flipped.ports="";Flipped.subs="";Flipped.cons=[];
if (n_ports>0)&&(!at_top_level) # Coerce directions
for i=1:n_ports
name = deblank(ABG.portlist(i,:)); # Name of this port
eval(["port = ABG.ports.",name,";"]); # Extract port info
disp ("----");
i
|