load("strpack.jl")

type Foo
    bar::Int32
    baz::Float64
    bat::Uint8
end

const libtest = dlopen("libtest.so")

foo = Foo(int32(1), 4.0, uint8(7))
foobuf = pack(foo, align_native)
ccall(dlsym(libtest, :foobar), Void, (Ptr{Uint8},), foobuf.data)
seek(foobuf, 0)
foo2 = unpack(foobuf, Foo, align_native)