#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
# Bourne shell script: mtt_name2array
# Generates array elements from names
# Copyright (C) 2000 by Peter J. Gawthrop
case $2 in
numpar)
name=mttpar
cat $1_sympar.txt>mtt_infile
;;
state)
name=mttx
gawk '{if ($1==rep) printf("%s\n", $4)}' rep=$2 \
<$1_struc.txt >mtt_infile
;;
input)
name=mttu
gawk '{if ($1==rep) printf("%s\n", $4)}' rep=$2 \
<$1_struc.txt >mtt_infile
;;
*)
echo Repesentation $2 not supported
esac
case $3 in
zero)
strip_comments <mtt_infile | grep "$filter" |\
gawk '{
i++; printf(" %s = 0.0;\n", tolower($1));
}'
;;
set)
strip_comments <mtt_infile |\
gawk '{
i++; printf(" %s(%i)\t= %s;\n", name, i, tolower($1));
}' name=$name
;;
*)
strip_comments <mtt_infile |\
gawk '{
i++; printf(" %s \t= %s(%i);\n", tolower($1), name, i);
}' name=$name
;;
esac