151 lines
4.4 KiB
C
151 lines
4.4 KiB
C
/*
|
|
* Copyright (c) 2009, Wayne Meissner
|
|
*
|
|
* Copyright (c) 2008-2013, Ruby FFI project contributors
|
|
* 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.
|
|
* * Neither the name of the Ruby FFI project nor the
|
|
* names of its contributors may 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 <COPYRIGHT HOLDER> 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 _MSC_VER
|
|
#include <sys/param.h>
|
|
#endif
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
#ifndef _MSC_VER
|
|
# include <stdint.h>
|
|
# include <stdbool.h>
|
|
#else
|
|
# include "win32/stdbool.h"
|
|
# include "win32/stdint.h"
|
|
#endif
|
|
#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_ivar_get(rbStructClass, rb_intern("@layout"));
|
|
if (!rb_obj_is_instance_of(rbLayout, rbffi_StructLayoutClass)) {
|
|
rb_raise(rb_eTypeError, "wrong type in @layout ivar (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);
|
|
}
|
|
|