carray 2.0.0 → 3.0.0

data/spec/spec_all.rb

@@ -1,10 +0,0 @@
-dirname = File.dirname(__FILE__)
-$:.unshift(File.join(dirname, "..", "lib"))
-
-require "carray"
-  
-Dir.chdir(File.dirname(__FILE__)) {
-  Dir["**/*_spec.rb"].sort.each do |file|
-    load(file)
-  end
-}

data/utils/ca_ase.rb

@@ -1,21 +0,0 @@
-require 'carray'
-require 'pp'
-
-class CArray
-  def ase_inspect (name)
-    io = "assert_equal("
-    type_name = CArray.data_type_name(self.data_type)
-    head = "CA_#{type_name.upcase}("
-    io << head
-    text = self.to_a.pretty_inspect().chomp!
-    io << text.map { |line|
-      line.sub(/\A +/, " " * (14 + head.length))
-    }.join
-    io << "), " << name << ")" << "\n"
-    return io
-  end
-end
-
-a = CArray.int(3,3).seq!
-
-puts a.ase_inspect("a")

data/utils/ca_methods.rb

@@ -1,15 +0,0 @@
-require 'carray'
-
-o = Object.new
-
-a = CArray.int(3)
-#a = NArray.int(3)
-
-list = a.methods - o.methods
-#list = list.sort_by{|x| [x.length, x] }
-list = list.sort
-
-require 'pp'
-
-pp list
-

data/utils/cast_checker.rb

@@ -1,30 +0,0 @@
-require "carray"
-require "rational"
-types = [
-         :boolean,
-         :int8,
-         :int32,
-         :float32,
-         :float64,
-         :cmplx64,
-         :cmplx128,
-         :object,
-        ]
-types.each do |type1|
-  [
-   2, 2.0, 2.to_r, :int8, :uint8, :float64, :object
-  ].each do |type2|
-    ca1 = CArray.new(type1, [1])
-    if type2.is_a?(Symbol)
-      ca2 = CArray.new(type2, [1])
-    else
-      ca2 = type2
-    end
-    begin
-      atype1, atype2 = CArray.cast_self_or_other(ca1, ca2).map{|a| a.data_type_name }
-      printf("(%s, %s)\t -> (%s, %s)\n", type1.inspect, type2.inspect, atype1.inspect, atype2.inspect)
-    rescue
-      printf("(%s, %s)\t -> invalid pair\n", type1.inspect, type2.inspect)
-    end
-  end
-end

data/utils/convert_test.rb

@@ -1,73 +0,0 @@
-require 'parser/current'
-require 'unparser'
-
-module YourHelper
-  def s(type, *children)
-    Parser::AST::Node.new(type, children)
-  end
-end
-
-include YourHelper
-
-while line = gets
-  if line =~ /require .test\/unit./ or line =~ /\$\:\.unshift/
-    next
-  end
-  line.gsub!(/(require .carray.\s*$)/, %{\\1require "rspec-power_assert"})
-  line.gsub!(/class (Test.*)\s*<\s*Test::Unit::TestCase/, 'describe "\1" do')
-  line.gsub!(/def test_(.*)/, 'example "\1" do')
-  line.gsub!(/\A(\s*)(assert_raise\((.*)\))\s*{(.*)}/, "\\1expect {\\4}.to raise_error(\\3)")
-  line.gsub!(/\A(\s*)assert_nothing_raised\s*{(.*)}/, "\\1expect {\\2}.not_to raise_error()")
-
-  if line =~ /\A(\s*)(assert_equal\(.*\))\s*\z/
-    prespc = $1
-    body   = $2
-    ast = Unparser.parse(body)
-    newast = s(:block,
-                s(:send, nil, :is_asserted_by),
-                s(:args),
-                s(:send,
-                  ast.children[2], :==,
-                  ast.children[3]))
-    conv = Unparser.unparse(newast).dup # => 'your(ruby(code))'
-    conv.gsub!(/do\n\s*/, "{ ")
-    conv.gsub!(/\n\s*end/, " }")
-    line = prespc + conv
-  end
-  line.gsub!(/assert_equal\(/, 'is_asserted_by { ')
-
-  if line =~ /\A(\s*)(assert_not_equal\(.*\))/
-    prespc = $1
-    body   = $2
-    ast = Unparser.parse(body)
-    newast = s(:block,
-                s(:send, nil, :is_asserted_by),
-                s(:args),
-                s(:send,
-                  ast.children[2], :!=,
-                  ast.children[3]))
-    conv = Unparser.unparse(newast).dup # => 'your(ruby(code))'
-    conv.gsub!(/do\n\s*/, "{ ")
-    conv.gsub!(/\n\s*end/, " }")
-    line = prespc + conv
-  end
-
-  if line =~ /\A(\s*)(assert_instance_of\(.*\))/
-    prespc = $1
-    body   = $2
-    ast = Unparser.parse(body)
-    newast = s(:block,
-                s(:send, nil, :is_asserted_by),
-                s(:args),
-                s(:send,
-                  s(:send,
-                    ast.children[3], :class), :==,
-                      ast.children[2]))
-    conv = Unparser.unparse(newast).dup # => 'your(ruby(code))'
-    conv.gsub!(/do\n\s*/, "{ ")
-    conv.gsub!(/\n\s*end/, " }")
-    line = prespc + conv
-  end
-
-  puts line
-end

data/utils/extract_yard.rb

@@ -1,22 +0,0 @@
-
-Dir["*.c"].each do |file|
-  open(file) { |io|
-    while line = io.gets
-      if line =~ /\A\s*\/\*\s*(@overload\s+(.*))$/
-        method_spec = $2
-        #        puts "  # " + line
-        while line = io.gets
-          case line
-          when /\A\s*\*\//
-            puts "  def " + method_spec
-            puts "  end"
-            break
-          else
-            print "  # " + line
-          end
-        end
-        puts
-      end
-    end
-  }
-end

data/utils/guess_shape.rb

@@ -1,76 +0,0 @@
-require "carray"
-
-def guess_shape (ary)
-  if ary.class == Array
-    info = {
-      :rank => 0,
-      :dim => [],
-      :stop_rank => 0,
-    }
-    (1..5).each do |rank|
-      info[:rank] = rank
-      guess_shape_rank(ary, info, 1)
-      if info[:stop_rank] != 0
-        return info[:dim]
-      end
-    end
-    raise "too deep array"
-  else
-    return []  ### rank = 0
-  end
-end
-
-# ok　0
-# scalar => 1
-# array invalid length => 2
-
-def guess_shape_rank (ary, info, level)
-  len = info[:dim][level-1]
-  printf "len->#{len}\n"
-  if len 
-    if len != ary.length
-      info[:stop_rank] = level-1
-      return 2
-    end
-  else
-    len = ary.length
-    printf "len: set #{len}\n"
-    info[:dim][level-1] = len
-  end
-  if level == info[:rank]
-    return 0
-  end
-  if level < info[:rank]
-    p ary
-    ary.each do |e|
-      if e.class == Array 
-        retval = guess_shape_rank(e, info, level+1)
-        case retval
-        when 1, 2
-          return retval
-        when 0
-        end
-      else
-        info[:stop_rank] = level
-        info[:dim] = info[:dim][0..level-1]
-        return 1
-      end
-    end
-    return 0
-  end
-  return 3
-end
-
-
-ary = [
-  [[[[3],3],1]],
-  [[2,2]],
-  [[3,3,]]
-]
-#ca = CArray.object(4,3,2,1).seq
-#ca.elem_store([0,0,0,0],[1,2])
-#ary = ca.to_a
-p ary
-p CArray.guess_array_shape(ary)
-p guess_shape(ary)
-p ary.to_ca

data/utils/monkey_patch_methods.rb

@@ -1,62 +0,0 @@
-require "rational"
-require "complex"
-
-class_list = [
-  Kernel,
-  Object,
-  Numeric,
-  Float,
-  Integer,
-  Rational,
-]
-
-cnst_orig = Object.constants
-orig = {}
-intr = {}
-orig_s = {}
-intr_s = {}
-
-class_list.each do |klass|
-  orig[klass] = klass.instance_methods
-  orig_s[klass] = klass.singleton_methods
-end
-
-$CARRAY_NO_AUTOLOAD = true
-require "carray"
-
-class_list.each do |klass|
-  intr[klass] = klass.instance_methods - orig[klass]
-  intr_s[klass] = klass.singleton_methods - orig_s[klass]
-  klass.ancestors[1..-1].each do |mod|
-    if orig.has_key?(mod)
-      intr[klass] -= intr[mod]
-    end
-  end
-end
-
-cnst_intr = (Object.constants - cnst_orig)
-
-require "pp"
-
-puts "Global Constants"
-puts "----------"
-pp (cnst_intr.sort)
-puts
-
-class_list.each do |klass|
-  puts "#{klass}"
-  puts "----------"
-  unless intr_s[klass].empty?
-    puts "### Singleton Methods"
-    pp intr_s[klass].sort 
-  end
-  unless intr[klass].empty?
-    puts "### Instance Methods"
-    pp intr[klass].sort
-  end
-  puts
-end
-
-#pp CA.singleton_methods.sort
-
-

data/utils/remove_resource_fork.sh

@@ -1,5 +0,0 @@
-trash `find . -name "*._*" -type f`
-trash `find . -name "*.gdb_history" -type f`
-trash `find . -name "*.RData" -type f`
-trash `find . -name "*.Rhistory" -type f`
-trash `find . -name "*~" -type f`