bunraku 3.0.0

data/Manifest.txt

@@ -0,0 +1,39 @@
+Manifest.txt
+README.txt
+Rakefile
+examples/corechain.rb
+examples/person.rb
+examples/person2.rb
+examples/person3.rb
+examples/rentalshop.rb
+examples/requires.rb
+examples/scope.rb
+hacks/add_method_by_method_of_Class.rb
+hacks/add_method_to_Class.rb
+hacks/add_method_with_local_context.rb
+hacks/anonymous_method.rb
+hacks/class_creation_events.rb
+hacks/get_nested_class.rb
+hacks/hook_method.rb
+hacks/method_missing_chain.rb
+hacks/method_missing_chain_override.rb
+hacks/pluralize.rb
+lib/bunraku.rb
+lib/bunraku/base.rb
+lib/bunraku/class_ext.rb
+lib/bunraku/core.rb
+lib/bunraku/exceptions.rb
+lib/bunraku/proxies.rb
+lib/bunraku/utils.rb
+lib/bunraku/version.rb
+scripts/makemanifest.rb
+scripts/uproadwebsite.sh
+setup.rb
+spec/def_context_spec.rb
+spec/interaction_spec.rb
+spec/require_spec.rb
+spec/role2_spec.rb
+spec/role_spec.rb
+test/test_bunraku.rb
+test/test_helper.rb
+website/index.html

data/README.txt

@@ -0,0 +1,25 @@
+= Bunraku:
+
+role model programming library for ruby
+
+== usage:
+ * see examples/*.rb
+
+== requires:
+it supports rails environments
+(now depends on gems)
+ * rubygems
+   * http://rubyforge.org/projects/rubygems
+ * activesupport on gems
+   * http://rubyforge.org/projects/activesupport
+
+== other resource:
+
+ * setup.rb
+  * http://i.loveruby.net/ja/projects/setup/
+ * rake
+  * http://rake.rubyforge.org/
+ * hoe
+  *  http://seattlerb.rubyforge.org/hoe/
+ * rspec
+  * http://rspec.rubyforge.org/

data/Rakefile

@@ -0,0 +1,93 @@
+require 'rubygems'
+require 'rake'
+require 'rake/clean'
+require 'rake/testtask'
+require 'rake/packagetask'
+require 'rake/gempackagetask'
+require 'rake/rdoctask'
+require 'rake/contrib/rubyforgepublisher'
+require 'fileutils'
+require 'hoe'
+include FileUtils
+require File.join(File.dirname(__FILE__), 'lib', 'bunraku', 'version')
+
+AUTHOR = "ichiyama"  # can also be an array of Authors
+EMAIL = "your contact email for bug fixes and info"
+DESCRIPTION = "description of gem"
+GEM_NAME = "bunraku" # what ppl will type to install your gem
+RUBYFORGE_PROJECT = "bunraku" # The unix name for your project
+HOMEPATH = "http://#{RUBYFORGE_PROJECT}.rubyforge.org"
+
+
+NAME = "bunraku"
+REV = nil
+VERS = Bunraku::VERSION::STRING + (REV ? ".#{REV}" : "")
+
+RDOC_OPTS = ['--quiet', '--title', "bunraku documentation",
+    "--opname", "index.html",
+    "--line-numbers", 
+    "--main", "README",
+    "--inline-source"]
+
+class Hoe
+  def extra_deps 
+    @extra_deps.reject { |x| Array(x).first == 'hoe' } 
+  end 
+end
+
+# Generate all the Rake tasks
+# Run 'rake -T' to see list of generated tasks (from gem root directory)
+hoe = Hoe.new(GEM_NAME, VERS) do |p|
+  p.author = AUTHOR 
+  p.description = DESCRIPTION
+  p.email = EMAIL
+  p.summary = DESCRIPTION
+  p.url = HOMEPATH
+  p.rubyforge_name = RUBYFORGE_PROJECT if RUBYFORGE_PROJECT
+  p.test_globs = ["test/**/*_test.rb"]
+  p.clean_globs = CLEAN  #An array of file patterns to delete on clean.
+  p.extra_deps = [['active_support']]
+  
+  # == Optional
+  #p.changes        - A description of the release's latest changes.
+  #p.extra_deps     - An array of rubygem dependencies.
+  #p.spec_extras    - A hash of extra values to set in the gemspec.
+end
+
+# without gem
+hoe.instance_eval do
+  desc 'Package and upload the release to rubyforge.'
+  task :release => [:clean, :package] do |t|
+    v = ENV["VERSION"] or abort "Must supply VERSION=x.y.z"
+    abort "Versions don't match #{v} vs #{version}" if v != version
+    pkg = "pkg/#{name}-#{version}"
+    
+    rf = RubyForge.new
+    puts "Logging in"
+    rf.login
+    
+    c = rf.userconfig
+    c["release_notes"] = description if description
+    c["release_changes"] = changes if changes
+    c["preformatted"] = true
+    
+    files = [(@need_tar ? "#{pkg}.tgz" : nil),
+             (@need_zip ? "#{pkg}.zip" : nil),
+            ].compact
+    
+    puts "Releasing #{name} v. #{version}"
+    rf.add_release rubyforge_name, name, version, *files
+  end
+end
+
+begin
+  gem "rspec"
+  require 'spec/rake/spectask'
+  desc "Run all specs"
+  Spec::Rake::SpecTask.new('runspecs') do |t|
+    t.libs << "lib"
+    t.libs << "spec"
+    t.spec_files = FileList['spec/**/*.rb']
+  end
+ensure
+end

data/examples/corechain.rb

@@ -0,0 +1,46 @@
+
+require "bunraku"
+
+class ContextA
+  as_context
+  class RoleA
+    as_role
+    def foo
+      puts "ContextA::RoleA"
+      core.foo()
+    end
+    def bar
+      foo
+    end
+  end
+  class RoleB
+    as_role
+    def foo
+      puts "ContextA::RoleB"
+      core.foo()
+    end
+    def bar
+      foo
+    end
+  end
+end
+
+class MyObj
+  def foo
+    puts "MyObj"
+  end
+end
+
+
+o = MyObj.new
+ca = ContextA.new
+puts "[bind two roles]"
+ca.RoleA.bind(o)
+ca.RoleB.bind(o)
+# print 3 lines
+o.bar
+puts "[unbind one role]"
+ca.RoleA.unbind(o)
+# print 2 lines
+o.bar
+

data/examples/person.rb

@@ -0,0 +1,67 @@
+
+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.Employee.bind(tnaka) do |b|
+  b.replace_to :paid, :add_salary
+end
+
+tdai.Employee.bind(sto) do |b|
+  b.def_method(:paid) do |salary|
+    add_salary(salary)
+  end
+end
+
+tdai.Employer.bind(tkahashi)
+
+tkahashi.pay 100
+tkahashi.pay 150
+p tnaka.salary #=> 250
+p sto.salary #=> 250
+
+tdai.Employer.unbind(tkahashi)
+tdai.Employee.unbind(sto)
+tdai.Employee.unbind(tnaka)
+
+begin
+  tkahashi.pay 150
+rescue => ex
+  p ex #=> NoMethodError
+end
+
+begin
+  sto.paid 150
+rescue => ex
+  p ex #=> NoMethodError
+end

data/examples/person2.rb

@@ -0,0 +1,62 @@
+
+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.Employee.bind(tnaka) do |b|
+  b.replace_to :paid, :add_salary
+end
+
+tdai.Employee.bind(sto) do |b|
+  b.def_method(:paid) do |salary|
+    add_salary(salary)
+  end
+end
+
+tdai.Employee.bind(tkahashi) do |b|
+  b.def_method(:paid) do |salary|
+    add_salary(salary)
+  end
+end
+tdai.Employer.bind(tkahashi)
+
+tkahashi.pay 100
+tkahashi.pay 150
+p tnaka.salary #=> 250
+p sto.salary #=> 250
+p tkahashi.salary #=> 250
+
+tdai.Employee.unbind(tnaka)
+tdai.Employee.unbind(sto)
+tdai.Employee.unbind(tkahashi)
+tdai.Employer.unbind(tkahashi)

data/examples/person3.rb

@@ -0,0 +1,72 @@
+
+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.Employee.bind(tnaka) do |b|
+  b.replace_to :paid, :add_salary
+end
+
+tdai.Employee.bind(sto) do |b|
+  b.def_method(:paid) do |salary|
+    add_salary(salary)
+  end
+end
+
+tdai.Employer.bind(tkahashi)
+
+kdai = Company.new
+kdai.Employee.bind(tkahashi) do |b|
+  b.replace_to :paid, :add_salary
+end
+kdai.Employer.bind(sto)
+
+
+tkahashi.pay 100
+tkahashi.pay 150
+p tnaka.salary #=> 250
+p sto.salary #=> 250
+p tkahashi.salary #=> 0
+sto.pay(100)
+p tnaka.salary #=> 250
+p sto.salary #=> 250
+p tkahashi.salary #=> 100
+
+
+tdai.Employee.unbind(tnaka)
+tdai.Employee.unbind(sto)
+tdai.Employer.unbind(tkahashi)
+
+kdai.Employee.unbind(tkahashi)
+kdai.Employer.unbind(sto)

data/examples/rentalshop.rb

@@ -0,0 +1,127 @@
+
+# from
+# http://www.graco.c.u-tokyo.ac.jp/~tamai/pub/epsilon/examples/company.txt
+# and
+# http://www.graco.c.u-tokyo.ac.jp/~tamai/pub/epsilon/examples/rentalshop.txt
+
+require "bunraku"
+module RentalShopSystem
+  class Person
+    def initialize(inheritance)
+      @balance = inheritance
+    end
+    def earn(i)
+      @balance += i
+    end
+    def spend(i)
+      @balance -= i
+    end
+    def say
+      puts "Person(balance = " + @balance.to_s + ")"
+    end
+  end
+
+  context :Companey do
+    def initialize(basePay, upPay)
+      @base = basePay
+      @up = upPay
+    end
+    attr :base
+    attr :up
+    
+    role :Employee do
+      requires do |req|
+        req.method? :deposit
+      end
+      
+      def init_role
+        @salary = context.base
+      end
+      
+      def getSalary
+        deposit(@salary)
+      end
+      
+      def promoted
+        @salary += context.up
+      end
+    end
+    
+    role :Employer do
+      def pay
+        context.Employees.getSalary
+      end
+      
+      def promote(e)
+        e.promoted
+      end
+    end
+  end
+
+  context :RentalShop do
+    @@max = 5
+    
+    def initialize(rentalRate)
+      @rate = rentalRate
+    end
+    attr :rate
+    
+    role :Client do
+      requires do |req|
+        req.method? :pay
+      end
+      
+      def init_role
+        @count = 0
+      end
+      def rent(n)
+        if @count + n <= @@max
+          pay(n * context.rate)
+          @count += n
+        else
+          m = @@max - n
+          pay(m * context.rate)
+          @count = m
+        end
+      end
+    end
+  end
+  
+  
+  def self.companeyTodai
+    todai = Companey.new(100, 10)
+    tanaka = Person.new(100)
+    suzuki = Person.new(200)
+    sasaki = Person.new(1000)
+    todai.Employer.bind(sasaki)
+    todai.Employee.bind(tanaka) do |b|
+      b.replace_to :deposit, :earn
+    end
+    todai.Employee.bind(suzuki) do |b|
+      b.replace_to :deposit, :earn
+    end
+    sasaki.promote(tanaka)
+    sasaki.pay
+    
+    tanaka.say # => Person(balance = 210)  # 100 + (100 + 10)
+    suzuki.say # => Person(balance = 300)  # 200 + 100
+    sasaki.say # => Person(balance = 1000) # 1000 
+  end
+  
+  def self.lifeTanaka
+    todai = Companey.new(100, 10)
+    tanaka = Person.new(100)
+    todai.Employee.bind(tanaka) do |b|
+      b.replace_to :deposit, :earn
+    end
+    tsutaya = RentalShop.new(5)
+    tsutaya.Client.bind(tanaka) do |b|
+      b.replace_to :pay, :spend
+    end
+    tanaka.rent(3)
+    tanaka.say #=> Person(balance = 85) # 100 - 5 * 3
+  end
+  
+  companeyTodai
+  lifeTanaka
+end