New entry [make timings] to produce timing data. New R script to process it (untested).

.gitignore

 *~
 .merlin
 _build
+timings.csv

Makefile

@@ -38,6 +38,29 @@ export CDPATH=
 test:
 	@ dune build --display short @test
 
+# [make timings] extracts the performance data gathered by [make test].
+# Be careful: this data is not high quality, and is machine-dependent.
+
+# We select just one line in the performance data printed by [menhir
+# --timings-to <filename>]. The variable $field indicates which field
+# we are interested in.
+
+.PHONY: timings
+timings: test
+	@ \
+	field="Construction of the LR(1) automaton" ; \
+	( \
+	  echo "name,states,time" && \
+	  cd _build/default/test/static/src && \
+	  for f in *.out.timings ; do \
+	    name=$${f%.out.timings} ; \
+	    states=`sed -n -e "s/^Built an LR(1) automaton with \([0-9]\+\) states./\1/p" $${f%.timings}` ; \
+	    time=`sed -n -e "s/^$$field: \(.*\)/\1/p" $$f` ; \
+	    echo "$$name,$$states,$$time" ; \
+	  done \
+	) > timings.csv
+	@ ./timings.r
+
 # [make speed] runs the speed test in test/dynamic/speed.
 
 .PHONY: speed

timings.r

+#!/usr/bin/env Rscript
+
+require(ggplot2)
+
+# Our working directory.
+pwd <- "."
+
+# Load our data.
+mydata <- read.csv(paste(pwd, "timings.csv", sep="/"))
+# Restrict ourselves to a subset of the data.
+mydata <- subset(mydata, time >= 0.25)
+
+# A function which saves a plot to a PDF file.
+save <- function(filename) {
+  ggsave(paste(pwd, filename, sep="/"), width=12, height=8, units="cm")
+}
+
+# A function that creates a scatter plot. Data on the X and Y axes
+# is determined by the argument [xy]. The scale is logarithmic.
+# [lx] and [ly] are labels for the axes.
+plotloglog <- function(xy, lx, ly) {
+  ggplot(mydata, xy) +
+    geom_point(size=3) +
+    scale_x_log10() +
+    scale_y_log10() +
+    xlab(lx) +
+    ylab(ly)
+}
+
+# Scatter plots.
+plotloglog(aes(x=states, y=time), "# states", "time (seconds)")
+save("states-time.pdf")