# Copyright (C) 2000 by Peter J. Gawthrop

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.17  2000/12/01 20:55:01  peterg
## Added Geraint's fix for zeroing matrices
##
## Revision 1.16  2000/12/01 17:56:30  peterg
## Removed spurious  echo '## Set matrices to zero' - thanks Geraint
##
## Revision 1.15  2000/11/29 21:06:16  peterg
## Removed Npar creation - not needed??
##
## Revision 1.14  2000/11/27 11:51:43  peterg

done
}
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 |\
    awk '{
     if (match($1,dummy)==1) print $1
     }' dummy=$dummy < ${fun_name}.m >> mtt_dummies
    awk '{ 
          # if (match(dummy,$1)==1)
             print $1
         }' dummy=$dummy | sort -u >> mtt_dummies
done

dummy_list=`sort -u mtt_dummies`

# Comments
cat <<EOF

# Parameters
if [ "$parameters" = "yes" ]; then
cat <<EOF

$Lc Parameters $Rc
EOF
sympar2par_txt2m ${system} ""  "$constant_declaration" "$minusone"
cat <<EOF

$Lc Switches $Rc
EOF
strip_comments <${system}_logic.txt | awk '{printf("  int %s = 0;\n", tolower($1))}' 

fi

# States
if [ "$states" = "yes" ]; then
cat <<EOF

$Lc States $Rc