# Copyright (C) 2000 by Peter J. Gawthrop

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.33  2004/08/29 03:17:02  geraint
## Vectorise sesx and sesy.
##
## Revision 1.32  2003/04/17 20:07:33  geraint
## Added rule to create _sese.m
##
## Revision 1.31  2002/09/16 08:08:00  geraint
## Merged changes from global-optimisation branch.
##
## Revision 1.30.4.1  2002/09/03 23:44:43  geraint

echo Creating $out

# Remove the old log file
rm -f mtt_r2m.log

#Header
case $rep in
    ae|csex|cseo|ode|odeo|sese|sesx|sesy)
    ae|csex|cseo|ode|odeo|sae|sese|sesx|sesy)
    vectorise=yes
       ;;
    *)
esac

    mtt_header  $1 $rep $ext  > mtt_junk

#Convert from the (optimised) r file
echo >> mtt_junk
echo '## Code' >> mtt_junk
strip_comments<$1_$2.r | tr [A-Z] [a-z] |\
strip_comments<$1_$2.r |\
tr [A-Z] [a-z] |\
grep -vi 'MATRIX ' |\
grep -vi 'END;' |\
grep -vi 'clear mtt' |\
grep -v '^off .*\$' |\
grep -v '^in .*\$' |\
sed \
    -e "s/^mtt/  mtt/" \