9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.18 2003/08/04 09:10:30 gawthrop
## Now handles steady-state computation for _state.txt.
##
## Revision 1.17 2002/04/28 18:41:27 geraint
## Fixed [ 549658 ] awk should be gawk.
## Replaced calls to awk with call to gawk.
##
|
>
>
>
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.19 2003/08/05 15:29:36 gawthrop
## Now handles ss.r files with implicit zero values
##
## Revision 1.18 2003/08/04 09:10:30 gawthrop
## Now handles steady-state computation for _state.txt.
##
## Revision 1.17 2002/04/28 18:41:27 geraint
## Fixed [ 549658 ] awk should be gawk.
## Replaced calls to awk with call to gawk.
##
|
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
# Create a string containing the variables
if [ -f "$textfile" ]; then
# Inform User
echo Checking $textfile
else
echo Creating $textfile
mtt_header $sys $rep $lang > $textfile
info=`cut -f1 $infofile | sort`
|
>
|
>
>
>
|
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
|
# Create a string containing the variables
if [ -f "$textfile" ]; then
# Inform User
echo Checking $textfile
else
echo Creating $textfile
mtt_header $sys $rep $lang > $textfile
if [ "${rep}" = "state" ]; then
info=`cut -f1 $infofile` # No sort
else
info=`cut -f1 $infofile | sort` # Sort
fi
i=0;
for new in $info; do
let i=$i+1;
initial_value $i ${default}
echo $new $value |\
gawk '{printf("%s\t= %s; # Default\n",$1,$2)}' >> $textfile
done
|