--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/callback_suite/make-signatures.lua	Thu Mar 19 22:24:28 2015 +0100
@@ -0,0 +1,64 @@
+require "config"
+require "math"
+require "string"
+
+local nargtypes = string.len(argtypes)
+local nrettypes = string.len(rettypes)
+local argrange  = maxargs - minargs
+math.randomseed(seed)
+
+function randomSignatures(nsigs)
+  local i 
+  for i = 1, nsigs do
+    local nargs = minargs + math.random(argrange+1) - 1 
+    local signature = ""
+    for j = 1, nargs do
+      local typeindex = math.random(nargtypes)
+      signature = signature .. string.sub(argtypes, typeindex, typeindex)
+    end
+    local rtypeindex = math.random(nrettypes)
+    signature = signature .. ")" .. string.sub(rettypes, rtypeindex, rtypeindex)
+    io.write(signature .. "\n")
+  end
+end
+
+function orderedSignature(x)
+  local signature = ""
+  local typeindex
+  while true do
+    if x < nargtypes then break end
+    typeindex = 1 + math.mod(x, nargtypes)
+    signature = signature .. string.sub(argtypes, typeindex, typeindex)
+    x = math.floor( x / nargtypes )
+  end
+  typeindex = 1 + x
+  signature = signature .. ")" .. string.sub(argtypes, typeindex, typeindex)
+  return signature
+end
+
+function orderedSignatures(nsigs)
+  local i 
+  for i = 1, nsigs do
+    io.write( orderedSignature(offset+i*step) .. "\n" )
+  end
+end
+
+function designedSignatures()
+ for line in io.lines(designfile) do
+   io.write( line )
+   io.write( "\n" )
+ end
+end
+
+if mode == "random" then
+  randomSignatures(nsigs)
+elseif mode == "ordered" then
+  orderedSignatures(nsigs)
+elseif mode == "designed" then
+  designedSignatures()
+else
+  error("'mode' must be 'random' or 'ordered'")
+end
+
+io.flush()
+