Index: mttroot/mtt/bin/trans/def_r2m
==================================================================
--- mttroot/mtt/bin/trans/def_r2m
+++ mttroot/mtt/bin/trans/def_r2m
@@ -11,42 +11,42 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.1  1998/07/25 07:10:41  peterg
+## Initial revision
+##
 ###############################################################
 
 #Inform user
 echo Creating $1_def.m
 
 # Remove the old log file
 rm -f def_r2m.log
 
-# Use reduce to accomplish the transformation
-reduce >def_r2m.log << EOF
-
-ON BigFloat, NumVal;
-PRECISION 16; %Compatible with Matlab
-
-%Read in the definitions file
-IN "$1_def.r";
-
-OUT "$1_def.m";
-
-%Headings - M-File style
-%(Note. The ;; are deleted by for2mat)
-
-write "function [nx,ny,nu,nz,nyz] = $1_def;;";
-write "% [nx,ny,nu,nz,nv] = $1_def;;";
-write "% Linearised descriptor matrices for system $1";
-write "% File $1_def.m";
-write "% Generated by MTT";
-
-write "";
-write "nx = ", MTTNx, ";";
-write "ny = ", MTTNy, ";";
-write "nu = ", MTTNu, ";";
-write "nz = ", MTTNz, ";";
-write "nyz = ", MTTNyz, ";";
-
-SHUT "$1_def.m";
-
+
+# Header
+cat <<EOF > $1_def.m
+function  [nx,ny,nu,nz,nyz] = $1_def;
+% function  [nx,ny,nu,nz,nyz] = $1_def;
+% System $1, representation def, language m
+% File $1_def.m;
+% Generated by MTT on `date`;
+%
+EOF
+
+# Constants
+Nx=`grep "MTTNx " <$1_def.r | awk '{print $3}' | sed 's/;//'`
+Ny=`grep "MTTNy " <$1_def.r | awk '{print $3}' | sed 's/;//'`
+Nu=`grep "MTTNu " <$1_def.r | awk '{print $3}' | sed 's/;//'`
+Nz=`grep "MTTNz " <$1_def.r | awk '{print $3}' | sed 's/;//'`
+Nyz=`grep "MTTNyz " <$1_def.r | awk '{print $3}' | sed 's/;//'`
+
+
+cat<<EOF >> $1_def.m 
+  nx = $Nx;
+  ny = $Ny;
+  nu = $Nu;
+  nz = $Nz;
+  nyz = $Nyz;
+EOF