% Structure matrix [states,nonstates,inputs,outputs,zero_outputs]

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.20  1998/07/03 14:39:09  peterg
% %% Added info messages a bit busy now!
% %%
% %% Revision 1.19  1998/04/12 11:58:19  peterg
% %% Rename port components by changing name_r to [name_r
% %%
% %% Revision 1.18  1998/04/11 18:59:16  peterg
% %% at_top_level now global - passed to SS components
% %%
% %% Revision 1.17  1998/04/04 10:47:31  peterg

disp('---- Component ---');    
    % Get the component details
    eval([ '[comp_type,comp_name,cr,args,repetitions] = ', cmp_name, '(i)' ...
	  ]);
						   
    % Alias the args list
    eval([ "alias = ", alias_name ";"]);
    if is_struct(alias)
      if length(args>0)
        Args = split(args,";"); args="";
        [N,M]= size(Args);
        for i=1:N
           arg = deblank(Args(i,:));
          _arg = strrep(arg,",","__");
          if struct_contains(alias,_arg)
            eval(["new_arg = alias.", _arg, ";"]);
  	    mtt_info(["Replacing ", arg, "\t by ",\
            new_arg, " for component ", comp_name,\
    message = sprintf("\tfor component  %s (%s) within %s",comp_name,comp_type,full_name);    
            " (", comp_type,") within ", full_name]);
            arg = new_arg;
          end
          args = sprintf("%s;%s", args, arg);
    args = alias_args(args,alias,";",message);
        end
        args = substr(args,2); % loose leading ;
      end
    end;

    % Substitute positional ($1 etc) arguments
    cr = subs_arg(cr,system_cr, ...
	'lin',full_name,comp_type,comp_name);
    args = subs_arg(args,system_args, ...
	'1',full_name,comp_type,comp_name);