ADDED   mttroot/mtt/bin/trans/m/rcs_header.txt
Index: mttroot/mtt/bin/trans/m/rcs_header.txt
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/m/rcs_header.txt
@@ -0,0 +1,8 @@
+
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %% Version control history
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %% $Id$
+% %% $Log$
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+

ADDED   mttroot/mtt/bin/trans/makesubs
Index: mttroot/mtt/bin/trans/makesubs
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/makesubs
@@ -0,0 +1,75 @@
+#! /bin/sh
+
+     ###################################### 
+     ##### Model Transformation Tools #####
+     ######################################
+
+# Bourne shell script: makesubs
+# Makes the default substitution file
+
+# Copyright (C) 2000 by Peter J. Gawthrop
+
+
+###############################################################
+## Version control history
+###############################################################
+## $Id$
+## $Log$
+##
+###############################################################
+
+#Inform user
+echo Creating $1_subs.r
+
+cat > $1_subs.r <<EOF
+% Default SUBS file
+% File $1_subs.r
+% Generated by MTT on `date`.
+
+EOF
+
+cat $MTTPATH/trans/m/rcs_header.txt	>> $1_subs.r
+
+cat >> $1_subs.r <<EOF
+% Put algebraic substitution commands here
+
+END;
+EOF
+
+
+exit
+
+## NB the following messes up the expansion switch ????
+cat >> $1_subs.r <<EOF
+% Ordering switch
+ORDER
+EOF
+
+# Symbolic params first
+awk '{
+  print $1 ","
+}' < $1_sympar.txt >> $1_subs.r
+
+# Then states
+Nx=`mtt_getsize $1 x` # States
+
+awk 'END{
+  for (k=1;k<Nx;k++){
+    printf("mttx%i,\n", k);
+  }
+    printf("mttx%i;\n", Nx);
+  
+}' Nx=$Nx < $1_sympar.txt >> $1_subs.r
+
+cat >> $1_subs.r <<EOF
+END;
+EOF
+
+
+
+
+
+
+
+
+

ADDED   mttroot/mtt/bin/trans/tidy
Index: mttroot/mtt/bin/trans/tidy
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/tidy
@@ -0,0 +1,18 @@
+mv $1 $1.old
+
+cat $1.old |
+#Clear out all (and extraneous) new lines
+tr -d '\012'  |\
+
+#Squash blanks
+tr -s '\040' '\040' |\
+
+#Put in new lines to replace $
+tr '\044' '\012' |\
+
+#Remove blanks after E
+sed "s/E /E/g"  |\
+
+#Put in $ at end of each line
+sed "s/$/\$/" >$1
+