Index: mttroot/mtt/bin/trans/lang_header
==================================================================
--- mttroot/mtt/bin/trans/lang_header
+++ mttroot/mtt/bin/trans/lang_header
@@ -6,10 +6,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.9  2000/04/08 10:23:38  peterg
+## Added -noglobal option
+##
 ## Revision 1.8  1999/02/16 04:14:53  peterg
 ## Small change to modeline generation
 ##
 ## Revision 1.7  1999/01/20 22:19:21  peterg
 ## Puts emacs mode line at top of .m files
@@ -38,10 +41,13 @@
 while [ -n "`echo $1 | grep '^-'`" ]; do
   case $1 in
     -noglobal)
 	noglobal=noglobal;
 	;;
+    -parameters)
+	parameters=parameters;
+	;;
     *)
 	echo $1 is an unknown option
         exit;;
   esac
   shift
@@ -62,10 +68,18 @@
 	Lc='#';
 	Rc='#';
 	Lb='(';
 	Rb=')';
 	;;
+    p)
+	modeline='% -*-octave-*- Put Emacs into octave-mode%';
+	ext='m';
+	Lc='#';
+	Rc='#';
+	Lb='[';
+	Rb=']';
+	;;
     c)
 	ext='c';
 	Lc='/*';
 	Rc='*/';
 	Lb='[';
@@ -80,14 +94,10 @@
 	;;
     *)
 	echo Language $language not supported - sorry; exit 1
 esac
 
-# Appropriate emacs mode line
-cat <<EOF
-$modeline
-EOF
 
 ######### Octave (matlab) code
 if [ "$language" = m ]; then
 cat <<EOF
 function $output = $1_$rep($args);
@@ -96,10 +106,11 @@
 %File $1_$rep.$ext;
 %Generated by MTT on `date`;
 %
 EOF
 fi
+
 
 ######### c code
 if [ "$language" = c ]; then
 cat <<EOF
 void $1_$rep() {
@@ -112,10 +123,14 @@
  - the 0 element is not used.
 */
 
 EOF
 
+# Appropriate emacs mode line
+cat <<EOF
+$modeline
+EOF
 
 # Declarations
 $MATRIX -q  <<EOF 
   %System structure
   [nx,ny,nu,nz,nyz] = $1_def;
@@ -175,10 +190,21 @@
 fi
 
 # Globals
 if [ -z "$noglobal" ]; then
     sympar2global_txt2lang $1 $language
+else
+cat<<EOF
+global ...
+mtt_no_globals ..
+;
+EOF
+fi
+
+# Explicit parameters
+if [ -n "$parameters" ]; then
+    sympar2par_txt2m $1 
 fi
 
 ## if [ "$language" = "c" ] || [ "$language" = "m" ]; then
 ##   if [ "$rep" != "sm" ]&&[ "$rep" != "dm" ]&&[ "$rep" != "switch" ]; then
 ##   # Common part - ode (c and m)