facets 1.0.0 → 1.0.1

data/lib/facet/kernel/method_name.rb

@@ -1,49 +0,0 @@
-
-module Kernel
-
-  private
-
-  # Retreive the current running method.
-  # There is a lot of debate on what to call this.
-  # #method_name differs from #called only by the fact
-  # that it returns a string, rather then a symbol.
-  #
-  #   def tester; method_name; end
-  #   tester  #=> "tester"
-  #
-  def methodname
-    name = /\`([^\']+)\'/.match(caller(1).first)[1]
-    return name
-  end
-
-  # depricate?
-  alias_method :method_name, :methodname
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_method_name
-      # For some reason this was returning a string
-      # even when aliased to #called. Why?
-      # Well, I couldn't seem to fix it, so I just
-      # accepted it as fact and made +method_name+ 
-      # purposefully work that way.
-      assert_equal( "test_method_name", method_name )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/methods.rb

@@ -1,79 +0,0 @@
-require 'facet/module/instance_methods'
-
-class Object
-
-  # Returns a list of methods according to symbol(s) given.
-  #
-  # Usable symbols include:
-  #
-  # * <tt>:inherited</tt> or <tt>:ancestors</tt>
-  # * <tt>:local</tt> or <tt>:no_ancestors</tt>
-  # * <tt>:public</tt>
-  # * <tt>:private</tt>
-  # * <tt>:protected</tt>
-  # * <tt>:singleton</tt>
-  # * <tt>:all</tt>
-  #
-  # It no symbol is given then :public is assumed.
-  # Unrecognized symbols raise an error.
-  #
-  #   def test
-  #     puts("Hello World!")
-  #   end
-  #
-  #   methods(:local)    #=> ['test']
-  #
-  def methods(*args)
-    args = [ :public, :local, :ancestors ] if args.empty?
-    m = self.class.instance_methods( *args )
-    m |= singleton_methods if args.include?( :singleton ) or args.include?( :all )
-    m
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TC_Methods < Test::Unit::TestCase
-
-    class O
-      def a ; end
-    end
-    $o = O.new
-
-    # get a hold of the original definition _before require_
-    $imF = $o.method( :methods )
-
-    def test_instance_methods
-      assert_equal( $imF.call.sort, $o.methods )
-    end
-
-    def test_public_instance_methods
-      assert_equal( $o.public_methods.sort, $o.methods(:public) )
-    end
-
-    def test_private_instance_methods
-      assert_equal( $o.private_methods.sort, $o.methods(:private) )
-    end
-
-    def test_protected_instance_methods
-      assert_equal( $o.protected_methods.sort, $o.methods(:protected) )
-    end
-
-    def test_local_instance_methods
-      assert_equal( ["a"], $o.methods(:local) )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/nack.rb

@@ -1,12 +0,0 @@
-# This is a light version of NackClass intended
-# for minor usecases. See mega/nack for a complete version.
-
-unless defined?(nack)
-
-  class NackClass < Exception; end
-
-  module Kernel
-    def nack; NackClass.new ; end
-  end
-
-end

data/lib/facet/kernel/new.rb

@@ -1,40 +0,0 @@
-
-class Object
-
-  # Synonymous with #clone, this is an interesting
-  # method in that it promotes prototype-based Ruby.
-  # Now Classes aren't the only things that respond to #new.
-  #
-  #   "ABC".new  => "ABC"
-  #
-  def new
-    self.clone
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_new
-      q = nil
-      s = "Testing"
-      assert_nothing_raised { q = s.new }
-      assert_equal( s, q )
-      assert_not_equal( s.object_id, q.object_id )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/object_class.rb

@@ -1,31 +0,0 @@
-
-class Object
-
-  # Defines object_classas an alias of class.
-  # This is an alternative to __class__, akin to
-  # #object_id.
-  #
-  alias_method( :object_class, :class )
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_object_class
-      assert_equal( self.class, self.object_class )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/object_hexid.rb

@@ -1,35 +0,0 @@
-
-class Object
-
-  # Returns the object id as a string in hexideciaml,
-  # which is how Ruby reports them with inspect.
-  #
-  #   "ABC".object_hexid  #=> "0x402d359c"
-  #
-  def object_hexid
-    return "0x" << ('%.x' % (2*self.__id__))[1..-1]
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_object_hexid
-      o = Object.new
-      assert( o.inspect.index( o.object_hexid ) )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/op_esc.rb

@@ -1,37 +0,0 @@
-
-module Kernel
-
-  OPERATORS = %w{ +@ -@ + - ** * / % ~ <=> << >> < > === == =~ <= >= | & ^ []= [] }
-  OPERATORS_REGEXP = Regexp.new( '(' << OPERATORS.collect{ |k| Regexp.escape(k) }.join('|') << ')' )
-  OPERATORS_ESC_TABLE = {
-       "+@"   => "op_plus_self",
-       "-@"   => "op_minus_self",
-       "+"    => "op_plus",
-       "-"    => "op_minus",
-       "**"   => "op_pow",
-       "*"    => "op_mul",
-       "/"    => "op_div",
-       "%"    => "op_mod",
-       "~"    => "op_tilde",
-       "<=>"  => "op_cmp",
-       "<<"   => "op_lshift",
-       ">>"   => "op_rshift",
-       "<"    => "op_lt",
-       ">"    => "op_gt",
-       "==="  => "op_case_eq",
-       "=="   => "op_equal",
-       "=~"   => "op_apply",
-       "<="   => "op_lt_eq",
-       ">="   => "op_gt_eq",
-       "|"    => "op_or",
-       "&"    => "op_and",
-       "^"    => "op_xor",
-       "[]="  => "op_store",
-       "[]"   => "op_fetch"
-  }
-
-  def op_esc( str )
-    str.gsub(OPERATORS_REGEXP){ OPERATORS_ESC_TABLE[$1] }
-  end
-
-end

data/lib/facet/kernel/own.rb

@@ -1,17 +0,0 @@
-
-class Object
-
-  # Easy access to an object's "special" class,
-  # otherwise known as it's metaclass or singleton class.
-
-  def own(&blk)
-    (class << self; self; end).class_eval( &blk ) if blk
-    return (class << self; self; end)
-  end
-
-end
-
-# Maybe a little bonus feature? Shhh... don't tell Matz ;-)
-#class Module
-#  public :attr, :attr_reader, :attr_writer, :attr_accessor
-#end

data/lib/facet/kernel/p.rb

@@ -1,12 +0,0 @@
-
-module Kernel
-
-  #alias_method :pr, :p
-  # REdefines standrard #p kernel method
-  # to pass through its argument.
-  def p( x )
-    puts x.inspect
-    x
-  end
-
-end

data/lib/facet/kernel/require_all.rb

@@ -1,44 +0,0 @@
-module Kernel
-
-  private
-
-  # Require a pattern of files. This make is easy
-  # to require an entire directory, for instance.
-  #
-  #   require_all 'facet/time/*'
-  #
-  def require_all( pat )
-    $LOAD_PATH.each do |path|
-      fs = Dir[File.join(path,pat)]
-      unless fs.empty?
-        fs.each { |f|
-          Kernel.require( f ) unless File.directory?( f )
-        }
-        break;
-      end
-    end
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_require_all
-      # TODO how? assert_nothing_raised { require_all 'facet//*' }
-    end
-
-  end
-
-=end

data/lib/facet/kernel/require_esc.rb

@@ -1,42 +0,0 @@
-require 'facet/kernel/op_esc'
-
-module Kernel
-
-  # Require a file with puncuation marks escaped using NANOESC table.
-  #
-  #   require_esc '[].rb'
-  #
-  # in actuality requires the file 'op_fetch.rb'.
-  private
-  def require_esc( fpath )
-    fdir, fname = File.split(fpath)
-    ename = op_esc( fname )
-    case ename[-1,1] ; when '!','=','?' then ename = ename[0...-1] ; end
-    epath = File.join( fdir, ename )
-    require( epath )
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_require_esc
-      assert_nothing_raised { require_esc 'facet/string/blank' }
-      assert( "".respond_to?( :blank? ) )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/require_facet.rb

@@ -1,41 +0,0 @@
-require 'facet/kernel/require_esc'
-
-module Kernel
-  private
-
-  # Just like #require_esc excapt that
-  # it provides the initial 'facet/' path.
-  #
-  #   require_facet 'string/capitalized?'
-  #
-  # _is the same as_
-  #
-  #   require_esc 'facet/string/capitalized?'
-  #
-  def require_facet( fpath )
-    require_esc( "facet/#{fpath}" )
-  end
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_require_facet
-      assert_nothing_raised { require_facet 'string/margin' }
-      assert( "".respond_to?( :margin ) )
-    end
-
-  end
-
-=end