remogatto-ffi 0.5.0
Sign up to get free protection for your applications and to get access to all the features.
- data/LICENSE +51 -0
- data/README.rdoc +69 -0
- data/Rakefile +144 -0
- data/ext/ffi_c/AbstractMemory.c +489 -0
- data/ext/ffi_c/AbstractMemory.h +160 -0
- data/ext/ffi_c/ArrayType.c +129 -0
- data/ext/ffi_c/ArrayType.h +58 -0
- data/ext/ffi_c/AutoPointer.c +61 -0
- data/ext/ffi_c/AutoPointer.h +18 -0
- data/ext/ffi_c/Buffer.c +187 -0
- data/ext/ffi_c/Call.c +431 -0
- data/ext/ffi_c/Call.h +77 -0
- data/ext/ffi_c/DynamicLibrary.c +216 -0
- data/ext/ffi_c/DynamicLibrary.h +22 -0
- data/ext/ffi_c/Function.c +498 -0
- data/ext/ffi_c/Function.h +73 -0
- data/ext/ffi_c/FunctionInfo.c +213 -0
- data/ext/ffi_c/LastError.c +159 -0
- data/ext/ffi_c/LastError.h +18 -0
- data/ext/ffi_c/MemoryPointer.c +178 -0
- data/ext/ffi_c/MemoryPointer.h +20 -0
- data/ext/ffi_c/MethodHandle.c +356 -0
- data/ext/ffi_c/MethodHandle.h +53 -0
- data/ext/ffi_c/Platform.c +59 -0
- data/ext/ffi_c/Platform.h +16 -0
- data/ext/ffi_c/Pointer.c +217 -0
- data/ext/ffi_c/Pointer.h +49 -0
- data/ext/ffi_c/Struct.c +770 -0
- data/ext/ffi_c/Struct.h +80 -0
- data/ext/ffi_c/StructByValue.c +140 -0
- data/ext/ffi_c/StructByValue.h +53 -0
- data/ext/ffi_c/StructLayout.c +450 -0
- data/ext/ffi_c/Type.c +329 -0
- data/ext/ffi_c/Type.h +57 -0
- data/ext/ffi_c/Types.c +103 -0
- data/ext/ffi_c/Types.h +85 -0
- data/ext/ffi_c/Variadic.c +260 -0
- data/ext/ffi_c/compat.h +72 -0
- data/ext/ffi_c/endian.h +40 -0
- data/ext/ffi_c/extconf.rb +34 -0
- data/ext/ffi_c/ffi.c +80 -0
- data/ext/ffi_c/libffi.bsd.mk +34 -0
- data/ext/ffi_c/libffi.darwin.mk +75 -0
- data/ext/ffi_c/libffi.gnu.mk +29 -0
- data/ext/ffi_c/libffi.mk +13 -0
- data/ext/ffi_c/libffi/ChangeLog +3243 -0
- data/ext/ffi_c/libffi/ChangeLog.libffi +347 -0
- data/ext/ffi_c/libffi/ChangeLog.libgcj +40 -0
- data/ext/ffi_c/libffi/ChangeLog.v1 +764 -0
- data/ext/ffi_c/libffi/LICENSE +21 -0
- data/ext/ffi_c/libffi/Makefile.am +177 -0
- data/ext/ffi_c/libffi/Makefile.in +1640 -0
- data/ext/ffi_c/libffi/README +328 -0
- data/ext/ffi_c/libffi/TODO +1 -0
- data/ext/ffi_c/libffi/acinclude.m4 +92 -0
- data/ext/ffi_c/libffi/aclocal.m4 +7516 -0
- data/ext/ffi_c/libffi/compile +142 -0
- data/ext/ffi_c/libffi/config.guess +1516 -0
- data/ext/ffi_c/libffi/config.sub +1626 -0
- data/ext/ffi_c/libffi/configure +24414 -0
- data/ext/ffi_c/libffi/configure.ac +365 -0
- data/ext/ffi_c/libffi/configure.host +11 -0
- data/ext/ffi_c/libffi/depcomp +584 -0
- data/ext/ffi_c/libffi/doc/libffi.info +533 -0
- data/ext/ffi_c/libffi/doc/libffi.texi +541 -0
- data/ext/ffi_c/libffi/doc/stamp-vti +4 -0
- data/ext/ffi_c/libffi/doc/version.texi +4 -0
- data/ext/ffi_c/libffi/fficonfig.h.in +160 -0
- data/ext/ffi_c/libffi/include/Makefile.am +9 -0
- data/ext/ffi_c/libffi/include/Makefile.in +422 -0
- data/ext/ffi_c/libffi/include/ffi.h.in +393 -0
- data/ext/ffi_c/libffi/include/ffi_common.h +98 -0
- data/ext/ffi_c/libffi/install-sh +323 -0
- data/ext/ffi_c/libffi/libffi.pc.in +10 -0
- data/ext/ffi_c/libffi/libtool-version +29 -0
- data/ext/ffi_c/libffi/ltcf-c.sh +861 -0
- data/ext/ffi_c/libffi/ltcf-cxx.sh +1069 -0
- data/ext/ffi_c/libffi/ltcf-gcj.sh +700 -0
- data/ext/ffi_c/libffi/ltconfig +2862 -0
- data/ext/ffi_c/libffi/ltmain.sh +6930 -0
- data/ext/ffi_c/libffi/man/Makefile.am +8 -0
- data/ext/ffi_c/libffi/man/Makefile.in +395 -0
- data/ext/ffi_c/libffi/man/ffi.3 +31 -0
- data/ext/ffi_c/libffi/man/ffi_call.3 +103 -0
- data/ext/ffi_c/libffi/man/ffi_prep_cif.3 +66 -0
- data/ext/ffi_c/libffi/mdate-sh +201 -0
- data/ext/ffi_c/libffi/missing +353 -0
- data/ext/ffi_c/libffi/mkinstalldirs +158 -0
- data/ext/ffi_c/libffi/src/alpha/ffi.c +284 -0
- data/ext/ffi_c/libffi/src/alpha/ffitarget.h +48 -0
- data/ext/ffi_c/libffi/src/alpha/osf.S +366 -0
- data/ext/ffi_c/libffi/src/arm/ffi.c +309 -0
- data/ext/ffi_c/libffi/src/arm/ffitarget.h +49 -0
- data/ext/ffi_c/libffi/src/arm/sysv.S +299 -0
- data/ext/ffi_c/libffi/src/closures.c +596 -0
- data/ext/ffi_c/libffi/src/cris/ffi.c +383 -0
- data/ext/ffi_c/libffi/src/cris/ffitarget.h +51 -0
- data/ext/ffi_c/libffi/src/cris/sysv.S +215 -0
- data/ext/ffi_c/libffi/src/debug.c +59 -0
- data/ext/ffi_c/libffi/src/dlmalloc.c +5099 -0
- data/ext/ffi_c/libffi/src/frv/eabi.S +128 -0
- data/ext/ffi_c/libffi/src/frv/ffi.c +292 -0
- data/ext/ffi_c/libffi/src/frv/ffitarget.h +61 -0
- data/ext/ffi_c/libffi/src/ia64/ffi.c +580 -0
- data/ext/ffi_c/libffi/src/ia64/ffitarget.h +50 -0
- data/ext/ffi_c/libffi/src/ia64/ia64_flags.h +40 -0
- data/ext/ffi_c/libffi/src/ia64/unix.S +560 -0
- data/ext/ffi_c/libffi/src/java_raw_api.c +359 -0
- data/ext/ffi_c/libffi/src/m32r/ffi.c +232 -0
- data/ext/ffi_c/libffi/src/m32r/ffitarget.h +48 -0
- data/ext/ffi_c/libffi/src/m32r/sysv.S +121 -0
- data/ext/ffi_c/libffi/src/m68k/ffi.c +278 -0
- data/ext/ffi_c/libffi/src/m68k/ffitarget.h +49 -0
- data/ext/ffi_c/libffi/src/m68k/sysv.S +234 -0
- data/ext/ffi_c/libffi/src/mips/ffi.c +926 -0
- data/ext/ffi_c/libffi/src/mips/ffitarget.h +202 -0
- data/ext/ffi_c/libffi/src/mips/n32.S +534 -0
- data/ext/ffi_c/libffi/src/mips/o32.S +381 -0
- data/ext/ffi_c/libffi/src/pa/ffi.c +709 -0
- data/ext/ffi_c/libffi/src/pa/ffitarget.h +77 -0
- data/ext/ffi_c/libffi/src/pa/hpux32.S +368 -0
- data/ext/ffi_c/libffi/src/pa/linux.S +357 -0
- data/ext/ffi_c/libffi/src/powerpc/aix.S +225 -0
- data/ext/ffi_c/libffi/src/powerpc/aix_closure.S +247 -0
- data/ext/ffi_c/libffi/src/powerpc/asm.h +125 -0
- data/ext/ffi_c/libffi/src/powerpc/darwin.S +245 -0
- data/ext/ffi_c/libffi/src/powerpc/darwin_closure.S +317 -0
- data/ext/ffi_c/libffi/src/powerpc/ffi.c +1429 -0
- data/ext/ffi_c/libffi/src/powerpc/ffi_darwin.c +800 -0
- data/ext/ffi_c/libffi/src/powerpc/ffitarget.h +118 -0
- data/ext/ffi_c/libffi/src/powerpc/linux64.S +187 -0
- data/ext/ffi_c/libffi/src/powerpc/linux64_closure.S +236 -0
- data/ext/ffi_c/libffi/src/powerpc/ppc_closure.S +327 -0
- data/ext/ffi_c/libffi/src/powerpc/sysv.S +230 -0
- data/ext/ffi_c/libffi/src/prep_cif.c +174 -0
- data/ext/ffi_c/libffi/src/raw_api.c +254 -0
- data/ext/ffi_c/libffi/src/s390/ffi.c +780 -0
- data/ext/ffi_c/libffi/src/s390/ffitarget.h +60 -0
- data/ext/ffi_c/libffi/src/s390/sysv.S +434 -0
- data/ext/ffi_c/libffi/src/sh/ffi.c +716 -0
- data/ext/ffi_c/libffi/src/sh/ffitarget.h +49 -0
- data/ext/ffi_c/libffi/src/sh/sysv.S +850 -0
- data/ext/ffi_c/libffi/src/sh64/ffi.c +453 -0
- data/ext/ffi_c/libffi/src/sh64/ffitarget.h +53 -0
- data/ext/ffi_c/libffi/src/sh64/sysv.S +530 -0
- data/ext/ffi_c/libffi/src/sparc/ffi.c +610 -0
- data/ext/ffi_c/libffi/src/sparc/ffitarget.h +66 -0
- data/ext/ffi_c/libffi/src/sparc/v8.S +272 -0
- data/ext/ffi_c/libffi/src/sparc/v9.S +307 -0
- data/ext/ffi_c/libffi/src/types.c +77 -0
- data/ext/ffi_c/libffi/src/x86/darwin.S +443 -0
- data/ext/ffi_c/libffi/src/x86/darwin64.S +416 -0
- data/ext/ffi_c/libffi/src/x86/ffi.c +475 -0
- data/ext/ffi_c/libffi/src/x86/ffi64.c +572 -0
- data/ext/ffi_c/libffi/src/x86/ffitarget.h +90 -0
- data/ext/ffi_c/libffi/src/x86/freebsd.S +458 -0
- data/ext/ffi_c/libffi/src/x86/sysv.S +437 -0
- data/ext/ffi_c/libffi/src/x86/unix64.S +418 -0
- data/ext/ffi_c/libffi/src/x86/win32.S +391 -0
- data/ext/ffi_c/libffi/testsuite/Makefile.am +71 -0
- data/ext/ffi_c/libffi/testsuite/Makefile.in +447 -0
- data/ext/ffi_c/libffi/testsuite/config/default.exp +1 -0
- data/ext/ffi_c/libffi/testsuite/lib/libffi-dg.exp +289 -0
- data/ext/ffi_c/libffi/testsuite/lib/target-libpath.exp +263 -0
- data/ext/ffi_c/libffi/testsuite/lib/wrapper.exp +45 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/call.exp +36 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn0.c +97 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn1.c +89 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn2.c +89 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn3.c +90 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn4.c +97 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn5.c +99 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn6.c +98 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_stdcall.c +72 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_12byte.c +102 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_16byte.c +103 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_18byte.c +104 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_19byte.c +110 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_1_1byte.c +97 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte.c +99 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte1.c +101 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_24byte.c +121 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_2byte.c +98 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3_1byte.c +103 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte1.c +98 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte2.c +98 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4_1byte.c +106 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4byte.c +98 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5_1_byte.c +117 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5byte.c +106 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_64byte.c +132 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6_1_byte.c +121 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6byte.c +107 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7_1_byte.c +125 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7byte.c +105 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_8byte.c +96 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte1.c +98 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte2.c +99 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_double.c +101 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_float.c +99 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble.c +100 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_pointer.c +101 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint16.c +99 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint32.c +99 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint64.c +99 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint16.c +99 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint32.c +99 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint64.c +100 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_double.c +51 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_float.c +51 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_schar.c +82 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshort.c +82 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshortchar.c +94 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_uchar.c +99 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushort.c +82 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushortchar.c +94 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_schar.c +52 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sint.c +50 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sshort.c +50 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar.c +50 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint.c +51 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulonglong.c +54 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort.c +51 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/ffitest.h +86 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/float.c +59 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/float1.c +58 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/float2.c +57 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/float3.c +72 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/float4.c +62 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/many.c +69 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/many_win32.c +63 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/negint.c +53 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct.c +160 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct1.c +169 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct10.c +141 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct2.c +118 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct3.c +119 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct4.c +119 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct5.c +120 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct6.c +139 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct7.c +119 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct8.c +139 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct9.c +139 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/problem1.c +98 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/promotion.c +59 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/pyobjc-tc.c +114 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl.c +35 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl1.c +43 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl2.c +42 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl.c +35 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl1.c +36 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl2.c +49 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl3.c +42 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_ldl.c +34 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll.c +41 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll1.c +42 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_sc.c +36 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_sl.c +38 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_uc.c +38 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_ul.c +38 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/strlen.c +44 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/strlen_win32.c +44 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct1.c +65 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct2.c +67 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct3.c +59 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct4.c +63 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct5.c +65 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct6.c +64 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct7.c +74 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct8.c +80 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct9.c +67 -0
- data/ext/ffi_c/libffi/testsuite/libffi.special/ffitestcxx.h +86 -0
- data/ext/ffi_c/libffi/testsuite/libffi.special/special.exp +38 -0
- data/ext/ffi_c/libffi/testsuite/libffi.special/unwindtest.cc +123 -0
- data/ext/ffi_c/libffi/testsuite/libffi.special/unwindtest_ffi_call.cc +53 -0
- data/ext/ffi_c/libffi/texinfo.tex +7482 -0
- data/ext/ffi_c/rbffi.h +26 -0
- data/gen/Rakefile +12 -0
- data/lib/ffi.rb +11 -0
- data/lib/ffi/autopointer.rb +61 -0
- data/lib/ffi/buffer.rb +0 -0
- data/lib/ffi/callback.rb +10 -0
- data/lib/ffi/enum.rb +78 -0
- data/lib/ffi/errno.rb +8 -0
- data/lib/ffi/ffi.rb +99 -0
- data/lib/ffi/io.rb +21 -0
- data/lib/ffi/library.rb +218 -0
- data/lib/ffi/managedstruct.rb +55 -0
- data/lib/ffi/memorypointer.rb +73 -0
- data/lib/ffi/platform.rb +78 -0
- data/lib/ffi/pointer.rb +119 -0
- data/lib/ffi/struct.rb +164 -0
- data/lib/ffi/tools/const_generator.rb +177 -0
- data/lib/ffi/tools/generator.rb +58 -0
- data/lib/ffi/tools/generator_task.rb +35 -0
- data/lib/ffi/tools/struct_generator.rb +194 -0
- data/lib/ffi/tools/types_generator.rb +123 -0
- data/lib/ffi/types.rb +153 -0
- data/lib/ffi/union.rb +12 -0
- data/lib/ffi/variadic.rb +25 -0
- data/spec/ffi/bool_spec.rb +24 -0
- data/spec/ffi/buffer_spec.rb +202 -0
- data/spec/ffi/callback_spec.rb +591 -0
- data/spec/ffi/enum_spec.rb +164 -0
- data/spec/ffi/errno_spec.rb +13 -0
- data/spec/ffi/function_spec.rb +47 -0
- data/spec/ffi/library_spec.rb +144 -0
- data/spec/ffi/managed_struct_spec.rb +56 -0
- data/spec/ffi/number_spec.rb +231 -0
- data/spec/ffi/pointer_spec.rb +195 -0
- data/spec/ffi/rbx/attach_function_spec.rb +27 -0
- data/spec/ffi/rbx/memory_pointer_spec.rb +102 -0
- data/spec/ffi/rbx/spec_helper.rb +1 -0
- data/spec/ffi/rbx/struct_spec.rb +13 -0
- data/spec/ffi/spec_helper.rb +17 -0
- data/spec/ffi/string_spec.rb +103 -0
- data/spec/ffi/struct_callback_spec.rb +62 -0
- data/spec/ffi/struct_initialize_spec.rb +30 -0
- data/spec/ffi/struct_spec.rb +529 -0
- data/spec/ffi/typedef_spec.rb +48 -0
- data/spec/ffi/union_spec.rb +60 -0
- data/spec/ffi/variadic_spec.rb +84 -0
- data/spec/spec.opts +4 -0
- metadata +432 -0
data/ext/ffi_c/Struct.h
ADDED
@@ -0,0 +1,80 @@
|
|
1
|
+
/*
|
2
|
+
* Copyright (c) 2008, 2009, Wayne Meissner
|
3
|
+
* Copyright (c) 2009, Luc Heinrich <luc@honk-honk.com>
|
4
|
+
*
|
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
|
+
*
|
10
|
+
* * Redistributions of source code must retain the above copyright notice, this
|
11
|
+
* list of conditions and the following disclaimer.
|
12
|
+
* * Redistributions in binary form must reproduce the above copyright notice
|
13
|
+
* this list of conditions and the following disclaimer in the documentation
|
14
|
+
* and/or other materials provided with the distribution.
|
15
|
+
* * The name of the author or authors may not be used to endorse or promote
|
16
|
+
* products derived from this software without specific prior written permission.
|
17
|
+
*
|
18
|
+
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
19
|
+
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
20
|
+
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
21
|
+
* DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
|
22
|
+
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
23
|
+
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
24
|
+
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
|
25
|
+
* CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
|
26
|
+
* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
27
|
+
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
28
|
+
*/
|
29
|
+
|
30
|
+
#ifndef RBFFI_STRUCT_H
|
31
|
+
#define RBFFI_STRUCT_H
|
32
|
+
|
33
|
+
#include "AbstractMemory.h"
|
34
|
+
#include "Type.h"
|
35
|
+
|
36
|
+
#ifdef __cplusplus
|
37
|
+
extern "C" {
|
38
|
+
#endif
|
39
|
+
|
40
|
+
extern void rbffi_Struct_Init(VALUE ffiModule);
|
41
|
+
extern void rbffi_StructLayout_Init(VALUE ffiModule);
|
42
|
+
|
43
|
+
typedef struct StructField_ {
|
44
|
+
Type* type;
|
45
|
+
unsigned int offset;
|
46
|
+
|
47
|
+
VALUE rbType;
|
48
|
+
VALUE rbName;
|
49
|
+
} StructField;
|
50
|
+
|
51
|
+
typedef struct StructLayout_ {
|
52
|
+
Type base;
|
53
|
+
StructField** fields;
|
54
|
+
unsigned int fieldCount;
|
55
|
+
int size;
|
56
|
+
int align;
|
57
|
+
ffi_type** ffiTypes;
|
58
|
+
VALUE rbFieldNames;
|
59
|
+
VALUE rbFieldMap;
|
60
|
+
VALUE rbFields;
|
61
|
+
} StructLayout;
|
62
|
+
|
63
|
+
typedef struct Struct {
|
64
|
+
StructLayout* layout;
|
65
|
+
AbstractMemory* pointer;
|
66
|
+
VALUE rbLayout;
|
67
|
+
VALUE rbPointer;
|
68
|
+
} Struct;
|
69
|
+
|
70
|
+
extern VALUE rbffi_StructClass, rbffi_StructLayoutClass;
|
71
|
+
extern VALUE rbffi_StructLayoutFieldClass, rbffi_StructLayoutFunctionFieldClass;
|
72
|
+
extern VALUE rbffi_StructLayoutArrayFieldClass, rbffi_StructLayoutStructFieldClass;
|
73
|
+
extern VALUE rbffi_StructInlineArrayClass;
|
74
|
+
|
75
|
+
#ifdef __cplusplus
|
76
|
+
}
|
77
|
+
#endif
|
78
|
+
|
79
|
+
#endif /* RBFFI_STRUCT_H */
|
80
|
+
|
@@ -0,0 +1,140 @@
|
|
1
|
+
/*
|
2
|
+
* Copyright (c) 2009, Wayne Meissner
|
3
|
+
* All rights reserved.
|
4
|
+
*
|
5
|
+
* Redistribution and use in source and binary forms, with or without
|
6
|
+
* modification, are permitted provided that the following conditions are met:
|
7
|
+
*
|
8
|
+
* * Redistributions of source code must retain the above copyright notice, this
|
9
|
+
* list of conditions and the following disclaimer.
|
10
|
+
* * Redistributions in binary form must reproduce the above copyright notice
|
11
|
+
* this list of conditions and the following disclaimer in the documentation
|
12
|
+
* and/or other materials provided with the distribution.
|
13
|
+
* * The name of the author or authors may not be used to endorse or promote
|
14
|
+
* products derived from this software without specific prior written permission.
|
15
|
+
*
|
16
|
+
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
17
|
+
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
18
|
+
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
19
|
+
* DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
|
20
|
+
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
21
|
+
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
22
|
+
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
|
23
|
+
* CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
|
24
|
+
* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
25
|
+
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
26
|
+
*/
|
27
|
+
|
28
|
+
#include <sys/param.h>
|
29
|
+
#include <sys/types.h>
|
30
|
+
#include <stdio.h>
|
31
|
+
#include <stdint.h>
|
32
|
+
#include <stdbool.h>
|
33
|
+
#include <errno.h>
|
34
|
+
#include <ruby.h>
|
35
|
+
|
36
|
+
#include <ffi.h>
|
37
|
+
#include "rbffi.h"
|
38
|
+
#include "compat.h"
|
39
|
+
|
40
|
+
#include "Type.h"
|
41
|
+
#include "StructByValue.h"
|
42
|
+
#include "Struct.h"
|
43
|
+
|
44
|
+
#define FFI_ALIGN(v, a) (((((size_t) (v))-1) | ((a)-1))+1)
|
45
|
+
|
46
|
+
static VALUE sbv_allocate(VALUE);
|
47
|
+
static VALUE sbv_initialize(VALUE, VALUE);
|
48
|
+
static void sbv_mark(StructByValue *);
|
49
|
+
static void sbv_free(StructByValue *);
|
50
|
+
|
51
|
+
VALUE rbffi_StructByValueClass = Qnil;
|
52
|
+
|
53
|
+
static VALUE
|
54
|
+
sbv_allocate(VALUE klass)
|
55
|
+
{
|
56
|
+
StructByValue* sbv;
|
57
|
+
|
58
|
+
VALUE obj = Data_Make_Struct(klass, StructByValue, sbv_mark, sbv_free, sbv);
|
59
|
+
|
60
|
+
sbv->rbStructClass = Qnil;
|
61
|
+
sbv->rbStructLayout = Qnil;
|
62
|
+
sbv->base.nativeType = NATIVE_STRUCT;
|
63
|
+
|
64
|
+
sbv->base.ffiType = xcalloc(1, sizeof(*sbv->base.ffiType));
|
65
|
+
sbv->base.ffiType->size = 0;
|
66
|
+
sbv->base.ffiType->alignment = 1;
|
67
|
+
sbv->base.ffiType->type = FFI_TYPE_STRUCT;
|
68
|
+
|
69
|
+
return obj;
|
70
|
+
}
|
71
|
+
|
72
|
+
static VALUE
|
73
|
+
sbv_initialize(VALUE self, VALUE rbStructClass)
|
74
|
+
{
|
75
|
+
StructByValue* sbv = NULL;
|
76
|
+
StructLayout* layout = NULL;
|
77
|
+
VALUE rbLayout = Qnil;
|
78
|
+
|
79
|
+
rbLayout = rb_cvar_get(rbStructClass, rb_intern("@layout"));
|
80
|
+
if (!rb_obj_is_instance_of(rbLayout, rbffi_StructLayoutClass)) {
|
81
|
+
rb_raise(rb_eTypeError, "wrong type in @layout cvar (expected FFI::StructLayout)");
|
82
|
+
}
|
83
|
+
|
84
|
+
Data_Get_Struct(rbLayout, StructLayout, layout);
|
85
|
+
Data_Get_Struct(self, StructByValue, sbv);
|
86
|
+
sbv->rbStructClass = rbStructClass;
|
87
|
+
sbv->rbStructLayout = rbLayout;
|
88
|
+
|
89
|
+
// We can just use everything from the ffi_type directly
|
90
|
+
*sbv->base.ffiType = *layout->base.ffiType;
|
91
|
+
|
92
|
+
return self;
|
93
|
+
}
|
94
|
+
|
95
|
+
static void
|
96
|
+
sbv_mark(StructByValue *sbv)
|
97
|
+
{
|
98
|
+
rb_gc_mark(sbv->rbStructClass);
|
99
|
+
rb_gc_mark(sbv->rbStructLayout);
|
100
|
+
}
|
101
|
+
|
102
|
+
static void
|
103
|
+
sbv_free(StructByValue *sbv)
|
104
|
+
{
|
105
|
+
xfree(sbv->base.ffiType);
|
106
|
+
xfree(sbv);
|
107
|
+
}
|
108
|
+
|
109
|
+
|
110
|
+
static VALUE
|
111
|
+
sbv_layout(VALUE self)
|
112
|
+
{
|
113
|
+
StructByValue* sbv;
|
114
|
+
|
115
|
+
Data_Get_Struct(self, StructByValue, sbv);
|
116
|
+
return sbv->rbStructLayout;
|
117
|
+
}
|
118
|
+
|
119
|
+
static VALUE
|
120
|
+
sbv_struct_class(VALUE self)
|
121
|
+
{
|
122
|
+
StructByValue* sbv;
|
123
|
+
|
124
|
+
Data_Get_Struct(self, StructByValue, sbv);
|
125
|
+
|
126
|
+
return sbv->rbStructClass;
|
127
|
+
}
|
128
|
+
|
129
|
+
void
|
130
|
+
rbffi_StructByValue_Init(VALUE moduleFFI)
|
131
|
+
{
|
132
|
+
rbffi_StructByValueClass = rb_define_class_under(moduleFFI, "StructByValue", rbffi_TypeClass);
|
133
|
+
rb_global_variable(&rbffi_StructByValueClass);
|
134
|
+
rb_define_const(rbffi_TypeClass, "Struct", rbffi_StructByValueClass);
|
135
|
+
|
136
|
+
rb_define_alloc_func(rbffi_StructByValueClass, sbv_allocate);
|
137
|
+
rb_define_method(rbffi_StructByValueClass, "initialize", sbv_initialize, 1);
|
138
|
+
rb_define_method(rbffi_StructByValueClass, "layout", sbv_layout, 0);
|
139
|
+
rb_define_method(rbffi_StructByValueClass, "struct_class", sbv_struct_class, 0);
|
140
|
+
}
|
@@ -0,0 +1,53 @@
|
|
1
|
+
/*
|
2
|
+
* Copyright (c) 2009, Wayne Meissner
|
3
|
+
* All rights reserved.
|
4
|
+
*
|
5
|
+
* Redistribution and use in source and binary forms, with or without
|
6
|
+
* modification, are permitted provided that the following conditions are met:
|
7
|
+
*
|
8
|
+
* * Redistributions of source code must retain the above copyright notice, this
|
9
|
+
* list of conditions and the following disclaimer.
|
10
|
+
* * Redistributions in binary form must reproduce the above copyright notice
|
11
|
+
* this list of conditions and the following disclaimer in the documentation
|
12
|
+
* and/or other materials provided with the distribution.
|
13
|
+
* * The name of the author or authors may not be used to endorse or promote
|
14
|
+
* products derived from this software without specific prior written permission.
|
15
|
+
*
|
16
|
+
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
17
|
+
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
18
|
+
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
19
|
+
* DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
|
20
|
+
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
21
|
+
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
22
|
+
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
|
23
|
+
* CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
|
24
|
+
* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
25
|
+
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
26
|
+
*/
|
27
|
+
|
28
|
+
#ifndef RBFFI_STRUCTBYVALUE_H
|
29
|
+
#define RBFFI_STRUCTBYVALUE_H
|
30
|
+
|
31
|
+
#include <ruby.h>
|
32
|
+
#include "Type.h"
|
33
|
+
|
34
|
+
#ifdef __cplusplus
|
35
|
+
extern "C" {
|
36
|
+
#endif
|
37
|
+
|
38
|
+
typedef struct StructByValue_ {
|
39
|
+
Type base;
|
40
|
+
VALUE rbStructClass;
|
41
|
+
VALUE rbStructLayout;
|
42
|
+
} StructByValue;
|
43
|
+
|
44
|
+
void rbffi_StructByValue_Init(VALUE moduleFFI);
|
45
|
+
|
46
|
+
extern VALUE rbffi_StructByValueClass;
|
47
|
+
|
48
|
+
#ifdef __cplusplus
|
49
|
+
}
|
50
|
+
#endif
|
51
|
+
|
52
|
+
#endif /* RBFFI_STRUCTBYVALUE_H */
|
53
|
+
|
@@ -0,0 +1,450 @@
|
|
1
|
+
/*
|
2
|
+
* Copyright (c) 2008, 2009, Wayne Meissner
|
3
|
+
* Copyright (c) 2009, Luc Heinrich <luc@honk-honk.com>
|
4
|
+
*
|
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
|
+
*
|
10
|
+
* * Redistributions of source code must retain the above copyright notice, this
|
11
|
+
* list of conditions and the following disclaimer.
|
12
|
+
* * Redistributions in binary form must reproduce the above copyright notice
|
13
|
+
* this list of conditions and the following disclaimer in the documentation
|
14
|
+
* and/or other materials provided with the distribution.
|
15
|
+
* * The name of the author or authors may not be used to endorse or promote
|
16
|
+
* products derived from this software without specific prior written permission.
|
17
|
+
*
|
18
|
+
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
19
|
+
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
20
|
+
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
21
|
+
* DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
|
22
|
+
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
23
|
+
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
24
|
+
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
|
25
|
+
* CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
|
26
|
+
* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
27
|
+
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
28
|
+
*/
|
29
|
+
|
30
|
+
#include <sys/types.h>
|
31
|
+
|
32
|
+
#include "Function.h"
|
33
|
+
#include <sys/param.h>
|
34
|
+
#include <stdint.h>
|
35
|
+
#include <stdbool.h>
|
36
|
+
#include <ruby.h>
|
37
|
+
#include "rbffi.h"
|
38
|
+
#include "compat.h"
|
39
|
+
#include "AbstractMemory.h"
|
40
|
+
#include "Pointer.h"
|
41
|
+
#include "MemoryPointer.h"
|
42
|
+
#include "Function.h"
|
43
|
+
#include "Types.h"
|
44
|
+
#include "Struct.h"
|
45
|
+
#include "StructByValue.h"
|
46
|
+
#include "ArrayType.h"
|
47
|
+
|
48
|
+
#define FFI_ALIGN(v, a) (((((size_t) (v))-1) | ((a)-1))+1)
|
49
|
+
|
50
|
+
static void struct_layout_mark(StructLayout *);
|
51
|
+
static void struct_layout_free(StructLayout *);
|
52
|
+
static void struct_field_mark(StructField* );
|
53
|
+
|
54
|
+
VALUE rbffi_StructLayoutFieldClass = Qnil;
|
55
|
+
VALUE rbffi_StructLayoutFunctionFieldClass = Qnil, rbffi_StructLayoutArrayFieldClass = Qnil;
|
56
|
+
VALUE rbffi_StructLayoutStructFieldClass = Qnil;
|
57
|
+
|
58
|
+
VALUE rbffi_StructLayoutClass = Qnil;
|
59
|
+
|
60
|
+
|
61
|
+
static VALUE
|
62
|
+
struct_field_allocate(VALUE klass)
|
63
|
+
{
|
64
|
+
StructField* field;
|
65
|
+
VALUE obj;
|
66
|
+
|
67
|
+
obj = Data_Make_Struct(klass, StructField, struct_field_mark, -1, field);
|
68
|
+
field->rbType = Qnil;
|
69
|
+
field->rbName = Qnil;
|
70
|
+
|
71
|
+
return obj;
|
72
|
+
}
|
73
|
+
|
74
|
+
static void
|
75
|
+
struct_field_mark(StructField* f)
|
76
|
+
{
|
77
|
+
rb_gc_mark(f->rbType);
|
78
|
+
rb_gc_mark(f->rbName);
|
79
|
+
}
|
80
|
+
|
81
|
+
static VALUE
|
82
|
+
struct_field_initialize(int argc, VALUE* argv, VALUE self)
|
83
|
+
{
|
84
|
+
VALUE rbOffset = Qnil, rbName = Qnil, rbType = Qnil;
|
85
|
+
StructField* field;
|
86
|
+
int nargs;
|
87
|
+
|
88
|
+
Data_Get_Struct(self, StructField, field);
|
89
|
+
|
90
|
+
nargs = rb_scan_args(argc, argv, "3", &rbName, &rbOffset, &rbType);
|
91
|
+
|
92
|
+
if (TYPE(rbName) != T_SYMBOL && TYPE(rbName) != T_STRING) {
|
93
|
+
rb_raise(rb_eTypeError, "wrong argument type %s (expected Symbol/String)",
|
94
|
+
rb_obj_classname(rbName));
|
95
|
+
}
|
96
|
+
|
97
|
+
Check_Type(rbOffset, T_FIXNUM);
|
98
|
+
|
99
|
+
if (!rb_obj_is_kind_of(rbType, rbffi_TypeClass)) {
|
100
|
+
rb_raise(rb_eTypeError, "wrong argument type %s (expected FFI::Type)",
|
101
|
+
rb_obj_classname(rbType));
|
102
|
+
}
|
103
|
+
|
104
|
+
field->offset = NUM2UINT(rbOffset);
|
105
|
+
field->rbName = (TYPE(rbName) == T_SYMBOL) ? rbName : rb_str_intern(rbName);
|
106
|
+
field->rbType = rbType;
|
107
|
+
Data_Get_Struct(field->rbType, Type, field->type);
|
108
|
+
|
109
|
+
return self;
|
110
|
+
}
|
111
|
+
|
112
|
+
static VALUE
|
113
|
+
struct_field_offset(VALUE self)
|
114
|
+
{
|
115
|
+
StructField* field;
|
116
|
+
Data_Get_Struct(self, StructField, field);
|
117
|
+
return UINT2NUM(field->offset);
|
118
|
+
}
|
119
|
+
|
120
|
+
static VALUE
|
121
|
+
struct_field_size(VALUE self)
|
122
|
+
{
|
123
|
+
StructField* field;
|
124
|
+
Data_Get_Struct(self, StructField, field);
|
125
|
+
return UINT2NUM(field->type->ffiType->size);
|
126
|
+
}
|
127
|
+
|
128
|
+
static VALUE
|
129
|
+
struct_field_alignment(VALUE self)
|
130
|
+
{
|
131
|
+
StructField* field;
|
132
|
+
Data_Get_Struct(self, StructField, field);
|
133
|
+
return UINT2NUM(field->type->ffiType->alignment);
|
134
|
+
}
|
135
|
+
|
136
|
+
static VALUE
|
137
|
+
struct_field_ffi_type(VALUE self)
|
138
|
+
{
|
139
|
+
StructField* field;
|
140
|
+
Data_Get_Struct(self, StructField, field);
|
141
|
+
return field->rbType;
|
142
|
+
}
|
143
|
+
|
144
|
+
static VALUE
|
145
|
+
struct_field_name(VALUE self)
|
146
|
+
{
|
147
|
+
StructField* field;
|
148
|
+
Data_Get_Struct(self, StructField, field);
|
149
|
+
return field->rbName;
|
150
|
+
}
|
151
|
+
|
152
|
+
static VALUE
|
153
|
+
struct_field_get(VALUE self, VALUE pointer)
|
154
|
+
{
|
155
|
+
StructField* f;
|
156
|
+
MemoryOp* op;
|
157
|
+
AbstractMemory* memory = MEMORY(pointer);
|
158
|
+
|
159
|
+
Data_Get_Struct(self, StructField, f);
|
160
|
+
op = memory_get_op(memory, f->type);
|
161
|
+
if (op == NULL) {
|
162
|
+
rb_raise(rb_eArgError, "get not supported for %s", rb_obj_classname(self));
|
163
|
+
return Qnil;
|
164
|
+
}
|
165
|
+
|
166
|
+
return (*op->get)(memory, f->offset);
|
167
|
+
}
|
168
|
+
|
169
|
+
static VALUE
|
170
|
+
struct_field_put(VALUE self, VALUE pointer, VALUE value)
|
171
|
+
{
|
172
|
+
StructField* f;
|
173
|
+
MemoryOp* op;
|
174
|
+
AbstractMemory* memory = MEMORY(pointer);
|
175
|
+
|
176
|
+
Data_Get_Struct(self, StructField, f);
|
177
|
+
op = memory_get_op(memory, f->type);
|
178
|
+
if (op == NULL) {
|
179
|
+
rb_raise(rb_eArgError, "put not supported for %s", rb_obj_classname(self));
|
180
|
+
return self;
|
181
|
+
}
|
182
|
+
|
183
|
+
(*op->put)(memory, f->offset, value);
|
184
|
+
|
185
|
+
return self;
|
186
|
+
}
|
187
|
+
|
188
|
+
static VALUE
|
189
|
+
function_field_get(VALUE self, VALUE pointer)
|
190
|
+
{
|
191
|
+
StructField* f;
|
192
|
+
MemoryOp* op;
|
193
|
+
AbstractMemory* memory = MEMORY(pointer);
|
194
|
+
|
195
|
+
Data_Get_Struct(self, StructField, f);
|
196
|
+
op = memory->ops->pointer;
|
197
|
+
if (op == NULL) {
|
198
|
+
rb_raise(rb_eArgError, "get not supported for %s", rb_obj_classname(self));
|
199
|
+
return Qnil;
|
200
|
+
}
|
201
|
+
|
202
|
+
return rbffi_Function_NewInstance(f->rbType, (*op->get)(memory, f->offset));
|
203
|
+
}
|
204
|
+
|
205
|
+
static VALUE
|
206
|
+
function_field_put(VALUE self, VALUE pointer, VALUE proc)
|
207
|
+
{
|
208
|
+
StructField* f;
|
209
|
+
MemoryOp* op;
|
210
|
+
AbstractMemory* memory = MEMORY(pointer);
|
211
|
+
VALUE value = Qnil;
|
212
|
+
|
213
|
+
Data_Get_Struct(self, StructField, f);
|
214
|
+
op = memory->ops->pointer;
|
215
|
+
if (op == NULL) {
|
216
|
+
rb_raise(rb_eArgError, "put not supported for %s", rb_obj_classname(self));
|
217
|
+
return self;
|
218
|
+
}
|
219
|
+
|
220
|
+
if (NIL_P(proc) || rb_obj_is_kind_of(proc, rbffi_FunctionClass)) {
|
221
|
+
value = proc;
|
222
|
+
} else if (rb_obj_is_kind_of(proc, rb_cProc) || rb_respond_to(proc, rb_intern("call"))) {
|
223
|
+
value = rbffi_Function_ForProc(f->rbType, proc);
|
224
|
+
} else {
|
225
|
+
rb_raise(rb_eTypeError, "wrong type (expected Proc or Function)");
|
226
|
+
}
|
227
|
+
|
228
|
+
(*op->put)(memory, f->offset, value);
|
229
|
+
|
230
|
+
return self;
|
231
|
+
}
|
232
|
+
|
233
|
+
static VALUE
|
234
|
+
array_field_get(VALUE self, VALUE pointer)
|
235
|
+
{
|
236
|
+
StructField* f;
|
237
|
+
ArrayType* array;
|
238
|
+
MemoryOp* op;
|
239
|
+
AbstractMemory* memory = MEMORY(pointer);
|
240
|
+
VALUE argv[2];
|
241
|
+
|
242
|
+
Data_Get_Struct(self, StructField, f);
|
243
|
+
Data_Get_Struct(f->rbType, ArrayType, array);
|
244
|
+
|
245
|
+
op = memory_get_op(memory, array->componentType);
|
246
|
+
if (op == NULL) {
|
247
|
+
rb_raise(rb_eArgError, "get not supported for %s", rb_obj_classname(array->rbComponentType));
|
248
|
+
return Qnil;
|
249
|
+
}
|
250
|
+
|
251
|
+
argv[0] = pointer;
|
252
|
+
argv[1] = self;
|
253
|
+
|
254
|
+
return rb_class_new_instance(2, argv, rbffi_StructInlineArrayClass);
|
255
|
+
}
|
256
|
+
|
257
|
+
static VALUE
|
258
|
+
inline_struct_field_get(VALUE self, VALUE pointer)
|
259
|
+
{
|
260
|
+
StructField* f;
|
261
|
+
StructByValue* sbv;
|
262
|
+
VALUE rbPointer = Qnil, rbOffset = Qnil;
|
263
|
+
|
264
|
+
Data_Get_Struct(self, StructField, f);
|
265
|
+
Data_Get_Struct(f->rbType, StructByValue, sbv);
|
266
|
+
|
267
|
+
rbOffset = UINT2NUM(f->offset);
|
268
|
+
rbPointer = rb_funcall2(pointer, rb_intern("+"), 1, &rbOffset);
|
269
|
+
|
270
|
+
return rb_class_new_instance(1, &rbPointer, sbv->rbStructClass);
|
271
|
+
}
|
272
|
+
|
273
|
+
static VALUE
|
274
|
+
struct_layout_allocate(VALUE klass)
|
275
|
+
{
|
276
|
+
StructLayout* layout;
|
277
|
+
VALUE obj;
|
278
|
+
|
279
|
+
obj = Data_Make_Struct(klass, StructLayout, struct_layout_mark, struct_layout_free, layout);
|
280
|
+
layout->rbFieldMap = Qnil;
|
281
|
+
layout->rbFieldNames = Qnil;
|
282
|
+
layout->rbFields = Qnil;
|
283
|
+
layout->base.ffiType = xcalloc(1, sizeof(*layout->base.ffiType));
|
284
|
+
layout->base.ffiType->size = 0;
|
285
|
+
layout->base.ffiType->alignment = 0;
|
286
|
+
layout->base.ffiType->type = FFI_TYPE_STRUCT;
|
287
|
+
|
288
|
+
return obj;
|
289
|
+
}
|
290
|
+
|
291
|
+
static VALUE
|
292
|
+
struct_layout_initialize(VALUE self, VALUE field_names, VALUE fields, VALUE size, VALUE align)
|
293
|
+
{
|
294
|
+
StructLayout* layout;
|
295
|
+
ffi_type* ltype;
|
296
|
+
int i;
|
297
|
+
|
298
|
+
Data_Get_Struct(self, StructLayout, layout);
|
299
|
+
layout->rbFieldMap = rb_hash_new();
|
300
|
+
layout->rbFieldNames = rb_ary_dup(field_names);
|
301
|
+
layout->size = NUM2INT(size);
|
302
|
+
layout->align = NUM2INT(align);
|
303
|
+
layout->fieldCount = RARRAY_LEN(field_names);
|
304
|
+
layout->fields = xcalloc(layout->fieldCount, sizeof(StructField *));
|
305
|
+
layout->ffiTypes = xcalloc(layout->fieldCount + 1, sizeof(ffi_type *));
|
306
|
+
layout->rbFields = rb_ary_new2(layout->fieldCount);
|
307
|
+
layout->base.ffiType->elements = layout->ffiTypes;
|
308
|
+
layout->base.ffiType->size = 0;
|
309
|
+
layout->base.ffiType->alignment = 1;
|
310
|
+
|
311
|
+
ltype = layout->base.ffiType;
|
312
|
+
for (i = 0; i < layout->fieldCount; ++i) {
|
313
|
+
VALUE rbName = rb_ary_entry(field_names, i);
|
314
|
+
VALUE rbField = rb_hash_aref(fields, rbName);
|
315
|
+
StructField* field;
|
316
|
+
ffi_type* ftype;
|
317
|
+
|
318
|
+
|
319
|
+
if (!rb_obj_is_kind_of(rbField, rbffi_StructLayoutFieldClass)) {
|
320
|
+
rb_raise(rb_eTypeError, "wrong type for field %d.", i);
|
321
|
+
}
|
322
|
+
|
323
|
+
Data_Get_Struct(rbField, StructField, field = layout->fields[i]);
|
324
|
+
|
325
|
+
if (field->type == NULL || field->type->ffiType == NULL) {
|
326
|
+
rb_raise(rb_eRuntimeError, "type of field %d not supported", i);
|
327
|
+
}
|
328
|
+
|
329
|
+
ftype = field->type->ffiType;
|
330
|
+
if (ftype->size == 0) {
|
331
|
+
rb_raise(rb_eTypeError, "type of field %d has zero size", i);
|
332
|
+
}
|
333
|
+
|
334
|
+
rb_hash_aset(layout->rbFieldMap, rbName, rbField);
|
335
|
+
layout->ffiTypes[i] = ftype;
|
336
|
+
rb_ary_push(layout->rbFields, rbField);
|
337
|
+
ltype->size = MAX(ltype->size, field->offset + ftype->size);
|
338
|
+
ltype->alignment = MAX(ltype->alignment, ftype->alignment);
|
339
|
+
}
|
340
|
+
|
341
|
+
if (ltype->size == 0) {
|
342
|
+
rb_raise(rb_eRuntimeError, "Struct size is zero");
|
343
|
+
}
|
344
|
+
|
345
|
+
// Include tail padding
|
346
|
+
ltype->size = FFI_ALIGN(ltype->size, ltype->alignment);
|
347
|
+
|
348
|
+
return self;
|
349
|
+
}
|
350
|
+
|
351
|
+
static VALUE
|
352
|
+
struct_layout_aref(VALUE self, VALUE field)
|
353
|
+
{
|
354
|
+
StructLayout* layout;
|
355
|
+
|
356
|
+
Data_Get_Struct(self, StructLayout, layout);
|
357
|
+
|
358
|
+
return rb_hash_aref(layout->rbFieldMap, field);
|
359
|
+
}
|
360
|
+
|
361
|
+
static VALUE
|
362
|
+
struct_layout_fields(VALUE self)
|
363
|
+
{
|
364
|
+
StructLayout* layout;
|
365
|
+
|
366
|
+
Data_Get_Struct(self, StructLayout, layout);
|
367
|
+
|
368
|
+
return rb_ary_dup(layout->rbFields);
|
369
|
+
}
|
370
|
+
|
371
|
+
static VALUE
|
372
|
+
struct_layout_members(VALUE self)
|
373
|
+
{
|
374
|
+
StructLayout* layout;
|
375
|
+
|
376
|
+
Data_Get_Struct(self, StructLayout, layout);
|
377
|
+
|
378
|
+
return rb_ary_dup(layout->rbFieldNames);
|
379
|
+
}
|
380
|
+
|
381
|
+
static VALUE
|
382
|
+
struct_layout_to_a(VALUE self)
|
383
|
+
{
|
384
|
+
StructLayout* layout;
|
385
|
+
|
386
|
+
Data_Get_Struct(self, StructLayout, layout);
|
387
|
+
|
388
|
+
return rb_ary_dup(layout->rbFields);
|
389
|
+
}
|
390
|
+
|
391
|
+
static void
|
392
|
+
struct_layout_mark(StructLayout *layout)
|
393
|
+
{
|
394
|
+
rb_gc_mark(layout->rbFieldMap);
|
395
|
+
rb_gc_mark(layout->rbFieldNames);
|
396
|
+
rb_gc_mark(layout->rbFields);
|
397
|
+
}
|
398
|
+
|
399
|
+
static void
|
400
|
+
struct_layout_free(StructLayout *layout)
|
401
|
+
{
|
402
|
+
xfree(layout->ffiTypes);
|
403
|
+
xfree(layout->base.ffiType);
|
404
|
+
xfree(layout->fields);
|
405
|
+
xfree(layout);
|
406
|
+
}
|
407
|
+
|
408
|
+
void
|
409
|
+
rbffi_StructLayout_Init(VALUE moduleFFI)
|
410
|
+
{
|
411
|
+
rbffi_StructLayoutClass = rb_define_class_under(moduleFFI, "StructLayout", rbffi_TypeClass);
|
412
|
+
rb_global_variable(&rbffi_StructLayoutClass);
|
413
|
+
|
414
|
+
rbffi_StructLayoutFieldClass = rb_define_class_under(rbffi_StructLayoutClass, "Field", rb_cObject);
|
415
|
+
rb_global_variable(&rbffi_StructLayoutFieldClass);
|
416
|
+
|
417
|
+
rbffi_StructLayoutFunctionFieldClass = rb_define_class_under(rbffi_StructLayoutClass, "Function", rbffi_StructLayoutFieldClass);
|
418
|
+
rb_global_variable(&rbffi_StructLayoutFunctionFieldClass);
|
419
|
+
|
420
|
+
rbffi_StructLayoutStructFieldClass = rb_define_class_under(rbffi_StructLayoutClass, "StructByValue", rbffi_StructLayoutFieldClass);
|
421
|
+
rb_global_variable(&rbffi_StructLayoutStructFieldClass);
|
422
|
+
|
423
|
+
rbffi_StructLayoutArrayFieldClass = rb_define_class_under(rbffi_StructLayoutClass, "Array", rbffi_StructLayoutFieldClass);
|
424
|
+
rb_global_variable(&rbffi_StructLayoutArrayFieldClass);
|
425
|
+
|
426
|
+
rb_define_alloc_func(rbffi_StructLayoutFieldClass, struct_field_allocate);
|
427
|
+
rb_define_method(rbffi_StructLayoutFieldClass, "initialize", struct_field_initialize, -1);
|
428
|
+
rb_define_method(rbffi_StructLayoutFieldClass, "offset", struct_field_offset, 0);
|
429
|
+
rb_define_method(rbffi_StructLayoutFieldClass, "size", struct_field_size, 0);
|
430
|
+
rb_define_method(rbffi_StructLayoutFieldClass, "alignment", struct_field_alignment, 0);
|
431
|
+
rb_define_method(rbffi_StructLayoutFieldClass, "name", struct_field_name, 0);
|
432
|
+
rb_define_method(rbffi_StructLayoutFieldClass, "ffi_type", struct_field_ffi_type, 0);
|
433
|
+
rb_define_method(rbffi_StructLayoutFieldClass, "put", struct_field_put, 2);
|
434
|
+
rb_define_method(rbffi_StructLayoutFieldClass, "get", struct_field_get, 1);
|
435
|
+
|
436
|
+
rb_define_method(rbffi_StructLayoutFunctionFieldClass, "put", function_field_put, 2);
|
437
|
+
rb_define_method(rbffi_StructLayoutFunctionFieldClass, "get", function_field_get, 1);
|
438
|
+
|
439
|
+
rb_define_method(rbffi_StructLayoutArrayFieldClass, "get", array_field_get, 1);
|
440
|
+
rb_define_method(rbffi_StructLayoutStructFieldClass, "get", inline_struct_field_get, 1);
|
441
|
+
|
442
|
+
|
443
|
+
rb_define_alloc_func(rbffi_StructLayoutClass, struct_layout_allocate);
|
444
|
+
rb_define_method(rbffi_StructLayoutClass, "initialize", struct_layout_initialize, 4);
|
445
|
+
rb_define_method(rbffi_StructLayoutClass, "[]", struct_layout_aref, 1);
|
446
|
+
rb_define_method(rbffi_StructLayoutClass, "fields", struct_layout_fields, 0);
|
447
|
+
rb_define_method(rbffi_StructLayoutClass, "members", struct_layout_members, 0);
|
448
|
+
rb_define_method(rbffi_StructLayoutClass, "to_a", struct_layout_to_a, 0);
|
449
|
+
|
450
|
+
}
|