cumo 0.1.0

data/ext/cumo/narray/gen/cogen.rb

@@ -0,0 +1,56 @@
+#! /usr/bin/env ruby
+
+thisdir = File.dirname(__FILE__)
+libpath = File.absolute_path(File.dirname(__FILE__))+"/../../../../lib"
+$LOAD_PATH.unshift libpath
+
+require_relative "./narray_def"
+
+while true
+  if ARGV[0] == "-l"
+    require "erbpp/line_number"
+    ARGV.shift
+  elsif ARGV[0] == "-o"
+    ARGV.shift
+    $output = ARGV.shift
+    require "fileutils"
+    FileUtils.rm_f($output)
+  else
+    break
+  end
+end
+
+if ARGV.size != 1
+  puts "usage:\n  ruby #{$0} [-l] erb_base [type_file]"
+  exit 1
+end
+
+type_file, = ARGV
+type_name = File.basename(type_file,".rb")
+
+erb_dir = ["tmpl"]
+erb_dir.unshift("tmpl_bit") if (type_name == "bit")
+erb_dir.map!{|d| File.join(thisdir,d)}
+
+code = DefLib.new do
+  set erb_dir: erb_dir
+  set erb_suffix: ".c"
+  set ns_var: "mCumo"
+
+  set file_name: $output||""
+  set type_name: type_name
+  set lib_name: "cumo_"+type_name
+
+  def_class do
+    extend NArrayMethod
+    extend NArrayType
+    eval File.read(type_file), binding, type_file
+    eval File.read(File.join(thisdir,"spec.rb")), binding, "spec.rb"
+  end
+end.result
+
+if $output
+  open($output,"w").write(code)
+else
+  $stdout.write(code)
+end

data/ext/cumo/narray/gen/cogen_kernel.rb

@@ -0,0 +1,58 @@
+#! /usr/bin/env ruby
+
+thisdir = File.dirname(__FILE__)
+libpath = File.absolute_path(File.dirname(__FILE__))+"/../../../../lib"
+$LOAD_PATH.unshift libpath
+
+require_relative "./narray_def"
+
+while true
+  if ARGV[0] == "-l"
+    require "erbpp/line_number"
+    ARGV.shift
+  elsif ARGV[0] == "-o"
+    ARGV.shift
+    $output = ARGV.shift
+    require "fileutils"
+    FileUtils.rm_f($output)
+  else
+    break
+  end
+end
+
+if ARGV.size != 1
+  puts "usage:\n  ruby #{$0} [-l] erb_base [type_file]"
+  exit 1
+end
+
+type_file, = ARGV
+type_name = File.basename(type_file,".rb")
+
+erb_dir = ["tmpl"]
+erb_dir.unshift("tmpl_bit") if (type_name == "bit")
+erb_dir.map!{|d| File.join(thisdir,d)}
+
+code = DefLib.new do
+  set erb_dir: erb_dir
+  set erb_suffix: "_kernel.cu"
+  set ns_var: "mCumo"
+
+  set file_name: $output||""
+  set type_name: type_name
+  set lib_name: "cumo_"+type_name
+
+  set opt_indexer_ndim: File.read(File.expand_path("../../../include/cumo/indexer.h", __FILE__)).match(/CUMO_NA_INDEXER_OPTIMIZED_NDIM (\d+)/)[1].to_i
+
+  def_class do
+    extend NArrayMethod
+    extend NArrayType
+    eval File.read(type_file), binding, type_file
+    eval File.read(File.join(thisdir,"spec.rb")), binding, "spec.rb"
+  end
+end.result
+
+if $output
+  open($output,"w").write(code)
+else
+  $stdout.write(code)
+end

data/ext/cumo/narray/gen/def/bit.rb

@@ -0,0 +1,37 @@
+set name:                "bit"
+set type_name:           "bit"
+set full_class_name:     "Cumo::Bit"
+set class_name:          "Bit"
+set class_alias:         nil
+set class_var:           "cT"
+set ctype:               "BIT_DIGIT"
+
+set has_math:      false
+set is_bit:        true
+set is_int:        false
+set is_unsigned:   true
+set is_float:      false
+set is_complex:    false
+set is_object:     false
+set is_real:       false
+set is_comparable: false
+set is_double_precision: false
+set need_align:    false
+
+upcast_rb "Integer"
+upcast_rb "Float", "DFloat"
+upcast_rb "Complex", "DComplex"
+
+upcast "RObject",  "RObject"
+upcast "DComplex", "DComplex"
+upcast "SComplex", "SComplex"
+upcast "DFloat", "DFloat"
+upcast "SFloat", "SFloat"
+upcast "Int64",  "Int64"
+upcast "Int32",  "Int32"
+upcast "Int16",  "Int16"
+upcast "Int8",   "Int8"
+upcast "UInt64", "UInt64"
+upcast "UInt32", "UInt32"
+upcast "UInt16", "UInt16"
+upcast "UInt8",  "UInt8"

data/ext/cumo/narray/gen/def/dcomplex.rb

@@ -0,0 +1,39 @@
+set name:                "dcomplex"
+set type_name:           "dcomplex"
+set full_class_name:     "Cumo::DComplex"
+set class_name:          "DComplex"
+set class_alias:         "Complex64"
+set class_var:           "cT"
+set ctype:               "dcomplex"
+set real_class_name:     "DFloat"
+set real_ctype:          "double"
+
+set has_math:            true
+set is_bit:              false
+set is_int:              false
+set is_unsigned:         false
+set is_float:            true
+set is_real:             false
+set is_complex:          true
+set is_object:           false
+set is_comparable:       false
+set is_double_precision: true
+set need_align:          true
+
+upcast_rb "Integer"
+upcast_rb "Float"
+upcast_rb "Complex"
+
+upcast "RObject",  "RObject"
+upcast "DComplex", "DComplex"
+upcast "SComplex", "DComplex"
+upcast "DFloat",   "DComplex"
+upcast "SFloat",   "DComplex"
+upcast "Int64",    "DComplex"
+upcast "Int32",    "DComplex"
+upcast "Int16",    "DComplex"
+upcast "Int8",     "DComplex"
+upcast "UInt64",   "DComplex"
+upcast "UInt32",   "DComplex"
+upcast "UInt16",   "DComplex"
+upcast "UInt8",    "DComplex"

data/ext/cumo/narray/gen/def/dfloat.rb

@@ -0,0 +1,37 @@
+set name:                "dfloat"
+set type_name:           "dfloat"
+set full_class_name:     "Cumo::DFloat"
+set class_name:          "DFloat"
+set class_alias:         "Float64"
+set class_var:           "cT"
+set ctype:               "double"
+
+set has_math:            true
+set is_bit:              false
+set is_int:              false
+set is_unsigned:         false
+set is_float:            true
+set is_complex:          false
+set is_object:           false
+set is_real:             true
+set is_comparable:       true
+set is_double_precision: true
+set need_align:          true
+
+upcast_rb "Integer"
+upcast_rb "Float"
+upcast_rb "Complex", "DComplex"
+
+upcast "RObject",  "RObject"
+upcast "DComplex", "DComplex"
+upcast "SComplex", "DComplex"
+upcast "DFloat",   "DFloat"
+upcast "SFloat",   "DFloat"
+upcast "Int64",    "DFloat"
+upcast "Int32",    "DFloat"
+upcast "Int16",    "DFloat"
+upcast "Int8",     "DFloat"
+upcast "UInt64",   "DFloat"
+upcast "UInt32",   "DFloat"
+upcast "UInt16",   "DFloat"
+upcast "UInt8",    "DFloat"

data/ext/cumo/narray/gen/def/int16.rb

@@ -0,0 +1,36 @@
+set name:                "int16"
+set type_name:           "int16"
+set full_class_name:     "Cumo::Int16"
+set class_name:          "Int16"
+set class_var:           "cT"
+set ctype:               "int16_t"
+
+set has_math:            false
+set is_bit:              false
+set is_int:              true
+set is_unsigned:         false
+set is_float:            false
+set is_complex:          false
+set is_object:           false
+set is_real:             true
+set is_comparable:       true
+set is_double_precision: false
+set need_align:          true
+
+upcast_rb "Integer"
+upcast_rb "Float", "DFloat"
+upcast_rb "Complex", "DComplex"
+
+upcast "RObject",  "RObject"
+upcast "DComplex", "DComplex"
+upcast "SComplex", "SComplex"
+upcast "DFloat", "DFloat"
+upcast "SFloat", "SFloat"
+upcast "Int64",  "Int64"
+upcast "Int32",  "Int32"
+upcast "Int16"
+upcast "Int8"
+upcast "UInt64", "Int64"
+upcast "UInt32", "Int32"
+upcast "UInt16"
+upcast "UInt8"

data/ext/cumo/narray/gen/def/int32.rb

@@ -0,0 +1,36 @@
+set name:                "int32"
+set type_name:           "int32"
+set full_class_name:     "Cumo::Int32"
+set class_name:          "Int32"
+set class_var:           "cT"
+set ctype:               "int32_t"
+
+set has_math:            false
+set is_bit:              false
+set is_int:              true
+set is_unsigned:         false
+set is_float:            false
+set is_complex:          false
+set is_object:           false
+set is_real:             true
+set is_comparable:       true
+set is_double_precision: false
+set need_align:          true
+
+upcast_rb "Integer"
+upcast_rb "Float", "DFloat"
+upcast_rb "Complex", "DComplex"
+
+upcast "RObject",  "RObject"
+upcast "DComplex", "DComplex"
+upcast "SComplex", "SComplex"
+upcast "DFloat", "DFloat"
+upcast "SFloat", "SFloat"
+upcast "Int64",  "Int64"
+upcast "Int32"
+upcast "Int16"
+upcast "Int8"
+upcast "UInt64", "Int64"
+upcast "UInt32"
+upcast "UInt16"
+upcast "UInt8"

data/ext/cumo/narray/gen/def/int64.rb

@@ -0,0 +1,36 @@
+set name:                "int64"
+set type_name:           "int64"
+set full_class_name:     "Cumo::Int64"
+set class_name:          "Int64"
+set class_var:           "cT"
+set ctype:               "int64_t"
+
+set has_math:            false
+set is_bit:              false
+set is_int:              true
+set is_unsigned:         false
+set is_float:            false
+set is_complex:          false
+set is_object:           false
+set is_real:             true
+set is_comparable:       true
+set is_double_precision: false
+set need_align:          true
+
+upcast_rb "Integer"
+upcast_rb "Float", "DFloat"
+upcast_rb "Complex", "DComplex"
+
+upcast "RObject",  "RObject"
+upcast "DComplex", "DComplex"
+upcast "SComplex", "SComplex"
+upcast "DFloat", "DFloat"
+upcast "SFloat", "SFloat"
+upcast "Int64"
+upcast "Int32"
+upcast "Int16"
+upcast "Int8"
+upcast "UInt64"
+upcast "UInt32"
+upcast "UInt16"
+upcast "UInt8"

data/ext/cumo/narray/gen/def/int8.rb

@@ -0,0 +1,36 @@
+set name:                "int8"
+set type_name:           "int8"
+set full_class_name:     "Cumo::Int8"
+set class_name:          "Int8"
+set class_var:           "cT"
+set ctype:               "int8_t"
+
+set has_math:            false
+set is_bit:              false
+set is_int:              true
+set is_unsigned:         false
+set is_float:            false
+set is_complex:          false
+set is_object:           false
+set is_real:             true
+set is_comparable:       true
+set is_double_precision: false
+set need_align:          false
+
+upcast_rb "Integer"
+upcast_rb "Float", "DFloat"
+upcast_rb "Complex", "DComplex"
+
+upcast "RObject",  "RObject"
+upcast "DComplex", "DComplex"
+upcast "SComplex", "SComplex"
+upcast "DFloat", "DFloat"
+upcast "SFloat", "SFloat"
+upcast "Int64",  "Int64"
+upcast "Int32",  "Int32"
+upcast "Int16",  "Int16"
+upcast "Int8",   "Int8"
+upcast "UInt64", "Int64"
+upcast "UInt32", "Int64"
+upcast "UInt16", "Int32"
+upcast "UInt8",  "Int16"

data/ext/cumo/narray/gen/def/robject.rb

@@ -0,0 +1,37 @@
+set name:                "robject"
+set type_name:           "robject"
+set full_class_name:     "Cumo::RObject"
+set class_name:          "RObject"
+set class_var:           "cT"
+set ctype:               "VALUE"
+set real_class_name:     "RObject"
+set real_ctype:          "VALUE"
+
+set has_math:            false
+set is_bit:              false
+set is_int:              true
+set is_unsigned:         false
+set is_float:            true
+set is_real:             true
+set is_complex:          false
+set is_object:           true
+set is_comparable:       true
+set is_double_precision: false
+set need_align:          false
+
+upcast_rb "Integer"
+upcast_rb "Float"
+upcast_rb "Complex"
+
+upcast "DComplex", "RObject"
+upcast "SComplex", "RObject"
+upcast "DFloat",   "RObject"
+upcast "SFloat",   "RObject"
+upcast "Int64",    "RObject"
+upcast "Int32",    "RObject"
+upcast "Int16",    "RObject"
+upcast "Int8",     "RObject"
+upcast "UInt64",   "RObject"
+upcast "UInt32",   "RObject"
+upcast "UInt16",   "RObject"
+upcast "UInt8",    "RObject"

data/ext/cumo/narray/gen/def/scomplex.rb

@@ -0,0 +1,39 @@
+set name:                "scomplex"
+set type_name:           "scomplex"
+set full_class_name:     "Cumo::SComplex"
+set class_name:          "SComplex"
+set class_alias:         "Complex32"
+set class_var:           "cT"
+set ctype:               "Scomplex"
+set real_class_name:     "SFloat"
+set real_ctype:          "float"
+
+set has_math:            true
+set is_bit:              false
+set is_int:              false
+set is_unsigned:         false
+set is_float:            true
+set is_real:             false
+set is_complex:          true
+set is_object:           false
+set is_comparable:       false
+set is_double_precision: false
+set need_align:          true
+
+upcast_rb "Integer"
+upcast_rb "Float"
+upcast_rb "Complex"
+
+upcast "RObject",  "RObject"
+upcast "DComplex", "DComplex"
+upcast "SComplex", "SComplex"
+upcast "DFloat",   "DComplex"
+upcast "SFloat",   "SComplex"
+upcast "Int64",    "SComplex"
+upcast "Int32",    "SComplex"
+upcast "Int16",    "SComplex"
+upcast "Int8",     "SComplex"
+upcast "UInt64",   "SComplex"
+upcast "UInt32",   "SComplex"
+upcast "UInt16",   "SComplex"
+upcast "UInt8",    "SComplex"