Index: mttroot/mtt/bin/trans/sympar2global_txt2lang
==================================================================
--- mttroot/mtt/bin/trans/sympar2global_txt2lang
+++ mttroot/mtt/bin/trans/sympar2global_txt2lang
@@ -14,23 +14,28 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.1  1998/06/15 15:24:33  peterg
+## Initial revision
+##
 ###############################################################
 
 # Set up language stuff.
 language=$2
 
 case $language in
     m)
-	ext='m'
 	Lc='#';
 	Rc='#';
 	;;
     c)
-	ext='c'
+	Lc='/*';
+	Rc='*/';
+	;;
+    java)
 	Lc='/*';
 	Rc='*/';
 	;;
     *)
 	echo Language $2 not supported - sorry; exit 1
@@ -50,22 +55,32 @@
   print "global ..."
 }
 {i++; print tolower($1), "..."; var = $1}
 END{
   print var ";" # Repeat the last variable to avoid the trailing ...
-}' $1_sympar.txt
+}' $1_sympars.txt
 
 fi
 
 if [ "$language" = "c" ]; then
     awk '{
       i++; print "extern double", tolower($1) ";";
     }' $1_sympar.txt
  fi
+
+if [ "$language" = "java" ]; then
+cat <<EOF
+  $1_numpar p;
+  private p = new $1_numpar();
+EOF
+    awk '{
+      i++; print "  float " tolower($1) " = p." tolower($1) ";";
+    }' $1_sympar.txt
+fi
 
 
 echo
 
 # Now invoke the standard error handling.
 # mtt_error mtt_error.txt