10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
# Copyright (C) 2001 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $$Id$
## $Log$
###############################################################
# Inform user
echo Creating $1_modpar.r
#Create the modpar file complete with headers.
echo "% Modpar file ($1_modpar.r)" > $1_modpar.r
echo "% Generated by MTT at `date`" >> $1_modpar.r
parameters=`strip_comments < $1_modpar.txt | cut -f1`
inputs=`strip_comments < $1_modpar.txt | cut -f2`
for parameter in $parameters; do
grep $parameter $1_struc.txt | grep input |\
awk '{printf("%s := mttu(%i,1);\n", parameter, $2)}' parameter=$parameter >> $1_modpar.r
done
|
>
>
>
|
>
>
>
>
>
>
>
>
|
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
# Copyright (C) 2001 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $$Id$
## $Log$
## Revision 1.1 2001/04/02 08:19:18 gawthrop
## Translates modulated parameters into reduce
##
###############################################################
# Inform user
echo Creating $1_modpar.r
#Create the modpar file complete with headers.
echo "% Modpar file ($1_modpar.r)" > $1_modpar.r
echo "% Generated by MTT at `date`" >> $1_modpar.r
parameters=`strip_comments < $1_modpar.txt | cut -f1`
inputs=`strip_comments < $1_modpar.txt | cut -f2`
for parameter in $parameters; do
grep $1_${parameter}_ $1_struc.txt |\
awk 'BEGIN{
name["input"] = "u";
name["output"] = "y";
name["state"] = "x";
name["nonstate"] = "z";
}
{
printf("%s := mtt%s(%i,1);\n", parameter, name[$1], $2)
}' parameter=$parameter >> $1_modpar.r
done
|