annotate test/callback_suite/make-invokers.lua @ 0:3e629dc19168

initial from svn dyncall-1745
author Daniel Adler
date Thu, 19 Mar 2015 22:24:28 +0100
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
1 require "config"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
2 local id = 1
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
3 for signature in io.lines() do
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
4 local nargs = string.len(signature) - 2
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
5 local rtype = string.sub(signature, nargs + 2, nargs + 2)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
6 local outline = "F" .. nargs .. "(f" .. id .. "," .. rtype
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
7 for i = 1, nargs do
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
8 local type = string.sub(signature, i, i)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
9 outline = outline .. "," .. type
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
10 end
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
11 outline = outline .. ")\n"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
12 io.write( outline )
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
13 id = id + 1
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
14 end
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
15 io.flush()
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
16