ffi 0.1.0

data/lib/ffi/platform.rb

@@ -0,0 +1,75 @@
+require 'rbconfig'
+module FFI
+  class PlatformError < FFI::NativeError; end
+
+  module Platform
+    OS = case Config::CONFIG['host_os'].downcase
+    when /linux/
+      "linux"
+    when /darwin/
+      "darwin"
+    when /freebsd/
+      "freebsd"
+    when /openbsd/
+      "openbsd"
+    when /sunos|solaris/
+      "solaris"
+    when /win/
+      "windows"
+    else
+      raise FFI::PlatformError, "Unknown operating system: #{OS_}"
+    end
+    ARCH = case CPU.downcase
+    when /i?86|x86|i86pc/
+      "i386"
+    when /amd64|x86_64/
+      "x86_64"
+    else
+      raise FFI::PlatformError, "Unknown cpu architecture: #{ARCH_}"
+    end
+    private
+    def self.is_os(os)
+      OS == os
+    end
+    
+    NAME = "#{ARCH}-#{OS}"
+    IS_LINUX = is_os("linux")
+    IS_MAC = is_os("darwin")
+    IS_FREEBSD = is_os("freebsd")
+    IS_OPENBSD = is_os("openbsd")
+    IS_WINDOWS = is_os("windows")
+    IS_BSD = IS_MAC || IS_FREEBSD || IS_OPENBSD
+    public
+    LIBC = if IS_WINDOWS
+      "msvcrt"
+    elsif IS_LINUX
+      "libc.so.6"
+    else
+      "c"
+    end
+    LIBPREFIX = IS_WINDOWS ? '' : 'lib'
+    LIBSUFFIX = case OS
+    when /darwin/
+      '.dylib'
+    when /linux|bsd|solaris/
+      '.so'
+    when /win/
+      '.dll'
+    else
+      raise PlatformError, "Cannot determine shared library extension for #{OS}"
+    end
+    def self.bsd?
+      IS_BSD
+    end
+    def self.windows?
+      IS_WINDOWS
+    end
+    def self.mac?
+      IS_MAC
+    end
+    def self.unix?
+      !IS_WINDOWS
+    end
+  end
+end
+

data/lib/ffi/struct.rb

@@ -0,0 +1,263 @@
+require 'ffi/platform'
+module FFI
+  class StructLayout
+    def initialize(fields, size)
+      @fields = fields
+      @size = size
+    end
+    
+    def [](name)
+      @fields[name]
+    end
+    def size
+      @size
+    end
+  end
+  class StructLayoutBuilder
+    LONG_ALIGN = Platform::ARCH =~ /sparc.*/ ? 64 : Platform::LONG_SIZE
+    ADDRESS_ALIGN = Platform::ARCH =~ /sparc.*/ ? 64 : Platform::ADDRESS_SIZE
+    FLOAT_ALIGN = Platform::ARCH =~ /sparc.*/ ? 64 : Platform::ADDRESS_SIZE
+    DOUBLE_ALIGN = Platform::ARCH =~ /sparc.*/ ? 64 : Platform::ADDRESS_SIZE
+    class Field
+      def initialize(off)
+        @off = off
+      end
+      
+      def offset
+        @off
+      end
+      def size
+        self.size
+      end
+      def align
+        self.align
+      end
+      def self.align
+        self.size
+      end
+    end
+    class Signed8 < Field
+      def self.size; 8; end
+      def put(ptr, val)
+        ptr.put_int8(@off, val)
+      end
+      def get(ptr)
+        ptr.get_int8(@off)
+      end
+    end
+    class Unsigned8 < Field
+      def self.size; 8; end
+      def put(ptr, val)
+        ptr.put_uint8(@off, val)
+      end
+      def get(ptr)
+        ptr.get_uint8(@off)
+      end
+    end
+    class Signed16 < Field
+      def self.size; 16; end
+      def put(ptr, val)
+        ptr.put_int16(@off, val)
+      end
+      def get(ptr)
+        ptr.get_int16(@off)
+      end
+    end
+    class Unsigned16 < Field
+      def self.size; 16; end
+      def put(ptr, val)
+        ptr.put_uint16(@off, val)
+      end
+      def get(ptr)
+        ptr.get_uint16(@off)
+      end
+    end
+    class Signed32 < Field
+      def self.size; 32; end
+      def put(ptr, val)
+        ptr.put_int32(@off, val)
+      end
+      def get(ptr)
+        ptr.get_int32(@off)
+      end
+    end
+    class Unsigned32 < Field
+      def self.size; 32; end
+      def put(ptr, val)
+        ptr.put_uint32(@off, val)
+      end
+      def get(ptr)
+        ptr.get_uint32(@off)
+      end
+    end
+    class Signed64 < Field
+      def self.size; 64; end
+      def self.align; LONG_ALIGN; end
+      def put(ptr, val)
+        ptr.put_int64(@off, val)
+      end
+      def get(ptr)
+        ptr.get_int64(@off)
+      end
+    end
+    class Unsigned64 < Field
+      def self.size; 64; end
+      def self.align; LONG_ALIGN; end
+      def put(ptr, val)
+        ptr.put_uint64(@off, val)
+      end
+      def get(ptr)
+        ptr.get_uint64(@off)
+      end
+    end
+    def initialize
+      @fields = {}
+      @size = 0
+    end
+    def add_field(name, type, offset=nil)
+      field_class = case type
+      when :char, NativeType::INT8
+        Signed8
+      when :uchar, NativeType::UINT8
+        Unsigned8      
+      when :short, NativeType::INT16
+        Signed16
+      when :ushort, NativeType::UINT16
+        Unsigned16
+      when :long, NativeType::LONG
+        FFI::Platform::LONG_SIZE == 32 ? Signed32 : Signed64
+      when :ulong, NativeType::ULONG
+        FFI::Platform::LONG_SIZE == 32 ? Unsigned32 : Unsigned64
+      when :int, NativeType::INT32
+        Signed32
+      when :uint, NativeType::UINT32
+        Unsigned32
+      when :long_long, NativeType::INT64
+        Signed64
+      when :ulong_long, NativeType::UINT64
+        Unsigned64
+      else
+        raise ArgumentError, "Unknown type: #{type}"
+      end
+      
+      size = field_class.size / 8
+      off = offset ? offset.to_i : align(@size, field_class.align)
+      @fields[name] = field_class.new(off)
+      @size = off + size
+    end
+    def build
+      StructLayout.new @fields, @size
+    end
+    def align(offset, bits)
+      bytes = bits / 8
+      mask = bytes - 1;
+      off = offset;
+      ((off & mask) != 0) ? (off & ~mask) + bytes : off
+    end
+  end
+  class BaseStruct
+    Buffer = FFI::Buffer
+    attr_reader :pointer
+
+    def initialize(pointer = nil, *spec)
+      @cspec = self.class.layout(*spec)
+
+      if pointer then
+        @pointer = pointer
+      else
+        @pointer = MemoryPointer.new size
+      end
+    end
+    def self.alloc_inout(clear = true)
+      self.new(Buffer.alloc_inout(@size, 1, clear))
+    end
+    def self.alloc_in(clear = true)
+      self.new(Buffer.alloc_in(@size, 1, clear))
+    end
+    def self.alloc_out(clear = true)
+      self.new(Buffer.alloc_out(@size, 1, clear))
+    end
+    def self.size
+      @size
+    end
+    def self.members
+      @layout.members
+    end
+    def size
+      self.class.size
+    end
+    def [](field)
+      @cspec[field].get(@pointer)
+    end
+    def []=(field, val)
+      @cspec[field].put(@pointer, val)
+    end
+    def members
+      @cspec.members
+    end
+    def values
+      @cspec.members.map { |m| self[m] }
+    end
+    def clear
+      @pointer.clear
+      self
+    end
+  end
+  class Struct < BaseStruct
+    def self.jruby_layout(spec)
+      raise "Ruby version not supported" if RUBY_VERSION =~ /1.8.*/
+      builder = FFI::StructLayoutBuilder.new
+      spec[0].each do |name,type|
+        builder.add_field(name, FFI.find_type(type))
+      end
+      builder.build
+    end
+    def self.rubinius_layout(spec)
+      builder = FFI::StructLayoutBuilder.new
+      i = 0
+      while i < spec.size
+        name, type, offset = spec[i, 3]
+      
+        code = FFI.find_type(type)
+        builder.add_field(name, code, offset)
+        i += 3
+      end
+      builder.build
+    end
+    def self.layout(*spec)
+
+      return @layout if spec.size == 0
+      cspec = spec[0].kind_of?(Hash) ? jruby_layout(spec) : rubinius_layout(spec)
+
+      @layout = cspec unless self == FFI::Struct
+      @size = cspec.size
+      return cspec
+    end
+    def self.config(base, *fields)
+      config = Config::CONFIG
+      @size = config["#{base}.sizeof"]
+    
+      builder = StructLayoutBuilder.new
+    
+      fields.each do |field|
+        offset = config["#{base}.#{field}.offset"]
+        size   = config["#{base}.#{field}.size"]
+        type   = config["#{base}.#{field}.type"]
+        type   = type ? type.to_sym : FFI.size_to_type(size)
+
+        code = FFI.find_type type
+        if (code == NativeType::CHAR_ARRAY)
+          builder.add_char_array(field.to_s, size, offset)
+        else
+          builder.add_field(field.to_s, code, offset)
+        end
+      end
+      cspec = builder.build
+    
+      @layout = cspec
+      @size = cspec.size if @size < cspec.size
+    
+      return cspec
+    end
+  end
+end

data/nbproject/Makefile-Default.mk

@@ -0,0 +1,54 @@
+#
+# Generated Makefile - do not edit!
+#
+# Edit the Makefile in the project folder instead (../Makefile). Each target
+# has a -pre and a -post target defined where you can add customized code.
+#
+# This makefile implements configuration specific macros and targets.
+
+
+# Environment
+MKDIR=mkdir
+CP=cp
+CCADMIN=CCadmin
+RANLIB=ranlib
+CC=gcc
+CCC=g++
+CXX=g++
+FC=
+
+# Include project Makefile
+include ruby-ffi-Makefile.mk
+
+# Object Directory
+OBJECTDIR=build/Default/GNU-MacOSX
+
+# Object Files
+OBJECTFILES=
+
+# C Compiler Flags
+CFLAGS=
+
+# CC Compiler Flags
+CCFLAGS=
+CXXFLAGS=
+
+# Fortran Compiler Flags
+FFLAGS=
+
+# Link Libraries and Options
+LDLIBSOPTIONS=
+
+# Build Targets
+.build-conf: ${BUILD_SUBPROJECTS}
+	cd . && make -f Makefile
+
+# Subprojects
+.build-subprojects:
+
+# Clean Targets
+.clean-conf:
+	cd . && make -f Makefile clean
+
+# Subprojects
+.clean-subprojects:

data/nbproject/Makefile-impl.mk

@@ -0,0 +1,123 @@
+# 
+# Generated Makefile - do not edit! 
+# 
+# Edit the Makefile in the project folder instead (../Makefile). Each target
+# has a pre- and a post- target defined where you can add customization code.
+#
+# This makefile implements macros and targets common to all configurations.
+#
+# NOCDDL
+
+
+# Building and Cleaning subprojects are done by default, but can be controlled with the SUB
+# macro. If SUB=no, subprojects will not be built or cleaned. The following macro
+# statements set BUILD_SUB-CONF and CLEAN_SUB-CONF to .build-reqprojects-conf
+# and .clean-reqprojects-conf unless SUB has the value 'no'
+SUB_no=NO
+SUBPROJECTS=${SUB_${SUB}}
+BUILD_SUBPROJECTS_=.build-subprojects
+BUILD_SUBPROJECTS_NO=
+BUILD_SUBPROJECTS=${BUILD_SUBPROJECTS_${SUBPROJECTS}}
+CLEAN_SUBPROJECTS_=.clean-subprojects
+CLEAN_SUBPROJECTS_NO=
+CLEAN_SUBPROJECTS=${CLEAN_SUBPROJECTS_${SUBPROJECTS}}
+
+
+# Project Name
+PROJECTNAME=ruby-ffi
+
+# Active Configuration
+DEFAULTCONF=Default
+CONF=${DEFAULTCONF}
+
+# All Configurations
+ALLCONFS=Default 
+
+
+# build
+.build-impl: .validate-impl .depcheck-impl
+	@#echo "=> Running $@... Configuration=$(CONF)"
+	${MAKE} -f nbproject/Makefile-${CONF}.mk SUBPROJECTS=${SUBPROJECTS} .build-conf
+
+
+# clean
+.clean-impl: .validate-impl .depcheck-impl
+	@#echo "=> Running $@... Configuration=$(CONF)"
+	${MAKE} -f nbproject/Makefile-${CONF}.mk SUBPROJECTS=${SUBPROJECTS} .clean-conf
+
+
+# clobber 
+.clobber-impl: .depcheck-impl
+	@#echo "=> Running $@..."
+	for CONF in ${ALLCONFS}; \
+	do \
+	    ${MAKE} -f nbproject/Makefile-$${CONF}.mk SUBPROJECTS=${SUBPROJECTS} .clean-conf; \
+	done
+
+# all 
+.all-impl: .depcheck-impl
+	@#echo "=> Running $@..."
+	for CONF in ${ALLCONFS}; \
+	do \
+	    ${MAKE} -f nbproject/Makefile-$${CONF}.mk SUBPROJECTS=${SUBPROJECTS} .build-conf; \
+	done
+
+# dependency checking support
+.depcheck-impl:
+	@echo "# This code depends on make tool being used" >.dep.inc
+	@if [ -n "${MAKE_VERSION}" ]; then \
+	    echo "DEPFILES=\$$(wildcard \$$(addsuffix .d, \$${OBJECTFILES}))" >>.dep.inc; \
+	    echo "ifneq (\$${DEPFILES},)" >>.dep.inc; \
+	    echo "include \$${DEPFILES}" >>.dep.inc; \
+	    echo "endif" >>.dep.inc; \
+	else \
+	    echo ".KEEP_STATE:" >>.dep.inc; \
+	    echo ".KEEP_STATE_FILE:.make.state.\$${CONF}" >>.dep.inc; \
+	fi
+
+# configuration validation
+.validate-impl:
+	@if [ ! -f nbproject/Makefile-${CONF}.mk ]; \
+	then \
+	    echo ""; \
+	    echo "Error: can not find the makefile for configuration '${CONF}' in project ${PROJECTNAME}"; \
+	    echo "See 'make help' for details."; \
+	    echo "Current directory: " `pwd`; \
+	    echo ""; \
+	fi
+	@if [ ! -f nbproject/Makefile-${CONF}.mk ]; \
+	then \
+	    exit 1; \
+	fi
+
+
+# help
+.help-impl:
+	@echo "This makefile supports the following configurations:"
+	@echo "    ${ALLCONFS}"
+	@echo ""
+	@echo "and the following targets:"
+	@echo "    build  (default target)"
+	@echo "    clean"
+	@echo "    clobber"
+	@echo "    all"
+	@echo "    help"
+	@echo ""
+	@echo "Makefile Usage:"
+	@echo "    make [CONF=<CONFIGURATION>] [SUB=no] build"
+	@echo "    make [CONF=<CONFIGURATION>] [SUB=no] clean"
+	@echo "    make [SUB=no] clobber"
+	@echo "    make [SUB=no] all"
+	@echo "    make help"
+	@echo ""
+	@echo "Target 'build' will build a specific configuration and, unless 'SUB=no',"
+	@echo "    also build subprojects."
+	@echo "Target 'clean' will clean a specific configuration and, unless 'SUB=no',"
+	@echo "    also clean subprojects."
+	@echo "Target 'clobber' will remove all built files from all configurations and,"
+	@echo "    unless 'SUB=no', also from subprojects."
+	@echo "Target 'all' will will build all configurations and, unless 'SUB=no',"
+	@echo "    also build subprojects."
+	@echo "Target 'help' prints this message."
+	@echo ""
+