bunraku 3.0.0

data/examples/requires.rb

@@ -0,0 +1,50 @@
+
+require "bunraku"
+
+class Company
+  as_context
+  
+  class Employer
+    as_role
+    def pay(salary)
+      context.Employees.paid(salary)      
+    end
+  end
+
+  class Employee
+    as_role
+    requires do |req|
+      req.method? :deposit
+    end
+    
+    def paid(salary)
+      deposit(salary)
+    end
+  end
+end
+
+class Person
+  def initialize
+    @salary = 0
+  end
+  attr :salary
+  def deposit(salary)
+    @salary += salary
+  end
+end
+
+tnaka = Person.new
+sto = Person.new
+tkahashi = Person.new
+
+tdai = Company.new
+tdai.Employee.bind(tnaka)
+tdai.Employee.bind(sto)
+tdai.Employee.bind(tkahashi)
+tdai.Employer.bind(tkahashi)
+
+tkahashi.pay 100
+tkahashi.pay 150
+p tnaka.salary #=> 250
+p sto.salary #=> 250
+p tkahashi.salary #=> 250

data/examples/scope.rb

@@ -0,0 +1,63 @@
+
+require "bunraku"
+
+class Company
+  as_context
+  
+  class Employer
+    as_role
+    def pay(salary)
+      context.Employees.paid(salary)      
+    end
+  end
+
+  class Employee
+    as_role
+    def paid(salary)
+    end
+  end
+end
+
+class Person
+  def initialize
+    @salary = 0
+  end
+  attr :salary
+  def add_salary(salary)
+    @salary += salary
+  end
+end
+
+tnaka = Person.new
+sto = Person.new
+tkahashi = Person.new
+
+tdai = Company.new
+tdai.bind { |context|
+  context.Employee.bind(tnaka) do |b|
+    b.replace_to :paid, :add_salary
+  end
+  context.Employee.bind(sto) do |b|
+    b.def_method(:paid) do |salary|
+      add_salary(salary)
+    end
+  end
+  context.Employer.bind(tkahashi)
+}.call do
+  tkahashi.pay 100
+  tkahashi.pay 150
+  p tnaka.salary #=> 250
+  p sto.salary #=> 250
+end
+
+begin
+  tkahashi.pay 150
+rescue => ex
+  p ex #=> NoMethodError
+end
+
+begin
+  sto.paid 150
+rescue => ex
+  p ex #=> NoMethodError
+end

data/hacks/add_method_by_method_of_Class.rb

@@ -0,0 +1,18 @@
+
+class Class
+  private
+  def as_context
+    # self.class == Class
+    define_method(:bind) do
+      # self.class == object class
+      p self.class
+    end
+  end
+end
+
+class MyClass
+  as_context
+end
+
+o = MyClass.new
+o.bind

data/hacks/add_method_to_Class.rb

@@ -0,0 +1,12 @@
+
+class Class
+ def as_context
+   p "#{self.to_s} as context"
+ end
+end
+
+class MyClass
+  as_context
+end
+
+MyClass.as_context

data/hacks/add_method_with_local_context.rb

@@ -0,0 +1,27 @@
+
+def add_method(obj, name, &block)
+  mod = Module.new
+  mod.instance_eval do
+    define_method(name, &block)
+  end
+  obj.extend(mod)
+end
+
+obj0 = Object.new
+obj = Object.new
+
+family = "yamada"
+add_method(obj, :foo) do |name|
+  p "Hello " + name + " " + family
+end
+
+obj.foo("taro")
+
+family = "tanaka"
+obj.foo("jiro")
+
+begin
+  obj0.foo("saburo")
+rescue
+  p "method foo not found"
+end

data/hacks/anonymous_method.rb

@@ -0,0 +1,37 @@
+
+def anonymous_method(obj, &block)
+  mod = Module.new
+  name = "__foo__"
+  mod.instance_eval do
+    define_method(name, &block)
+  end
+  obj.extend(mod)
+  meth = obj.method(name)
+  mod.instance_eval do
+    undef_method(name, &block)
+  end
+  meth
+end
+
+class Foo 
+  def initialize(mid)
+    @mid = mid
+  end
+end
+
+obj = Foo.new("J")
+
+family = "yamada"
+m1 = anonymous_method(obj) do |name|
+  p "Hello " + name + " " + @mid + " " + family
+end
+m2 = anonymous_method(obj) do |name|
+  p "Bye " + name + " " + @mid + " " + family
+end
+
+m1.call("taro")
+
+family = "amada"
+m2.call("jiro")
+
+p obj.methods

data/hacks/class_creation_events.rb

@@ -0,0 +1,45 @@
+
+class Class
+  def method_added(name)
+    p "method added " + name.to_s + " on " + self.to_s
+  end
+  def method_removed(name)
+    p "method removed " + name.to_s + " on " + self.to_s
+  end
+  def method_undefined(name)
+    p "method undefined " + name.to_s + " on " + self.to_s
+  end
+end
+
+class SClass
+  def singleton_method_added(name)
+    p "singleton method added " + name.to_s + " on " + self.to_s
+  end
+  def singleton_method_removed(name)
+    p "method removed " + name.to_s + " on " + self.to_s
+  end
+  def singleton_method_undefined(name)
+    p "singleton method undefined " + name.to_s + " on " + self.to_s
+  end
+end
+
+class MyClass < SClass
+  def foo
+  end
+  def bar
+  end
+  def buzz
+  end
+end
+
+o = MyClass.new
+o.class.instance_eval do
+  undef_method :foo
+end
+class << o
+  undef :bar
+  undef_method :buzz
+  def hoge
+  end
+end
+

data/hacks/get_nested_class.rb

@@ -0,0 +1,22 @@
+
+class Class
+  def as_context
+    define_method(:method_missing) do |name, *args|
+      self.class.const_get(name)
+    end
+  end
+end
+
+class MyClass
+  as_context
+  
+  class E1
+  end
+  
+  class E2
+  end
+end
+
+o = MyClass.new
+p o.E1
+

data/hacks/hook_method.rb

@@ -0,0 +1,50 @@
+
+def hook(obj)
+  cache_methods = {}
+  obj.methods.each do |name|
+    cache_methods[name.to_sym] = obj.method(name)
+  end
+  mod = Module.new
+  mod.instance_eval do
+    cache_methods.each_key do |name|
+      define_method(name) do |*args|
+        self.method_missing(name, *args)
+      end
+    end
+    define_method(:method_missing) do |name, *args|
+      p "call #{name}"
+      m = cache_methods[name]
+      return m.call(*args) if m
+      super(name, *args)
+    end
+  end
+  obj.extend(mod)
+  mod
+end
+
+def unhook(mod)
+  names = mod.instance_methods
+  mod.instance_eval do
+    names.each do |name|
+      define_method(name.to_sym) do |*args|
+        super(*args)
+      end
+    end
+  end
+  nil
+end
+
+
+class Foo
+  def foo(name)
+    p "hello #{name}" 
+  end
+end
+
+obj = Foo.new
+m = hook(obj)
+
+obj.foo("taro")
+
+unhook(m)
+obj.foo("jiro")

data/hacks/method_missing_chain.rb

@@ -0,0 +1,33 @@
+
+module Module1
+  def method_missing(name, *args)
+    p "Module 1"
+    super(name, *args)
+  end
+end
+
+
+module Module2
+  def method_missing(name, *args)
+    p "Module 2"
+    super(name, *args)
+  end
+end
+
+
+module Module3
+  def method_missing(name, *args)
+    p "Module 3"
+    super(name, *args)
+  end
+end
+
+obj = Object.new
+obj.extend(Module1)
+obj.extend(Module2)
+obj.extend(Module3)
+
+begin
+  obj.foo
+rescue
+end

data/hacks/method_missing_chain_override.rb

@@ -0,0 +1,39 @@
+
+module Module1
+  def method_missing(name, *args)
+    p "Module 1"
+    super(name, *args)
+  end
+end
+
+
+module Module2
+  def method_missing(name, *args)
+    p "Module 2"
+    super(name, *args)
+  end
+end
+
+
+module Module3
+  def method_missing(name, *args)
+    p "Module 3"
+    super(name, *args)
+  end
+end
+
+obj = Object.new
+obj.extend(Module1)
+obj.extend(Module2)
+obj.extend(Module3)
+
+module Module2
+  def method_missing(name, *args)
+    super(name, *args)
+  end
+end
+
+begin
+  obj.foo
+rescue
+end

data/hacks/pluralize.rb

@@ -0,0 +1,24 @@
+# needs rubygems and rails activesupport 
+require "rubygems"
+gem "activesupport"
+require "active_support/inflector"
+
+include Inflector
+
+p (pluralize "Employee")
+p (pluralize "Employer")
+p (singularize "Employees")
+p (singularize "Employers")
+
+require "active_support/core_ext/string/inflections"
+class String
+  include ActiveSupport::CoreExtensions::String::Inflections
+end
+
+p "Employer".pluralize
+p "Employee".pluralize
+p "Employers".singularize
+p "Employees".singularize
+
+p "stewardess".pluralize
+p "stewardesses".singularize

data/lib/bunraku.rb

@@ -0,0 +1,3 @@
+Dir[File.join(File.dirname(__FILE__), 'bunraku/**/*.rb')].sort.each do |lib| 
+  require lib 
+end

data/lib/bunraku/base.rb

@@ -0,0 +1,9 @@
+
+require "rubygems"
+gem "activesupport"
+
+require "active_support/core_ext/string/inflections"
+class String
+  include ActiveSupport::CoreExtensions::String::Inflections
+end
+