ADDED mttroot/mtt/bin/trans/m/mtt_save_alias.m Index: mttroot/mtt/bin/trans/m/mtt_save_alias.m ================================================================== --- /dev/null +++ mttroot/mtt/bin/trans/m/mtt_save_alias.m @@ -0,0 +1,21 @@ +function mtt_save_alias (arg,system_name) + + ## usage: mtt_save_alias (arg,system_name,FileID) + ## + ## + ## ###################################### + ## #### Model Transformation Tools ##### + ## ###################################### + + ## ############################################################### + ## Version + ## control history + ## ############################################################### ## $Id: + ## mtt_info.m,v 1.2 1997/02/11 10:06:42 peterg Exp peterg $ ## $Log: + ## mtt_info.m,v $ ## Revision 1.2 1997/02/11 10:06:42 peterg ## + ## ############################################################### + + fileid = fopen('mtt_aliased.txt','a'); + fprintf(fileid, "%s\t%s\n", arg,system_name); + +endfunction ADDED mttroot/mtt/bin/trans/mtt_make_sympar Index: mttroot/mtt/bin/trans/mtt_make_sympar ================================================================== --- /dev/null +++ mttroot/mtt/bin/trans/mtt_make_sympar @@ -0,0 +1,65 @@ +#!/bin/sh + + ###################################### + ##### Model Transformation Tools ##### + ###################################### + +# Bourne shell script: mtt_make_sympar +# Makes the sympar.txt file +# Copyright (C) 2000 by Peter J. Gawthrop + +############################################################### +## Version control history +############################################################### +## $Id$ +## $Log$ +## +############################################################### + + +sys=$1 # System name +filename=$1_sympar.txt +# Inform user +echo Creating $filename + +# Create list of all sympars including those that are aliased +sh $1_type.sh 'echo ' ' ' ' ' |\ +awk '{print "abg2sympar_m2txt " $1, $2}' |\ +sh | sort -u > mtt_all_sympar.txt + +# Sort ther aliased list +sort -u $1_aliased.txt > mtt_aliased_sort.txt + +# Compare it with the aliased list and show the differences +diff mtt_all_sympar.txt mtt_aliased_sort.txt |\ +grep '<' | awk '{printf("%s\t%s\n", $2,$3)}' > mtt_sympar.txt + +# Assume same name in different system is the same +awk '{ + if ($1==name){ + sysname[i++]=$2 + } + + if ($1!=name){ + printf("%s\t",name) + comma=""; + for (j=1;j<=i;j++){ + printf("%s%s", comma, sysname[j]); + comma=","; + } + printf("\n") + i=1; + sysname[1]=$2; + } + name = $1 +} +END{ + printf("%s\t",name) + comma=""; + for (j=1;j<=i;j++){ + printf("%s%s", comma, sysname[j]); + comma=","; + } + printf("\n") + +}' < mtt_sympar.txt >$filename