Mercurial > pub > dyncall > dyncall
annotate test/call_suite/rand-sig.lua @ 0:3e629dc19168
initial from svn dyncall-1745
| author | Daniel Adler |
|---|---|
| date | Thu, 19 Mar 2015 22:24:28 +0100 |
| parents | |
| children | 1cb8a65ea27f |
| rev | line source |
|---|---|
| 0 | 1 require"config" |
| 2 | |
| 3 rtypes = "v"..types | |
| 4 | |
| 5 math.randomseed(2342) | |
| 6 local sigs = { } | |
| 7 local id | |
| 8 for i = 1, ncases do | |
| 9 id = math.random(#rtypes) | |
| 10 local nargs = math.random(minargs,maxargs) | |
| 11 local sig = { rtypes:sub(id,id)} | |
| 12 for j = 1, nargs do | |
| 13 id = math.random(#types) | |
| 14 sig[#sig+1] = types:sub(id,id) | |
| 15 end | |
| 16 io.write(table.concat(sig)) | |
| 17 io.write("\n") | |
| 18 end | |
| 19 |