nkpart-prohax 1.0.2 → 1.0.3

data/Manifest.txt

@@ -7,12 +7,16 @@ coverage/index.html
 coverage/lib-prohax-box_rb.html
 coverage/lib-prohax-either_rb.html
 coverage/lib-prohax-let_in_rb.html
+coverage/lib-prohax-metaclass_rb.html
 coverage/lib-prohax-strucked_rb.html
 coverage/lib-prohax_rb.html
 lib/prohax.rb
 lib/prohax/box.rb
 lib/prohax/either.rb
 lib/prohax/let_in.rb
+lib/prohax/metaclass.rb
+lib/prohax/patches/enumerable.rb
+lib/prohax/patches/symbol.rb
 lib/prohax/strucked.rb
 prohax.gemspec
 script/console

data/README.txt

@@ -11,8 +11,17 @@ Just some hax that I use.
 * Let-in - a neat syntax that's a bit like haskell. Contents of the hash supplied to `let()`
   are defined as functions on a container, on which the block passed to `in` is instance_eval'd with.
 
- let( :awesome => proc { |n| "#{n} is awesome." }).in { [1,2,3].map { |e|  awesome(e) }
+  let( :awesome => proc { |n| "#{n} is awesome." }).in { [1,2,3].map { |e|  awesome(e) }
+ 
+  It can also be used to create mini dsl things like this:
+ 
+  def add a
+    let(:to => proc { |b| b + a })
+  end
 
+  add(5).to(3) # <= 8  
+  
+  
 * Strucked - a class builder, that just instantiates instance vars
   
   # before
@@ -27,6 +36,12 @@ Just some hax that I use.
   class Foo < Strucked.build(:a, :b)
   end
   
+  # with readers
+  class Foo < Strucked.build(:a, :b).with_readers
+  end
+  
+  Foo.new(5, 10).a # <= 5
+  
 * Kernel#either - a kind of either-like thing.
 
   # If no exceptions are thrown, `failure` will be nil and `success` will be the result of the block.
@@ -39,12 +54,6 @@ Just some hax that I use.
   success, failure = either { 5 }
   success # <= 5
   
-
-
-== SYNOPSIS:
-
-  FIX (code sample of usage)
-
 == LICENSE:
 
 (The MIT License)

data/lib/prohax.rb

@@ -1,7 +1,7 @@
 $: << File.expand_path(File.dirname(__FILE__))
 
 module Prohax
-  VERSION = '1.0.2'
+  VERSION = '1.0.3'
 end
 
 require 'prohax/strucked'

data/lib/prohax/let_in.rb

@@ -1,12 +1,6 @@
-require 'prohax/strucked'
+require 'prohax/metaclass'
 
 class LetInContainer
-  def metaclass
-    class <<self
-      self
-    end
-  end
-  
   def initialize defines
     defines.each do |key, value|
       if value.respond_to? :call then

data/lib/prohax/metaclass.rb

@@ -0,0 +1,7 @@
+class Object
+  def metaclass
+    class <<self
+      self
+    end
+  end
+end

data/lib/prohax/patches/enumerable.rb

@@ -0,0 +1,44 @@
+module Enumerable
+  def index_by &key_function
+    inject({}) do |accum, elem|
+      accum[key_function.call(elem)] = elem
+      accum
+    end
+  end
+
+  def as_index_for &value_function
+    inject({}) do |accum, elem|
+      accum[elem] = value_function.call(elem)
+      accum
+    end
+  end
+
+  def take_while &pred
+    result = []
+    each do |elem|
+      if (!pred.call(elem))
+        return result
+      end
+      result << elem
+    end
+  end
+
+  def group_by &key_function
+    inject(Hash.new { |h,k| h[k] = [] }) do |hsh,elem|
+      hsh[key_function.call(elem)] << elem
+      hsh
+    end
+  end
+
+  def grepv re
+    select { |s| s !~ re }
+  end
+
+  def zip_with arr, &blk
+    zip(arr).map(&blk)
+  end
+
+  def inject_with sym
+    inject { |a, b| a.send(sym, b) }
+  end
+end

data/lib/prohax/patches/symbol.rb

@@ -0,0 +1,5 @@
+class Symbol
+  def to_proc
+    proc { |x| x.send(self) }
+  end
+end

data/lib/prohax/strucked.rb

@@ -2,26 +2,34 @@
 class Strucked
   def self.build *fields
     cls = Class.new
-    cls.class_eval <<EOS
+    cls.class_eval <<-EOS
       def self.fields
         #{fields.inspect}
       end
+    EOS
+    cls.class_eval {
+      def self.with_readers
+        fields.each do |f|
+          attr_reader f
+        end
+        self
+      end
       
       def initialize *values
         if self.class.fields.size != values.size
-          raise ArgumentError.new("Wrong number of arguments, expected \#\{self.class.fields.size\} got \#\{values.size\}")
+          raise ArgumentError.new("Wrong number of arguments, expected #{self.class.fields.size} got #{values.size}")
         end
         self.class.fields.zip(values).each do |fld, value|
-          self.instance_variable_set("@\#\{fld\}", value)
+          self.instance_variable_set("@#{fld}", value)
         end
       end
       
       def == other
         self.class.fields.inject(true) do |memo, f|
-          memo && (self.instance_variable_get("@\#\{f\}") == other.instance_variable_get("@\#\{f\}"))
+          memo && (self.instance_variable_get("@#{f}") == other.instance_variable_get("@#{f}"))
         end
       end
-EOS
+    }
     cls
   end
 end

data/prohax.gemspec

@@ -2,15 +2,15 @@
 
 Gem::Specification.new do |s|
   s.name = %q{prohax}
-  s.version = "1.0.2"
+  s.version = "1.0.3"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["Nick Partridge"]
-  s.date = %q{2008-11-27}
+  s.date = %q{2008-12-10}
   s.description = %q{}
   s.email = ["nkpart@gmail.com"]
   s.extra_rdoc_files = ["History.txt", "Manifest.txt", "PostInstall.txt", "README.txt"]
-  s.files = ["History.txt", "Manifest.txt", "PostInstall.txt", "README.txt", "Rakefile", "coverage/index.html", "coverage/lib-prohax-box_rb.html", "coverage/lib-prohax-either_rb.html", "coverage/lib-prohax-let_in_rb.html", "coverage/lib-prohax-strucked_rb.html", "coverage/lib-prohax_rb.html", "lib/prohax.rb", "lib/prohax/box.rb", "lib/prohax/either.rb", "lib/prohax/let_in.rb", "lib/prohax/strucked.rb", "prohax.gemspec", "script/console", "script/destroy", "script/generate", "spec/box_spec.rb", "spec/either_spec.rb", "spec/let_in_syntax_spec.rb", "spec/spec.opts", "spec/spec_helper.rb", "spec/strucked_spec.rb", "tasks/rspec.rake", "test_gem.sh"]
+  s.files = ["History.txt", "Manifest.txt", "PostInstall.txt", "README.txt", "Rakefile", "coverage/index.html", "coverage/lib-prohax-box_rb.html", "coverage/lib-prohax-either_rb.html", "coverage/lib-prohax-let_in_rb.html", "coverage/lib-prohax-metaclass_rb.html", "coverage/lib-prohax-strucked_rb.html", "coverage/lib-prohax_rb.html", "lib/prohax.rb", "lib/prohax/box.rb", "lib/prohax/either.rb", "lib/prohax/let_in.rb", "lib/prohax/metaclass.rb", "lib/prohax/patches/enumerable.rb", "lib/prohax/patches/symbol.rb", "lib/prohax/strucked.rb", "prohax.gemspec", "script/console", "script/destroy", "script/generate", "spec/box_spec.rb", "spec/either_spec.rb", "spec/let_in_syntax_spec.rb", "spec/spec.opts", "spec/spec_helper.rb", "spec/strucked_spec.rb", "tasks/rspec.rake", "test_gem.sh"]
   s.has_rdoc = true
   s.homepage = %q{http://github.com/nkpart/prohax}
   s.rdoc_options = ["--main", "README.txt"]

data/spec/strucked_spec.rb

@@ -37,6 +37,10 @@ describe Strucked do
     q = f.new 5
     p.should == q
   end
-
+  
+  it "should have a chainable with_readers method" do
+    c = Strucked.build(:a).with_readers
+    c.new(5).a.should == 5
+  end
 end
 

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: nkpart-prohax
 version: !ruby/object:Gem::Version 
-  version: 1.0.2
+  version: 1.0.3
 platform: ruby
 authors: 
 - Nick Partridge
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2008-11-27 00:00:00 -08:00
+date: 2008-12-10 00:00:00 -08:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -43,12 +43,16 @@ files:
 - coverage/lib-prohax-box_rb.html
 - coverage/lib-prohax-either_rb.html
 - coverage/lib-prohax-let_in_rb.html
+- coverage/lib-prohax-metaclass_rb.html
 - coverage/lib-prohax-strucked_rb.html
 - coverage/lib-prohax_rb.html
 - lib/prohax.rb
 - lib/prohax/box.rb
 - lib/prohax/either.rb
 - lib/prohax/let_in.rb
+- lib/prohax/metaclass.rb
+- lib/prohax/patches/enumerable.rb
+- lib/prohax/patches/symbol.rb
 - lib/prohax/strucked.rb
 - prohax.gemspec
 - script/console