ffi 0.6.4 → 1.0.0

data/libtest/EnumTest.c

@@ -1,55 +0,0 @@
-/*
- * Copyright (c) 2007 Wayne Meissner. 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 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 THE COPYRIGHT OWNER OR CONTRIBUTORS 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.
- */
-
-int test_untagged_enum(int val) {
-    return val;
-}
-
-int test_untagged_typedef_enum(int val) {
-    return val;
-}
-
-typedef enum {c1, c2, c3, c4} enum_type1;
-enum_type1 test_tagged_typedef_enum1(enum_type1 val) {
-    return val;
-}
-
-typedef enum {c5 = 42, c6, c7, c8} enum_type2;
-enum_type2 test_tagged_typedef_enum2(enum_type2 val) {
-    return val;
-}
-
-typedef enum {c9 = 42, c10, c11 = 4242, c12} enum_type3;
-enum_type3 test_tagged_typedef_enum3(enum_type3 val) {
-    return val;
-}
-
-typedef enum {c13 = 42, c14 = 4242, c15 = 424242, c16 = 42424242} enum_type4;
-enum_type4 test_tagged_typedef_enum4(enum_type4 val) {
-    return val;
-}
-

data/libtest/GNUmakefile

@@ -1,141 +0,0 @@
-# -*- makefile -*-
-
-ifeq ($(OS),)
-  BUILD_OS := $(shell uname -s | tr '[:upper:]' '[:lower:]')
-  OS := $(BUILD_OS)
-endif
-
-ifeq ($(CPU),)
-  CPU := $(shell uname -m | sed -e 's/i[345678]86/i386/')
-endif
-
-MODEL = 32 # Default to 32bit compiles
-
-PLATFORM = $(CPU)-$(OS)
-
-ifeq ($(OS), sunos)
-  OS = solaris
-endif
-
-SRC_DIR = libtest
-BUILD_DIR ?= build
-TEST_BUILD_DIR = $(BUILD_DIR)/libtest
-# Set defaults to unix (linux/solaris/bsd)
-PREFIX = lib
-LIBEXT ?= so
-LIBNAME = $(PREFIX)test.$(LIBEXT)
-
-export MACOSX_DEPLOYMENT_TARGET=10.4
-
-CCACHE := $(strip $(realpath $(shell which ccache 2> /dev/null)))
-
-TEST_SRCS = $(wildcard $(SRC_DIR)/*.c)
-TEST_OBJS := $(patsubst $(SRC_DIR)/%.c, $(TEST_BUILD_DIR)/%.o, $(TEST_SRCS))
-
-#
-# Compiler/linker flags from:
-#   http://weblogs.java.net/blog/kellyohair/archive/2006/01/compilation_of_1.html
-JFLAGS = -fno-omit-frame-pointer -fno-strict-aliasing
-OFLAGS = -O2 $(JFLAGS)
-WFLAGS = -W -Werror -Wall -Wno-unused -Wno-parentheses
-PICFLAGS = -fPIC
-SOFLAGS = -shared -mimpure-text -Wl,-O1
-LDFLAGS += $(SOFLAGS)
-
-IFLAGS = -I"$(BUILD_DIR)"
-CFLAGS = $(OFLAGS) $(WFLAGS) $(IFLAGS) $(PICFLAGS) -D_REENTRANT
-
-ifneq ($(strip $(findstring $(OS), win32, mingw, cygwin)),)
-  # For cygwin => win32-native builds, strip out cygwin deps
-  ifneq ($(findstring cygwin, $(BUILD_OS)),)
-    CC += -mno-cygwin -mwin32
-    LDFLAGS += -mno-cygwin -Wl,--add-stdcall-alias
-  endif
-  PICFLAGS=
-  LIBEXT=dll
-  CC = gcc
-endif
-
-ifeq ($(OS), darwin)
-  ARCHFLAGS = -arch ppc
-  ifneq ($(findstring $(CPU),i386 x86_64),)
-    ARCHFLAGS += -arch i386 -arch x86_64
-  endif
-  CFLAGS += $(ARCHFLAGS) -DTARGET_RT_MAC_CFM=0
-  CFLAGS += -fno-common
-  MACSDK = /Developer/SDKs/MacOSX10.4u.sdk
-  LDFLAGS = $(ARCHFLAGS) -dynamiclib -Wl,-syslibroot,$(MACSDK) -mmacosx-version-min=10.4
-  # link against the universal libraries on ppc machines
-  LDFLAGS += -L$(MACSDK)/usr/lib
-  LIBEXT = dylib
-  FFI_CFLAGS += -isysroot $(MACSDK)
-  PICFLAGS =
-  SOFLAGS =
-endif
-
-ifeq ($(OS), linux)
-  SOFLAGS += -Wl,-soname,$(LIBNAME)
-endif
-
-ifeq ($(OS), solaris)
-  CC = /usr/sfw/bin/gcc -std=c99
-  LD = /usr/ccs/bin/ld
-  SOFLAGS = -shared -static-libgcc 
-endif
-
-ifeq ($(OS), aix)
-  LIBEXT = a
-  SOFLAGS = -shared -static-libgcc
-  PICFLAGS += -pthread
-endif
-
-ifneq ($(findstring bsd, $(OS)),)
-  SOFLAGS = -shared -static-libgcc
-  CFLAGS += -pthread
-  LDFLAGS += -pthread
-endif
-
-ifeq ($(CPU), sparcv9)
-  MODEL = 64
-endif
-
-ifeq ($(CPU), amd64)
-  MODEL = 64
-endif
-
-ifeq ($(CPU), x86_64)
-  MODEL = 64
-endif
-
-ifeq ($(CPU), ppc64)
-  MODEL = 64
-endif
-
-ifeq ($(CPU), powerpc64)
-  MODEL = 64
-endif
-
-# On platforms (linux, solaris) that support both 32bit and 64bit, force building for one or the other
-ifneq ($(or $(findstring linux, $(OS)), $(findstring solaris, $(OS))),)
-  # Change the CC/LD instead of CFLAGS/LDFLAGS, incase other things in the flags
-  # makes the libffi build choke
-  CC += -m$(MODEL)
-  LD += -m$(MODEL)
-endif
-
-LIBTEST = $(BUILD_DIR)/$(LIBNAME)
-
-all:	$(LIBTEST)
-
-$(TEST_BUILD_DIR)/%.o : $(SRC_DIR)/%.c
-	@mkdir -p $(@D)
-	$(CCACHE) $(CC) $(CFLAGS) -c $< -o $@
-
-$(LIBTEST):  $(TEST_OBJS)
-	$(CC) -o $@ $(LDFLAGS) $(TEST_OBJS) -lm
-
-clean::
-	# nothing to do - ant will delete the build dir
-
-debug::
-	@echo "SRCS=$(TEST_SRCS)"

data/libtest/GlobalVariable.c

@@ -1,56 +0,0 @@
-#include <sys/types.h>
-#include <stdint.h>
-
-typedef int8_t s8;
-typedef uint8_t u8;
-typedef int16_t s16;
-typedef uint16_t u16;
-typedef int32_t s32;
-typedef uint32_t u32;
-typedef int64_t s64;
-typedef uint64_t u64;
-typedef signed long sL;
-typedef unsigned long uL;
-typedef float f32;
-typedef double f64;
-#if !defined(__OpenBSD__)
-typedef unsigned long ulong;
-#endif
-typedef void* pointer;
-typedef void* P;
-
-#define GVAR(T) \
-    extern T gvar_##T; \
-    T gvar_##T = (T) -1; \
-    T gvar_##T##_get() { return gvar_##T; }; \
-    void gvar_##T##_set(T v) { gvar_##T = v; }
-
-GVAR(s8);
-GVAR(u8);
-GVAR(s16);
-GVAR(u16);
-GVAR(s32);
-GVAR(u32);
-GVAR(s64);
-GVAR(u64);
-GVAR(long);
-GVAR(ulong);
-GVAR(pointer);
-
-struct gstruct {
-    long data;
-};
-
-struct gstruct gvar_gstruct = { -1 };
-
-struct gstruct*
-gvar_gstruct_get(void)
-{
-    return &gvar_gstruct;
-}
-
-void
-gvar_gstruct_set(const struct gstruct* val)
-{ 
-    gvar_gstruct = *val;
-}

data/libtest/NumberTest.c

@@ -1,145 +0,0 @@
-/*
- * Copyright (c) 2007 Wayne Meissner. 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 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 THE COPYRIGHT OWNER OR CONTRIBUTORS 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.
- */
-
-#include <sys/types.h>
-#include <stdio.h>
-#include <string.h>
-#include <stdint.h>
-
-#ifdef __sparc
-    #define fix_mem_access __asm("ta 6")
-#else
-    #define fix_mem_access
-#endif
-
-typedef int8_t s8;
-typedef uint8_t u8;
-typedef int16_t s16;
-typedef uint16_t u16;
-typedef int32_t s32;
-typedef uint32_t u32;
-typedef int64_t s64;
-typedef uint64_t u64;
-typedef signed long sL;
-typedef unsigned long uL;
-typedef float f32;
-typedef double f64;
-#if !defined(__OpenBSD__)
-typedef unsigned long ulong;
-#endif
-
-#define ADD(T) T add_##T(T arg1, T arg2) { return arg1 + arg2; }
-#define SUB(T) T sub_##T(T arg1, T arg2) { return arg1 - arg2; }
-#define MUL(T) T mul_##T(T arg1, T arg2) { return arg1 * arg2; }
-#define DIV(T) T div_##T(T arg1, T arg2) { return arg1 / arg2; }
-#define RET(T) T ret_##T(T arg1) { return arg1; }
-#define SET(T) static T T##_;void set_##T(T arg1) { T##_ = arg1; }
-#define GET(T) T get_##T() { return T##_; }
-typedef char* ptr;
-#define TEST(T) ADD(T) SUB(T) MUL(T) DIV(T) RET(T) SET(T) GET(T)
-TEST(s8);
-TEST(u8);
-TEST(s16);
-TEST(u16);
-TEST(s32);
-TEST(u32);
-TEST(s64);
-TEST(u64);
-TEST(float);
-TEST(double);
-TEST(long);
-TEST(ulong);
-
-#define ADD2(R, T1, T2) R add_##T1##T2##_##R(T1 arg1, T2 arg2) { return arg1 + arg2; }
-#define SUB2(R, T1, T2) R sub_##T1##T2##_##R(T1 arg1, T2 arg2) { return arg1 - arg2; }
-#define MUL2(R, T1, T2) R mul_##T1##T2##_##R(T1 arg1, T2 arg2) { return arg1 * arg2; }
-#define DIV2(R, T1, T2) R div_##T1##T2##_##R(T1 arg1, T2 arg2) { return arg1 / arg2; }
-
-#define T2__(R, T1, T2) ADD2(R, T1, T2) SUB2(R, T1, T2) MUL2(R, T1, T2) DIV2(R, T1, T2)
-#define T2_(R, T1) \
-    T2__(R, T1, s8) T2__(R, T1, u8) \
-    T2__(R, T1, s16) T2__(R, T1, u16) \
-    T2__(R, T1, s32) T2__(R, T1, u32) \
-    T2__(R, T1, sL) T2__(R, T1, uL) \
-    T2__(R, T1, s64) T2__(R, T1, u64) \
-
-#define TEST2(R) \
-    T2_(R, s8) T2_(R, u8) T2_(R, s16) T2_(R, u16) T2_(R, s32) T2_(R, u32) \
-    T2_(R, sL) T2_(R, uL) T2_(R, s64) T2_(R, u64)
-
-#ifdef notyet
-TEST2(s32)
-TEST2(u32)
-TEST2(s64)
-TEST2(u64)
-#endif
-
-#define ADD3(R, T1, T2, T3) R add_##T1##T2##T3##_##R(T1 arg1, T2 arg2, T3 arg3) { return arg1 + arg2 + arg3; }
-#define pack_f32(buf, v) do { float f = v; memcpy((buf), &f, sizeof(f)); } while(0)
-#define pack_f64(buf, v) do { double f = v; memcpy((buf), &f, sizeof(f)); } while(0)
-#define pack_int(buf, v) do { *(buf) = v; } while(0)
-#define pack_s8 pack_int
-#define pack_u8 pack_int
-#define pack_s16 pack_int
-#define pack_u16 pack_int
-#define pack_s32 pack_int
-#define pack_u32 pack_int
-#define pack_s64 pack_int
-#define pack_u64 pack_int
-#define pack_sL pack_int
-#define pack_uL pack_int
-
-#define PACK3(R, T1, T2, T3) void pack_##T1##T2##T3##_##R(T1 arg1, T2 arg2, T3 arg3, R* r) { \
-    fix_mem_access; \
-    pack_##T1(&r[0], arg1); \
-    pack_##T2(&r[1], arg2); \
-    pack_##T3(&r[2], arg3); \
-}
-
-#define T3___(R, T1, T2, T3) PACK3(R, T1, T2, T3) /* SUB2(R, T1, T2) MUL2(R, T1, T2) DIV2(R, T1, T2) */
-#define T3__(R, T1, T2) \
-    T3___(R, T1, T2, s8) T3___(R, T1, T2, u8) \
-    T3___(R, T1, T2, s16) T3___(R, T1, T2, u16) \
-    T3___(R, T1, T2, s32) T3___(R, T1, T2, u32) \
-    T3___(R, T1, T2, sL) T3___(R, T1, T2, uL) \
-    T3___(R, T1, T2, s64) T3___(R, T1, T2, u64) \
-    T3___(R, T1, T2, f32) T3___(R, T1, T2, f64) \
-
-#define T3_(R, T1) \
-    T3__(R, T1, s8) T3__(R, T1, u8) \
-    T3__(R, T1, s16) T3__(R, T1, u16) \
-    T3__(R, T1, s32) T3__(R, T1, u32) \
-    T3__(R, T1, sL) T3__(R, T1, uL) \
-    T3__(R, T1, s64) T3__(R, T1, u64) \
-    T3__(R, T1, f32) T3__(R, T1, f64) \
-
-#define TEST3(R) \
-    T3_(R, s8) T3_(R, u8) T3_(R, s16) T3_(R, u16) T3_(R, s32) T3_(R, u32) \
-    T3_(R, sL) T3_(R, uL) T3_(R, s64) T3_(R, u64) T3_(R, f32) T3_(R, f64)
-
-TEST3(s64)
-

data/libtest/PointerTest.c

@@ -1,84 +0,0 @@
-/*
- * Copyright (c) 2007 Wayne Meissner. 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 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 THE COPYRIGHT OWNER OR CONTRIBUTORS 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.
- */
-
-#include <sys/types.h>
-#include <sys/param.h>
-#include <stdint.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-typedef void* ptr;
-typedef void* pointer;
-#ifdef _WIN32
-typedef char* caddr_t;
-#endif
-
-#define RET(T) T ptr_ret_##T(void* arg1, int offset) { \
-    T tmp; memcpy(&tmp, (caddr_t) arg1 + offset, sizeof(tmp)); return tmp; \
-}
-#define SET(T) void ptr_set_##T(void* arg1, int offset, T value) { \
-    memcpy((caddr_t) arg1 + offset, &value, sizeof(value)); \
-}
-#define TEST(T) SET(T) RET(T)
-
-TEST(int8_t);
-TEST(int16_t);
-TEST(int32_t);
-TEST(int64_t);
-TEST(float);
-TEST(double);
-TEST(pointer);
-
-void*
-ptr_return_array_element(void **ptrArray, int arrayIndex) 
-{
-    return ptrArray[arrayIndex];
-}
-
-void
-ptr_set_array_element(void **ptrArray, int arrayIndex, void *value)
-{    
-    ptrArray[arrayIndex] = value;
-}
-
-void*
-ptr_malloc(int size) 
-{
-    return calloc(1, size);
-}
-void
-ptr_free(void* ptr)
-{
-    free(ptr);
-}
-
-void*
-ptr_from_address(uintptr_t addr)
-{
-    return (void *) addr;
-}
-