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.20  2000/12/04 08:19:27  peterg
+## Added switch declarations - in logic.cc
+##
 ## Revision 1.19  2000/12/03 16:11:43  peterg
 ## Corrected bug in logic declatations
 ##
 ## Revision 1.18  2000/12/03 16:06:22  peterg
 ## Fixed bug in generating dummies
@@ -273,11 +276,12 @@
 
 if [ "$rep" = "simpar" ]; then
    output=${output}${map}    # Output is simpar_map in this case
 fi
 
-function zero_matrices(){
+function zero_matrices
+{
 ## Set matrices to zero
 echo
  ## echo '## Set matrices to zero'
 for name in $zeromatrices; do
     case $name in
@@ -301,11 +305,12 @@
     esac
     echo "   mtt$name = zeros($N,$M);"
 done
 }
 
-function declare_dummies(){
+function declare_dummies
+{
 # Get the dummies
 dummies="mtt_tmp"
 rm -f mtt_dummies
 for dummy in $dummies; do
     grep "${dummy}[0-9]* " < ${fun_name}.m |\
@@ -326,19 +331,22 @@
 for dummy in $dummy_list; do
     echo '  ' $var_declaration $dummy';'
 done
 } # declare_dummies
 
-function declare_switches {
+function declare_switches 
+{
 cat <<EOF
 
 $Lc  Declarations of switches $Rc
 EOF
  strip_comments <${system}_switch.txt |\
  awk '{printf("  double %s_logic = 0;\n", tolower($1))}' 
 } # declare_switches
-function declare_vars(){
+
+function declare_vars
+{
 # Grab the names
 names=`awk '{if ($1==var_type) print tolower($4)}' var_type=$1 ${system}_struc.txt`
 
 # Comments
 cat <<EOF
@@ -350,11 +358,12 @@
     echo '  '$var_declaration $name';'
 done
 }
 
 
-function array2constant() {
+function array2constant
+{
 # Parameters
 if [ "$parameters" = "yes" ]; then
 cat <<EOF
 
 $Lc Parameters $Rc
@@ -407,11 +416,11 @@
 zero_matrices;
 
 }
 
 # Argument specific stuff
-function get_arg_specific_stuff ()
+function get_arg_specific_stuff 
 {
     arg_name=${1:-""}
     case ${arg_name} in
 	mtta | mtte)
 	    arg_type="Matrix"
@@ -461,11 +470,11 @@
 	    echo "Argument ${arg} not supported - sorry"; exit 1
     esac
 }
 
 
-function get_field ()
+function get_field 
 { # parse comma separated string
     s=${1:-""}					# comma separated string
     i=${2:-0}					# field number in string
 
     if [ 0 -eq ${i} ]; then			# return number of fields
@@ -476,11 +485,11 @@
 	awk -F\, -v i=${i} '{ print $i }'
     fi
 }
 
 
-function get_extra_fields ()
+function get_extra_fields 
 { # return list of words in s2 and not in s1
     s1=${1:-""}					# comma separated list
     s2=${2:-""}					# comma separated list
 
     c1=$(get_field ${s1} 0)			# count words in s1
@@ -511,11 +520,11 @@
     done
     echo ${ans}
 }
 
 
-function write_DLD_header ()
+function write_DLD_header
 {
     cat <<EOF
 
 #include <octave/oct.h>
 #include <octave/ov-struct.h>
@@ -536,11 +545,11 @@
 
 EOF
 }
 
 
-function map_DLD_inputs ()
+function map_DLD_inputs 
 {
     s=${1:-""}					# comma separated input list
     if [ -z ${s} ];then return; fi
     c=$(get_field ${s} 0)			# count of inputs
     i=0
@@ -561,11 +570,11 @@
     done
     printf "\n"
 }	
 
 
-function declare_DLD_outputs ()
+function declare_DLD_outputs 
 {
     s=${1:-""}					# comma separated output list
     c=$(get_field ${s} 0)			# count of outputs
     i=0
     while [ ${i} -lt ${c} ]; do
@@ -575,11 +584,11 @@
 	printf "  ${arg_type}\t${w}\t${arg_size};\n"
     done
 }
 
 
-function return_DLD_outputs ()
+function return_DLD_outputs 
 {
     s=${1:-""}					# comma separated output list
     c=$(get_field ${s} 0)			# count of outputs
     i=0
     cat <<EOF