Index: mttroot/mtt/bin/trans/mtt_header
==================================================================
--- mttroot/mtt/bin/trans/mtt_header
+++ mttroot/mtt/bin/trans/mtt_header
@@ -10,10 +10,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.1  2000/10/10 21:02:27  peterg
+## Initial revision
+##
 ###############################################################
 
 # Arguments
 system=$1
 rep=$2
@@ -64,10 +67,11 @@
 	Rc='';
 	Lb='(';
 	Rb=')';
 	function="function"
 	declaration="[$output] = $1_$rep($args);"
+	noglobals=true; # Fudge to make mtt_m2p work
 	;;
     *)
 	echo Language $language not supported - sorry; exit 1
 esac
 
@@ -79,10 +83,19 @@
 $Lc $declaration
 $Lc System $system, representation $rep, language $language; $Rc
 $Lc File $1_$rep.$ext; $Rc
 $Lc Generated by MTT on `date`; $Rc
 EOF
+
+if [ -n "$noglobals" ]; then
+cat<<EOF
+
+## Horrible fudge to make mtt_m2p work
+global ...
+mtt_no_globals ;
+EOF
+fi
 
 # Parameters
 cat <<EOF
 
 $Lc Parameters