carats 0.3.0

data/lib/carat-dev/import-module/import-module-0.81/test/test-import_scope.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/env ruby
+["..", "../lib", "../dev-lib"].each do |x| $LOAD_PATH.unshift x; end
+require "scope-in-state-18"
+require "import-module"
+
+class Foo
+  def foo; "Foo"; end
+end
+
+module Mod1
+  module Foo
+    def foo; "Mod1"; end
+  end
+end
+
+s = ScopeInState.new(Mod1)
+
+foo = Foo.new
+p foo.foo
+
+module Mod2
+  def foo; "Mod2"; end
+end
+
+Foo.import_module(Mod2) do
+  p foo.foo
+  s.scope_in do
+    p foo.foo
+  end
+  p foo.foo
+end
+
+p foo.foo

data/lib/carat-dev/import-module/import-module-0.81/test/test-scope_import.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/env ruby
+["..", "../lib", "../dev-lib"].each do |x| $LOAD_PATH.unshift x; end
+require "scope-in-state-18"
+require "import-module"
+
+class Foo
+  def foo; "Foo"; end
+end
+
+module Mod1
+  module Foo
+    def foo; "Mod1"; end
+  end
+end
+
+s = ScopeInState.new(Mod1)
+
+foo = Foo.new
+p foo.foo
+
+module Mod2
+  def foo; "Mod2"; end
+end
+
+s.scope_in do
+  p foo.foo
+  Foo.import_module(Mod2) do
+    p foo.foo
+  end
+  p foo.foo
+end
+
+p foo.foo

data/lib/carat-dev/import-module/import-module-0.81/test/test-time.rb

@@ -0,0 +1,184 @@
+#!/usr/local/bin/ruby
+import_module = "import-module"
+#$IMPORT_MODULE_debug = true
+n = 10000
+$SL = $LS = true
+scope_in_state = nil
+
+ARGV.delete_if do |x|
+  case x
+  when "m"
+    import_module = "import-module"
+    true
+  when "p"
+    import_module = "import-module-pip"
+    true
+  when "q"
+    import_module = "import-module-pip-b"
+    true
+  when "u"
+    import_module = "import-module-unbound-method"
+    true
+  when "h"
+    import_module = "import-module-hash"
+    true
+  when "s"
+    import_module = "import-module-single-thread"
+    true
+  when "c"
+    scope_in_state = "scope-in-state"
+    true
+  when "b"
+    scope_in_state = "scope-in-state-b"
+    true
+  when "a"
+    scope_in_state = "scope-in-state-ab"
+    true
+  when /\.rb$/
+    import_module = x
+    true
+  when /^[0-9]+$/
+    n = Integer(x)
+  when "L"
+    $SL = false
+    $LS = true
+    true
+  when "S"
+    $SL = true
+    $LS = false
+    true
+  else
+    false
+  end
+end
+
+unless ARGV.empty?
+  puts "Usage: n times loop
+  ruby #$0 m n : import_module
+  ruby #$0 p n: import_module-pip
+  ruby #$0 q n: import_module-pip-b
+  ruby #$0 u n: import_module-unbound-method
+  ruby #$0 s n: import_module-single-thread
+  ruby #$0 c n: scope-in-state
+  ruby #$0 b n: scope-in-state-b
+  ruby #$0 a n: scope-in-state-ab
+"
+end
+
+def bm(s = "", t = nil)
+  if t
+    s += " " + t
+  end
+  start = Time.now
+  v = yield
+  [s, Time.now - start]
+end
+
+r = []
+a, b = "(scopes in #{n} loops)", "(#{n} loops in a scope)"
+
+class Foo
+  def foo
+    0
+  end
+end
+class Foo0
+  def foo
+    0
+  end
+end
+class Foo1
+  def foo
+    0
+  end
+end
+class Foo2
+  def foo
+    0
+  end
+end
+
+module Bar
+  def foo
+    1
+  end
+end
+
+module Bar0
+  def foo
+    1
+  end
+end
+module S1
+  module Foo1
+    def foo
+      1
+    end
+  end
+end
+module S2
+  module Foo2
+    def foo
+      1
+    end
+  end
+end
+
+
+unless scope_in_state
+    require import_module
+#    m = "multi thread"
+  m = import_module.sub(/\.\//, "")#/
+
+  o = Foo.new
+  o0 = Foo0.new
+
+  if $SL
+    r << bm(m, a) do
+      n.times do
+	Foo.import_module(Bar) do
+	  o.foo
+	end
+      end
+    end
+  end
+  if $LS
+    Foo0.import_module(Bar0) do
+      r << bm(m, b) do
+	n.times do
+	  o0.foo
+	end
+      end
+    end
+  end
+else
+  m = scope_in_state.sub(/\.\//, "")#/
+  require scope_in_state
+  o1 = Foo1.new
+  o2 = Foo2.new
+  ScopeS1 = ScopeInState.new(S1)
+  ScopeS2 = ScopeInState.new(S2)
+  if $SL
+    r << bm(m, a) do
+      n.times do
+	ScopeS1.scope_in do
+	  o1.foo
+	end
+      end
+    end
+  end
+  if $LS
+    ScopeS2.scope_in do
+      r << bm(m, b) do
+	n.times do
+	  o2.foo
+	end
+      end
+    end
+  end
+end
+
+
+r.each do |m, f|
+  printf "%-54s: %3.4f\n", m, f
+end

data/lib/carat-dev/import-module/import-module-0.81/test/test.sh

@@ -0,0 +1,91 @@
+#!/bin/sh
+modes="mpuscbaqh"
+all_option="m s p u h"
+script="./test-import-module.rb"
+devdir="../develop"
+time_script="$devdir/test-time.rb"
+time_prog="$devdir/test-time.rb"
+times_do_script="$devdir/times-do.sh"
+statics="$devdir/statics.rb"
+
+set_program() {
+    case $1 in
+#	m) option="";;
+	m) option=m;;
+	p) option=p;;
+	q) option=q;;
+	h) option=h;;
+	u) option=u;;
+	s) option=s;;
+	c) option=c;;
+	b) option=b;;
+	a) option=a;;
+	*) option=$1;;
+    esac
+    program="$script $option $args"
+}
+
+test_list() {
+    for opt in $*
+    do
+	set_program $opt
+	#echo $program; continue
+	if $program; then
+	    :
+	else
+	    exit
+	fi
+    done
+}
+
+search_args() {
+    args=""
+    opts=""
+    for arg in $*
+    do
+	case $arg in
+	    [$modes]) opts="$opts $arg";;
+	    *.rb) opts="$opts $arg";;
+	    times) times_sw="true";;
+	    time) timetest=time; script=$time_script;;
+#	    *) args="$args $arg";;
+	    *) if [ "$times_sw" ]; then
+		 times_sw=""
+		 times_do=$arg
+	       else
+		 args="$args $arg"
+	       fi;;
+	esac
+    done
+}
+
+search_args $*
+
+if [ "$times_do" ]; then
+    $times_do_script $times_do $0 time $opts $args | $statics
+elif [ "$timetest" ]; then
+    if [ ! "$opts" ]; then
+	opts="s m p c"
+    fi
+    test_list $opts
+#    echo $time_prog $opts $args
+else
+    if [ "$opts" ]; then
+	test_list $opts
+	echo $opts IS GOOD.
+#    elif [ ! "$*" ]; then
+    elif :; then
+	test_list $all_option
+	echo $all_option IS GOOD.
+    else
+	echo "$0          ... do all test"
+	echo "$0 m        ... do multi-thread test"
+	echo "$0 s        ... do single thread test ($import_module_s)"
+	echo "$0 p        ... do multi-thread test  ($import_module_p)"
+	echo "$0 u        ... do multi-thread test  ($import_module_u)"
+	echo "$0 h        ... do multi-thread test  ($import_module_h)"
+	echo "$0 time [N] [mspucba] [L|S] ... time test (do N loops)"
+	echo "$0 times [n] [N] [mspucba] [L|S] ... Statics"
+    fi
+fi
+

data/lib/carat-dev/import-module/import-module-0.81/test/time.rb

@@ -0,0 +1,135 @@
+#!/usr/local/bin/ruby
+import_module = "import-module"
+#require "rbprof"
+#import_module = "import-module-pip"
+$time = 0.0
+script = nil
+n = 100000
+mode = "i"
+result = nil
+
+#$IMPORT_MODULE_debug = true
+ARGV.delete_if do |x|
+  if x =~ /import-module.*\.rb$/
+    import_module = x
+    mode = "i"
+    true
+  elsif x =~ /\.rb$/
+    import_module = x
+    mode = "o"
+    true
+  elsif x =~ /^\d+$/
+    n = x.to_i
+    true
+  else
+    false
+  end
+end
+if x = ARGV.shift
+  mode = x
+  case mode
+  when "b"
+    import_module = "b.rb"
+  when "s"
+#    import_module = "scope-in-state"
+#    import_module = "scope-in-state-b"
+    import_module = "scope-in-state-ab"
+  when "k"
+    import_module = "import-module-single-thread"
+  when "p", "m"
+#    import_module = "t-import-module"
+#    import_module = "t-import-module-hit"
+    import_module = "import-module-pip"
+  when "u"
+    import_module = "import-module-unbound-method"
+  end
+end
+
+start = past = nil
+
+class A
+  def foo
+    0
+  end
+end
+
+puts import_module
+case mode
+when /^[ikup]$/
+  require import_module
+  module M
+    def foo
+      1
+    end
+  end
+  a = A.new
+#    start = Time.now
+  A.import_module(M) do
+    result = a.foo
+    start = Time.now
+    n.times do
+      a.foo
+    end
+    past = Time.now - start
+  end
+
+when "s"
+  require import_module
+  module S
+    module A
+      def foo
+	1
+      end
+    end
+  end
+  a = A.new
+#  start = Time.now
+  s = ScopeInState.new(S)
+  s.scope_in do
+    start = Time.now
+    n.times do
+      a.foo
+    end
+    past = Time.now - start
+  end
+
+when "m"
+#  puts "(scope module)"
+  puts "(scope activate)"
+  require import_module
+  module M
+    def foo
+      1
+    end
+  end
+  a = A.new
+#  start = Time.now
+  s = Import_Module::Scope.create(A, M)
+  s.activate do
+    result = a.foo
+    start = Time.now
+    n.times do
+      a.foo
+    end
+    past = Time.now - start
+  end
+
+when "o", "b"
+  module M
+    def foo
+      1
+    end
+  end
+  require import_module
+  a = A.new
+  start = Time.now
+  n.times do
+    a.foo
+  end
+  past = Time.now - start
+else
+  raise "unknown mode"
+end
+puts past
+#puts $time
+puts result if result