13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#$Id$
sys_rep="$1_$2"
begin="BEGIN{$sys_rep}"
# Inform user
echo "Creating $1_$2.pas"
# Find system constants
Nx=`mtt_getsize $1 x`
Nxx=`mtt_getsize $1 xx`
Nu=`mtt_getsize $1 u`
Ny=`mtt_getsize $1 y`
|
|
|
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#$Id$
sys_rep="$1_$2"
begin="BEGIN{$sys_rep}"
# Inform user
# echo "Creating $1_$2.pas"
# Find system constants
Nx=`mtt_getsize $1 x`
Nxx=`mtt_getsize $1 xx`
Nu=`mtt_getsize $1 u`
Ny=`mtt_getsize $1 y`
|
89
90
91
92
93
94
95
96
97
98
99
|
# Write out the actual code from the end of the procedure
awk 'BEGIN{writing=0}
{
if (writing) print $0;
if (match($1,begin)==1) writing=1;
}' begin=$begin < $1_$2.p >>$1_$2.pas
echo "Creating $1_$2.C"
p2c -o $1_$2.C $1_$2.pas > mtt_p2C.log 2>> mtt_p2C.log
|
|
|
89
90
91
92
93
94
95
96
97
98
99
|
# Write out the actual code from the end of the procedure
awk 'BEGIN{writing=0}
{
if (writing) print $0;
if (match($1,begin)==1) writing=1;
}' begin=$begin < $1_$2.p >>$1_$2.pas
#echo "Creating $1_$2.C"
p2c -o $1_$2.C $1_$2.pas > mtt_p2C.log 2>> mtt_p2C.log
|