Index: mttroot/mtt/bin/trans/sympar2global_txt2lang
==================================================================
--- mttroot/mtt/bin/trans/sympar2global_txt2lang
+++ mttroot/mtt/bin/trans/sympar2global_txt2lang
@@ -14,10 +14,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.3  1998/07/26 10:48:18  peterg
+## Now strips comments
+##
 ## Revision 1.2  1998/07/25 18:49:00  peterg
 ## Now uses extended sympars -- sympar + switches
 ##
 ## Revision 1.1  1998/06/15 15:24:33  peterg
 ## Initial revision
@@ -59,32 +62,34 @@
   print "global ..."
 }
 {i++; print tolower($1), "..."; var = $1}
 END{
   print var ";" # Repeat the last variable to avoid the trailing ...
-}' $1_sympars.txt
+}'
 
 fi
 
 if [ "$language" = "c" ]; then
+strip_comments <$1_sympars.txt  |\
     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
+EOF 
+strip_comments <$1_sympars.txt  |\
     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