rb_delimcc 0.0.2

data/LICENSE

@@ -0,0 +1,25 @@
+Copyright (c) 2010, Steffen Siering
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+    * Redistributions in binary form must reproduce the above copyright
+      notice, this list of conditions and the following disclaimer in the
+      documentation and/or other materials provided with the distribution.
+    * Neither the name of Steffen Siering nor the
+      names of its contributors may be used to endorse or promote products
+      derived from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> BE LIABLE FOR ANY
+DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+

data/examples/testcc.rb

@@ -0,0 +1,56 @@
+
+require 'rubygems'
+
+require 'delimcc'
+include DelimCC
+
+p 'test 1'
+tmp = reset { 2 * shift { |k| k.call(k.call(k.call 4)) }} + 1
+p tmp # 33
+
+p 'test 2'
+reset do
+    p 1
+end 
+# => 1
+
+p 'test 3'
+reset do
+    p 1
+    shift {}
+    p 2
+end
+# => 1
+
+p 'test 4'
+reset do
+    p 1
+    shift {
+        p 2
+    }
+    p 3
+end
+# => 1, 2
+
+p 'test 5'
+reset do
+    p 1
+    shift { |k|
+        k.call nil
+        p 2
+    }
+    p 3
+end
+# => 1, 3, 2
+
+p 'test 6'
+reset do
+    p 1
+    shift { |k|
+        k.call nil
+        k.call nil
+        p 2
+    }
+    p 3
+end
+# => 1, 3, 3, 2

data/lib/delimcc.rb

@@ -0,0 +1,44 @@
+
+module DelimCC
+    def metacc_get
+        tmp = Thread.current["__meta_cc__"]
+        if !tmp
+            proc { raise "not within a reset statement" }
+        else
+            tmp
+        end
+    end
+
+    def metacc_set(&meta_cont)
+        Thread.current["__meta_cc__"] = meta_cont
+    end
+
+
+    def abortcc(&blk)
+        value = blk.call
+        metacc_get.call value
+    end
+
+    def reset(&blk)
+        callcc do |cont|
+            meta_cont = metacc_get
+            metacc_set {|value|
+                metacc_set &meta_cont
+                cont.call value
+            }
+            abortcc &blk
+        end
+    end
+
+    def shift(&blk)
+        callcc do |cont|
+            abortcc do
+                blk.call proc {|value|
+                    reset { cont.call value }
+                }
+            end
+        end
+    end
+
+end
+

metadata

@@ -0,0 +1,64 @@
+--- !ruby/object:Gem::Specification 
+name: rb_delimcc
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 2
+  version: 0.0.2
+platform: ruby
+authors: 
+- Steffen Siering
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-03-24 00:00:00 +01:00
+default_executable: 
+dependencies: []
+
+description: 
+email: steffen <dot> siering -> gmail <dot> com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/delimcc.rb
+- examples/testcc.rb
+- LICENSE
+has_rdoc: true
+homepage: http://github.com/urso/rb_delimcc
+licenses: 
+- BDS3
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.6
+signing_key: 
+specification_version: 3
+summary: delimited continuations for ruby
+test_files: []
+