alinta-ffi 1.9.19
Sign up to get free protection for your applications and to get access to all the features.
- checksums.yaml +7 -0
- data/COPYING +49 -0
- data/LICENSE +24 -0
- data/README.md +112 -0
- data/Rakefile +243 -0
- data/ext/ffi_c/AbstractMemory.c +1109 -0
- data/ext/ffi_c/AbstractMemory.h +175 -0
- data/ext/ffi_c/ArrayType.c +162 -0
- data/ext/ffi_c/ArrayType.h +59 -0
- data/ext/ffi_c/Buffer.c +365 -0
- data/ext/ffi_c/Call.c +517 -0
- data/ext/ffi_c/Call.h +110 -0
- data/ext/ffi_c/ClosurePool.c +283 -0
- data/ext/ffi_c/ClosurePool.h +57 -0
- data/ext/ffi_c/DataConverter.c +91 -0
- data/ext/ffi_c/DynamicLibrary.c +339 -0
- data/ext/ffi_c/DynamicLibrary.h +98 -0
- data/ext/ffi_c/Function.c +998 -0
- data/ext/ffi_c/Function.h +87 -0
- data/ext/ffi_c/FunctionInfo.c +271 -0
- data/ext/ffi_c/LastError.c +184 -0
- data/ext/ffi_c/LastError.h +47 -0
- data/ext/ffi_c/LongDouble.c +63 -0
- data/ext/ffi_c/LongDouble.h +51 -0
- data/ext/ffi_c/MappedType.c +168 -0
- data/ext/ffi_c/MappedType.h +59 -0
- data/ext/ffi_c/MemoryPointer.c +197 -0
- data/ext/ffi_c/MemoryPointer.h +53 -0
- data/ext/ffi_c/MethodHandle.c +358 -0
- data/ext/ffi_c/MethodHandle.h +55 -0
- data/ext/ffi_c/Platform.c +129 -0
- data/ext/ffi_c/Platform.h +45 -0
- data/ext/ffi_c/Pointer.c +508 -0
- data/ext/ffi_c/Pointer.h +63 -0
- data/ext/ffi_c/Struct.c +829 -0
- data/ext/ffi_c/Struct.h +106 -0
- data/ext/ffi_c/StructByReference.c +190 -0
- data/ext/ffi_c/StructByReference.h +50 -0
- data/ext/ffi_c/StructByValue.c +150 -0
- data/ext/ffi_c/StructByValue.h +55 -0
- data/ext/ffi_c/StructLayout.c +698 -0
- data/ext/ffi_c/Thread.c +352 -0
- data/ext/ffi_c/Thread.h +95 -0
- data/ext/ffi_c/Type.c +397 -0
- data/ext/ffi_c/Type.h +62 -0
- data/ext/ffi_c/Types.c +139 -0
- data/ext/ffi_c/Types.h +89 -0
- data/ext/ffi_c/Variadic.c +304 -0
- data/ext/ffi_c/compat.h +78 -0
- data/ext/ffi_c/extconf.rb +71 -0
- data/ext/ffi_c/ffi.c +98 -0
- data/ext/ffi_c/libffi.bsd.mk +40 -0
- data/ext/ffi_c/libffi.darwin.mk +105 -0
- data/ext/ffi_c/libffi.gnu.mk +32 -0
- data/ext/ffi_c/libffi.mk +18 -0
- data/ext/ffi_c/libffi.vc.mk +26 -0
- data/ext/ffi_c/libffi.vc64.mk +26 -0
- data/ext/ffi_c/rbffi.h +57 -0
- data/ext/ffi_c/rbffi_endian.h +59 -0
- data/ext/ffi_c/win32/stdbool.h +8 -0
- data/ext/ffi_c/win32/stdint.h +201 -0
- data/ffi.gemspec +23 -0
- data/gen/Rakefile +30 -0
- data/lib/ffi.rb +20 -0
- data/lib/ffi/autopointer.rb +203 -0
- data/lib/ffi/buffer.rb +4 -0
- data/lib/ffi/callback.rb +4 -0
- data/lib/ffi/enum.rb +296 -0
- data/lib/ffi/errno.rb +43 -0
- data/lib/ffi/ffi.rb +44 -0
- data/lib/ffi/io.rb +62 -0
- data/lib/ffi/library.rb +590 -0
- data/lib/ffi/managedstruct.rb +84 -0
- data/lib/ffi/memorypointer.rb +1 -0
- data/lib/ffi/platform.rb +164 -0
- data/lib/ffi/platform/aarch64-linux/types.conf +104 -0
- data/lib/ffi/platform/arm-linux/types.conf +104 -0
- data/lib/ffi/platform/i386-cygwin/types.conf +3 -0
- data/lib/ffi/platform/i386-darwin/types.conf +100 -0
- data/lib/ffi/platform/i386-freebsd/types.conf +152 -0
- data/lib/ffi/platform/i386-gnu/types.conf +107 -0
- data/lib/ffi/platform/i386-linux/types.conf +103 -0
- data/lib/ffi/platform/i386-netbsd/types.conf +126 -0
- data/lib/ffi/platform/i386-openbsd/types.conf +128 -0
- data/lib/ffi/platform/i386-solaris/types.conf +122 -0
- data/lib/ffi/platform/i386-windows/types.conf +105 -0
- data/lib/ffi/platform/ia64-linux/types.conf +104 -0
- data/lib/ffi/platform/mips-linux/types.conf +102 -0
- data/lib/ffi/platform/mips64el-linux/types.conf +104 -0
- data/lib/ffi/platform/mipsel-linux/types.conf +102 -0
- data/lib/ffi/platform/powerpc-aix/types.conf +180 -0
- data/lib/ffi/platform/powerpc-darwin/types.conf +100 -0
- data/lib/ffi/platform/powerpc-linux/types.conf +100 -0
- data/lib/ffi/platform/powerpc64-linux/types.conf +104 -0
- data/lib/ffi/platform/s390-linux/types.conf +102 -0
- data/lib/ffi/platform/s390x-linux/types.conf +102 -0
- data/lib/ffi/platform/sparc-linux/types.conf +102 -0
- data/lib/ffi/platform/sparc-solaris/types.conf +128 -0
- data/lib/ffi/platform/sparc64-linux/types.conf +102 -0
- data/lib/ffi/platform/sparcv9-solaris/types.conf +128 -0
- data/lib/ffi/platform/x86_64-cygwin/types.conf +3 -0
- data/lib/ffi/platform/x86_64-darwin/types.conf +126 -0
- data/lib/ffi/platform/x86_64-freebsd/types.conf +128 -0
- data/lib/ffi/platform/x86_64-linux/types.conf +102 -0
- data/lib/ffi/platform/x86_64-netbsd/types.conf +128 -0
- data/lib/ffi/platform/x86_64-openbsd/types.conf +134 -0
- data/lib/ffi/platform/x86_64-solaris/types.conf +122 -0
- data/lib/ffi/platform/x86_64-windows/types.conf +120 -0
- data/lib/ffi/pointer.rb +161 -0
- data/lib/ffi/struct.rb +371 -0
- data/lib/ffi/struct_layout_builder.rb +227 -0
- data/lib/ffi/tools/const_generator.rb +229 -0
- data/lib/ffi/tools/generator.rb +60 -0
- data/lib/ffi/tools/generator_task.rb +36 -0
- data/lib/ffi/tools/struct_generator.rb +194 -0
- data/lib/ffi/tools/types_generator.rb +134 -0
- data/lib/ffi/types.rb +194 -0
- data/lib/ffi/union.rb +43 -0
- data/lib/ffi/variadic.rb +78 -0
- data/lib/ffi/version.rb +4 -0
- data/libtest/Benchmark.c +52 -0
- data/libtest/BoolTest.c +34 -0
- data/libtest/BufferTest.c +31 -0
- data/libtest/ClosureTest.c +205 -0
- data/libtest/EnumTest.c +51 -0
- data/libtest/FunctionTest.c +70 -0
- data/libtest/GNUmakefile +149 -0
- data/libtest/GlobalVariable.c +62 -0
- data/libtest/LastErrorTest.c +21 -0
- data/libtest/NumberTest.c +132 -0
- data/libtest/PointerTest.c +63 -0
- data/libtest/ReferenceTest.c +23 -0
- data/libtest/StringTest.c +34 -0
- data/libtest/StructTest.c +243 -0
- data/libtest/UnionTest.c +43 -0
- data/libtest/VariadicTest.c +99 -0
- data/spec/ffi/LICENSE.SPECS +22 -0
- data/spec/ffi/async_callback_spec.rb +35 -0
- data/spec/ffi/bitmask_spec.rb +575 -0
- data/spec/ffi/bool_spec.rb +32 -0
- data/spec/ffi/buffer_spec.rb +279 -0
- data/spec/ffi/callback_spec.rb +773 -0
- data/spec/ffi/custom_param_type.rb +37 -0
- data/spec/ffi/custom_type_spec.rb +74 -0
- data/spec/ffi/dup_spec.rb +52 -0
- data/spec/ffi/enum_spec.rb +423 -0
- data/spec/ffi/errno_spec.rb +20 -0
- data/spec/ffi/ffi_spec.rb +28 -0
- data/spec/ffi/fixtures/Benchmark.c +52 -0
- data/spec/ffi/fixtures/BitmaskTest.c +51 -0
- data/spec/ffi/fixtures/BoolTest.c +34 -0
- data/spec/ffi/fixtures/BufferTest.c +31 -0
- data/spec/ffi/fixtures/ClosureTest.c +205 -0
- data/spec/ffi/fixtures/EnumTest.c +51 -0
- data/spec/ffi/fixtures/FunctionTest.c +142 -0
- data/spec/ffi/fixtures/GNUmakefile +149 -0
- data/spec/ffi/fixtures/GlobalVariable.c +62 -0
- data/spec/ffi/fixtures/LastErrorTest.c +21 -0
- data/spec/ffi/fixtures/NumberTest.c +132 -0
- data/spec/ffi/fixtures/PipeHelper.h +21 -0
- data/spec/ffi/fixtures/PipeHelperPosix.c +41 -0
- data/spec/ffi/fixtures/PipeHelperWindows.c +72 -0
- data/spec/ffi/fixtures/PointerTest.c +63 -0
- data/spec/ffi/fixtures/ReferenceTest.c +23 -0
- data/spec/ffi/fixtures/StringTest.c +34 -0
- data/spec/ffi/fixtures/StructTest.c +243 -0
- data/spec/ffi/fixtures/UnionTest.c +43 -0
- data/spec/ffi/fixtures/VariadicTest.c +99 -0
- data/spec/ffi/fixtures/classes.rb +438 -0
- data/spec/ffi/function_spec.rb +97 -0
- data/spec/ffi/io_spec.rb +16 -0
- data/spec/ffi/library_spec.rb +286 -0
- data/spec/ffi/long_double.rb +30 -0
- data/spec/ffi/managed_struct_spec.rb +68 -0
- data/spec/ffi/memorypointer_spec.rb +78 -0
- data/spec/ffi/number_spec.rb +247 -0
- data/spec/ffi/platform_spec.rb +114 -0
- data/spec/ffi/pointer_spec.rb +285 -0
- data/spec/ffi/rbx/attach_function_spec.rb +34 -0
- data/spec/ffi/rbx/memory_pointer_spec.rb +198 -0
- data/spec/ffi/rbx/spec_helper.rb +6 -0
- data/spec/ffi/rbx/struct_spec.rb +18 -0
- data/spec/ffi/spec_helper.rb +93 -0
- data/spec/ffi/string_spec.rb +118 -0
- data/spec/ffi/strptr_spec.rb +50 -0
- data/spec/ffi/struct_by_ref_spec.rb +43 -0
- data/spec/ffi/struct_callback_spec.rb +69 -0
- data/spec/ffi/struct_initialize_spec.rb +35 -0
- data/spec/ffi/struct_packed_spec.rb +50 -0
- data/spec/ffi/struct_spec.rb +882 -0
- data/spec/ffi/typedef_spec.rb +91 -0
- data/spec/ffi/union_spec.rb +67 -0
- data/spec/ffi/variadic_spec.rb +132 -0
- data/spec/spec.opts +4 -0
- metadata +309 -0
@@ -0,0 +1,91 @@
|
|
1
|
+
|
2
|
+
#include <ruby.h>
|
3
|
+
|
4
|
+
#include <ffi.h>
|
5
|
+
#include "rbffi.h"
|
6
|
+
|
7
|
+
#include "Type.h"
|
8
|
+
#include "MappedType.h"
|
9
|
+
|
10
|
+
|
11
|
+
VALUE rbffi_DataConverterClass = Qnil;
|
12
|
+
static ID id_native_type_ivar;
|
13
|
+
|
14
|
+
/*
|
15
|
+
* Get native type.
|
16
|
+
* @overload native_type(type)
|
17
|
+
* @param [String, Symbol, Type] type
|
18
|
+
* @return [Type]
|
19
|
+
* Get native type from +type+.
|
20
|
+
* @overload native_type
|
21
|
+
* @raise {NotImplementedError} This method must be overriden.
|
22
|
+
*/
|
23
|
+
static VALUE
|
24
|
+
conv_native_type(int argc, VALUE* argv, VALUE self)
|
25
|
+
{
|
26
|
+
if (argc == 0) {
|
27
|
+
if (!rb_ivar_defined(self, id_native_type_ivar)) {
|
28
|
+
rb_raise(rb_eNotImpError, "native_type method not overridden and no native_type set");
|
29
|
+
}
|
30
|
+
|
31
|
+
return rb_ivar_get(self, id_native_type_ivar);
|
32
|
+
|
33
|
+
} else if (argc == 1) {
|
34
|
+
VALUE type = rbffi_Type_Find(argv[0]);
|
35
|
+
|
36
|
+
rb_ivar_set(self, id_native_type_ivar, type);
|
37
|
+
|
38
|
+
return type;
|
39
|
+
|
40
|
+
} else {
|
41
|
+
rb_raise(rb_eArgError, "incorrect arguments");
|
42
|
+
}
|
43
|
+
}
|
44
|
+
|
45
|
+
/*
|
46
|
+
* call-seq: to_native(value, ctx)
|
47
|
+
* @param value
|
48
|
+
* @param ctx
|
49
|
+
* @return [value]
|
50
|
+
* Convert to a native type.
|
51
|
+
*/
|
52
|
+
static VALUE
|
53
|
+
conv_to_native(VALUE self, VALUE value, VALUE ctx)
|
54
|
+
{
|
55
|
+
return value;
|
56
|
+
}
|
57
|
+
|
58
|
+
/*
|
59
|
+
* call-seq: from_native(value, ctx)
|
60
|
+
* @param value
|
61
|
+
* @param ctx
|
62
|
+
* @return [value]
|
63
|
+
* Convert from a native type.
|
64
|
+
*/
|
65
|
+
static VALUE
|
66
|
+
conv_from_native(VALUE self, VALUE value, VALUE ctx)
|
67
|
+
{
|
68
|
+
return value;
|
69
|
+
}
|
70
|
+
|
71
|
+
|
72
|
+
|
73
|
+
void
|
74
|
+
rbffi_DataConverter_Init(VALUE moduleFFI)
|
75
|
+
{
|
76
|
+
/*
|
77
|
+
* Document-module: FFI::DataConverter
|
78
|
+
* This module is used to extend somes classes and give then a common API.
|
79
|
+
*
|
80
|
+
* Most of methods defined here must be overriden.
|
81
|
+
*/
|
82
|
+
rbffi_DataConverterClass = rb_define_module_under(moduleFFI, "DataConverter");
|
83
|
+
|
84
|
+
rb_define_method(rbffi_DataConverterClass, "native_type", conv_native_type, -1);
|
85
|
+
rb_define_method(rbffi_DataConverterClass, "to_native", conv_to_native, 2);
|
86
|
+
rb_define_method(rbffi_DataConverterClass, "from_native", conv_from_native, 2);
|
87
|
+
|
88
|
+
id_native_type_ivar = rb_intern("@native_type");
|
89
|
+
}
|
90
|
+
|
91
|
+
|
@@ -0,0 +1,339 @@
|
|
1
|
+
/*
|
2
|
+
* Copyright (c) 2008-2010 Wayne Meissner
|
3
|
+
*
|
4
|
+
* Copyright (c) 2008-2013, Ruby FFI project contributors
|
5
|
+
* All rights reserved.
|
6
|
+
*
|
7
|
+
* Redistribution and use in source and binary forms, with or without
|
8
|
+
* modification, are permitted provided that the following conditions are met:
|
9
|
+
* * Redistributions of source code must retain the above copyright
|
10
|
+
* notice, this list of conditions and the following disclaimer.
|
11
|
+
* * Redistributions in binary form must reproduce the above copyright
|
12
|
+
* notice, this list of conditions and the following disclaimer in the
|
13
|
+
* documentation and/or other materials provided with the distribution.
|
14
|
+
* * Neither the name of the Ruby FFI project nor the
|
15
|
+
* names of its contributors may be used to endorse or promote products
|
16
|
+
* derived from this software without specific prior written permission.
|
17
|
+
*
|
18
|
+
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
|
19
|
+
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
20
|
+
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
21
|
+
* DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> BE LIABLE FOR ANY
|
22
|
+
* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
|
23
|
+
* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
24
|
+
* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
|
25
|
+
* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
26
|
+
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
27
|
+
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
28
|
+
*/
|
29
|
+
|
30
|
+
#include <sys/types.h>
|
31
|
+
#include <stdio.h>
|
32
|
+
#ifndef _MSC_VER
|
33
|
+
# include <stdint.h>
|
34
|
+
#endif
|
35
|
+
#if (defined(_WIN32) || defined(__WIN32__)) && !defined(__CYGWIN__)
|
36
|
+
# include <winsock2.h>
|
37
|
+
# define _WINSOCKAPI_
|
38
|
+
# include <windows.h>
|
39
|
+
# include <shlwapi.h>
|
40
|
+
#else
|
41
|
+
# include <dlfcn.h>
|
42
|
+
#endif
|
43
|
+
#include <ruby.h>
|
44
|
+
#if defined(_MSC_VER) && !defined(INT8_MIN)
|
45
|
+
# include "win32/stdint.h"
|
46
|
+
#endif
|
47
|
+
|
48
|
+
#include <ffi.h>
|
49
|
+
|
50
|
+
#include "rbffi.h"
|
51
|
+
#include "compat.h"
|
52
|
+
#include "AbstractMemory.h"
|
53
|
+
#include "Pointer.h"
|
54
|
+
#include "DynamicLibrary.h"
|
55
|
+
|
56
|
+
typedef struct LibrarySymbol_ {
|
57
|
+
Pointer base;
|
58
|
+
VALUE library;
|
59
|
+
VALUE name;
|
60
|
+
} LibrarySymbol;
|
61
|
+
|
62
|
+
static VALUE library_initialize(VALUE self, VALUE libname, VALUE libflags);
|
63
|
+
static void library_free(Library* lib);
|
64
|
+
|
65
|
+
|
66
|
+
static VALUE symbol_allocate(VALUE klass);
|
67
|
+
static VALUE symbol_new(VALUE library, void* address, VALUE name);
|
68
|
+
static void symbol_mark(LibrarySymbol* sym);
|
69
|
+
|
70
|
+
static VALUE LibraryClass = Qnil, SymbolClass = Qnil;
|
71
|
+
|
72
|
+
#if (defined(_WIN32) || defined(__WIN32__)) && !defined(__CYGWIN__)
|
73
|
+
static void* dl_open(const char* name, int flags);
|
74
|
+
static void dl_error(char* buf, int size);
|
75
|
+
#define dl_sym(handle, name) GetProcAddress(handle, name)
|
76
|
+
#define dl_close(handle) FreeLibrary(handle)
|
77
|
+
#else
|
78
|
+
# define dl_open(name, flags) dlopen(name, flags != 0 ? flags : RTLD_LAZY)
|
79
|
+
# define dl_error(buf, size) do { snprintf(buf, size, "%s", dlerror()); } while(0)
|
80
|
+
# define dl_sym(handle, name) dlsym(handle, name)
|
81
|
+
# define dl_close(handle) dlclose(handle)
|
82
|
+
#endif
|
83
|
+
|
84
|
+
static VALUE
|
85
|
+
library_allocate(VALUE klass)
|
86
|
+
{
|
87
|
+
Library* library;
|
88
|
+
return Data_Make_Struct(klass, Library, NULL, library_free, library);
|
89
|
+
}
|
90
|
+
|
91
|
+
/*
|
92
|
+
* call-seq: DynamicLibrary.open(libname, libflags)
|
93
|
+
* @param libname (see #initialize)
|
94
|
+
* @param libflags (see #initialize)
|
95
|
+
* @return [FFI::DynamicLibrary]
|
96
|
+
* @raise {LoadError} if +libname+ cannot be opened
|
97
|
+
* Open a library.
|
98
|
+
*/
|
99
|
+
static VALUE
|
100
|
+
library_open(VALUE klass, VALUE libname, VALUE libflags)
|
101
|
+
{
|
102
|
+
return library_initialize(library_allocate(klass), libname, libflags);
|
103
|
+
}
|
104
|
+
|
105
|
+
/*
|
106
|
+
* call-seq: initialize(libname, libflags)
|
107
|
+
* @param [String] libname name of library to open
|
108
|
+
* @param [Fixnum] libflags flags for library to open
|
109
|
+
* @return [FFI::DynamicLibrary]
|
110
|
+
* @raise {LoadError} if +libname+ cannot be opened
|
111
|
+
* A new DynamicLibrary instance.
|
112
|
+
*/
|
113
|
+
static VALUE
|
114
|
+
library_initialize(VALUE self, VALUE libname, VALUE libflags)
|
115
|
+
{
|
116
|
+
Library* library;
|
117
|
+
int flags;
|
118
|
+
|
119
|
+
Check_Type(libflags, T_FIXNUM);
|
120
|
+
|
121
|
+
Data_Get_Struct(self, Library, library);
|
122
|
+
flags = libflags != Qnil ? NUM2UINT(libflags) : 0;
|
123
|
+
|
124
|
+
library->handle = dl_open(libname != Qnil ? StringValueCStr(libname) : NULL, flags);
|
125
|
+
if (library->handle == NULL) {
|
126
|
+
char errmsg[1024];
|
127
|
+
dl_error(errmsg, sizeof(errmsg));
|
128
|
+
rb_raise(rb_eLoadError, "Could not open library '%s': %s",
|
129
|
+
libname != Qnil ? StringValueCStr(libname) : "[current process]",
|
130
|
+
errmsg);
|
131
|
+
}
|
132
|
+
#ifdef __CYGWIN__
|
133
|
+
// On Cygwin 1.7.17 "dlsym(dlopen(0,0), 'getpid')" fails. (dlerror: "No such process")
|
134
|
+
// As a workaround we can use "dlsym(RTLD_DEFAULT, 'getpid')" instead.
|
135
|
+
// Since 0 == RTLD_DEFAULT we won't call dl_close later.
|
136
|
+
if (libname == Qnil) {
|
137
|
+
dl_close(library->handle);
|
138
|
+
library->handle = RTLD_DEFAULT;
|
139
|
+
}
|
140
|
+
#endif
|
141
|
+
rb_iv_set(self, "@name", libname != Qnil ? libname : rb_str_new2("[current process]"));
|
142
|
+
return self;
|
143
|
+
}
|
144
|
+
|
145
|
+
static VALUE
|
146
|
+
library_dlsym(VALUE self, VALUE name)
|
147
|
+
{
|
148
|
+
Library* library;
|
149
|
+
void* address = NULL;
|
150
|
+
Check_Type(name, T_STRING);
|
151
|
+
|
152
|
+
Data_Get_Struct(self, Library, library);
|
153
|
+
address = dl_sym(library->handle, StringValueCStr(name));
|
154
|
+
|
155
|
+
return address != NULL ? symbol_new(self, address, name) : Qnil;
|
156
|
+
}
|
157
|
+
|
158
|
+
/*
|
159
|
+
* call-seq: last_error
|
160
|
+
* @return [String] library's last error string
|
161
|
+
*/
|
162
|
+
static VALUE
|
163
|
+
library_dlerror(VALUE self)
|
164
|
+
{
|
165
|
+
char errmsg[1024];
|
166
|
+
dl_error(errmsg, sizeof(errmsg));
|
167
|
+
return rb_tainted_str_new2(errmsg);
|
168
|
+
}
|
169
|
+
|
170
|
+
static void
|
171
|
+
library_free(Library* library)
|
172
|
+
{
|
173
|
+
/* dlclose() on MacOS tends to segfault - avoid it */
|
174
|
+
#ifndef __APPLE__
|
175
|
+
if (library->handle != NULL) {
|
176
|
+
dl_close(library->handle);
|
177
|
+
}
|
178
|
+
#endif
|
179
|
+
xfree(library);
|
180
|
+
}
|
181
|
+
|
182
|
+
#if (defined(_WIN32) || defined(__WIN32__)) && !defined(__CYGWIN__)
|
183
|
+
static void*
|
184
|
+
dl_open(const char* name, int flags)
|
185
|
+
{
|
186
|
+
if (name == NULL) {
|
187
|
+
return GetModuleHandle(NULL);
|
188
|
+
} else {
|
189
|
+
DWORD dwFlags = PathIsRelativeA(name) ? 0 : LOAD_WITH_ALTERED_SEARCH_PATH;
|
190
|
+
return LoadLibraryExA(name, NULL, dwFlags);
|
191
|
+
}
|
192
|
+
}
|
193
|
+
|
194
|
+
static void
|
195
|
+
dl_error(char* buf, int size)
|
196
|
+
{
|
197
|
+
FormatMessageA(FORMAT_MESSAGE_FROM_SYSTEM, NULL, GetLastError(),
|
198
|
+
0, buf, size, NULL);
|
199
|
+
}
|
200
|
+
#endif
|
201
|
+
|
202
|
+
static VALUE
|
203
|
+
symbol_allocate(VALUE klass)
|
204
|
+
{
|
205
|
+
LibrarySymbol* sym;
|
206
|
+
VALUE obj = Data_Make_Struct(klass, LibrarySymbol, NULL, -1, sym);
|
207
|
+
sym->name = Qnil;
|
208
|
+
sym->library = Qnil;
|
209
|
+
sym->base.rbParent = Qnil;
|
210
|
+
|
211
|
+
return obj;
|
212
|
+
}
|
213
|
+
|
214
|
+
|
215
|
+
/*
|
216
|
+
* call-seq: initialize_copy(other)
|
217
|
+
* @param [Object] other
|
218
|
+
* @return [nil]
|
219
|
+
* DO NOT CALL THIS METHOD
|
220
|
+
*/
|
221
|
+
static VALUE
|
222
|
+
symbol_initialize_copy(VALUE self, VALUE other)
|
223
|
+
{
|
224
|
+
rb_raise(rb_eRuntimeError, "cannot duplicate symbol");
|
225
|
+
return Qnil;
|
226
|
+
}
|
227
|
+
|
228
|
+
static VALUE
|
229
|
+
symbol_new(VALUE library, void* address, VALUE name)
|
230
|
+
{
|
231
|
+
LibrarySymbol* sym;
|
232
|
+
VALUE obj = Data_Make_Struct(SymbolClass, LibrarySymbol, symbol_mark, -1, sym);
|
233
|
+
|
234
|
+
sym->base.memory.address = address;
|
235
|
+
sym->base.memory.size = LONG_MAX;
|
236
|
+
sym->base.memory.typeSize = 1;
|
237
|
+
sym->base.memory.flags = MEM_RD | MEM_WR;
|
238
|
+
sym->library = library;
|
239
|
+
sym->name = name;
|
240
|
+
|
241
|
+
return obj;
|
242
|
+
}
|
243
|
+
|
244
|
+
static void
|
245
|
+
symbol_mark(LibrarySymbol* sym)
|
246
|
+
{
|
247
|
+
rb_gc_mark(sym->library);
|
248
|
+
rb_gc_mark(sym->name);
|
249
|
+
}
|
250
|
+
|
251
|
+
/*
|
252
|
+
* call-seq: inspect
|
253
|
+
* @return [String]
|
254
|
+
* Inspect.
|
255
|
+
*/
|
256
|
+
static VALUE
|
257
|
+
symbol_inspect(VALUE self)
|
258
|
+
{
|
259
|
+
LibrarySymbol* sym;
|
260
|
+
char buf[256];
|
261
|
+
|
262
|
+
Data_Get_Struct(self, LibrarySymbol, sym);
|
263
|
+
snprintf(buf, sizeof(buf), "#<FFI::Library::Symbol name=%s address=%p>",
|
264
|
+
StringValueCStr(sym->name), sym->base.memory.address);
|
265
|
+
return rb_str_new2(buf);
|
266
|
+
}
|
267
|
+
|
268
|
+
void
|
269
|
+
rbffi_DynamicLibrary_Init(VALUE moduleFFI)
|
270
|
+
{
|
271
|
+
/*
|
272
|
+
* Document-class: FFI::DynamicLibrary
|
273
|
+
*/
|
274
|
+
LibraryClass = rb_define_class_under(moduleFFI, "DynamicLibrary", rb_cObject);
|
275
|
+
rb_global_variable(&LibraryClass);
|
276
|
+
/*
|
277
|
+
* Document-class: FFI::DynamicLibrary::Symbol < FFI::Pointer
|
278
|
+
*
|
279
|
+
* An instance of this class represents a library symbol. It may be a {Pointer pointer} to
|
280
|
+
* a function or to a variable.
|
281
|
+
*/
|
282
|
+
SymbolClass = rb_define_class_under(LibraryClass, "Symbol", rbffi_PointerClass);
|
283
|
+
rb_global_variable(&SymbolClass);
|
284
|
+
|
285
|
+
/*
|
286
|
+
* Document-const: FFI::NativeLibrary
|
287
|
+
* Backward compatibility for FFI::DynamicLibrary
|
288
|
+
*/
|
289
|
+
rb_define_const(moduleFFI, "NativeLibrary", LibraryClass); /* backwards compat library */
|
290
|
+
rb_define_alloc_func(LibraryClass, library_allocate);
|
291
|
+
rb_define_singleton_method(LibraryClass, "open", library_open, 2);
|
292
|
+
rb_define_singleton_method(LibraryClass, "last_error", library_dlerror, 0);
|
293
|
+
rb_define_method(LibraryClass, "initialize", library_initialize, 2);
|
294
|
+
/*
|
295
|
+
* Document-method: find_symbol
|
296
|
+
* call-seq: find_symbol(name)
|
297
|
+
* @param [String] name library symbol's name
|
298
|
+
* @return [FFI::DynamicLibrary::Symbol] library symbol
|
299
|
+
*/
|
300
|
+
rb_define_method(LibraryClass, "find_symbol", library_dlsym, 1);
|
301
|
+
/*
|
302
|
+
* Document-method: find_function
|
303
|
+
* call-seq: find_function(name)
|
304
|
+
* @param [String] name library function's name
|
305
|
+
* @return [FFI::DynamicLibrary::Symbol] library function symbol
|
306
|
+
*/
|
307
|
+
rb_define_method(LibraryClass, "find_function", library_dlsym, 1);
|
308
|
+
/*
|
309
|
+
* Document-method: find_variable
|
310
|
+
* call-seq: find_variable(name)
|
311
|
+
* @param [String] name library variable's name
|
312
|
+
* @return [FFI::DynamicLibrary::Symbol] library variable symbol
|
313
|
+
*/
|
314
|
+
rb_define_method(LibraryClass, "find_variable", library_dlsym, 1);
|
315
|
+
rb_define_method(LibraryClass, "last_error", library_dlerror, 0);
|
316
|
+
rb_define_attr(LibraryClass, "name", 1, 0);
|
317
|
+
|
318
|
+
rb_define_alloc_func(SymbolClass, symbol_allocate);
|
319
|
+
rb_undef_method(SymbolClass, "new");
|
320
|
+
rb_define_method(SymbolClass, "inspect", symbol_inspect, 0);
|
321
|
+
rb_define_method(SymbolClass, "initialize_copy", symbol_initialize_copy, 1);
|
322
|
+
|
323
|
+
#define DEF(x) rb_define_const(LibraryClass, "RTLD_" #x, UINT2NUM(RTLD_##x))
|
324
|
+
DEF(LAZY);
|
325
|
+
DEF(NOW);
|
326
|
+
DEF(GLOBAL);
|
327
|
+
DEF(LOCAL);
|
328
|
+
DEF(NOLOAD);
|
329
|
+
DEF(NODELETE);
|
330
|
+
DEF(FIRST);
|
331
|
+
DEF(DEEPBIND);
|
332
|
+
DEF(MEMBER);
|
333
|
+
DEF(BINDING_MASK);
|
334
|
+
DEF(LOCATION_MASK);
|
335
|
+
DEF(ALL_MASK);
|
336
|
+
#undef DEF
|
337
|
+
|
338
|
+
}
|
339
|
+
|
@@ -0,0 +1,98 @@
|
|
1
|
+
/*
|
2
|
+
* Copyright (c) 2008-2010 Wayne Meissner
|
3
|
+
* Copyright (c) 2008-2013, Ruby FFI project contributors
|
4
|
+
* All rights reserved.
|
5
|
+
*
|
6
|
+
* Redistribution and use in source and binary forms, with or without
|
7
|
+
* modification, are permitted provided that the following conditions are met:
|
8
|
+
* * Redistributions of source code must retain the above copyright
|
9
|
+
* notice, this list of conditions and the following disclaimer.
|
10
|
+
* * Redistributions in binary form must reproduce the above copyright
|
11
|
+
* notice, this list of conditions and the following disclaimer in the
|
12
|
+
* documentation and/or other materials provided with the distribution.
|
13
|
+
* * Neither the name of the Ruby FFI project nor the
|
14
|
+
* names of its contributors may be used to endorse or promote products
|
15
|
+
* derived from this software without specific prior written permission.
|
16
|
+
*
|
17
|
+
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
|
18
|
+
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
19
|
+
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
20
|
+
* DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> BE LIABLE FOR ANY
|
21
|
+
* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
|
22
|
+
* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
23
|
+
* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
|
24
|
+
* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
25
|
+
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
26
|
+
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
27
|
+
*/
|
28
|
+
|
29
|
+
#ifndef _LIBRARY_H
|
30
|
+
#define _LIBRARY_H
|
31
|
+
|
32
|
+
#ifdef __cplusplus
|
33
|
+
extern "C" {
|
34
|
+
#endif
|
35
|
+
|
36
|
+
/* if these aren't defined (eg. windows), we need sensible defaults */
|
37
|
+
#ifndef RTLD_LAZY
|
38
|
+
#define RTLD_LAZY 1
|
39
|
+
#endif
|
40
|
+
|
41
|
+
#ifndef RTLD_NOW
|
42
|
+
#define RTLD_NOW 2
|
43
|
+
#endif
|
44
|
+
|
45
|
+
#ifndef RTLD_LOCAL
|
46
|
+
#define RTLD_LOCAL 4
|
47
|
+
#endif
|
48
|
+
|
49
|
+
#ifndef RTLD_GLOBAL
|
50
|
+
#define RTLD_GLOBAL 8
|
51
|
+
#endif
|
52
|
+
|
53
|
+
/* If these aren't defined, they're not supported so define as 0 */
|
54
|
+
#ifndef RTLD_NOLOAD
|
55
|
+
#define RTLD_NOLOAD 0
|
56
|
+
#endif
|
57
|
+
|
58
|
+
#ifndef RTLD_NODELETE
|
59
|
+
#define RTLD_NODELETE 0
|
60
|
+
#endif
|
61
|
+
|
62
|
+
#ifndef RTLD_FIRST
|
63
|
+
#define RTLD_FIRST 0
|
64
|
+
#endif
|
65
|
+
|
66
|
+
#ifndef RTLD_DEEPBIND
|
67
|
+
#define RTLD_DEEPBIND 0
|
68
|
+
#endif
|
69
|
+
|
70
|
+
#ifndef RTLD_MEMBER
|
71
|
+
#define RTLD_MEMBER 0
|
72
|
+
#endif
|
73
|
+
|
74
|
+
/* convenience */
|
75
|
+
#ifndef RTLD_BINDING_MASK
|
76
|
+
#define RTLD_BINDING_MASK (RTLD_LAZY | RTLD_NOW)
|
77
|
+
#endif
|
78
|
+
|
79
|
+
#ifndef RTLD_LOCATION_MASK
|
80
|
+
#define RTLD_LOCATION_MASK (RTLD_LOCAL | RTLD_GLOBAL)
|
81
|
+
#endif
|
82
|
+
|
83
|
+
#ifndef RTLD_ALL_MASK
|
84
|
+
#define RTLD_ALL_MASK (RTLD_BINDING_MASK | RTLD_LOCATION_MASK | RTLD_NOLOAD | RTLD_NODELETE | RTLD_FIRST | RTLD_DEEPBIND | RTLD_MEMBER)
|
85
|
+
#endif
|
86
|
+
|
87
|
+
typedef struct Library {
|
88
|
+
void* handle;
|
89
|
+
} Library;
|
90
|
+
|
91
|
+
extern void rbffi_DynamicLibrary_Init(VALUE ffiModule);
|
92
|
+
|
93
|
+
#ifdef __cplusplus
|
94
|
+
}
|
95
|
+
#endif
|
96
|
+
|
97
|
+
#endif /* _LIBRARY_H */
|
98
|
+
|