ffi 0.5.0-x86-mingw32

data/ext/ffi_c/Struct.h

@@ -0,0 +1,80 @@
+/*
+ * Copyright (c) 2008, 2009, Wayne Meissner
+ * Copyright (c) 2009, Luc Heinrich <luc@honk-honk.com>
+ *
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are met:
+ *
+ * * Redistributions of source code must retain the above copyright notice, this
+ *   list of conditions and the following disclaimer.
+ * * Redistributions in binary form must reproduce the above copyright notice
+ *   this list of conditions and the following disclaimer in the documentation
+ *   and/or other materials provided with the distribution.
+ * * The name of the author or authors may not be used to endorse or promote
+ *   products derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+ * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+ * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+ * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+ * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+ * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef RBFFI_STRUCT_H
+#define	RBFFI_STRUCT_H
+
+#include "AbstractMemory.h"
+#include "Type.h"
+
+#ifdef	__cplusplus
+extern "C" {
+#endif
+
+    extern void rbffi_Struct_Init(VALUE ffiModule);
+    extern void rbffi_StructLayout_Init(VALUE ffiModule);
+
+    typedef struct StructField_ {
+        Type* type;
+        unsigned int offset;
+
+        VALUE rbType;
+        VALUE rbName;
+    } StructField;
+
+    typedef struct StructLayout_ {
+        Type base;
+        StructField** fields;
+        unsigned int fieldCount;
+        int size;
+        int align;
+        ffi_type** ffiTypes;
+        VALUE rbFieldNames;
+        VALUE rbFieldMap;
+        VALUE rbFields;
+    } StructLayout;
+
+    typedef struct Struct {
+        StructLayout* layout;
+        AbstractMemory* pointer;
+        VALUE rbLayout;
+        VALUE rbPointer;
+    } Struct;
+
+    extern VALUE rbffi_StructClass, rbffi_StructLayoutClass;
+    extern VALUE rbffi_StructLayoutFieldClass, rbffi_StructLayoutFunctionFieldClass;
+    extern VALUE rbffi_StructLayoutArrayFieldClass, rbffi_StructLayoutStructFieldClass;
+    extern VALUE rbffi_StructInlineArrayClass;
+
+#ifdef	__cplusplus
+}
+#endif
+
+#endif	/* RBFFI_STRUCT_H */
+

data/ext/ffi_c/StructByValue.c

@@ -0,0 +1,140 @@
+/*
+ * Copyright (c) 2009, Wayne Meissner
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are met:
+ *
+ * * Redistributions of source code must retain the above copyright notice, this
+ *   list of conditions and the following disclaimer.
+ * * Redistributions in binary form must reproduce the above copyright notice
+ *   this list of conditions and the following disclaimer in the documentation
+ *   and/or other materials provided with the distribution.
+ * * The name of the author or authors may not be used to endorse or promote
+ *   products derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+ * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+ * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+ * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+ * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+ * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <sys/param.h>
+#include <sys/types.h>
+#include <stdio.h>
+#include <stdint.h>
+#include <stdbool.h>
+#include <errno.h>
+#include <ruby.h>
+
+#include <ffi.h>
+#include "rbffi.h"
+#include "compat.h"
+
+#include "Type.h"
+#include "StructByValue.h"
+#include "Struct.h"
+
+#define FFI_ALIGN(v, a)  (((((size_t) (v))-1) | ((a)-1))+1)
+
+static VALUE sbv_allocate(VALUE);
+static VALUE sbv_initialize(VALUE, VALUE);
+static void sbv_mark(StructByValue *);
+static void sbv_free(StructByValue *);
+
+VALUE rbffi_StructByValueClass = Qnil;
+
+static VALUE
+sbv_allocate(VALUE klass)
+{
+    StructByValue* sbv;
+
+    VALUE obj = Data_Make_Struct(klass, StructByValue, sbv_mark, sbv_free, sbv);
+
+    sbv->rbStructClass = Qnil;
+    sbv->rbStructLayout = Qnil;
+    sbv->base.nativeType = NATIVE_STRUCT;
+
+    sbv->base.ffiType = xcalloc(1, sizeof(*sbv->base.ffiType));
+    sbv->base.ffiType->size = 0;
+    sbv->base.ffiType->alignment = 1;
+    sbv->base.ffiType->type = FFI_TYPE_STRUCT;
+
+    return obj;
+}
+
+static VALUE
+sbv_initialize(VALUE self, VALUE rbStructClass)
+{
+    StructByValue* sbv = NULL;
+    StructLayout* layout = NULL;
+    VALUE rbLayout = Qnil;
+
+    rbLayout = rb_cvar_get(rbStructClass, rb_intern("@layout"));
+    if (!rb_obj_is_instance_of(rbLayout, rbffi_StructLayoutClass)) {
+        rb_raise(rb_eTypeError, "wrong type in @layout cvar (expected FFI::StructLayout)");
+    }
+
+    Data_Get_Struct(rbLayout, StructLayout, layout);
+    Data_Get_Struct(self, StructByValue, sbv);
+    sbv->rbStructClass = rbStructClass;
+    sbv->rbStructLayout = rbLayout;
+
+    // We can just use everything from the ffi_type directly
+    *sbv->base.ffiType = *layout->base.ffiType;
+    
+    return self;
+}
+
+static void
+sbv_mark(StructByValue *sbv)
+{
+    rb_gc_mark(sbv->rbStructClass);
+    rb_gc_mark(sbv->rbStructLayout);
+}
+
+static void
+sbv_free(StructByValue *sbv)
+{
+    xfree(sbv->base.ffiType);
+    xfree(sbv);
+}
+
+
+static VALUE
+sbv_layout(VALUE self)
+{
+    StructByValue* sbv;
+
+    Data_Get_Struct(self, StructByValue, sbv);
+    return sbv->rbStructLayout;
+}
+
+static VALUE
+sbv_struct_class(VALUE self)
+{
+    StructByValue* sbv;
+
+    Data_Get_Struct(self, StructByValue, sbv);
+
+    return sbv->rbStructClass;
+}
+
+void
+rbffi_StructByValue_Init(VALUE moduleFFI)
+{
+    rbffi_StructByValueClass = rb_define_class_under(moduleFFI, "StructByValue", rbffi_TypeClass);
+    rb_global_variable(&rbffi_StructByValueClass);
+    rb_define_const(rbffi_TypeClass, "Struct", rbffi_StructByValueClass);
+
+    rb_define_alloc_func(rbffi_StructByValueClass, sbv_allocate);
+    rb_define_method(rbffi_StructByValueClass, "initialize", sbv_initialize, 1);
+    rb_define_method(rbffi_StructByValueClass, "layout", sbv_layout, 0);
+    rb_define_method(rbffi_StructByValueClass, "struct_class", sbv_struct_class, 0);
+}

data/ext/ffi_c/StructByValue.h

@@ -0,0 +1,53 @@
+/*
+ * Copyright (c) 2009, Wayne Meissner
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are met:
+ *
+ * * Redistributions of source code must retain the above copyright notice, this
+ *   list of conditions and the following disclaimer.
+ * * Redistributions in binary form must reproduce the above copyright notice
+ *   this list of conditions and the following disclaimer in the documentation
+ *   and/or other materials provided with the distribution.
+ * * The name of the author or authors may not be used to endorse or promote
+ *   products derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+ * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+ * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+ * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+ * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+ * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef RBFFI_STRUCTBYVALUE_H
+#define	RBFFI_STRUCTBYVALUE_H
+
+#include <ruby.h>
+#include "Type.h"
+
+#ifdef	__cplusplus
+extern "C" {
+#endif
+
+typedef struct StructByValue_ {
+    Type base;
+    VALUE rbStructClass;
+    VALUE rbStructLayout;
+} StructByValue;
+
+void rbffi_StructByValue_Init(VALUE moduleFFI);
+
+extern VALUE rbffi_StructByValueClass;
+
+#ifdef	__cplusplus
+}
+#endif
+
+#endif	/* RBFFI_STRUCTBYVALUE_H */
+

data/ext/ffi_c/StructLayout.c

@@ -0,0 +1,450 @@
+/*
+ * Copyright (c) 2008, 2009, Wayne Meissner
+ * Copyright (c) 2009, Luc Heinrich <luc@honk-honk.com>
+ *
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are met:
+ *
+ * * Redistributions of source code must retain the above copyright notice, this
+ *   list of conditions and the following disclaimer.
+ * * Redistributions in binary form must reproduce the above copyright notice
+ *   this list of conditions and the following disclaimer in the documentation
+ *   and/or other materials provided with the distribution.
+ * * The name of the author or authors may not be used to endorse or promote
+ *   products derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+ * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+ * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+ * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+ * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+ * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <sys/types.h>
+
+#include "Function.h"
+#include <sys/param.h>
+#include <stdint.h>
+#include <stdbool.h>
+#include <ruby.h>
+#include "rbffi.h"
+#include "compat.h"
+#include "AbstractMemory.h"
+#include "Pointer.h"
+#include "MemoryPointer.h"
+#include "Function.h"
+#include "Types.h"
+#include "Struct.h"
+#include "StructByValue.h"
+#include "ArrayType.h"
+
+#define FFI_ALIGN(v, a)  (((((size_t) (v))-1) | ((a)-1))+1)
+
+static void struct_layout_mark(StructLayout *);
+static void struct_layout_free(StructLayout *);
+static void struct_field_mark(StructField* );
+
+VALUE rbffi_StructLayoutFieldClass = Qnil;
+VALUE rbffi_StructLayoutFunctionFieldClass = Qnil, rbffi_StructLayoutArrayFieldClass = Qnil;
+VALUE rbffi_StructLayoutStructFieldClass = Qnil;
+
+VALUE rbffi_StructLayoutClass = Qnil;
+
+
+static VALUE
+struct_field_allocate(VALUE klass)
+{
+    StructField* field;
+    VALUE obj;
+
+    obj = Data_Make_Struct(klass, StructField, struct_field_mark, -1, field);
+    field->rbType = Qnil;
+    field->rbName = Qnil;
+
+    return obj;
+}
+
+static void
+struct_field_mark(StructField* f)
+{
+    rb_gc_mark(f->rbType);
+    rb_gc_mark(f->rbName);
+}
+
+static VALUE
+struct_field_initialize(int argc, VALUE* argv, VALUE self)
+{
+    VALUE rbOffset = Qnil, rbName = Qnil, rbType = Qnil;
+    StructField* field;
+    int nargs;
+
+    Data_Get_Struct(self, StructField, field);
+
+    nargs = rb_scan_args(argc, argv, "3", &rbName, &rbOffset, &rbType);
+
+    if (TYPE(rbName) != T_SYMBOL && TYPE(rbName) != T_STRING) {
+        rb_raise(rb_eTypeError, "wrong argument type %s (expected Symbol/String)",
+                rb_obj_classname(rbName));
+    }
+
+    Check_Type(rbOffset, T_FIXNUM);
+
+    if (!rb_obj_is_kind_of(rbType, rbffi_TypeClass)) {
+        rb_raise(rb_eTypeError, "wrong argument type %s (expected FFI::Type)",
+                rb_obj_classname(rbType));
+    }
+
+    field->offset = NUM2UINT(rbOffset);
+    field->rbName = (TYPE(rbName) == T_SYMBOL) ? rbName : rb_str_intern(rbName);
+    field->rbType = rbType;
+    Data_Get_Struct(field->rbType, Type, field->type);
+
+    return self;
+}
+
+static VALUE
+struct_field_offset(VALUE self)
+{
+    StructField* field;
+    Data_Get_Struct(self, StructField, field);
+    return UINT2NUM(field->offset);
+}
+
+static VALUE
+struct_field_size(VALUE self)
+{
+    StructField* field;
+    Data_Get_Struct(self, StructField, field);
+    return UINT2NUM(field->type->ffiType->size);
+}
+
+static VALUE
+struct_field_alignment(VALUE self)
+{
+    StructField* field;
+    Data_Get_Struct(self, StructField, field);
+    return UINT2NUM(field->type->ffiType->alignment);
+}
+
+static VALUE
+struct_field_ffi_type(VALUE self)
+{
+    StructField* field;
+    Data_Get_Struct(self, StructField, field);
+    return field->rbType;
+}
+
+static VALUE
+struct_field_name(VALUE self)
+{
+    StructField* field;
+    Data_Get_Struct(self, StructField, field);
+    return field->rbName;
+}
+
+static VALUE
+struct_field_get(VALUE self, VALUE pointer)
+{
+    StructField* f;
+    MemoryOp* op;
+    AbstractMemory* memory = MEMORY(pointer);
+
+    Data_Get_Struct(self, StructField, f);
+    op = memory_get_op(memory, f->type);
+    if (op == NULL) {
+        rb_raise(rb_eArgError, "get not supported for %s", rb_obj_classname(self));
+        return Qnil;
+    }
+
+    return (*op->get)(memory, f->offset);
+}
+
+static VALUE
+struct_field_put(VALUE self, VALUE pointer, VALUE value)
+{
+    StructField* f;
+    MemoryOp* op;
+    AbstractMemory* memory = MEMORY(pointer);
+
+    Data_Get_Struct(self, StructField, f);
+    op = memory_get_op(memory, f->type);
+    if (op == NULL) {
+        rb_raise(rb_eArgError, "put not supported for %s", rb_obj_classname(self));
+        return self;
+    }
+
+    (*op->put)(memory, f->offset, value);
+
+    return self;
+}
+
+static VALUE
+function_field_get(VALUE self, VALUE pointer)
+{
+    StructField* f;
+    MemoryOp* op;
+    AbstractMemory* memory = MEMORY(pointer);
+
+    Data_Get_Struct(self, StructField, f);
+    op = memory->ops->pointer;
+    if (op == NULL) {
+        rb_raise(rb_eArgError, "get not supported for %s", rb_obj_classname(self));
+        return Qnil;
+    }
+
+    return rbffi_Function_NewInstance(f->rbType, (*op->get)(memory, f->offset));
+}
+
+static VALUE
+function_field_put(VALUE self, VALUE pointer, VALUE proc)
+{
+    StructField* f;
+    MemoryOp* op;
+    AbstractMemory* memory = MEMORY(pointer);
+    VALUE value = Qnil;
+
+    Data_Get_Struct(self, StructField, f);
+    op = memory->ops->pointer;
+    if (op == NULL) {
+        rb_raise(rb_eArgError, "put not supported for %s", rb_obj_classname(self));
+        return self;
+    }
+
+    if (NIL_P(proc) || rb_obj_is_kind_of(proc, rbffi_FunctionClass)) {
+        value = proc;
+    } else if (rb_obj_is_kind_of(proc, rb_cProc) || rb_respond_to(proc, rb_intern("call"))) {
+        value = rbffi_Function_ForProc(f->rbType, proc);
+    } else {
+        rb_raise(rb_eTypeError, "wrong type (expected Proc or Function)");
+    }
+
+    (*op->put)(memory, f->offset, value);
+
+    return self;
+}
+
+static VALUE
+array_field_get(VALUE self, VALUE pointer)
+{
+    StructField* f;
+    ArrayType* array;
+    MemoryOp* op;
+    AbstractMemory* memory = MEMORY(pointer);
+    VALUE argv[2];
+
+    Data_Get_Struct(self, StructField, f);
+    Data_Get_Struct(f->rbType, ArrayType, array);
+
+    op = memory_get_op(memory, array->componentType);
+    if (op == NULL) {
+        rb_raise(rb_eArgError, "get not supported for %s", rb_obj_classname(array->rbComponentType));
+        return Qnil;
+    }
+
+    argv[0] = pointer;
+    argv[1] = self;
+
+    return rb_class_new_instance(2, argv, rbffi_StructInlineArrayClass);
+}
+
+static VALUE
+inline_struct_field_get(VALUE self, VALUE pointer)
+{
+    StructField* f;
+    StructByValue* sbv;
+    VALUE rbPointer = Qnil, rbOffset = Qnil;
+
+    Data_Get_Struct(self, StructField, f);
+    Data_Get_Struct(f->rbType, StructByValue, sbv);
+
+    rbOffset = UINT2NUM(f->offset);
+    rbPointer = rb_funcall2(pointer, rb_intern("+"), 1, &rbOffset);
+
+    return rb_class_new_instance(1, &rbPointer, sbv->rbStructClass);
+}
+
+static VALUE
+struct_layout_allocate(VALUE klass)
+{
+    StructLayout* layout;
+    VALUE obj;
+
+    obj = Data_Make_Struct(klass, StructLayout, struct_layout_mark, struct_layout_free, layout);
+    layout->rbFieldMap = Qnil;
+    layout->rbFieldNames = Qnil;
+    layout->rbFields = Qnil;
+    layout->base.ffiType = xcalloc(1, sizeof(*layout->base.ffiType));
+    layout->base.ffiType->size = 0;
+    layout->base.ffiType->alignment = 0;
+    layout->base.ffiType->type = FFI_TYPE_STRUCT;
+
+    return obj;
+}
+
+static VALUE
+struct_layout_initialize(VALUE self, VALUE field_names, VALUE fields, VALUE size, VALUE align)
+{
+    StructLayout* layout;
+    ffi_type* ltype;
+    int i;
+
+    Data_Get_Struct(self, StructLayout, layout);
+    layout->rbFieldMap = rb_hash_new();
+    layout->rbFieldNames = rb_ary_dup(field_names);
+    layout->size = NUM2INT(size);
+    layout->align = NUM2INT(align);
+    layout->fieldCount = RARRAY_LEN(field_names);
+    layout->fields = xcalloc(layout->fieldCount, sizeof(StructField *));
+    layout->ffiTypes = xcalloc(layout->fieldCount + 1, sizeof(ffi_type *));
+    layout->rbFields = rb_ary_new2(layout->fieldCount);
+    layout->base.ffiType->elements = layout->ffiTypes;
+    layout->base.ffiType->size = 0;
+    layout->base.ffiType->alignment = 1;
+
+    ltype = layout->base.ffiType;
+    for (i = 0; i < layout->fieldCount; ++i) {
+        VALUE rbName = rb_ary_entry(field_names, i);
+        VALUE rbField = rb_hash_aref(fields, rbName);
+        StructField* field;
+        ffi_type* ftype;
+
+
+        if (!rb_obj_is_kind_of(rbField, rbffi_StructLayoutFieldClass)) {
+            rb_raise(rb_eTypeError, "wrong type for field %d.", i);
+        }
+
+        Data_Get_Struct(rbField, StructField, field = layout->fields[i]);
+
+        if (field->type == NULL || field->type->ffiType == NULL) {
+            rb_raise(rb_eRuntimeError, "type of field %d not supported", i);
+        }
+
+        ftype = field->type->ffiType;
+        if (ftype->size == 0) {
+            rb_raise(rb_eTypeError, "type of field %d has zero size", i);
+        }
+
+        rb_hash_aset(layout->rbFieldMap, rbName, rbField);
+        layout->ffiTypes[i] = ftype;
+        rb_ary_push(layout->rbFields, rbField);
+        ltype->size = MAX(ltype->size, field->offset + ftype->size);
+        ltype->alignment = MAX(ltype->alignment, ftype->alignment);
+    }
+
+    if (ltype->size == 0) {
+        rb_raise(rb_eRuntimeError, "Struct size is zero");
+    }
+
+    // Include tail padding
+    ltype->size = FFI_ALIGN(ltype->size, ltype->alignment);
+
+    return self;
+}
+
+static VALUE
+struct_layout_aref(VALUE self, VALUE field)
+{
+    StructLayout* layout;
+
+    Data_Get_Struct(self, StructLayout, layout);
+
+    return rb_hash_aref(layout->rbFieldMap, field);
+}
+
+static VALUE
+struct_layout_fields(VALUE self)
+{
+    StructLayout* layout;
+
+    Data_Get_Struct(self, StructLayout, layout);
+
+    return rb_ary_dup(layout->rbFields);
+}
+
+static VALUE
+struct_layout_members(VALUE self)
+{
+    StructLayout* layout;
+
+    Data_Get_Struct(self, StructLayout, layout);
+
+    return rb_ary_dup(layout->rbFieldNames);
+}
+
+static VALUE
+struct_layout_to_a(VALUE self)
+{
+    StructLayout* layout;
+
+    Data_Get_Struct(self, StructLayout, layout);
+
+    return rb_ary_dup(layout->rbFields);
+}
+
+static void
+struct_layout_mark(StructLayout *layout)
+{
+    rb_gc_mark(layout->rbFieldMap);
+    rb_gc_mark(layout->rbFieldNames);
+    rb_gc_mark(layout->rbFields);
+}
+
+static void
+struct_layout_free(StructLayout *layout)
+{
+    xfree(layout->ffiTypes);
+    xfree(layout->base.ffiType);
+    xfree(layout->fields);
+    xfree(layout);
+}
+
+void
+rbffi_StructLayout_Init(VALUE moduleFFI)
+{
+    rbffi_StructLayoutClass = rb_define_class_under(moduleFFI, "StructLayout", rbffi_TypeClass);
+    rb_global_variable(&rbffi_StructLayoutClass);
+    
+    rbffi_StructLayoutFieldClass = rb_define_class_under(rbffi_StructLayoutClass, "Field", rb_cObject);
+    rb_global_variable(&rbffi_StructLayoutFieldClass);
+
+    rbffi_StructLayoutFunctionFieldClass = rb_define_class_under(rbffi_StructLayoutClass, "Function", rbffi_StructLayoutFieldClass);
+    rb_global_variable(&rbffi_StructLayoutFunctionFieldClass);
+
+    rbffi_StructLayoutStructFieldClass = rb_define_class_under(rbffi_StructLayoutClass, "StructByValue", rbffi_StructLayoutFieldClass);
+    rb_global_variable(&rbffi_StructLayoutStructFieldClass);
+
+    rbffi_StructLayoutArrayFieldClass = rb_define_class_under(rbffi_StructLayoutClass, "Array", rbffi_StructLayoutFieldClass);
+    rb_global_variable(&rbffi_StructLayoutArrayFieldClass);
+
+    rb_define_alloc_func(rbffi_StructLayoutFieldClass, struct_field_allocate);
+    rb_define_method(rbffi_StructLayoutFieldClass, "initialize", struct_field_initialize, -1);
+    rb_define_method(rbffi_StructLayoutFieldClass, "offset", struct_field_offset, 0);
+    rb_define_method(rbffi_StructLayoutFieldClass, "size", struct_field_size, 0);
+    rb_define_method(rbffi_StructLayoutFieldClass, "alignment", struct_field_alignment, 0);
+    rb_define_method(rbffi_StructLayoutFieldClass, "name", struct_field_name, 0);
+    rb_define_method(rbffi_StructLayoutFieldClass, "ffi_type", struct_field_ffi_type, 0);
+    rb_define_method(rbffi_StructLayoutFieldClass, "put", struct_field_put, 2);
+    rb_define_method(rbffi_StructLayoutFieldClass, "get", struct_field_get, 1);
+
+    rb_define_method(rbffi_StructLayoutFunctionFieldClass, "put", function_field_put, 2);
+    rb_define_method(rbffi_StructLayoutFunctionFieldClass, "get", function_field_get, 1);
+
+    rb_define_method(rbffi_StructLayoutArrayFieldClass, "get", array_field_get, 1);
+    rb_define_method(rbffi_StructLayoutStructFieldClass, "get", inline_struct_field_get, 1);
+
+
+    rb_define_alloc_func(rbffi_StructLayoutClass, struct_layout_allocate);
+    rb_define_method(rbffi_StructLayoutClass, "initialize", struct_layout_initialize, 4);
+    rb_define_method(rbffi_StructLayoutClass, "[]", struct_layout_aref, 1);
+    rb_define_method(rbffi_StructLayoutClass, "fields", struct_layout_fields, 0);
+    rb_define_method(rbffi_StructLayoutClass, "members", struct_layout_members, 0);
+    rb_define_method(rbffi_StructLayoutClass, "to_a", struct_layout_to_a, 0);
+
+}