Index: mttroot/mtt/bin/trans/m/abg2cbg.m ================================================================== --- mttroot/mtt/bin/trans/m/abg2cbg.m +++ mttroot/mtt/bin/trans/m/abg2cbg.m @@ -13,10 +13,14 @@ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ +% %% Revision 1.4 1996/08/08 08:30:06 peter +% %% The cbg filename contains the system name - this makes things easier +% %% when setting up the m to fig translation and m to ese translation +% %% % %% Revision 1.3 1996/08/05 18:53:21 peter % %% Fixed bug passing causality from subsystems. % %% % %% Revision 1.2 1996/08/05 15:41:41 peter % %% Now recursively does causality on subsystems. @@ -37,10 +41,18 @@ end; if nargin<5 infofile = 'stdout'; end; + +% Create the (full) system name +if length(full_name)==0 + full_name = system_name; + system_type = system_name; +else + full_name = [full_name, '_', system_name]; +end; fun_name = [system_type, '_abg'] % If no such function - then there is nothing to be done. if exist(fun_name)~=2 @@ -48,17 +60,10 @@ bonds = []; status = []; return end; -% Create the (full) system name -if length(full_name)==0 - full_name = system_name; -else - full_name = [full_name, '_', system_name]; -end; - % Evaluate the system function to get the bonds eval(['[bonds,components,n_ports]=', fun_name, ';']); % Find number of bonds [n_bonds,columns] = size(bonds); @@ -112,14 +117,10 @@ end; if strcmp(comp_type,'1') comp_type = 'one'; end; -% $$$ name -% $$$ comp_bonds -% $$$ bond_list - % Component cuasality procedure name cause_name = [comp_type, '_cause']; % Invoke the appropriate causality procedure if exist(cause_name)~=2 % Try a compound component