pervasives 1.0.0 → 1.1.0

data/README

@@ -4,8 +4,8 @@ NAME
 
 SYNOPSIS
 
-  access to pristine object state.  if you don't metaprogram you probably
-  don't need it
+  access to pristine object state.  if you don't metaprogram or write
+  debuggers you probably don't need it.
 
 INSTALL
 
@@ -16,6 +16,18 @@ URIS
   http://rubyforge.org/projects/codeforpeople/
   http://codeforpeople.com/lib/ruby
 
+HISTORY
+
+  1.1.0
+
+    added Pervasives.call method, refactored a bit, updated samples, updated
+    tests for new api
+
+  1.0.0
+
+    is NOT backward compatible with any other pervasives version.  the new
+    library is __greatly__ simplified
+
 SAMPLES
 
   <========< samples/a.rb >========>
@@ -23,60 +35,31 @@ SAMPLES
   ~ > cat samples/a.rb
 
     #
-    # Pervasives allows objects' method to be accessed in a pristine state, even
-    # when some effort has been made to derride them
+    # Pervasives allows an object's methods to be accessed in a pristine state,
+    # even when some effort has been made to derride them
     #
       require 'pervasives'
     
-      class OpenStruct 
+      class BlankSlate
         instance_methods.each{|m| undef_method m unless m[%r/__/]}
-    
-        def initialize
-          @table = {}
-        end
-    
-        def method_missing m, *a, &b
-          case m.to_s
-            when %r/[=]$/
-              @table[m.to_s.delete('=')] = a.shift
-            when %r/[?!]$/
-              !!@table[m.to_s.delete('?!')]
-            else
-              @table[m.to_s]
-          end
-        end
-    
-        def inspect
-          @table.inspect
-        end
       end
     
-      os = OpenStruct.new
-    
-      os.object_id = 42
-      os.send = 42
-      os.instance_eval = 42
+      bs = BlankSlate.new
     
-      p os
+      p Pervasives(bs).methods #=> ["__object_pervasive__", "__id__", "__send__", "__pervasive__"]
     
-      p os.object_id
-      p Pervasives.object_id(os)
+      p Pervasives(bs).is_a?(BlankSlate) #=> true
     
-      p os.send
-      p Pervasives.send(os, "key=", "value")
+      p Pervasives(bs).instance_eval{ @a = 42 } #=> 42
     
-      p os.instance_eval
-      p Pervasives.instance_eval(os){ @table }
+      p Pervasives(bs).instance_variables #=> ["@a"]
 
   ~ > ruby samples/a.rb
 
-    {"instance_eval"=>42, "send"=>42, "object_id"=>42}
-    42
-    174950
+    ["__pervasive__", "__id__", "__send__"]
+    true
     42
-    "value"
-    42
-    {"instance_eval"=>42, "send"=>42, "key"=>"value", "object_id"=>42}
+    ["@a"]
 
 
   <========< samples/b.rb >========>
@@ -84,28 +67,24 @@ SAMPLES
   ~ > cat samples/b.rb
 
     #
-    # sometimes it may be more convenient to use a Pervasives::Proxy object
-    # insteand of using Pervasives directly
+    # the special method __pervasive__ is added to all objects - it can be used to
+    # access the pristine state 
     #
       require 'pervasives'
     
-      class BlankSlate
-        instance_methods.each { |m| undef_method m unless m =~ /^__/ }
-    
-        def object_id() 42 end
+      class C
+        def instance_eval(*a, &b) raise end 
       end
     
-      bs = BlankSlate.new
+      c = C.new
     
-      proxy = Pervasives::Proxy.new bs
+      c.__pervasive__(:instance_eval){ @a = 42 }
     
-      p bs.object_id
-      p proxy.object_id 
+      p c.instance_variables #=> ["@a"]
 
   ~ > ruby samples/b.rb
 
-    42
-    177470
+    ["@a"]
 
 
   <========< samples/c.rb >========>
@@ -113,24 +92,32 @@ SAMPLES
   ~ > cat samples/c.rb
 
     #
-    # the special '__' method accesses an object's Pervasives::Proxy
+    # even if hackery removes the __pervasive__ method you can still call a
+    # pristine method on an object 
     #
       require 'pervasives'
     
-      class BlankSlate
-        instance_methods.each { |m| undef_method m unless m =~ /^__/ }
-        def object_id() 42 end
+      class VeryBlankSlate
+        instance_methods.each{ |m| undef_method m }
       end
     
-      bs = BlankSlate.new
+      vbs = VeryBlankSlate.new
+    
+      begin
+        vbs.__pervasive__
+      rescue
+        'nope not even that'
+      end
+    
+      Pervasives.call(vbs, :instance_eval){ @a = 42 }
     
-      p bs.object_id
-      p __(bs){ object_id  }
+      p Pervasives.call(vbs, :instance_variables) #=> ["@a"]
 
   ~ > ruby samples/c.rb
 
-    42
-    177540
+    samples/c.rb:8: warning: undefining `__id__' may cause serious problem
+    samples/c.rb:8: warning: undefining `__send__' may cause serious problem
+    ["@a"]
 
 
   <========< samples/d.rb >========>
@@ -138,22 +125,21 @@ SAMPLES
   ~ > cat samples/d.rb
 
     #
-    # it all works for classes too
+    # of course it works for classes and modules too 
     #
       require 'pervasives'
     
       class C
         def self.new() raise end
-        def inspect() 42 end
+      
+        def inspect() 42.inspect end
       end
     
-      p( Pervasives.new(C) )
-      p( Pervasives::Proxy.new(C).new )
-      p( __(C).new )
+      c = C.__pervasive__ :new
+    
+      p c #=> 42
 
   ~ > ruby samples/d.rb
 
     42
-    42
-    42
 

data/README.tmpl

@@ -4,8 +4,8 @@ NAME
 
 SYNOPSIS
 
-  access to pristine object state.  if you don't metaprogram you probably
-  don't need it
+  access to pristine object state.  if you don't metaprogram or write
+  debuggers you probably don't need it.
 
 INSTALL
 
@@ -18,6 +18,11 @@ URIS
 
 HISTORY
 
+  1.1.0
+
+    added Pervasives.call method, refactored a bit, updated samples, updated
+    tests for new api
+
   1.0.0
 
     is NOT backward compatible with any other pervasives version.  the new

data/lib/pervasives-1.1.0.rb

@@ -0,0 +1,52 @@
+module Pervasives
+  VERSION = "1.1.0"
+  def self.version() VERSION end
+
+  Methods = Hash.new{|h,k| h[k] = {}}
+
+  [Class, Module, Object].each do |type|
+    type.instance_methods.each do |m|
+      Methods[type]["#{ m }"] = type.instance_method m
+    end
+  end
+
+  def self.call o, m, *a, &b
+    list = 
+      case o
+        when Class then [Class, Module, Object]
+        when Module then [Module, Object]
+        when Object then [Object]
+      end
+    type = list.detect{|type| Methods[type]["#{ m }"]} 
+    m = Methods[type]["#{ m }"]
+    ( m ).bind( o ).call( *a, &b )
+  end
+
+  class ::Object
+    def __pervasive__ m, *a, &b
+      Pervasives.call self, m, *a, &b
+    end
+  end
+
+  class Proxy
+    instance_methods.each{|m| undef_method m unless m[%r/__/]}
+
+    def initialize obj
+      @obj = obj
+    end
+
+    def method_missing m, *a, &b
+      Pervasives.call @obj, m, *a, &b
+    end
+  end
+
+  def self.new *a, &b
+    Proxy.new *a, &b
+  end
+
+  class ::Object
+    def Pervasives *a, &b
+      Proxy.new *a, &b
+    end
+  end
+end

data/lib/pervasives.rb

@@ -1,32 +1,52 @@
 module Pervasives
-  VERSION = "1.0.0"
+  VERSION = "1.1.0"
   def self.version() VERSION end
-  class ::Class 
-    def __pervasive__ m, *a, &b
-      (( Class.instance_method(m) rescue Module.instance_method(m) rescue Object.instance_method(m) )).bind(self).call(*a, &b)
+
+  Methods = Hash.new{|h,k| h[k] = {}}
+
+  [Class, Module, Object].each do |type|
+    type.instance_methods.each do |m|
+      Methods[type]["#{ m }"] = type.instance_method m
     end
   end
-  class ::Module 
-    def __pervasive__ m, *a, &b
-      (( Module.instance_method(m) rescue Object.instance_method(m) )).bind(self).call(*a, &b)
-    end
+
+  def self.call o, m, *a, &b
+    list = 
+      case o
+        when Class then [Class, Module, Object]
+        when Module then [Module, Object]
+        when Object then [Object]
+      end
+    type = list.detect{|type| Methods[type]["#{ m }"]} 
+    m = Methods[type]["#{ m }"]
+    ( m ).bind( o ).call( *a, &b )
   end
+
   class ::Object
     def __pervasive__ m, *a, &b
-      (( Object.instance_method(m) )).bind(self).call(*a, &b)
+      Pervasives.call self, m, *a, &b
     end
   end
 
   class Proxy
     instance_methods.each{|m| undef_method m unless m[%r/__/]}
+
     def initialize obj
       @obj = obj
     end
+
     def method_missing m, *a, &b
-      @obj.__pervasive__ m, *a, &b
+      Pervasives.call @obj, m, *a, &b
     end
-    def __obj__
-      @obj
+  end
+
+  def self.new *a, &b
+    Proxy.new *a, &b
+  end
+
+  class ::Object
+    def Pervasives *a, &b
+      Proxy.new *a, &b
     end
   end
 end

data/samples/a.rb

@@ -1,45 +1,19 @@
 #
-# Pervasives allows objects' method to be accessed in a pristine state, even
-# when some effort has been made to derride them
+# Pervasives allows an object's methods to be accessed in a pristine state,
+# even when some effort has been made to derride them
 #
   require 'pervasives'
 
-  class OpenStruct 
+  class BlankSlate
     instance_methods.each{|m| undef_method m unless m[%r/__/]}
-
-    def initialize
-      @table = {}
-    end
-
-    def method_missing m, *a, &b
-      case m.to_s
-        when %r/[=]$/
-          @table[m.to_s.delete('=')] = a.shift
-        when %r/[?!]$/
-          !!@table[m.to_s.delete('?!')]
-        else
-          @table[m.to_s]
-      end
-    end
-
-    def inspect
-      @table.inspect
-    end
   end
 
-  os = OpenStruct.new
-
-  os.object_id = 42
-  os.send = 42
-  os.instance_eval = 42
+  bs = BlankSlate.new
 
-  p os
+  p Pervasives(bs).methods #=> ["__object_pervasive__", "__id__", "__send__", "__pervasive__"]
 
-  p os.object_id
-  p Pervasives.object_id(os)
+  p Pervasives(bs).is_a?(BlankSlate) #=> true
 
-  p os.send
-  p Pervasives.send(os, "key=", "value")
+  p Pervasives(bs).instance_eval{ @a = 42 } #=> 42
 
-  p os.instance_eval
-  p Pervasives.instance_eval(os){ @table }
+  p Pervasives(bs).instance_variables #=> ["@a"]

data/samples/b.rb

@@ -1,18 +1,15 @@
 #
-# sometimes it may be more convenient to use a Pervasives::Proxy object
-# insteand of using Pervasives directly
+# the special method __pervasive__ is added to all objects - it can be used to
+# access the pristine state 
 #
   require 'pervasives'
 
-  class BlankSlate
-    instance_methods.each { |m| undef_method m unless m =~ /^__/ }
-
-    def object_id() 42 end
+  class C
+    def instance_eval(*a, &b) raise end 
   end
 
-  bs = BlankSlate.new
+  c = C.new
 
-  proxy = Pervasives::Proxy.new bs
+  c.__pervasive__(:instance_eval){ @a = 42 }
 
-  p bs.object_id
-  p proxy.object_id 
+  p c.instance_variables #=> ["@a"]

data/samples/c.rb

@@ -1,14 +1,21 @@
 #
-# the special '__' method accesses an object's Pervasives::Proxy
+# even if hackery removes the __pervasive__ method you can still call a
+# pristine method on an object 
 #
   require 'pervasives'
 
-  class BlankSlate
-    instance_methods.each { |m| undef_method m unless m =~ /^__/ }
-    def object_id() 42 end
+  class VeryBlankSlate
+    instance_methods.each{ |m| undef_method m }
   end
 
-  bs = BlankSlate.new
+  vbs = VeryBlankSlate.new
 
-  p bs.object_id
-  p __(bs){ object_id  }
+  begin
+    vbs.__pervasive__
+  rescue
+    'nope not even that'
+  end
+
+  Pervasives.call(vbs, :instance_eval){ @a = 42 }
+
+  p Pervasives.call(vbs, :instance_variables) #=> ["@a"]

data/samples/d.rb

@@ -1,13 +1,14 @@
 #
-# it all works for classes too
+# of course it works for classes and modules too 
 #
   require 'pervasives'
 
   class C
     def self.new() raise end
-    def inspect() 42 end
+  
+    def inspect() 42.inspect end
   end
 
-  p( Pervasives.new(C) )
-  p( Pervasives::Proxy.new(C).new )
-  p( __(C).new )
+  c = C.__pervasive__ :new
+
+  p c #=> 42

data/test/pervasives.rb

@@ -6,33 +6,30 @@ class Pervasives::Test < Test::Unit::TestCase
 
   def test_a_0
     klass = Class.new
+    pklass = nil 
     obj = nil
 
-    assert_nothing_raised{ obj = Pervasives.new klass }
+    assert_nothing_raised{ pklass = Pervasives klass }
+    assert_nothing_raised{ obj = pklass.new }
 
     assert_equal klass, obj.class 
-
-    assert_nothing_raised{ Pervasives.inspect obj }
-    assert_nothing_raised{ Pervasives.send obj, :inspect }
   end
 
+
   def test_b_0
     klass = Class.new
     obj = nil
+    value = nil
 
     klass.module_eval{ def self.new() raise end }
-    assert_nothing_raised{ obj = Pervasives.new klass }
-
-    value = nil
-    assert_nothing_raised{ value = Pervasives.class obj }
-    assert_equal klass, value 
+    assert_nothing_raised{ obj = Pervasives(klass).new }
 
     klass.module_eval{ def class() raise end}
-    assert_nothing_raised{ value = Pervasives.class obj }
+    assert_nothing_raised{ value = Pervasives(obj).class }
     assert_equal klass, value 
 
     klass.module_eval{ def to_s() raise end}
-    assert_nothing_raised{ Pervasives.to_s obj }
+    assert_nothing_raised{ Pervasives(obj).to_s }
   end
 
   def test_c_0
@@ -41,41 +38,23 @@ class Pervasives::Test < Test::Unit::TestCase
     proxy = nil
 
 
+    assert_nothing_raised{ obj = Pervasives(klass).new }
+    object_id = obj.object_id
+    to_s = obj.to_s
+
     instance_method_list = nil
     klass.module_eval{
       instance_method_list = instance_methods
       instance_methods.each{|m| define_method(m){ raise }}
     }
 
-    assert_nothing_raised{ obj = Pervasives.new klass }
-    assert_nothing_raised{ proxy = Pervasives::Proxy.new obj }
+    assert_nothing_raised{ proxy = Pervasives obj }
 
     assert_nothing_raised{ proxy.to_s }
-    assert_equal proxy.to_s, Pervasives.to_s(obj)
-    assert_equal proxy.object_id, Pervasives.object_id(obj)
-  end
-
-  def test_d_0
-    klass = Class.new
-    obj = nil
-    proxy = nil
-
-    klass.module_eval{
-      instance_methods.each{|m| define_method(m){ raise }}
-    }
-
-    assert_nothing_raised{ obj = Pervasives.new klass }
-    assert_nothing_raised{ proxy = Pervasives::Proxy.new obj }
-
-    assert_nothing_raised{ __(obj) }
-
-    assert_equal __(obj).__class__, Pervasives::Proxy
-
-    assert_nothing_raised{ __(obj){ to_s } }
-    assert_equal __(obj){ to_s }, proxy.to_s
-
-    assert_nothing_raised{ __!(obj){ object_id } }
-    assert_equal __!(obj){ object_id }, proxy.object_id
+    assert_equal to_s, proxy.to_s
+    assert_equal to_s, Pervasives(obj).to_s
+    assert_equal object_id, proxy.object_id
+    assert_equal object_id, Pervasives(obj).object_id
   end
 
 end

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.9.2
 specification_version: 1
 name: pervasives
 version: !ruby/object:Gem::Version 
-  version: 1.0.0
-date: 2007-09-08 00:00:00 -06:00
+  version: 1.1.0
+date: 2007-09-24 00:00:00 -06:00
 summary: pervasives
 require_paths: 
 - lib
@@ -33,9 +33,8 @@ files:
 - gen_readme.rb
 - install.rb
 - lib
-- lib/pervasives-1.0.0.rb
+- lib/pervasives-1.1.0.rb
 - lib/pervasives.rb
-- pervasives-1.0.0.gem
 - README
 - README.tmpl
 - samples

data/lib/pervasives-1.0.0.rb

@@ -1,32 +0,0 @@
-module Pervasives
-  VERSION = "1.0.0"
-  def self.version() VERSION end
-  class ::Class 
-    def __pervasive__ m, *a, &b
-      (( Class.instance_method(m) rescue Module.instance_method(m) rescue Object.instance_method(m) )).bind(self).call(*a, &b)
-    end
-  end
-  class ::Module 
-    def __pervasive__ m, *a, &b
-      (( Module.instance_method(m) rescue Object.instance_method(m) )).bind(self).call(*a, &b)
-    end
-  end
-  class ::Object
-    def __pervasive__ m, *a, &b
-      (( Object.instance_method(m) )).bind(self).call(*a, &b)
-    end
-  end
-
-  class Proxy
-    instance_methods.each{|m| undef_method m unless m[%r/__/]}
-    def initialize obj
-      @obj = obj
-    end
-    def method_missing m, *a, &b
-      @obj.__pervasive__ m, *a, &b
-    end
-    def __obj__
-      @obj
-    end
-  end
-end