Update benchmarks.

Removed Mawk re1 test because mawk currently doesn't handle \w word boundaries

benchmark/Makefile.in

@@ -69,7 +69,7 @@ array array2 array3 array4 array4b array4c array4d io::
 	@$(SEQCMD) $(TIME) -f "$@\tTCL \t%e sec"  $(TCL) $@.tcl 2>>$@tres.out
 
 
-cast expr function recurse split re1 re2 re2a::
+cast expr function recurse split re2 re2a::
 	@echo $@
 	@$(AWKA) -f $@.awk >x.c
 	@$(CC) x.c $(CFLAGS)
@@ -79,6 +79,16 @@ cast expr function recurse split re1 re2 re2a::
 	@$(SEQCMD) $(TIME) -f "$@\tPERL\t%e sec" $(PERL) $@.pl 2>>$@plres.out
 	@$(SEQCMD) $(TIME) -f "$@\tPYTHON\t%e sec" $(PYTHON) $@.py 2>>$@pyres.out
 
+re1::
+	@echo $@
+	@$(AWKA) -f $@.awk >x.c
+	@$(CC) x.c $(CFLAGS)
+	@$(SEQCMD) $(TIME) -f "$@\tAWKA\t%e sec" ./a.out 2>>$@ares.out
+	@# $(SEQCMD) $(TIME) -f "$@\tMAWK\t%e sec" $(MAWK) -f [email protected] 2>>[email protected]
+	@$(SEQCMD) $(TIME) -f "$@\tGAWK\t%e sec" $(GAWK) -f $@.awk 2>>$@gres.out
+	@$(SEQCMD) $(TIME) -f "$@\tPERL\t%e sec" $(PERL) $@.pl 2>>$@plres.out
+	@$(SEQCMD) $(TIME) -f "$@\tPYTHON\t%e sec" $(PYTHON) $@.py 2>>$@pyres.out
+
 loop::
 	@echo $@
 	@$(AWKA) -f $@.awk >x.c

benchmark/lib/benchmarksort.awk

@@ -14,15 +14,16 @@ BEGIN {
 	name = $2
 	time = $3
 	split($3, T, " ")
-	tsum[type","name] += T[1]
+	tsum[type","name] += 10*T[1]
 	nr[type","name] += 1
 	typ[type] = type
 }
 END {
 	for(tn in tsum) {
 		split(tn, X, ",")
 		# times array - use asorti to sort indexes by time
-		t[tsum[tn]","X[1]","X[2]] = 1
+		av = tsum[tn] / nr[tn] / 10
+		t[av","X[1]","X[2]] = 1
 	}
 	asort(typ,typsorted)
 	asorti(t, tkeys)

benchmark/re1.awk

@@ -1,3 +1,5 @@
+# MAWK does not handle \w word boundaries ??
+#
 BEGIN {
   #print match("she sells seashells", /s \w/) 
   x = match("she sells seashells", /s \w/)