ADDED   mttroot/mtt/bin/trans/mtt_txt2declare
Index: mttroot/mtt/bin/trans/mtt_txt2declare
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/mtt_txt2declare
@@ -0,0 +1,70 @@
+#! /bin/sh
+
+     ###################################### 
+     ##### Model Transformation Tools #####
+     ######################################
+
+# Bourne shell script: sympar_txt2declare
+
+# Symbolic parameters to variable declaration
+# Copyright (C) 2000 by Peter J. Gawthrop
+
+###############################################################
+## Version control history
+###############################################################
+## $Id$
+## $Log$
+## Revision 1.1  2000/10/11 09:08:20  peterg
+## Initial revision
+##
+
+###############################################################
+
+sys=$1
+what=$2
+language=$3
+
+case $language in
+    p)
+        first="VAR";
+        delim=", ";
+        last=': REAL;';
+	;;
+    *)
+	echo Language $language not supported - sorry; exit 1
+esac
+
+case $what in
+    struc)
+	strip_comments < $sys"_"$what".txt" | awk '{print $4}' >mtt_names
+	;;
+    sympar)
+      	strip_comments < $sys"_"$what".txt" | awk '{print $1}' >mtt_names
+	;;
+    *)
+	echo Argument 2 must be struc or sympar
+esac
+
+# Start
+cat<<EOF
+$first
+EOF
+#Write out the variables 
+awk '{
+  i++; 
+  var[i] = tolower($1);
+}
+END{
+  n = i;
+  for (i=1; i<n; i++){
+    printf("%s%s",var[i], delim);
+    j++; 
+    if (j>4){
+    printf("\n"); j=0;
+    }
+  }
+  printf("%s%s\n",var[n], last);
+
+}' "delim=$delim" "last=$last" mtt_names
+
+