19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
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.35 2000/10/12 19:27:47 peterg
## ## Now writes the aliased args
## ##
## ## Revision 1.34 2000/09/01 08:42:44 peterg
## ## Cahged somes ends to end for etc for clarity
## ##
## ## Revision 1.33 2000/09/01 08:05:32 peterg
## ## Reformatted with out changing function
## ##
## ## Revision 1.32 1998/11/16 13:01:19 peterg
|
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
+
-
+
|
## ## Sorted out file naming sceme
## ##
## ## Revision 1.1 1996/08/08 15:53:23 peter
## ## Initial revision
## ##
## #############################################################
disp("cbg2ese");
system_name, system_type, full_name,
system_name, system_type, full_name, repetition
pc = "%";
## Set up the names corresponding to the structure matrix.
structure_name = [
"state ",
"nonstate ",
|
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
|
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
|
-
+
|
endif;
endif;
if AliasingCRs # Alias the CR list if appropriate
message = sprintf("\tfor component %s (%s) within %s",\
comp_name,subsystem.type,full_name);
if struct_contains(CBG,"alias")
subsystem.cr = alias_args(subsystem.cr,CBG.alias,";",message,infofilenum)
subsystem.cr = alias_args(subsystem.cr,CBG.alias,";",message,infofilenum,full_name)
endif;
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, ...
|
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
|
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
|
-
+
-
+
|
which_indices = getindex(structure_change,1);
which_indices = which_indices(:,2)';
for which_index=which_indices
value = structure(which_index);
value_change=value-old_structure(which_index);
for k=1:value_change
fprintf(structure_file, ...
"%s\t%1.0f\t%s\t%s\t%1.0f\n", ...
"%s\t%i\t%s\t%s_%s\t%i\n", ...
structure_name(which_index,:), value-k+1, ...
comp_name, full_name, repetition);
comp_name, full_name_repetition, comp_name, repetition);
endfor;
endfor;
endif;
endif
endfor
endfor # [subsystem,comp_name] = CBG_field
endif # struct_contains(CBG,field)
|