pervasives 0.0.1

data/README

@@ -0,0 +1,159 @@
+NAME
+
+  pervasives.rb
+
+SYNOPSIS
+
+  access to pristine object state.  if you don't metaprogram you probably
+  don't need it
+
+INSTALL
+
+  gem install pervasives
+
+URIS
+
+  http://rubyforge.org/projects/codeforpeople/
+  http://codeforpeople.com/lib/ruby
+
+SAMPLES
+
+  <========< samples/a.rb >========>
+
+  ~ > 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
+    #
+      require 'pervasives'
+    
+      class OpenStruct 
+        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
+    
+      p os
+    
+      p os.object_id
+      p Pervasives.object_id(os)
+    
+      p os.send
+      p Pervasives.send(os, "key=", "value")
+    
+      p os.instance_eval
+      p Pervasives.instance_eval(os){ @table }
+
+  ~ > ruby samples/a.rb
+
+    {"instance_eval"=>42, "send"=>42, "object_id"=>42}
+    42
+    -609487514
+    42
+    "value"
+    42
+    {"instance_eval"=>42, "send"=>42, "key"=>"value", "object_id"=>42}
+
+
+  <========< samples/b.rb >========>
+
+  ~ > cat samples/b.rb
+
+    #
+    # sometimes it may be more convenient to use a Pervasives::Proxy object
+    # insteand of using Pervasives directly
+    #
+      require 'pervasives'
+    
+      class BlankSlate
+        instance_methods.each { |m| undef_method m unless m =~ /^__/ }
+    
+        def object_id() 42 end
+      end
+    
+      bs = BlankSlate.new
+    
+      proxy = Pervasives::Proxy.new bs
+    
+      p bs.object_id
+      p proxy.object_id 
+
+  ~ > ruby samples/b.rb
+
+    42
+    -609489100
+
+
+  <========< samples/c.rb >========>
+
+  ~ > cat samples/c.rb
+
+    #
+    # the special '__' method accesses an object's Pervasives::Proxy
+    #
+      require 'pervasives'
+    
+      class BlankSlate
+        instance_methods.each { |m| undef_method m unless m =~ /^__/ }
+        def object_id() 42 end
+      end
+    
+      bs = BlankSlate.new
+    
+      p bs.object_id
+      p __(bs){ object_id  }
+
+  ~ > ruby samples/c.rb
+
+    42
+    -609486982
+
+
+  <========< samples/d.rb >========>
+
+  ~ > cat samples/d.rb
+
+    #
+    # it all works for classes too
+    #
+      require 'pervasives'
+    
+      class C
+        def self.new() raise end
+        def inspect() 42 end
+      end
+    
+      p( Pervasives.new(C) )
+      p( Pervasives::Proxy.new(C).new )
+      p( __(C).new )
+
+  ~ > ruby samples/d.rb
+
+    42
+    42
+    42
+

data/README.tmpl

@@ -0,0 +1,21 @@
+NAME
+
+  pervasives.rb
+
+SYNOPSIS
+
+  access to pristine object state.  if you don't metaprogram you probably
+  don't need it
+
+INSTALL
+
+  gem install pervasives
+
+URIS
+
+  http://rubyforge.org/projects/codeforpeople/
+  http://codeforpeople.com/lib/ruby
+
+SAMPLES
+
+  @samples

data/gemspec.rb

@@ -0,0 +1,23 @@
+lib, version = File::basename(File::dirname(File::expand_path(__FILE__))).split %r/-/, 2
+
+require 'rubygems'
+
+Gem::Specification::new do |spec|
+  spec.name = lib 
+  spec.version = version 
+  spec.platform = Gem::Platform::RUBY
+  spec.summary = lib 
+
+  spec.files = Dir::glob "**/**"
+  spec.executables = Dir::glob("bin/*").map{|exe| File::basename exe}
+  
+  spec.require_path = "lib" 
+  spec.autorequire = lib
+
+  spec.has_rdoc = File::exist? "doc" 
+  spec.test_suite_file = "test/#{ lib }.rb" if File::directory? "test"
+
+  spec.author = "Ara T. Howard"
+  spec.email = "ara.t.howard@noaa.gov"
+  spec.homepage = "http://codeforpeople.com/lib/ruby/#{ lib }/"
+end

data/gen_readme.rb

@@ -0,0 +1,32 @@
+require 'pathname'
+
+$VERBOSE=nil
+
+def indent s, n = 2
+  ws = ' ' * n
+  s.gsub %r/^/, ws 
+end
+
+template = IO::read 'README.tmpl'
+
+samples = ''
+prompt = '~ > '
+
+Dir['sample*/*'].sort.each do |sample|
+  samples << "\n" << "  <========< #{ sample } >========>" << "\n\n"
+
+  cmd = "cat #{ sample }" 
+  samples << indent(prompt + cmd, 2) << "\n\n" 
+  samples << indent(`#{ cmd }`, 4) << "\n" 
+
+  cmd = "ruby #{ sample }" 
+  samples << indent(prompt + cmd, 2) << "\n\n" 
+
+  cmd = "ruby -Ilib #{ sample }" 
+  samples << indent(`#{ cmd } 2>&1`, 4) << "\n" 
+end
+
+#samples.gsub! %r/^/, '  '
+
+readme  = template.gsub %r/^\s*@samples\s*$/, samples
+print readme 

data/install.rb

@@ -0,0 +1,206 @@
+#!/usr/bin/env ruby
+require 'rbconfig'
+require 'find'
+require 'ftools'
+require 'tempfile'
+include Config
+
+LIBDIR      = "lib"
+LIBDIR_MODE = 0644
+
+BINDIR      = "bin"
+BINDIR_MODE = 0755
+
+
+$srcdir            = CONFIG["srcdir"]
+$version           = CONFIG["MAJOR"]+"."+CONFIG["MINOR"]
+$libdir            = File.join(CONFIG["libdir"], "ruby", $version)
+$archdir           = File.join($libdir, CONFIG["arch"])
+$site_libdir       = $:.find {|x| x =~ /site_ruby$/}
+$bindir            = CONFIG["bindir"] || CONFIG['BINDIR']
+$ruby_install_name = CONFIG['ruby_install_name'] || CONFIG['RUBY_INSTALL_NAME'] || 'ruby'
+$ruby_ext          = CONFIG['EXEEXT'] || ''
+$ruby              = File.join($bindir, ($ruby_install_name + $ruby_ext))
+
+if !$site_libdir
+  $site_libdir = File.join($libdir, "site_ruby")
+elsif $site_libdir !~ %r/#{Regexp.quote($version)}/
+  $site_libdir = File.join($site_libdir, $version)
+end
+
+def install_rb(srcdir=nil, destdir=nil, mode=nil, bin=nil)
+#{{{
+  path   = []
+  dir    = []
+  Find.find(srcdir) do |f|
+    next unless FileTest.file?(f)
+    next if (f = f[srcdir.length+1..-1]) == nil
+    next if (/CVS$/ =~ File.dirname(f))
+    next if f =~ %r/\.lnk/
+    path.push f
+    dir |= [File.dirname(f)]
+  end
+  for f in dir
+    next if f == "."
+    next if f == "CVS"
+    File::makedirs(File.join(destdir, f))
+  end
+  for f in path
+    next if (/\~$/ =~ f)
+    next if (/^\./ =~ File.basename(f))
+    unless bin
+      File::install(File.join(srcdir, f), File.join(destdir, f), mode, true)
+    else
+      from = File.join(srcdir, f)
+      to = File.join(destdir, f)
+      shebangify(from) do |sf|
+        $deferr.print from, " -> ", File::catname(from, to), "\n"
+        $deferr.printf "chmod %04o %s\n", mode, to 
+        File::install(sf, to, mode, false)
+      end
+    end
+  end
+#}}}
+end
+def shebangify f
+#{{{
+  open(f) do |fd|
+    buf = fd.read 42 
+    if buf =~ %r/^\s*#\s*!.*ruby/o
+      ftmp = Tempfile::new("#{ $$ }_#{ File::basename(f) }")
+      begin
+        fd.rewind
+        ftmp.puts "#!#{ $ruby  }"
+        while((buf = fd.read(8192)))
+          ftmp.write buf
+        end
+        ftmp.close
+        yield ftmp.path
+      ensure
+        ftmp.close!
+      end
+    else
+      yield f
+    end
+  end
+#}}}
+end
+def ARGV.switch
+#{{{
+  return nil if self.empty?
+  arg = self.shift
+  return nil if arg == '--'
+  if arg =~ /^-(.)(.*)/
+    return arg if $1 == '-'
+    raise 'unknown switch "-"' if $2.index('-')
+    self.unshift "-#{$2}" if $2.size > 0
+    "-#{$1}"
+  else
+    self.unshift arg
+    nil
+  end
+#}}}
+end
+def ARGV.req_arg
+#{{{
+  self.shift || raise('missing argument')
+#}}}
+end
+def linkify d, linked = []
+#--{{{
+  if test ?d, d
+    versioned = Dir[ File::join(d, "*-[0-9].[0-9].[0-9].rb") ]
+    versioned.each do |v| 
+      src, dst = v, v.gsub(%r/\-[\d\.]+\.rb$/, '.rb')
+      lnk = nil
+      begin
+        if test ?l, dst
+          lnk = "#{ dst }.lnk"
+          puts "#{ dst } -> #{ lnk }"
+          File::rename dst, lnk
+        end
+        unless test ?e, dst
+          puts "#{ src } -> #{ dst }"
+          File::copy src, dst 
+          linked << dst
+        end
+      ensure
+        if lnk
+          at_exit do
+            puts "#{ lnk } -> #{ dst }"
+            File::rename lnk, dst
+          end
+        end
+      end
+    end
+  end
+  linked
+#--}}}
+end
+
+
+#
+# main program
+#
+
+libdir = $site_libdir
+bindir = $bindir
+no_linkify = false
+linked = nil
+help = false
+
+usage = <<-usage
+  #{ File::basename $0 }
+    -d, --destdir    <destdir>
+    -l, --libdir     <libdir>
+    -b, --bindir     <bindir>
+    -r, --ruby       <ruby>
+    -n, --no_linkify
+    -s, --sudo
+    -h, --help
+usage
+
+begin
+  while switch = ARGV.switch
+    case switch
+    when '-d', '--destdir'
+      libdir = ARGV.req_arg
+    when '-l', '--libdir'
+      libdir = ARGV.req_arg
+    when '-b', '--bindir'
+      bindir = ARGV.req_arg
+    when '-r', '--ruby'
+      $ruby = ARGV.req_arg
+    when '-n', '--no_linkify'
+      no_linkify = true
+    when '-s', '--sudo'
+      sudo = 'sudo' 
+    when '-h', '--help'
+      help = true
+    else
+      raise "unknown switch #{switch.dump}"
+    end
+  end
+rescue
+  STDERR.puts $!.to_s
+  STDERR.puts usage
+  exit 1
+end    
+
+if help
+  STDOUT.puts usage
+  exit
+end
+
+unless no_linkify
+  linked = linkify('lib') + linkify('bin')
+end
+
+system "#{ $ruby } extconf.rb && make && #{ sudo } make install" if test(?s, 'extconf.rb')
+
+install_rb(LIBDIR, libdir, LIBDIR_MODE)
+install_rb(BINDIR, bindir, BINDIR_MODE, bin=true)
+
+if linked
+  linked.each{|path| File::rm_f path}
+end

data/lib/pervasives-0.0.1.rb

@@ -0,0 +1,61 @@
+class Pervasives
+  VERSION = "0.0.1"
+
+  METHODS = Hash.new{|h,k| h[k] = {}}
+
+  [Module, Class, Object].each do |type|
+    type.instance_methods.each do |mname|
+      m = type.instance_method mname
+      METHODS[type][mname.to_s] = m
+    end
+  end
+
+  class << self
+    mnames = METHODS[Module].keys + METHODS[Class].keys + METHODS[Object].keys 
+
+    mnames.each do |mname|
+      next if mname['__']
+      module_eval <<-code
+        def #{ mname } obj, *argv, &block
+          search_path = case obj
+            when Class
+              [Class, Module, Object]
+            when Module
+              [Module, Object]
+            else
+              [Object]
+          end
+          type = search_path.detect{|type| METHODS[type]['#{ mname }']} 
+          m = METHODS[type]['#{ mname }']
+          m.bind( obj ).call( *argv, &block )
+        end
+      code
+    end
+  end
+
+  class Proxy
+    alias_method "__class__", "class"
+    alias_method "__instance_eval__", "instance_eval"
+    instance_methods.each{|m| undef_method m unless m[%r/__/]}
+    def initialize obj
+      @obj = obj
+    end
+    def method_missing m, *a, &b
+      Pervasives.__send__ m, @obj, *a, &b
+    end
+  end
+end
+
+
+
+
+module Kernel 
+  def __ obj, &b
+    proxy = Pervasives::Proxy.new obj
+    b ? proxy.__instance_eval__(&b) : proxy
+  end
+  def __! obj, &b
+    proxy = Pervasives::Proxy.new obj
+    b ? proxy.__instance_eval__(&b) : proxy
+  end
+end

data/lib/pervasives.rb

@@ -0,0 +1,61 @@
+class Pervasives
+  VERSION = "0.0.1"
+
+  METHODS = Hash.new{|h,k| h[k] = {}}
+
+  [Module, Class, Object].each do |type|
+    type.instance_methods.each do |mname|
+      m = type.instance_method mname
+      METHODS[type][mname.to_s] = m
+    end
+  end
+
+  class << self
+    mnames = METHODS[Module].keys + METHODS[Class].keys + METHODS[Object].keys 
+
+    mnames.each do |mname|
+      next if mname['__']
+      module_eval <<-code
+        def #{ mname } obj, *argv, &block
+          search_path = case obj
+            when Class
+              [Class, Module, Object]
+            when Module
+              [Module, Object]
+            else
+              [Object]
+          end
+          type = search_path.detect{|type| METHODS[type]['#{ mname }']} 
+          m = METHODS[type]['#{ mname }']
+          m.bind( obj ).call( *argv, &block )
+        end
+      code
+    end
+  end
+
+  class Proxy
+    alias_method "__class__", "class"
+    alias_method "__instance_eval__", "instance_eval"
+    instance_methods.each{|m| undef_method m unless m[%r/__/]}
+    def initialize obj
+      @obj = obj
+    end
+    def method_missing m, *a, &b
+      Pervasives.__send__ m, @obj, *a, &b
+    end
+  end
+end
+
+
+
+
+module Kernel 
+  def __ obj, &b
+    proxy = Pervasives::Proxy.new obj
+    b ? proxy.__instance_eval__(&b) : proxy
+  end
+  def __! obj, &b
+    proxy = Pervasives::Proxy.new obj
+    b ? proxy.__instance_eval__(&b) : proxy
+  end
+end

data/samples/a.rb

@@ -0,0 +1,45 @@
+#
+# Pervasives allows objects' method to be accessed in a pristine state, even
+# when some effort has been made to derride them
+#
+  require 'pervasives'
+
+  class OpenStruct 
+    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
+
+  p os
+
+  p os.object_id
+  p Pervasives.object_id(os)
+
+  p os.send
+  p Pervasives.send(os, "key=", "value")
+
+  p os.instance_eval
+  p Pervasives.instance_eval(os){ @table }

data/samples/b.rb

@@ -0,0 +1,18 @@
+#
+# sometimes it may be more convenient to use a Pervasives::Proxy object
+# insteand of using Pervasives directly
+#
+  require 'pervasives'
+
+  class BlankSlate
+    instance_methods.each { |m| undef_method m unless m =~ /^__/ }
+
+    def object_id() 42 end
+  end
+
+  bs = BlankSlate.new
+
+  proxy = Pervasives::Proxy.new bs
+
+  p bs.object_id
+  p proxy.object_id 

data/samples/c.rb

@@ -0,0 +1,14 @@
+#
+# the special '__' method accesses an object's Pervasives::Proxy
+#
+  require 'pervasives'
+
+  class BlankSlate
+    instance_methods.each { |m| undef_method m unless m =~ /^__/ }
+    def object_id() 42 end
+  end
+
+  bs = BlankSlate.new
+
+  p bs.object_id
+  p __(bs){ object_id  }

data/samples/d.rb

@@ -0,0 +1,13 @@
+#
+# it all works for classes too
+#
+  require 'pervasives'
+
+  class C
+    def self.new() raise end
+    def inspect() 42 end
+  end
+
+  p( Pervasives.new(C) )
+  p( Pervasives::Proxy.new(C).new )
+  p( __(C).new )

data/test/pervasives.rb

@@ -0,0 +1,81 @@
+%w( . ./lib ../lib ).each{|lib| $:.unshift lib}
+require 'pervasives'
+require 'test/unit'
+
+class Pervasives::Test < Test::Unit::TestCase
+
+  def test_a_0
+    klass = Class.new
+    obj = nil
+
+    assert_nothing_raised{ obj = Pervasives.new klass }
+
+    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
+
+    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 
+
+    klass.module_eval{ def class() raise end}
+    assert_nothing_raised{ value = Pervasives.class obj }
+    assert_equal klass, value 
+
+    klass.module_eval{ def to_s() raise end}
+    assert_nothing_raised{ Pervasives.to_s obj }
+  end
+
+  def test_c_0
+    klass = Class.new
+    obj = nil
+    proxy = nil
+
+
+    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.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
+  end
+
+end

metadata

@@ -0,0 +1,54 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: pervasives
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+date: 2007-01-05 00:00:00.000000 -07:00
+summary: pervasives
+require_paths: 
+  - lib
+email: ara.t.howard@noaa.gov
+homepage: http://codeforpeople.com/lib/ruby/pervasives/
+rubyforge_project: 
+description: 
+autorequire: pervasives
+default_executable: 
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+    - 
+      - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+authors: 
+  - Ara T. Howard
+files: 
+  - lib
+  - test
+  - gemspec.rb
+  - install.rb
+  - samples
+  - gen_readme.rb
+  - README
+  - README.tmpl
+  - lib/pervasives-0.0.1.rb
+  - lib/pervasives.rb
+  - test/pervasives.rb
+  - samples/a.rb
+  - samples/b.rb
+  - samples/c.rb
+  - samples/d.rb
+test_files: 
+  - test/pervasives.rb
+rdoc_options: []
+extra_rdoc_files: []
+executables: []
+extensions: []
+requirements: []
+dependencies: []