carats 0.3.0

data/lib/carat-dev/import-module/import-module-0.81/LICENSE

@@ -0,0 +1 @@
+LICENSE: Ruby's

data/lib/carat-dev/import-module/import-module-0.81/Makefile

@@ -0,0 +1,11 @@
+.PHONY: test install
+
+help:
+	@echo make test
+	@echo make install
+
+test:
+	cd test; make
+
+install:
+	ruby install.rb

data/lib/carat-dev/import-module/import-module-0.81/README

@@ -0,0 +1,4 @@
+--- import-module
+          by Shin-ichiro HARA (sinara@blade.nagaokatut.ac.jp)
+
+  See documents in the directory "doc".

data/lib/carat-dev/import-module/import-module-0.81/dev-lib/import-module-hash.rb

@@ -0,0 +1,49 @@
+#!/usr/local/bin/ruby
+#  Old Hash Version
+#$IMPORT_MODULE_debug = true
+
+require "import-module"
+
+module Import_Module
+  class Scope
+    def set_methods
+      meths = @target.get_orig_methods(@source)
+      @target.def_orig_methods(meths)
+      def_methods
+      mod = @mod
+      @klass.class_eval do include mod end
+    end
+
+    def update(c)
+      d = c.dup
+      @source.methods.__each__ do |meth|
+	d[Import_Module.name(meth, @klass, false).intern.id] = @mod.id
+      end
+      d
+    end
+
+    def method_code(meth)
+      param = @source.param(meth)
+      methid = Import_Module.name(meth, @klass, false).intern.id
+      line_no = __LINE__ + 1
+      s = "def #{meth}(#{param})"
+      s << "  modid = Thread.current.__IMPORT_MODULE_PREFIX_proxy[#{methid}]\n"
+      i = 0
+     @target.scopes.each_key do |mod|
+	s << (i == 0 ? "  " : "  els") << "if modid == #{mod.id}\n"
+	s << "    #{Import_Module.name(meth, mod)}(#{param})\n"
+	i += 1
+      end
+      s << "  else\n" if i > 0
+      s << "    #{Import_Module.name(meth, :orig)}(#{param})\n"
+      s << "  end\n" if i > 0
+      s << "end\n"
+      s << "protected(:#{meth})\n" if @target.protecteds.include?(meth)
+      s << "private(:#{meth})\n" if @target.privates.include?(meth)
+      [s, __FILE__, line_no]
+    end
+  end
+end
+
+Thread.current.__IMPORT_MODULE_PREFIX_stack =
+  Import_Module::Stack.new([Hash.new])

data/lib/carat-dev/import-module/import-module-0.81/dev-lib/import-module-pip.rb

@@ -0,0 +1,71 @@
+#!/usr/local/bin/ruby
+require "import-module"
+
+module Import_Module
+  class BaseClass;end
+
+  class Scope
+    attr_reader :updator
+
+    def initialize(target, source)
+      @target = target
+      @klass = target.klass
+      @source = source
+      @mod = source.mod
+      @updator = forward_code(@source.methods, @mod)   ###
+    end
+
+    def set_methods
+      meths = @target.get_orig_methods(@source)
+      @target.def_orig_methods(meths, true)
+      #def_base_methods(meths)
+      BaseClass.class_eval *forward_code(meths, :orig) ###
+      def_methods
+      mod = @mod
+      @klass.class_eval do include mod end
+    end
+
+    #private
+
+    def update(c)
+      d = Class.new(c.class)
+      d.class_eval *@updator
+      d.new
+    end
+
+    def method_code(meth) #entity
+      meth0 = Import_Module.name(meth, @klass, false)
+      param = @source.param(meth)
+      param0 = @source.param0(meth)
+      line_no = __LINE__ + 1
+      s =  "def #{meth}(#{param})\n"
+      s << "  Thread.current.__IMPORT_MODULE_PREFIX_proxy.#{meth0}(self, #{param0})\n"
+      s << "end\n"
+      s << "protected(:#{meth})\n" if @target.protecteds.include?(meth)
+      s << "private(:#{meth})\n" if @target.privates.include?(meth)
+      [s, __FILE__, line_no]
+    end
+
+    def forward_code(meths, mod)
+      s = ""
+      line_no = __LINE__ + 6
+      meths.__each__ do |meth|
+	meth0 = Import_Module.name(meth, @klass, false)
+	meth1 = Import_Module.name(meth, mod)
+	param = @source.param(meth)
+	param0 = @source.param0(meth)
+	s << "def #{meth0}(sender, #{param0})\n"
+	s << "  sender.#{meth1}(#{param})\n"
+	s << "end\n"
+      end
+      [s, __FILE__, line_no]
+    end
+
+    def def_base_methods(meths)#do not use (but faster)
+      BaseClass.class_eval *forward_code(meths, :orig)
+    end
+  end
+end
+
+Thread.current.__IMPORT_MODULE_PREFIX_stack =
+  Import_Module::Stack.new([Import_Module::BaseClass.new])

data/lib/carat-dev/import-module/import-module-0.81/dev-lib/import-module-unbound-method.rb

@@ -0,0 +1,36 @@
+#!/usr/local/bin/ruby
+# compatible with 0.71beta1
+
+require "import-module"
+module Import_Module
+  class Scope
+    private
+    def method_code(meth)
+      param = @source.param(meth)
+      no = @target.meth_no[meth]
+      v = Import_Module.name(meth, @klass, false)
+      line_no = __LINE__ + 1
+      s = "def #{meth}(#{param})\n"
+      s << "  if m = Thread.current.__IMPORT_MODULE_PREFIX_proxy[#{no}]\n"
+      s << "    m.bind(self).call(#{param})\n"
+      s << "  else\n"
+      s << "    #{Import_Module.name(meth, :orig)}(#{param})\n"
+      s << "  end\n"
+      s << "end\n"
+      s << "protected(:#{meth})\n" if @target.protecteds.include?(meth)
+      s << "private(:#{meth})\n" if @target.privates.include?(meth)
+      [s, __FILE__, line_no]
+    end
+  end
+
+  class Scope
+    private
+    def update(c)
+      d = c.dup
+      @source.methods.__each__ do |meth|
+	d[@target.meth_no[meth]] = @mod.instance_method(meth)
+      end
+      d
+    end
+  end
+end

data/lib/carat-dev/import-module/import-module-0.81/doc/README-ja.html

@@ -0,0 +1,293 @@
+<?xml version="1.0" ?>
+<!DOCTYPE html 
+  PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head>
+<meta http-equiv="Content-Style-Type" content="text/css" />
+<link rel="stylesheet" type="text/css" href="../doc/style.css" />
+<title>Untitled</title>
+</head>
+<body>
+<h1><a name="label-0" id="label-0">import-module</a></h1><!-- RDLabel: "import-module" -->
+<p>2004.03.10</p>
+<ul>
+<li>Version: 0.81</li>
+<li>����: ���@�M��Y</li>
+<li>���[��: sinara@blade.nagaokaut.ac.jp</li>
+<li>�z�[���y�[�W: <a href="http://blade.nagaokaut.ac.jp/~sinara/ruby/import-module/">&lt;URL:http://blade.nagaokaut.ac.jp/~sinara/ruby/import-module/&gt;</a></li>
+</ul>
+<h2><a name="label-1" id="label-1">�Љ�</a></h2><!-- RDLabel: "�Љ�" -->
+<p>import-module �̓��W���[���̃C���N���[�h�𓮓I�ɍs���܂��B</p>
+<h2><a name="label-2" id="label-2">�C���X�g�[��</a></h2><!-- RDLabel: "�C���X�g�[��" -->
+<p>���j�b�N�X�n�� OS �Ȃ��</p>
+<pre>ruby install.rb</pre>
+<p>�Ƃ��Ă��������B�܂��A lib/*.rb ���Aruby �� require �ł���ꏊ��
+�R�s�[���Ă��\���܂���B</p>
+<h2><a name="label-3" id="label-3">�p�@</a></h2><!-- RDLabel: "�p�@" -->
+<p><code>reqruire "import-method"</code>�������<var>Module</var>�Ɉȉ��̃��\�b�h��
+�t���������܂��B</p>
+<dl>
+<dt><a name="label-4" id="label-4"><code>import_module(<var>mod</var>) { ... }</code></a></dt><!-- RDLabel: "import_module" -->
+<dd>
+<p><var>mod</var> �����W���[���Ƃ��Ď�荞�񂾏�Ԃ� ... �����s���܂��B</p>
+<p>(��)</p>
+<pre>require "import-module"
+class Foo
+  def hello
+    puts 'hello'
+  end
+end
+
+module Bar
+  def hello
+    puts 'bye'
+  end
+end
+
+module Baz
+  def hello
+    puts 'good-bye'
+  end
+end
+
+foo = Foo.new
+foo.hello                   #=&gt; hello
+Foo.import_module(Bar) do
+  foo.hello                 #=&gt; bye
+  Foo.import_module(Baz) do
+    foo.hello               #=&gt; good-bye
+  end
+  foo.hello                 #=&gt; bye
+end
+foo.hello                   #=&gt; hello</pre></dd>
+<dt><a name="label-5" id="label-5"><code>adopt_module(<var>mod</var>)</code></a></dt><!-- RDLabel: "adopt_module" -->
+<dd>
+<p><var>mod</var> �����W���[���Ƃ��Ď�荞�݂܂��B</p>
+<p>(��)</p>
+<pre>require "import-module"
+class Foo
+  def hello
+    puts 'hello'
+  end
+end
+
+module Bar
+  def hello
+    puts 'bye'
+  end
+end
+
+foo = Foo.new
+Foo.adopt_module(Bar)
+foo.hello                 #=&gt; bye</pre></dd>
+</dl>
+<p>�܂��A<var>Object</var>�ɂ͎��̃��\�b�h���t�������܂��B</p>
+<dl>
+<dt><a name="label-6" id="label-6"><code>import(<var>mod</var>) { ... }</code></a></dt><!-- RDLabel: "import" -->
+<dd>
+<p>�I�u�W�F�N�g�� <var>mod</var> �����W���[���Ƃ��Ď�荞�񂾏�Ԃ� ... �����s���܂��B</p>
+<p>(��)</p>
+<pre>require "import-module"
+class Foo
+  def hello
+    puts 'hello'
+  end
+end
+
+module Bar
+  def hello
+    puts 'bye'
+  end
+end
+
+foo = Foo.new
+bar = Foo.new
+foo.hello                   #=&gt; hello
+bar.hello                   #=&gt; hello
+foo.import(Bar) do |foo0|
+  foo.hello                 #=&gt; bye
+  p foo == foo0             #=&gt; true
+  bar.hello                 #=&gt; hello
+end
+foo.hello                   #=&gt; hello
+bar.hello                   #=&gt; hello</pre></dd>
+<dt><a name="label-7" id="label-7"><code>adopt(<var>mod</var>)</code></a></dt><!-- RDLabel: "adopt" -->
+<dd>
+<p>�I�u�W�F�N�g�� <var>mod</var> �����W���[���Ƃ��Ď�荞�݂܂��B</p>
+<p>(��)</p>
+<pre>require "import-module"
+class Foo
+  def hello
+    puts 'hello'
+  end
+end
+
+module Bar
+  def hello
+    puts 'bye'
+  end
+end
+
+foo = Foo.new
+bar = Foo.new
+foo.adopt(Bar)
+foo.hello                   #=&gt; bye
+bar.hello                   #=&gt; hello</pre></dd>
+</dl>
+<h2><a name="label-8" id="label-8">�}���`�X���b�h</a></h2><!-- RDLabel: "�}���`�X���b�h" -->
+<p>���̃��C�u�����̓}���`�X���b�h�Ή����Ă��܂��B</p>
+<p>(��)</p>
+<pre>require "import-module"
+class Foo
+  def hello
+    puts 'hello'
+  end
+end
+
+module Bar
+  def hello
+    puts 'bye'
+  end
+end
+
+foo = Foo.new
+foo.hello #=&gt; hello
+Thread.start do
+  Foo.import_module(Bar) do
+    foo.hello #=&gt; bye
+  end
+end
+foo.hello #=&gt; hello</pre>
+<p>�}���`�X���b�h�Ή����K�v�łȂ��ꍇ�́A
+<code>$import_module_single_thread = true</code> �Ƃ��Ă���
+<code>import-module.rb</code> �� require ���邩�A
+<code>import-module.rb</code> �ł͂Ȃ��A
+<code>import-module-single-thread.rb</code> �� require �����������B
+���\�b�h�̌Ăяo���������Ȃ�܂��B</p>
+<h2><a name="label-9" id="label-9">�g�����̗�</a></h2><!-- RDLabel: "�g�����̗�" -->
+<h3><a name="label-10" id="label-10">Modify Enumerable</a></h3><!-- RDLabel: "Modify Enumerable" -->
+<p>Enumerable �̈ꎞ�I�ȕύX</p>
+<pre>require "import-module"
+module EachChar
+ def each(&amp;b); split(//).each(&amp;b); end
+end
+p "abc".import(EachChar){|s| s.map{|x| x.succ}}.join("") #=&gt; "bcd"</pre>
+<h3><a name="label-11" id="label-11">Determinant</a></h3><!-- RDLabel: "Determinant" -->
+<p>�����l�s������̂܂ܗL�����l�s��Ƃ��Ĉ����B</p>
+<pre>require "import-module"
+require "matrix"
+require "rational"
+
+module RationalDiv
+  def /(other)
+    Rational(self) / other
+  end
+end
+
+a = Matrix[[2, 1], [3, 1]]
+puts a.det   #=&gt; 0
+Fixnum.import_module(RationalDiv) do
+  puts a.det #=&gt; -1
+end
+puts a.det   #=&gt; 0</pre>
+<h2><a name="label-12" id="label-12">�Q�l</a></h2><!-- RDLabel: "�Q�l" -->
+<p>RAA <a href="http://www.ruby-lang.org/en/raa.html">&lt;URL:http://www.ruby-lang.org/en/raa.html&gt;</a> �ɂ�����ȉ��̃v���O�������Q
+�l�ɂ��܂����B</p>
+<ul>
+<li>Ruby Behaviors (David Alan Black)</li>
+<li>scope-in-state (Keiju Ishitsuka)</li>
+<li>class-in-state (Keiju Ishitsuka)</li>
+</ul>
+<h2><a name="label-13" id="label-13">����</a></h2><!-- RDLabel: "����" -->
+<p>0.81 (2004.03.10)</p>
+<ul>
+<li>�ăp�b�P�[�W</li>
+</ul>
+<p>0.80 (2003.06.29)</p>
+<ul>
+<li>adapted to 1.8.0(preview3)</li>
+<li>adapted to 1.6.8</li>
+</ul>
+<p>0.79 (2003.05.02)</p>
+<ul>
+<li>$import_module_single_thread ����</li>
+<li>install.rb �Y�t</li>
+</ul>
+<p>0.78 (2003.05.01)</p>
+<ul>
+<li>���\�b�h�̉Ž����̕ۑ��ɂ‚��� bug fix</li>
+</ul>
+<p>0.77 (2002.11.05)</p>
+<ul>
+<li>proxy object �� Hash ���� Array �ɕύX��������</li>
+</ul>
+<p>0.76 (2002.11.01)</p>
+<ul>
+<li>�Ž���(protected)�̕ۑ�</li>
+</ul>
+<p>0.75 (2002.10.31)</p>
+<ul>
+<li>set_orig_method ����</li>
+</ul>
+<p>0.74 (2002.10.30)</p>
+<ul>
+<li>Stack#update ���� Scope#update �ֈړ�</li>
+<li>Stack#export_current ����</li>
+<li>test, test-import-module.rb test-time.rb ��������</li>
+</ul>
+<p>0.73 (2002.10.28)</p>
+<ul>
+<li>Stack �ύX</li>
+<li>ImportModule#import_module_init �p�~</li>
+<li>Thread#__IMPORT_MODULE_PREFIX_proxy, stack ����</li>
+<li>test scripts ����</li>
+</ul>
+<p>0.72 (2002.10.22)</p>
+<ul>
+<li>Import_Module::Scope.create ����</li>
+<li>Scope_Module �p�~</li>
+</ul>
+<p>0.71 (2002.10.20)</p>
+<ul>
+<li>Scope_Module �N���X����</li>
+<li>optimize: &amp;b -&gt; b -&gt; b -&gt; &amp;b</li>
+<li>import-module-single-thread.rb ����</li>
+<li>Import_Module.single_thread �p�~</li>
+</ul>
+<p>0.70 (2002.10.17)</p>
+<ul>
+<li>Scope �N���X����</li>
+<li>import-module-pip.rb</li>
+<li>import-moudle-unbound-method.rb</li>
+</ul>
+<p>0.60 (2002.10.15)</p>
+<ul>
+<li>�N���X Target, Source, Stack �ɕ���</li>
+</ul>
+<p>0.60beta6 (2002.10.15)</p>
+<ul>
+<li>�㗝�p���p�^�[�����p�̍Ō�</li>
+</ul>
+<p>0.52 (2002.10.10)</p>
+<ul>
+<li>�^�[�Q�b�g�̃��\�b�h���Ē�`���������</li>
+<li>thread safe mode ���f�t�H���g��</li>
+<li>thread_safe ���\�b�h��p�~</li>
+<li>single_thread_mode ���\�b�h��lj�</li>
+</ul>
+<p>0.51 (2002.10.09)</p>
+<ul>
+<li>���\�b�h�̃p�����[�^�̓W�J�E�W��̗}�� (Import_Module)</li>
+</ul>
+<p>0.50 (2002.10.03)</p>
+<ul>
+<li>scope-in-state �̑㗝�p���p�^�[���̎����� (Import_Module)</li>
+<li>stack �� alias �x�[�X���烂�W���[���̔z��x�[�X�ɕύX (Import_Module_Single_Thread)</li>
+<li>$IMPORT_MODULE_thread_safe �̔p�~</li>
+<li>Import_Module.thread_safe �̓���</li>
+<li>Super �@�\���~</li>
+</ul>
+
+</body>
+</html>