carray 1.3.5 → 1.5.1

data/lib/carray/{base/autoload.rb → autoload.rb}

@@ -1,6 +1,6 @@
 # ----------------------------------------------------------------------------
 #
-#  carray/base/autoload.rb
+#  carray/autoload.rb
 #
 #  This file is part of Ruby/CArray extension library.
 #  You can redistribute it and/or modify it under the terms of
@@ -13,7 +13,11 @@
 def autoload_method (method, library)
   eval %{
     def #{method} (*argv, &block)
-      require "#{library}"
+      begin
+        require "#{library}"
+      rescue LoadError
+        raise "error in autoloading '#{library}' hooked by method '#{method}', check gem installation."
+      end
       #{method}(*argv, &block)
     end
   }
@@ -23,7 +27,11 @@ class Class
   def autoload_method (method, library)
     class_eval %{
       def #{method} (*argv, &block)
-        require "#{library}"
+        begin
+          require "#{library}"
+        rescue LoadError
+          raise "error in autoloading '#{library}' hooked by method '#{method}', check gem installation."
+        end
         #{method}(*argv, &block)
       end
     }
@@ -34,7 +42,11 @@ class Module
   def autoload_method (method, library)
     class_eval %{
       def #{method} (*argv, &block)
-        require "#{library}"
+        begin
+          require "#{library}"
+        rescue LoadError
+          raise "error in autoloading '#{library}' hooked by method '#{method}', check gem installation."
+        end
         #{method}(*argv, &block)
       end
     }
@@ -46,7 +58,11 @@ class Module
     class_eval %{
       module_function
       def #{method} (*argv, &block)
-        require "#{library}"
+        begin
+          require "#{library}"
+        rescue LoadError
+          raise "error in autoloading '#{library}' hooked by method '#{method}', check gem installation."
+        end
         #{method}(*argv, &block)
       end
     }
@@ -87,6 +103,33 @@ module CA
 
 end
 
+__END__
+names = {"carray" => true}
+Gem.path.each do |path|
+  gems = File.join(path, "gems")
+  if File.directory?(gems)
+    Dir.chdir(gems) {
+      Dir["carray-*"].sort.reverse.each do |dir|
+        name = dir.sub(/\-\d+\.\d+\.\d+\z/, '')
+        next if names[name]
+        lib = File.join(dir, "lib")
+        if File.directory?(lib)
+          Dir.chdir(lib) {
+            Dir["carray/autoload/autoload_*"].each do |loader|
+              begin
+                load File.expand_path(File.join(gems, dir, lib, loader.sub(/\.rb\z/, "")))
+              rescue LoadError
+              end
+            end
+          }
+        end
+        names[name] = true
+      end
+    }
+  end
+end
+
+__END__
 CA.each_load_path("carray/autoload") {
   Dir["autoload_*.rb"].each do |basename|
     if basename =~ /\A(autoload_.+)\.rb\Z/
@@ -98,4 +141,3 @@ CA.each_load_path("carray/autoload") {
   end
 }
 
-undef autoload_method

data/lib/carray/autoload/autoload_base.rb

@@ -1,5 +1,5 @@
 class CArray
-  serialize_rb = "carray/base/serialize"
+  serialize_rb = "carray/serialize"
   autoload :Serializer, serialize_rb
   autoload_method "self.save", serialize_rb
   autoload_method "self.load", serialize_rb
@@ -17,7 +17,3 @@ end
 class Rational < Numeric
   include FloatFunction
 end
-
-module CA
-  autoload :NumPy, "carray/base/numpysh.rb"
-end

data/lib/carray/autoload/autoload_gem_cairo.rb

@@ -0,0 +1,9 @@
+
+module Cairo
+  class Surface
+  end
+  class ImageSurface < Surface
+    autoload_method "self.new_from_ca", "carray-cairo"
+    autoload_method "ca", "carray-cairo"
+  end
+end

data/lib/carray/autoload/autoload_gem_ffi.rb

@@ -0,0 +1,9 @@
+class CArray
+  autoload_method "mp", "carray-ffi"
+end
+
+module FFI
+  class MemoryPointer
+    autoload_method "ca", "carray-ffi"     
+  end
+end

data/lib/carray/autoload/autoload_gem_gnuplot.rb

@@ -0,0 +1,2 @@
+autoload_method "CA.gnuplot", "carray-gnuplot"
+

data/lib/carray/autoload/autoload_gem_io_csv.rb

@@ -0,0 +1,14 @@
+autoload_method "CArray.load_csv", "carray-io-csv"
+autoload_method "CArray.from_csv", "carray-io-csv"
+
+class CArray
+  autoload_method "save_csv", "carray-io-csv"
+  autoload_method "to_csv", "carray-io-csv"
+  autoload_method "to_tabular", "carray-io-csv"
+end
+
+module CA
+  autoload :CSVReader, "carray-io-csv"
+  autoload :CSVWriter, "carray-io-csv"
+end
+

data/lib/carray/autoload/autoload_gem_io_pg.rb

@@ -0,0 +1,6 @@
+autoload_method "CArray.load_pg", "carray-io-pg"
+
+class CArray
+  autoload_method "unescape_bytea", "carray-io-pg"
+  autoload_method "escape_bytea", "carray-io-pg"
+end

data/lib/carray/autoload/autoload_gem_io_sqlite3.rb

@@ -0,0 +1,12 @@
+autoload_method "CArray.load_sqlite3", "carray-io-sqlite3"
+
+class CArray
+  autoload_method "unblob", "carray-io-sqlite3"
+  autoload_method "to_sqlite3", "carray-io-sqlite3"
+end
+
+if Object.const_defined?(:SQLite3)
+  require "carray-io-sqlite3"
+else
+  autoload :SQLite3, "carray-io-sqlite3"
+end

data/lib/carray/autoload/autoload_gem_narray.rb

@@ -0,0 +1,10 @@
+class CArray
+  autoload_method :na,    "carray-narray"
+  autoload_method :to_na, "carray-narray"
+end
+
+class NArray
+  autoload_method :ca,    "carray-narray"
+  autoload_method :to_ca, "carray-narray"  
+end
+

data/lib/carray/autoload/autoload_gem_numo_narray.rb

@@ -0,0 +1,15 @@
+class CArray
+  autoload_method :to_numo, "carray-numo-narray"
+  autoload_method :numo, "carray-numo-narray"
+  autoload_method "self.as_numo", "carray-numo-narray"
+  autoload_method "self.as_numo!", "carray-numo-narray"
+  autoload_method :as_numo, "carray-numo-narray"
+  autoload_method :as_numo!, "carray-numo-narray"
+end
+
+module Numo
+  class NArray
+    autoload_method :to_ca, "carray-numo-narray"
+    autoload_method :ca, "carray-numo-narray"
+  end
+end

data/lib/carray/autoload/autoload_gem_opencv.rb

@@ -0,0 +1,16 @@
+module OpenCV
+  class CvMat
+    autoload_method "ca", "carray-opencv"
+    autoload_method "to_ca", "carray-opencv"
+    autoload_method "from_ca", "carray-opencv"
+    autoload_method "image", "carray-opencv"
+  end
+  class IplImage < CvMat
+    autoload_method "ca", "carray-opencv"
+  end
+end
+
+class CArray
+  autoload_method "to_cvmat", "carray-opencv"
+  autoload_method "to_iplimage", "carray-opencv"
+end

data/lib/carray/autoload/autoload_gem_random.rb

@@ -0,0 +1,8 @@
+class CArray
+  class << self
+    autoload_method :srand, "carray-random"
+  end
+  autoload_method :random!, "carray-random"
+  autoload_method :shuffle, "carray-random"
+  autoload_method :shuffle!, "carray-random"
+end

data/lib/carray/autoload/autoload_gem_rmagick.rb

@@ -0,0 +1,23 @@
+module Magick
+  class Image
+    autoload_method "export_pixels_to_ca", "carray-rmagick"
+    autoload_method "import_pixels_from_ca", "carray-rmagick"
+  end
+end
+
+class CArray
+  autoload_method "self.load_image", "carray-rmagick"
+  autoload_method "save_image", "carray-rmagick"
+  autoload_method "display_image", "carray-rmagick"
+  autoload_method "to_image", "carray-rmagick"
+end
+
+autoload :CAMagickImage, "carray-rmagick"
+
+module Magick
+  class Image
+    autoload_method "ca", "carray-rmagick"
+    autoload_method "to_ca", "carray-rmagick"
+  end
+end
+

data/lib/carray/basic.rb

@@ -0,0 +1,193 @@
+# ----------------------------------------------------------------------------
+#
+#  carray/basic.rb
+#
+#  This file is part of Ruby/CArray extension library.
+#  You can redistribute it and/or modify it under the terms of
+#  the Ruby Licence.
+#
+#  Copyright (C) 2005 Hiroki Motoyoshi
+#
+# ----------------------------------------------------------------------------
+
+module CAMath
+  include Math
+end
+
+#
+# monkey patch
+#
+
+def nan
+  0.0/0.0
+end
+
+class Array                          # :nodoc:
+  def +@
+    return CA_SIZE(self)
+  end
+  def to_ca
+    return CA_OBJECT(self)
+  end
+end
+
+class Range                          # :nodoc: 
+  def +@
+    return CA_SIZE(self)    
+  end
+  def to_ca
+    return CA_OBJECT(self)
+  end
+end
+
+class Numeric
+  
+  def eq (other)
+    case other
+    when CArray
+      return other.eq(self)
+    else
+      return send(:eq, *other.coerce(self))
+    end
+  end
+
+  def ne (other)
+    case other
+    when CArray
+      return other.ne(self)
+    else
+      return send(:ne, *other.coerce(self))
+    end
+  end
+  
+end
+
+class CArray
+
+  def has_attribute?
+    if ( not @attribute ) or @attribute.empty?
+      return false
+    else
+      return true
+    end
+  end
+
+  def attribute= (obj)
+    unless obj.is_a?(Hash)
+      raise "attribute should be a hash object"
+    end
+    @attribute = obj
+  end
+
+  def attribute
+    @attribute ||= {}
+    return @attribute
+  end
+  
+  def first
+    self[0]
+  end
+  
+  def last
+    self[-1]
+  end
+
+  # matchup
+
+  def matchup (ref)
+    ri = ref.sort_addr
+    rs = ref[ri].to_ca
+    si = rs.bsearch(self)
+    return ri.project(si)
+  end
+
+  def matchup_nearest (ref, direction: "round")
+    ri = ref.sort_addr
+    rs = ref[ri].to_ca
+    si = rs.section(self).send(direction.intern).int64
+    si.trim!(0,si.size)
+    return ri[si].to_ca
+  end
+
+
+  # index / indices / axes
+
+  def address ()
+    return CArray.int32(*dim).seq!
+  end
+
+  def index (n = 0)
+    unless n.is_a?(Integer)
+      raise ArgumentError, "argument should be an integer"
+    end
+    if n.between?(0, ndim-1)
+      return CArray.int32(dim[n]).seq!
+    else
+      raise ArgumentError,
+            "invalid dimension specifier #{n} (0..#{self.ndim-1})"
+    end
+  end
+
+  #
+  #
+  #
+
+  def indices
+    list = Array.new(ndim) {|i|
+      rpt = self.dim
+      rpt[i] = :%
+      index(i)[*rpt]
+    }
+    if block_given?
+      return yield(*list)
+    else
+      return list
+    end
+  end
+
+    
+
+end
+
+class CArray
+
+  # Returns object carray has elements of splitted carray at dimensions 
+  #      which is given by arguments
+  #
+  #    a = CA_INT([[1,2,3], [4,5,6], [7,8,9]])
+  #
+  #    a.split(0) 
+  #      [1,2,3], [4,5,6], [7,8,9]
+  #
+  #    a.split(1)
+  #      [1,4,7], [2,5,8], [3,6,9]
+  #
+
+  def split (*argv)
+    odim = dim.values_at(*argv)
+    out  = CArray.object(*odim)
+    idx  = [nil] * ndim
+    attach {
+      out.map_with_index! do |o, v|
+        argv.each_with_index do |r, i|
+          idx[r] = v[i]
+        end
+        self[*idx].to_ca
+      end
+    }
+    return out
+  end
+
+end
+
+class CAUnboundRepeat
+
+  def template (*argv, &block)
+    return parent.template(*argv,&block)[*spec.map{|x| x != :* ? nil : x}]
+  end
+
+end
+
+
+
+