#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
# Bourne shell script: numpar_txt2c
# Numerical parameters to c format
# P.J.Gawthrop May 1997
# Copyright (c) P.J.Gawthrop, 1997.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.6 2000/12/28 12:52:13 peterg
## *** empty log message ***
##
## Revision 1.5 1997/06/13 09:42:25 peterg
## Auto change of () to []
##
# Revision 1.4 1997/05/15 08:33:07 peterg
# Declare state array (x).
#
# Revision 1.3 1997/05/03 15:01:42 peterg
# Don't write out RCS headers.
#
# Revision 1.2 1997/05/01 08:35:18 peterg
# # is now the comment symbol in the .txt file
#
# Revision 1.1 1997/05/01 08:25:31 peterg
# Initial revision
#
###############################################################
system=$1
representation = $2
# Inform user
echo "Creating $1_numpar.c"
rm -f mtt_error
#Write some file headers
echo '/*' > $1_numpar.c
echo "Parameter file for system $1 ($1_numpar.c)" >> $1_numpar.c
echo "This file provides the system numerical parameters in c form" >> $1_numpar.c
echo "Generated by MTT at `date`" >> $1_numpar.c
echo '*/' >> $1_numpar.c
echo >> $1_numpar.c
echo "extern double x[MTTNX1];" >> $1_numpar.c
echo "#include \"$1_sympar.c\"" >> $1_numpar.c
echo "$1_numpar()" >> $1_numpar.c
echo '{' >> $1_numpar.c
#Write out the variables in c format.
sed 's/#C-CODE //'< $1_numpar.txt |\
gawk -F# '{
if (NF<2) print $1
if (NF>1) print $1 "/* " $2 " */"
}' | sed 's/(\([0-9]*\))/[\1]/' >> $1_numpar.c
echo '}' >> $1_numpar.c