Overview
| Comment: | Close ese file before recursive call of cbg2ese -- reopen when finished. THis prevents a new file being opened for each subsystem which fails when > 1K files opened |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
042a906bec2f3fe11b7a3d89e82ddba1 |
| User & Date: | gawthrop@users.sourceforge.net on 2000-11-12 16:45:57 |
| Other Links: | branch diff | manifest | tags |
Context
|
2000-11-12
| ||
| 17:10:51 |
Close file if it is opened Reformated octave style check-in: 5f60f81894 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 16:45:57 |
Close ese file before recursive call of cbg2ese -- reopen when finished. THis prevents a new file being opened for each subsystem which fails when > 1K files opened check-in: 042a906bec user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
2000-11-10
| ||
| 14:46:53 |
More fixes to avoid interpering variables as funs - basicly all functions now have at least () check-in: bc0878db6c user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/m/cbg2ese.m from [9c7d81661a] to [c181a02f02].
| ︙ | |||
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.36 2000/10/13 10:54:47 peterg ## ## Now writes out a unique name for each state etc ## ## ## ## 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 |
| ︙ | |||
171 172 173 174 175 176 177 | 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 | - + |
if exist(cbg_name)~=2 # Return if cbg file doesn't exist
disp([cbg_name, " does not exist"]);
return
end;
## Setup files
ese_name = [full_name_repetition, "_ese.r"];
|
| ︙ | |||
313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 | 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 | + + + + + |
endif;
## Invoke the appropriate equation-generating procedure
name_r = full_name_repetition;
eqn_name = [subsystem.type, "_eqn"]
if exist(eqn_name)~=2 ## Try a compound component
fclose(ese_file); # Close but reopen later
disp("---PUSH---"); bond_list, comp_name, subsystem.type
structure = cbg2ese(comp_name, subsystem.type, subsystem.cr, subsystem.arg, ...
full_name, full_name_repetition, ...
k, structure, structure_file, infofilenum);
disp("---POP---");
ese_file = fopen(ese_name, "a"); # open file (again)
## Link up the bonds
fprintf(ese_file, ...
"\n\t%s Equations linking up subsystem %s (%s)\n\n", ...
pc, comp_name, subsystem.type);
name_comp_name = sprintf("%s_%s_%d", ...
full_name_repetition, comp_name, k);
|
| ︙ | |||
357 358 359 360 361 362 363 | 365 366 367 368 369 370 371 372 373 374 375 376 377 378 | - | y_index = y_index + 1; fprintf(ese_file, "%s := %s_MTTy%d;\n", ... varname(name_r, ... bond_list(port_number),-1), name_comp_name, y_index); end; end; |
| ︙ | |||
406 407 408 409 410 411 412 | 413 414 415 416 417 418 419 420 421 422 423 424 425 426 | - - + + |
endfor;
endif;
endif
endfor
endfor # [subsystem,comp_name] = CBG_field
endif # struct_contains(CBG,field)
endfor # i=1:2
|