shithub: kwa

ref: 7e6d7d36f83f05f372cfbce43534a2747bfc39c3
dir: /test/Compare.tt/

View raw version 
#!/bin/rc
rfork e
oldawk=awk
awk=kwa

# an arbitrary collection of input data
cat td.1 td.1 >foo.td
sed 's/^........................//' td.1 >>foo.td
pr -m td.1 td.1 td.1 >>foo.td
pr -2 td.1 >>foo.td
cat bib >>foo.td
wc foo.td
td=foo.td
>footot

for(i in tt.*){
	echo -n $oldawk': '
	time $oldawk -f $i $td >foo2 >[2]foo2t
	cat foo2t
	echo -n $awk': '
	time $awk -f $i $td >foo1 >[2]foo1t
	cat foo1t
	cmp foo1 foo2
	echo $i: >>footot
	cat foo1t foo2t >>footot
}