0
+ − 1 require"larray"
+ − 2 -- typesignature = require"typesignature"
+ − 3 local array_mt = {
+ − 4 __index = function(t,i)
+ − 5 if type(i) == "number" then
+ − 6 return larray.peek( t.pointer, t.typesize * (i-1), t.typeinfo )
+ − 7 else
+ − 8 local result = rawget(t,i)
+ − 9 if not result then
+ − 10 return getmetatable(t)[i]
+ − 11 end
+ − 12 end
+ − 13 end,
+ − 14 __newindex = function(t,i,v)
+ − 15 if type(i) == "number" then
+ − 16 return larray.poke( t.pointer, t.typesize * (i-1), t.typeinfo, v)
+ − 17 else
+ − 18 return rawset(t,i,v)
+ − 19 end
+ − 20 end,
+ − 21 copy = function(array,src,nelements)
+ − 22 return larray.copy( array.pointer, 0, src, 0, array.typesize * nelements)
+ − 23 end
+ − 24 }
+ − 25
+ − 26 --- Get type information from type signature.
+ − 27 --
+ − 28 -- @param signature string representing type informations. Fundamental type signatures are represented by characters such as 'c' for C char, 's' for C short, 'i' for C int, 'j' for C long
+ − 29 -- 'l' for C long long, 'f' for C float, 'd' for C double, 'p' for C pointer,
+ − 30 -- 'B' for ISO C99 _Bool_t/C++ bool, 'v' for C void. Upper-case characters 'CSIJL' refer to the corresponding unsigned C type.
+ − 31 -- Function signature syntax: 'name(argtypes..)resulttypes..;'
+ − 32 -- Structure signature syntax: 'name{fieldtypes..)fieldnames..;' the fieldnames are space separated text tokens.
+ − 33 -- Named objects can be refered using '<name>' syntax.
+ − 34 -- pointer types can be specified by prefixing multiple '*'.
+ − 35 -- function typesignature(signature)
+ − 36 -- end
+ − 37
+ − 38 --- Get size of fundamental C types.
+ − 39 -- @param typeinfo a simple C type signature string.
+ − 40 -- @see typesignature
+ − 41 function typesize(typesignature)
+ − 42 return typesizes[typesignature]
+ − 43 end
+ − 44
+ − 45 --- Create a lua-memory managed C array.
+ − 46 -- Arrays are represented as a table with fields.
+ − 47 -- @field pointer holds the address represented by a lua userdata object.
+ − 48 -- @return array object
+ − 49 function array(typeinfo, length)
+ − 50 local typesize = larray.sizeof(typeinfo)
+ − 51 local size = typesize * length
+ − 52 local pointer = larray.newudata(size)
+ − 53 local o = {
+ − 54 pointer = pointer,
+ − 55 size = size,
+ − 56 length = length,
+ − 57 typesize = typesize,
+ − 58 typeinfo = typeinfo,
+ − 59 }
+ − 60 setmetatable(o, array_mt)
+ − 61 return o
+ − 62 end
+ − 63
+ − 64
