Overview
Comment:Put arg alias stuff within function alias_args
Called recursively to handle arithmetic expressions
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 8ceaa8ab374657bd46a8c915f619c7d45ae4f4bd10963edcc7df4bbeee72a2ed
User & Date: gawthrop@users.sourceforge.net on 1998-07-03 18:58:58
Other Links: branch diff | manifest | tags
Context
1998-07-03
19:03:31
Always override the causality of port bonds! check-in: 5046e243f1 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
18:58:58
Put arg alias stuff within function alias_args
Called recursively to handle arithmetic expressions check-in: 8ceaa8ab37 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
18:29:40
Initial revision check-in: f00154448a user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/m/cbg2ese.m from [8a2f5d4fdd] to [e667e5d1a5].

︙︙
19
20
21
22
23
24
25



26
27
28
29
30
31
32

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

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



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








>
>
>








19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

% 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
︙︙
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199

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,\
            " (", comp_type,") within ", full_name]);
            arg = new_arg;
          end
          args = sprintf("%s;%s", args, arg);
        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);
    








<
<
<
<
<
<
<
<
<
<
|
<
<
<
|
<
<
<
<








170
171
172
173
174
175
176










177



178




179
180
181
182
183
184
185

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 ";"]);










    message = sprintf("\tfor component  %s (%s) within %s",comp_name,comp_type,full_name);    



    args = alias_args(args,alias,";",message);





    % 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);
︙︙

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