carray-ffi 0.9.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 366c240e4ca4b1690d8db085f8b9208cecd80490b8ba0ee982b884c594df8ab0
+  data.tar.gz: 5e86c1fa5bf5214762247b5a09f78922a2f1389d7b47aeb13110a33953020ec6
+SHA512:
+  metadata.gz: 5ee2346c24706ace95e31ea2c77d428b976a92bca4ff647e15199e34a8a75bb359df37d0ecf67a2c194044724f5664743f0bb283288697f7b7591bc80ee03eaa
+  data.tar.gz: 1f8777b307ac745a7d7558a974c7c76791926c7d7d2cbc517938283d8ff4750ffc616d99b256a5796e80564f1115315a974f43bd9bcb44fdf195615d8c5efc57

data/Rakefile

@@ -0,0 +1,11 @@
+GEMSPEC = "carray-ffi.gemspec"
+
+task :install do
+  spec = eval File.read(GEMSPEC)
+  system %{
+    gem build #{GEMSPEC}; gem install #{spec.full_name}.gem
+  }
+end
+
+require 'rspec/core/rake_task'
+RSpec::Core::RakeTask.new

data/carray-ffi.gemspec

@@ -0,0 +1,22 @@
+
+Gem::Specification::new do |s|
+  version = "0.9.0"
+  files = Dir.glob("**/*") - [ 
+                               Dir.glob("carray*.gem"), 
+                             ].flatten
+  s.platform    = Gem::Platform::RUBY
+  s.name        = "carray-ffi"
+  s.summary     = "Extension for inteface between CArray and FFI"
+  s.description = <<-HERE
+    Extension for inteface between CArray and FFI
+  HERE
+  s.version     = version
+  s.author      = "Hiroki Motoyoshi"
+  s.email       = ""
+  s.homepage    = 'https://github.com/himotoyoshi/carray-ffi'
+  s.files       = files
+  s.extensions  = [ "ext/extconf.rb" ]
+  s.required_ruby_version = ">= 2.4.0"
+  s.add_runtime_dependency 'carray', '~> 1.4.0', ">=1.4.0"
+  s.add_runtime_dependency 'ffi', '~> 1.13.0', ">=1.13.0"
+end

data/examples/fortran/README.txt

@@ -0,0 +1,35 @@
+FFI経由でFortranのルーチンを呼び出す
+-------------------------------
+
+ネームマングリング
+---------------
+
+
+bind(c)を用いて、C言語から呼ぶことができるようにネームマングリングする。
+
+  bind(c, name = 'arrange')
+  
+としてもよいが、Fortran関数名の小文字にしたものがデフォルトなので、本来はname指定はいらない。
+
+値渡し
+-----
+
+値渡しのためには value という指示が必要。
+
+subroutine arange(n, a) bind(c, name = 'arange')
+  implicit none
+  integer, intent(IN), value :: n
+  double precision, intent(IN OUT) :: a(n)
+  integer :: k
+  do k=1,n
+    a(k) = k
+  end do
+end subroutine
+
+
+引数の n を値渡しししたいので、変数宣言にvalueというキーワードを入れている。
+
+コンパイル
+--------
+
+gfortran --shared -o test.so test.f90

data/examples/fortran/test.f90

@@ -0,0 +1,26 @@
+integer function aaa(i) bind(c, name = 'aaa')
+  implicit none
+  integer, value :: i
+  aaa = i * i 
+  return
+end function aaa
+
+subroutine arange(n, a) bind(c, name = 'arange')
+  implicit none
+  integer, intent(IN), value :: n
+  double precision, intent(IN OUT) :: a(n)
+  integer :: k
+  do k=1,n
+    a(k) = k
+  end do
+end subroutine
+
+subroutine trans(a,n,m) bind(c, name = 'trans')
+  implicit none
+  integer, intent(IN), value :: n, m
+  double precision, intent(IN OUT) :: a(n,m)
+  write (6,*) a
+  a = transpose(a)
+end subroutine
+
+

data/examples/fortran/test.rb

@@ -0,0 +1,29 @@
+require "ffi"
+require "carray"
+#require "carray-ffi"
+
+module FooLib
+  extend FFI::Library
+  ffi_lib "test.so"
+
+  attach_function :aaa,    [:int], :int
+  attach_function :arange, [:int, :pointer], :void
+  attach_function :trans,  [:pointer, :int, :int], :void
+end
+
+b = FFI::MemoryPointer.new(:double,1)
+FooLib.arange(1, b)
+p b.ca.refer(:double,[1])
+
+a = CArray.double(100,100)
+FooLib.arange(a.size, a.mp)
+
+p a
+
+a = CArray.double(3,3).seq
+
+p a
+
+FooLib.trans(a.mp, *a.dim.reverse)
+
+p a

data/ext/caffi.c

@@ -0,0 +1,74 @@
+#include <ruby.h>
+#include <stdbool.h>
+#include "carray.h"
+
+typedef struct AbstractMemory_ AbstractMemory;
+
+struct AbstractMemory_ {
+    char* address; /* Use char* instead of void* to ensure adding to it works correctly */
+    long size;
+    int flags;
+    int typeSize;
+};
+
+typedef struct Pointer {
+    AbstractMemory memory;
+    VALUE rbParent;
+    char* storage; /* start of malloc area */
+    bool autorelease;
+    bool allocated;
+} Pointer;
+
+
+static VALUE rb_mFFI, rb_cMemoryPointer;
+
+static VALUE
+rb_ca_mp (VALUE self)
+{
+  volatile VALUE obj;
+  CArray *ca;
+  Pointer *p;
+  Data_Get_Struct(self, CArray, ca);
+
+  if ( ! ca_is_entity(ca) ) {
+    rb_raise(rb_eArgError, "carray should has entity to convert to memory pointer.");
+  }
+
+  {
+    VALUE args[] = { INT2FIX(1), LONG2NUM(0), Qfalse };
+    obj = rb_class_new_instance(3, args, rb_cMemoryPointer);
+  }
+
+  Data_Get_Struct(obj, Pointer, p);
+  
+  p->memory.size    = ca->bytes;
+  p->memory.address = ca->ptr;
+
+  rb_ivar_set(obj, rb_intern("referred_object"), self);
+
+  return obj;  
+}
+
+static VALUE
+rb_mp_ca (VALUE self)
+{
+  volatile VALUE obj;
+  Pointer *p;
+  Data_Get_Struct(self, Pointer, p);
+
+  obj = rb_carray_wrap_ptr(CA_UINT8, 1, &(p->memory.size), 
+                           0, NULL, p->memory.address, self);
+
+  return obj;  
+}
+
+void
+Init_carray_ffi ()
+{
+   rb_mFFI = rb_const_get(rb_cObject, rb_intern("FFI"));
+   rb_cMemoryPointer = rb_const_get(rb_mFFI, rb_intern("MemoryPointer"));
+  
+   rb_define_method(rb_cCArray, "mp", rb_ca_mp, 0);
+   rb_define_method(rb_cMemoryPointer, "ca", rb_mp_ca, 0);
+  
+}

data/ext/extconf.rb

@@ -0,0 +1,12 @@
+require 'mkmf'
+require "carray/mkmf"
+
+$CFLAGS += " -Wall"
+
+pkg_config("libffi") ||
+     have_header("ffi.h") ||
+     find_header("ffi.h", "/usr/local/include", "/usr/include/ffi")
+
+if have_carray()
+  create_makefile("carray_ffi")
+end

data/lib/carray-ffi.rb

@@ -0,0 +1,3 @@
+require "ffi"
+require "carray"
+require "carray_ffi"

metadata

@@ -0,0 +1,93 @@
+--- !ruby/object:Gem::Specification
+name: carray-ffi
+version: !ruby/object:Gem::Version
+  version: 0.9.0
+platform: ruby
+authors:
+- Hiroki Motoyoshi
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2020-06-16 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: carray
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 1.4.0
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 1.4.0
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 1.4.0
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 1.4.0
+- !ruby/object:Gem::Dependency
+  name: ffi
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 1.13.0
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 1.13.0
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 1.13.0
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 1.13.0
+description: "    Extension for inteface between CArray and FFI\n"
+email: ''
+executables: []
+extensions:
+- ext/extconf.rb
+extra_rdoc_files: []
+files:
+- README.md
+- Rakefile
+- carray-ffi.gemspec
+- examples/fortran/README.txt
+- examples/fortran/test.f90
+- examples/fortran/test.rb
+- examples/fortran/test.so
+- ext/caffi.c
+- ext/extconf.rb
+- lib/carray-ffi.rb
+homepage: https://github.com/himotoyoshi/carray-ffi
+licenses: []
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: 2.4.0
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.7.7
+signing_key: 
+specification_version: 4
+summary: Extension for inteface between CArray and FFI
+test_files: []