rf-web/vendor/bundle/gems/ffi-1.11.1/ext/ffi_c/StructByValue.c
2019-10-21 10:18:17 +02:00

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);
}