Index: mttroot/mtt/bin/trans/m/alias_args.m ================================================================== --- mttroot/mtt/bin/trans/m/alias_args.m +++ mttroot/mtt/bin/trans/m/alias_args.m @@ -3,10 +3,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.5 2000/10/12 19:27:20 peterg +## Now writes out the aliased args ... +## ## Revision 1.4 2000/09/14 13:35:43 peterg ## appended '(' and ')' to SEPS ## -- otherwise first argument after '(' doesn't get substituted ## (Fixed by Geraint) ## @@ -35,10 +38,12 @@ mtt_info(["Replacing ", arg, "\t by ",\ new_arg, message],FileID); mtt_save_alias(arg,sys_name); arg = new_arg; + else + mtt_info(["NOT replacing ", arg, message],FileID); end SEPS = ",+-*/()"; for j = 1:length(SEPS) if length(findstr(arg,SEPS(j)))>0 arg = alias_args(arg,alias,SEPS(j),message,FileID,sys_name); 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.41 2001/04/15 21:15:41 geraint + ## ## Added interface definition rep: _ICD.(txt|c|cc|m). + ## ## ## ## Revision 1.40 2001/02/05 01:50:29 geraint ## ## No unit type comparison at ports if either is "none". ## ## ## ## Revision 1.40 2000/12/16 08:10:55 geraint ## ## No unit type comparison at ports if either is "none". @@ -469,14 +472,17 @@ ## Save the current structure old_structure = structure; ## Generate the simple component equations + ## .. firstly replacing ; by , in argument list + subsystem_arg = strrep(subsystem.arg,";",","); + eval(["structure = ", ... eqn_name, ... "(name_r,bond_list,comp_bonds, ... - direction,subsystem.cr,subsystem.arg,structure,ese_file);" ]); + direction,subsystem.cr,subsystem_arg,structure,ese_file);" ]); ## If structure has changed, write info to structure file. structure_change = structure-old_structure; ## The following line is to avoid probs with multiport C or I