shithub: kwa

ref: 2af227c88bbcf8d6c52eb5b3b3a677d88a281774
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
}