1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
#include <ruby.h>
#include <ffi.h>
#include "rbffi.h"
#include "Type.h"
#include "MappedType.h"
VALUE rbffi_DataConverterClass = Qnil;
static ID id_native_type_ivar;
/*
* Get native type.
* @overload native_type(type)
* @param [String, Symbol, Type] type
* @return [Type]
* Get native type from +type+.
* @overload native_type
* @raise {NotImplementedError} This method must be overriden.
*/
static VALUE
conv_native_type(int argc, VALUE* argv, VALUE self)
{
if (argc == 0) {
if (!rb_ivar_defined(self, id_native_type_ivar)) {
rb_raise(rb_eNotImpError, "native_type method not overridden and no native_type set");
}
return rb_ivar_get(self, id_native_type_ivar);
} else if (argc == 1) {
VALUE type = rbffi_Type_Find(argv[0]);
rb_ivar_set(self, id_native_type_ivar, type);
return type;
} else {
rb_raise(rb_eArgError, "incorrect arguments");
}
}
/*
* call-seq: to_native(value, ctx)
* @param value
* @param ctx
* @return [value]
* Convert to a native type.
*/
static VALUE
conv_to_native(VALUE self, VALUE value, VALUE ctx)
{
return value;
}
/*
* call-seq: from_native(value, ctx)
* @param value
* @param ctx
* @return [value]
* Convert from a native type.
*/
static VALUE
conv_from_native(VALUE self, VALUE value, VALUE ctx)
{
return value;
}
void
rbffi_DataConverter_Init(VALUE moduleFFI)
{
/*
* Document-module: FFI::DataConverter
* This module is used to extend somes classes and give then a common API.
*
* Most of methods defined here must be overriden.
*/
rbffi_DataConverterClass = rb_define_module_under(moduleFFI, "DataConverter");
rb_define_method(rbffi_DataConverterClass, "native_type", conv_native_type, -1);
rb_define_method(rbffi_DataConverterClass, "to_native", conv_to_native, 2);
rb_define_method(rbffi_DataConverterClass, "from_native", conv_from_native, 2);
id_native_type_ivar = rb_intern("@native_type");
}
|
