r_bridge 0.5.0

data/lib/r_bridge/r_bridge_lazyfunc_ext.rb

@@ -0,0 +1,202 @@
+require "r_bridge/r_bridge_ffi"
+
+module RBridge
+  def self.create_lazy_function( fname, hash , param_manager)
+    raise "create_lazy_function should take String for function name" if(fname.class != String) 
+    raise "create_lazy_function should take Hash for function arguments" if(hash.class != Hash)
+    return LazyFunc.new( fname, hash , param_manager)
+  end
+
+  def self.create_function_call_from_lazy_function ( fname, fargs, param_manager, result_manager)
+    farg_keys = fargs.keys
+
+    new_arg_hash = {}
+    farg_keys.each(){|key|
+      val = fargs[key]
+      case val
+      when LazyFunc then
+        new_arg_hash[key] = create_function_call_from_lazy_function( val.fname, val.args , param_manager, result_manager )
+      when RResultName , RResultNameArray then 
+        new_arg_hash[key] = result_manager.get_last_for( val )
+      when RParamName then
+        new_arg_hash[key] = param_manager.get_r_object( val )
+      when RNameContainer then
+        idx = 0
+        while idx < val.elems.size do
+          elem = val.elems[idx]
+          case elem
+          when RResultName, RResultNameArray then 
+            result = result_manager.get_last_for( elem )
+            if( ! result.nil? )
+              new_arg_hash[key] = result
+              break
+            end
+          when RParamName then
+            result = param_manager.get_r_object( elem )
+            if( ! result.nil? )
+              new_arg_hash[key] = result
+              break
+            end
+          else  # R object
+            new_arg_hash[key] = val
+            break
+          end
+          idx = idx + 1
+        end
+        if(idx == val.elems.size ) # Not found
+          new_arg_hash[key] = nil
+        end
+      else  # R object
+        new_arg_hash[key] = val
+      end
+    }
+    return create_function_call( fname, new_arg_hash )
+  end
+
+  def self.exec_lazy_function( lazy_func , result_manager , allow_nil_result: false )
+    raise "exec_lazy_function should take LazyFunc object" if(lazy_func.class != LazyFunc) 
+    raise "exec_lazy_function should take RResultManager or Nil for 2nd argment: " + result_manager.class.to_s  if(! [RResultManager, NilClass].include?(result_manager.class) )
+    fname = lazy_func.fname
+    arg_hash = lazy_func.args
+    param_manager = lazy_func.param_manager
+
+    func = create_function_call_from_lazy_function(fname, arg_hash, param_manager, result_manager)
+    result = exec_function( func , allow_nil_result: allow_nil_result )
+    return result
+  end
+
+  class LazyFunc
+    attr :fname
+    attr :args
+    attr :param_manager
+
+    def initialize( fname, arg_hash, param_manager)
+      raise "LazyFunc requires RParamManager object for param_manager argument " if ! param_manager.is_a?(RParamManager)
+      @fname = fname
+      @args = arg_hash
+      @param_manager = param_manager
+    end
+  end
+
+  class RParamName
+    attr :name
+    def initialize(name)
+      @name = name
+    end
+  end
+
+  class RParamManager
+    def initialize(hash)
+      @param_hash = hash
+    end
+
+    def get_r_object(r_param)
+      raise "argument of get_r_object needs to be RParamName" if ! r_param.is_a?(RParamName)
+      stored_value = @param_hash[r_param.name]
+      return RBridge::convert_to_r_object(stored_value)
+    end
+  end
+
+  class RResultName
+    attr :name
+    def initialize(name)
+      @name = name
+    end
+  end
+
+  class RResultNameArray
+    attr :elems
+    def initialize(ary)
+      raise if(! ary.all? {|i| i.is_a?(RResultName) }) 
+      @elems = ary
+    end
+  end
+
+  class RResultManager
+    def initialize
+      @results = []
+    end
+
+    def add_inst( inst_name )
+      @results << [inst_name, RBridge::r_lang_nil() ]
+    end
+
+    def add_inst_r_obj( inst_name, r_obj )
+      @results << [inst_name, r_obj ]
+    end
+
+    def get_last_index_for( result_name )
+        name = result_name.name
+
+        idx = @results.size - 1
+        @results.reverse.each{|inst_name, r_obj| 
+          if inst_name == name
+            break
+          else
+            idx = idx - 1
+          end
+        }
+        if idx < 0 
+          return nil
+        else
+          return idx
+        end
+    end
+
+    def get_last_for( r_result )  # If corresponding result name is not found, return nil.
+      raise "get_last_for method requires RResultName or RResultNameArray for its argument." if ! ( r_result.is_a?(RResultName) || r_result.is_a?(RResultNameArray) )
+      if( r_result.is_a? RResultName)
+        inst_name = r_result.name
+
+        elem_to_match = @results.reverse.find{|elem| elem[0] == inst_name }
+        if elem_to_match.nil?
+          return nil
+        else
+          r_obj = elem_to_match[1]
+          if RBridge::is_r_nil?( r_obj )
+            return nil
+          else
+            return r_obj
+          end
+        end
+      elsif( r_result.is_a? RResultNameArray)
+        index_array = r_result.elems.map(){|result_name|
+           if result_name.is_a? RResultName
+             get_last_index_for( result_name )
+           else
+             p result_name
+             raise "RResultNameArray should hold only RResultName objects"
+           end
+        }
+
+        if( index_array.all?(nil) )
+          return nil
+        else
+          index_array.delete(nil)
+          if ! index_array.empty?
+            last_idx = index_array.max
+            r_obj = @results[last_idx][1]
+            return r_obj
+          else
+            return nil
+          end
+        end
+      else
+        raise "get_last_for() takes unexpected object"
+      end
+    end
+  end
+
+  class RNameContainer
+    attr :elems
+    def initialize(ary)
+      raise "RNameContainer constructor requires Array" if ! ary.is_a?(Array)
+      if(! ary.all? {|i| i.is_a?(RResultName) || i.is_a?(RResultNameArray) || i.is_a?(RParamName) || ::RBridge.is_pointer?( i ) })
+        p ary
+        raise "RNameContainer's elemet needs to be RResultName, RResultNameArray, RParamName or R object"   
+      end
+      @elems = ary
+    end
+  end
+
+end

data/lib/r_bridge/version.rb

@@ -0,0 +1,3 @@
+module RBridge
+  VERSION = "0.5.0"
+end

data/r_bridge.gemspec

@@ -0,0 +1,32 @@
+require_relative 'lib/r_bridge/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "r_bridge"
+  spec.version       = RBridge::VERSION
+  spec.authors       = ["Toshihiro Umehara"]
+  spec.email         = ["toshi@niceume.com"]
+
+  spec.summary       = %q{Enables Ruby to access and construct R internal objects}
+  spec.description   = %q{R (language) provides C interface. This package utilize the interface and allow Ruby to manipulate and evaluate R's internal S expressions }
+  spec.homepage      = "https://github.com/niceume/r_bridge"
+  spec.license       = "GPL-3.0"
+  spec.required_ruby_version = Gem::Requirement.new(">= 2.3.0")
+
+#  spec.metadata["allowed_push_host"] = "TODO: Set to 'http://mygemserver.com'"
+
+  spec.metadata["homepage_uri"] = spec.homepage
+  spec.metadata["source_code_uri"] = spec.homepage
+  spec.metadata["changelog_uri"] = spec.homepage
+
+  # Specify which files should be added to the gem when it is released.
+  # The `git ls-files -z` loads the files in the RubyGem that have been added into git.
+  spec.files         = Dir.chdir(File.expand_path('..', __FILE__)) do
+    `git ls-files -z`.split("\x0").reject { |f| f.match(%r{^(test|spec|features)/}) }
+  end
+  spec.bindir        = "exe"
+  spec.executables   = spec.files.grep(%r{^exe/}) { |f| File.basename(f) }
+  spec.require_paths = ["lib"]
+
+  spec.extensions = %w[ext/r_bridge/extconf.rb]
+  spec.add_dependency "ffi" , '~> 1.13', '>= 1.13.0'
+end

metadata

@@ -0,0 +1,91 @@
+--- !ruby/object:Gem::Specification
+name: r_bridge
+version: !ruby/object:Gem::Version
+  version: 0.5.0
+platform: ruby
+authors:
+- Toshihiro Umehara
+autorequire: 
+bindir: exe
+cert_chain: []
+date: 2020-10-28 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: ffi
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.13'
+    - - ">="
+      - !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'
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 1.13.0
+description: 'R (language) provides C interface. This package utilize the interface
+  and allow Ruby to manipulate and evaluate R''s internal S expressions '
+email:
+- toshi@niceume.com
+executables: []
+extensions:
+- ext/r_bridge/extconf.rb
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- ".travis.yml"
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/console
+- bin/setup
+- ext/r_bridge/extconf.rb
+- ext/r_bridge/r_bridge.c
+- ext/r_bridge/r_embed.c
+- ext/r_bridge/r_eval.c
+- ext/r_bridge/r_lang.c
+- ext/r_bridge/r_list.c
+- ext/r_bridge/r_mysum.c
+- ext/r_bridge/r_ptr.c
+- ext/r_bridge/r_vec.c
+- ext/r_bridge/win_compat.h
+- lib/r_bridge.rb
+- lib/r_bridge/r_bridge_ffi.rb
+- lib/r_bridge/r_bridge_lazyfunc_ext.rb
+- lib/r_bridge/version.rb
+- r_bridge.gemspec
+homepage: https://github.com/niceume/r_bridge
+licenses:
+- GPL-3.0
+metadata:
+  homepage_uri: https://github.com/niceume/r_bridge
+  source_code_uri: https://github.com/niceume/r_bridge
+  changelog_uri: https://github.com/niceume/r_bridge
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: 2.3.0
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.1.2
+signing_key: 
+specification_version: 4
+summary: Enables Ruby to access and construct R internal objects
+test_files: []