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.25 1998/07/28 19:05:12 peterg
# ## Sttill has vector SS port bug?
# ##
# ## Revision 1.24 1998/07/27 10:26:02 peterg
# ## No change - but fixed bug in alias_args
# ##
# ## Revision 1.23 1998/07/08 12:33:51 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.26 1998/08/24 14:53:55 peterg
# ## Uses new _cbg structure.
# ##
# ## Revision 1.25 1998/07/28 19:05:12 peterg
# ## Sttill has vector SS port bug?
# ##
# ## Revision 1.24 1998/07/27 10:26:02 peterg
# ## No change - but fixed bug in alias_args
# ##
# ## Revision 1.23 1998/07/08 12:33:51 peterg
|
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
|
disp(["---- ", field(i,:), "Component ---"]);
# Get the component details
#eval([ "[comp_type,comp_name,cr,args,repetitions] = ", cmp_name, "(i)"]);
# Alias the args list -- if not at top level
message = sprintf("\tfor component %s (%s) within %s",\
comp_name,subsystem.type,full_name);
if (length(system_args)>0)
subsystem.arg = alias_args(subsystem.arg,subsystem.alias,";",message,infofilenum)
endif;
if (length(system_cr)>0)
# Substitute positional ($1 etc) arguments
|
|
<
<
|
>
|
|
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
|
disp(["---- ", field(i,:), "Component ---"]);
# Get the component details
#eval([ "[comp_type,comp_name,cr,args,repetitions] = ", cmp_name, "(i)"]);
# Alias the args list -- if not at top level
message = sprintf("\tfor component %s (%s) within %s",\
comp_name,subsystem.type,full_name);
if struct_contains(subsystem,"alias")
subsystem.arg = alias_args(subsystem.arg,subsystem.alias,";",message,infofilenum)
subsystem.cr = alias_args(subsystem.cr,subsystem.alias,";",message,infofilenum)
endif;
# Substitute positional ($1 etc) arguments
subsystem.cr = subs_arg(subsystem.cr,system_cr, ...
"lin",full_name,subsystem.type,comp_name,infofilenum);
subsystem.arg = subs_arg(subsystem.arg,system_args, ...
"1",full_name,subsystem.type,comp_name,infofilenum);
# change name of 0 and 1 components -- matlab doesn't like numbers here
if strcmp(subsystem.type,"0")
|