Index: mttroot/mtt/bin/trans/m/cbg2ese.m ================================================================== --- mttroot/mtt/bin/trans/m/cbg2ese.m +++ mttroot/mtt/bin/trans/m/cbg2ese.m @@ -21,10 +21,13 @@ ## ############################################################### ## ## 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 @@ -131,11 +134,12 @@ ## ## Revision 1.1 1996/08/08 15:53:23 peter ## ## Initial revision ## ## ## ############################################################# - system_name, system_type, full_name, + disp("cbg2ese"); + system_name, system_type, full_name, repetition pc = "%"; ## Set up the names corresponding to the structure matrix. structure_name = [ @@ -252,11 +256,11 @@ 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, ... @@ -393,13 +397,13 @@ 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