multiblocks 0.1.0

data/test/demo.rb

@@ -0,0 +1,114 @@
+require 'multiblocks'
+
+  # run with "demo" as an argument to see how it works and see the
+  # #demo method in the "if $0 == __FILE__" part for a simple example
+  # of usage (you can pass also a numeric argument)
+
+  # asks for key-block pairs, then executes blocks in the order of the keys
+  class PermuteBlocks
+    callgroup(:do,:&)
+    def sanitizer
+      grpargv[-1][1].size == 1 and grpargv[-1][2]
+    end
+    grp_finalizer :end do 
+      grpargv.sort_by {|a| a[1]}.each {|a| a[2][] }
+    end
+  end
+  
+  # composes passed blocks (one's result is fed to the next one)    
+  class Composer
+    callgroup(:do,:o)
+    def sanitizer
+      grpargv[-1][1].empty? and grpargv[-1][2]
+    end
+    grp_finalizer :end do |x| 
+      grpargv.each {|a|
+        x=a[2][x]
+      }
+      x
+    end
+  end
+
+if __FILE__ == $0
+
+  do_demo = $*.delete "demo"
+
+  $n = ($*[0] || 2).to_i 
+
+  def demo
+    PermuteBlocks.new.do(2){puts "a"}.&(1){puts "b"}.&(3){puts "c"}.end
+    print "This is how PermuteBlocks' callgroups look like:\n "
+    p PermuteBlocks.callgroups
+
+    print "(#{$n}+1)**2 - 1 = "
+    p Composer.new.do{|x| x + 1}.o{|x| x*x}.o{|x| x-1}.end($n)
+  end
+
+  if do_demo
+    demo
+    exit
+  end
+
+  require 'stringio'
+  $sou = StringIO.open("","w")
+
+  def sou_stdout
+    stdout_orig = $>
+    begin
+      $> =  $sou
+      yield
+    ensure
+      $> = stdout_orig
+    end
+  end
+
+  require "test/unit"
+
+  class Testie < Test::Unit::TestCase
+
+    def test_permute
+      sou_stdout do
+        PermuteBlocks.new.do(2){puts "a"}.&(1){puts "b"}.&(3){puts "c"}.end
+      end
+      assert_equal $sou.string, "b\na\nc\n"
+      assert_equal(
+         PermuteBlocks.callgroups, 
+         {:@grpargv=>{:sanitizer=>:sanitizer, :calls=>[:do, :&], :finalizers=>[:end]}}
+      )
+    end
+  
+    def test_composer
+      res = Composer.new.do{|x| x + 1}.o{|x| x*x}.o{|x| x-1}.end($n)
+      assert_equal res, ($n+1)**2-1
+    end
+  
+    def test_overwrite
+      c = Class.new PermuteBlocks
+      assert_equal PermuteBlocks.callgroups, c.callgroups
+      c.class_eval { callgroup :x }
+      assert_equal c.callgroups, {:@grpargv => { :calls=>[:x], :sanitizer=>:sanitizer }}
+    end      
+  
+    def test_inheritance
+      c = Class.new PermuteBlocks
+      assert_equal PermuteBlocks.callgroups, c.callgroups
+      c.class_eval {
+        import_callgroups
+        callgroup :x
+      }
+      assert_equal(
+        c.callgroups,
+        {:@grpargv=>{:sanitizer=>:sanitizer, :calls=>[:do, :&, :x], :finalizers=>[:end]}}
+      )
+    end
+  
+    def test_named_callgroup
+      c = Class.new  
+      c.class_eval { callgroup(:x) { %w(@foogrp insane) } }
+      assert_equal(
+        c.callgroups,
+        {:@foogrp=>{:sanitizer=>:insane, :calls=>[:x] }}
+      )
+    end    
+  end
+end

metadata

@@ -0,0 +1,51 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.1
+specification_version: 1
+name: multiblocks
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+date: 2005-03-19
+summary: multiblocks is a framework for emulating Smalltalk-like method calls which can take more than one block parameter
+require_paths: 
+  - lib
+author: Csaba Henk
+email: csaba-ruby@creo.hu
+homepage: http://www.creo.hu/~csaba/ruby/multiblocks
+rubyforge_project: multiblocks
+description: 
+autorequire: multiblocks
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+    - 
+      - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+  version: 
+platform: ruby
+files: 
+  - "."
+  - "./makedoc.rb"
+  - "./Changelog"
+  - "./multiblocks.gemspec"
+  - "./examples"
+  - "./examples/method_if.rb"
+  - "./examples/README"
+  - "./setup.rb"
+  - "./README"
+  - "./multiblocks-0.1.0.gem"
+  - "./test"
+  - "./test/demo.rb"
+  - "./lib"
+  - "./lib/multiblocks.rb"
+test_files: 
+  - test/demo.rb
+rdoc_options: 
+  - "-a"
+extra_rdoc_files: []
+executables: []
+extensions: []
+requirements: []
+dependencies: []