facets 1.8.54 → 2.0.0

data/lib/facets/core/array/to_hash.rb

@@ -1,46 +0,0 @@
-
-class Array
-
-  # Converts an array into a hash.
-  #
-  # This methd is just like Enumerable#to_h. But has
-  # been moved in order to accomodate associtiave
-  # arrays. We use to_hash becasue an Array is, 
-  # in essence, a hash, just with a restricted
-  # set of keys and maintained order.
-  #
-  #   a = [ :a, :b, :c ]
-  #   a.to_hash  #=> { 0=>:a, 1=>:b, 2=>:c }
-  #
-  #--
-  # Change to alias to_h from Enumerable?
-  #++
-  def to_hash
-    h = {}
-    each_with_index{ |e,i| h[i] = e }
-    h
-  end
-      
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_to_hash
-      a = [:a,:b,:c]
-      assert_equal( { 0=>:a, 1=>:b, 2=>:c }, a.to_hash )
-    end
-
-  end
-
-=end

data/lib/facets/core/array/to_path.rb

@@ -1,11 +0,0 @@
-
-class Array
-
-  # Turn an array into a file path.
-
-  def to_path
-    File.join( *(self.compact) )
-  end
-
-end
-

data/lib/facets/core/array/unzip.rb

@@ -1,20 +0,0 @@
-class Array
-
-  def unzip(level)
-    res = Array.new(level, [])
-    (0...size).each {|i|
-      res[i % level] += [self[i]]
-    }
-    res
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO

data/lib/facets/core/binding.rb

@@ -1,14 +0,0 @@
-require 'facets/core/binding/__DIR__'
-require 'facets/core/binding/__FILE__'
-require 'facets/core/binding/__LINE__'
-require 'facets/core/binding/call_stack'
-require 'facets/core/binding/called'
-require 'facets/core/binding/caller'
-require 'facets/core/binding/defined'
-require 'facets/core/binding/eval'
-require 'facets/core/binding/local_variables'
-require 'facets/core/binding/method_name'
-require 'facets/core/binding/op_fetch'
-require 'facets/core/binding/op_store'
-require 'facets/core/binding/self'
-require 'facets/core/binding/self/of_caller'

data/lib/facets/core/binding/__DIR__.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facets/core/binding/__LINE__'

data/lib/facets/core/binding/__FILE__.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facets/core/binding/__LINE__.rb'

data/lib/facets/core/binding/__LINE__.rb

@@ -1,58 +0,0 @@
-require 'facets/core/binding/eval'
-
-class Binding
-
-  # returns line number
-  def __LINE__
-    eval( "__LINE__" )
-  end
-
-  # returns file name
-  def __FILE__
-    eval( "__FILE__" )
-  end
-
-  # return the directory of the file
-  def __DIR__
-    eval( "File.dirname(__FILE__)" )
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCBinding < Test::Unit::TestCase
-
-    def setup
-      a = 1
-      b = 2
-      x = "hello"
-      # the line number must be updated if it moves
-      @bind = binding; @this_line_no = __LINE__
-      @this_file_name = File.basename( __FILE__ ) # why does it equal basename only?
-    end
-
-    def test___LINE__
-      assert_equal( @this_line_no, @bind.__LINE__ )
-    end
-
-    def test___FILE__
-      assert_equal( @this_file_name, File.basename( @bind.__FILE__ ) )
-    end
-
-    def test___DIR__
-      assert_equal( File.dirname( @bind.__FILE__ ), @bind.__DIR__ )
-    end
-
-  end
-
-=end

data/lib/facets/core/binding/call_stack.rb

@@ -1,42 +0,0 @@
-
-require 'facets/core/binding/eval'
-require 'facets/core/kernel/call_stack'
-
-class Binding
-
-  # Returns the call stack, in array format.
-  def call_stack( level = 1 )
-    eval( "call_stack( #{level} )" )
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCBinding < Test::Unit::TestCase
-
-    def setup
-      a = 1
-      b = 2
-      x = "hello"
-      # the line number must be updated if it moves
-      @bind = binding; @this_line_no = 25
-    end
-
-    def test_call_stack
-      assert_instance_of( Array, @bind.call_stack )
-    end
-
-  end
-
-=end

data/lib/facets/core/binding/called.rb

@@ -1,42 +0,0 @@
-
-require 'facets/core/binding/caller'
-
-class Binding
-
-  # Retreive the current running method.
-  #
-  #   def tester; p called; end
-  #   tester  #=> :tester
-  #
-  def called
-    name = /\`([^\']+)\'/.match(caller(1).first)[1]
-    return name.to_sym
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCBinding < Test::Unit::TestCase
-
-    def setup
-      @bind = binding
-    end
-
-    def test_called
-      assert_equal( :setup, @bind.called )
-    end
-
-  end
-
-=end

data/lib/facets/core/binding/caller.rb

@@ -1,42 +0,0 @@
-
-require 'facets/core/binding/eval'
-
-class Binding
-
-  # Returns the call stack, same format as Kernel#caller()
-  def caller( skip = 0 )
-    eval( "caller( #{skip} )" )
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCBinding < Test::Unit::TestCase
-
-    def setup
-      a = 1
-      b = 2
-      x = "hello"
-      # the line number must be updated if it moves
-      @bind = binding; @this_line_no = 25
-    end
-
-    def test_caller
-      # how to test?
-      assert_nothing_raised{ @bind.caller }
-    end
-
-  end
-
-=end

data/lib/facets/core/binding/defined.rb

@@ -1,41 +0,0 @@
-
-require 'facets/core/binding/eval'
-
-class Binding
-
-  # Returns the nature of something, nil if that thing is not defined.
-  def defined?( x )
-    eval( "defined? #{x}" )
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCBinding < Test::Unit::TestCase
-
-    def setup
-      a = 1
-      b = 2
-      x = "hello"
-      # the line number must be updated if it moves
-      @bind = binding; @this_line_no = 25
-    end
-
-    def test_defined?
-      assert( @bind.defined?("a") )
-    end
-
-  end
-
-=end

data/lib/facets/core/binding/eval.rb

@@ -1,42 +0,0 @@
-
-class Binding
-
-  # Evaluate a Ruby source code string (or block) in the binding context
-  def eval( str ) #='', &blk )
-    #if block_given?
-    #  Kernel.eval( self, &blk )
-    #elsif str
-      Kernel.eval( str, self )
-    #end
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCBinding < Test::Unit::TestCase
-
-    def setup
-      a = 1
-      b = 2
-      x = "hello"
-      # the line number must be updated if it moves
-      @bind = binding; @this_line_no = 25
-    end
-
-    def test_eval
-      assert_equal( "hello", @bind.eval("x") )
-    end
-
-  end
-
-=end

data/lib/facets/core/binding/local_variables.rb

@@ -1,45 +0,0 @@
-
-require 'facets/core/binding/eval'
-
-class Binding
-
-  # Returns the local variables defined in the binding context
-  #
-  #   a = 2
-  #   binding.local_variables  #=> ["a"]
-  #
-  def local_variables()
-    eval( "local_variables" )
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCBinding < Test::Unit::TestCase
-
-    def setup
-      a = 1
-      b = 2
-      x = "hello"
-      # the line number must be updated if it moves
-      @bind = binding; @this_line_no = 25
-    end
-
-    def test_local_variables
-      assert_equal( ["a","b","x"], @bind.local_variables )
-    end
-
-  end
-
-=end

data/lib/facets/core/binding/method_name.rb

@@ -1,48 +0,0 @@
-
-require 'facets/core/binding/caller'
-
-class Binding
-
-  # 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; p methodname; end
-  #   tester  #=> "tester"
-  #
-  def methodname
-    name = /\`([^\']+)\'/.match(caller(1).first)[1]
-    return name
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCBinding < Test::Unit::TestCase
-
-    def setup
-      a = 1
-      b = 2
-      x = "hello"
-      # the line number must be updated if it moves
-      @bind = binding; @this_line_no = 25
-    end
-
-    def test_methodname
-      assert_equal( 'setup', @bind.methodname )
-    end
-
-  end
-
-=end