facets 1.0.0 → 1.0.1

data/lib/facet/string/unix_crypt.rb

@@ -1,41 +0,0 @@
-
-require 'facet/string/self/rand_letter'
-
-class String
-
-  # Common Unix cryptography method.
-  def unix_crypt
-    self.crypt(String.rand_letter + String.rand_letter)
-  end
-
-  # Common Unix cryptography in-place method.
-  def unix_crypt!
-    self.replace( unix_crypt )
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_unix_crypt
-      assert_nothing_raised { "abc 123".unix_crypt }
-    end
-
-    def test_unix_crypt!
-      assert_nothing_raised { "abc 123".unix_crypt! }
-    end
-
-  end
-
-=end

data/lib/facet/string/unpack.rb

@@ -1,45 +0,0 @@
-
-class String
-
-  alias_method( :unpack_from_orgin, :unpack )
-  # Upack with offset. Extends #unpack to allow a string 
-  # to be unpacked starting at an offset position within it.
-  #
-  def unpack(format, offset=nil)
-    if offset.nil?
-      unpack_from_orgin(format)
-    else
-      self[offset..-1].unpack_from_orgin(format)
-    end
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_unpack
-      str, fmt = "abc\0", "Z*"
-      assert_equal "abc", str.unpack(fmt).first
-      assert_equal "abc", str.unpack(fmt, 0).first
-      assert_equal "bc", str.unpack(fmt, 1).first
-      assert_equal "bc", str.unpack(fmt, -3).first
-      assert_equal "c", str.unpack(fmt, 2).first
-      assert_equal "c", str.unpack(fmt, -2).first
-      assert_equal "", str.unpack(fmt, 3).first
-      assert_equal "", str.unpack(fmt, -1).first
-    end
-
-  end
-
-=end

data/lib/facet/string/unshift.rb

@@ -1,42 +0,0 @@
-
-class String
-
-  def unshift( str=' ' )
-    insert(0, str)
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def setup
-      @a = ""
-    end
-
-    def test_001
-      assert_raises( ArgumentError ) { @a.unshift(1,2) }
-    end
-
-    def test_002
-      assert_equal( "0", @a.unshift("0") )
-      assert_equal( "10", @a.unshift("1") )
-      assert_equal( "210", @a.unshift("2") )
-      assert_equal( "3210", @a.unshift("3") )
-      assert_equal( "43210", @a.unshift("4") )
-      assert_equal( "543210", @a.unshift("5") )
-    end
-
-  end
-
-=end

data/lib/facet/string/upcase.rb

@@ -1,45 +0,0 @@
-#--
-# Credit goes to Phil Tomson.
-#++
-
-class String
-
-  # Is the string upcase/uppercase?
-  #
-  #   "THIS".upcase?  #=> true
-  #   "This".upcase?  #=> false
-  #   "this".upcase?  #=> false
-  #
-  def upcase?
-    self.upcase == self
-  end
-
-  # Alias for #upcase? method.
-  alias_method( :uppercase?, :upcase? )
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_upcase?
-      assert( 'ABC'.upcase? )
-    end
-
-    def test_uppercase?
-      assert( 'ABC'.uppercase? )
-    end
-
-  end
-
-=end

data/lib/facet/string/uppercase.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/string/upcase'

data/lib/facet/string/whitespace.rb

@@ -1,27 +0,0 @@
-require 'facet/string/blank'
-
-class String
-  alias_method :whitespace?, :blank?
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_whitespace?
-      assert( ! "xyz".whitespace? )
-      assert( "     ".whitespace? )
-    end
-
-  end
-
-=end

data/lib/facet/string/word_filter.rb

@@ -1,61 +0,0 @@
-
-class String
-
-  # Filters out words from a string based on block test.
-  #
-  #   "a string".word_filter { |word| word =~ /^a/ }  #=> "string"
-  #
-  def word_filter( &blk )
-    s = self.dup
-    s.word_filter!( &blk )
-  end
-
-  # In place version of #word_filter.
-  #
-  #   "a string".word_filter { |word| ... }
-  #
-  def word_filter! #:yield:
-    rest_of_string = self
-    wordfind = /(\w+)/
-    offset = 0
-    while wmatch = wordfind.match(rest_of_string)
-      word = wmatch[0]
-      range = offset+wmatch.begin(0) ... offset+wmatch.end(0)
-      rest_of_string = wmatch.post_match
-      self[range] = yield( word ).to_s
-      offset = self.length - rest_of_string.length
-    end
-    self
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_word_filter
-      s = "this is a test"
-      n = s.word_filter{ |w| "#{w}1" }
-      assert_equal( 'this1 is1 a1 test1', n )
-    end
-
-    def test_word_filter!
-      s = "this is a test"
-      s.word_filter!{ |w| "#{w}1" }
-      assert_equal( 'this1 is1 a1 test1', s )
-    end
-
-  end
-
-=end

data/lib/facet/string/word_wrap.rb

@@ -1,90 +0,0 @@
-#--
-# Credit goes to Gavin Kistner.
-# Also special mention to Dayne Broderson.
-#++
-
-class String
-
-  # Word wrap a string not exceeding max width.
-  #
-  #   puts "this is a test".word_wrap(4)
-  #
-  # _produces_
-  #
-  #   this
-  #   is a
-  #   test
-  #
-  def word_wrap( col_width=80 )
-    self.dup.word_wrap!( col_width )
-  end
-
-  # As with #word_wrap, but modifies the string in place.
-  #
-  def word_wrap!( col_width=80 )
-    self.gsub!( /(\S{#{col_width}})(?=\S)/, '\1 ' )
-    self.gsub!( /(.{1,#{col_width}})(?:\s+|$)/, "\\1\n" )
-    self
-  end
-
-  # old def
-
-  #def word_wrap(max=80)
-  #  c = dup
-  #  c.word_wrap!(max)
-  #  c
-  #end
-
-  #def word_wrap!(max=80)
-  #  raise ArgumentError, "Wrap margin too low: #{n}" if max <= 2
-  #  #gsub!( Regexp.new( "(.{1,#{max-1}}\\w)\\b\\s*" ), "\\1\n")
-  #  gsub!( /(.{1,#{max-1}}\S)([ ]|\n)/, "\\1\n")
-  #end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_word_wrap
-      assert_equal "abcde\n12345\nxyzwu\n", "abcde 12345 xyzwu".word_wrap(5)
-      assert_equal "abcd\n1234\nxyzw\n", "abcd 1234 xyzw".word_wrap(4)
-      assert_equal "abc\n123\n", "abc 123".word_wrap(4)
-      assert_equal "abc \n123\n", "abc  123".word_wrap(4)
-      assert_equal "abc \n123\n", "abc     123".word_wrap(4)
-    end
-
-    def test_word_wrap!
-      w = "abcde 12345 xyzwu" ; w.word_wrap!(5)
-      assert_equal("abcde\n12345\nxyzwu\n", w)
-      w = "abcd 1234 xyzw" ; w.word_wrap!(4)
-      assert_equal("abcd\n1234\nxyzw\n", w)
-      w = "abc 123" ; w.word_wrap!(4)
-      assert_equal "abc\n123\n", w
-      w = "abc  123" ; w.word_wrap!(4)
-      assert_equal("abc \n123\n", w)
-      w = "abc     123" ; w.word_wrap!(4)
-      assert_equal("abc \n123\n", w)
-    end
-
-#   def test_word_wrap
-#     assert_equal "abcde-\n12345-\nxyzwu\n", "abcde12345xyzwu".word_wrap(6,2)
-#     assert_equal "abcd-\n1234-\nxyzw\n", "abcd1234xyzw".word_wrap(5,2)
-#     assert_equal "abc \n123\n", "abc 123".word_wrap(4,2)
-#     assert_equal "abc \n123\n", "abc  123".word_wrap(4,2)
-#     assert_equal "abc \n123\n", "abc     123".word_wrap(4,2)
-#   end
-
-  end
-
-=end

data/lib/facet/string/words.rb

@@ -1,45 +0,0 @@
-
-class String
-
-  # Returns an array of characters.
-  #
-  #   "abc 123".words  #=> ["abc","123"]
-  #
-  def words
-    self.split(/\s+/)
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_001
-      x = "a b c\nd e"
-      assert_equal( ['a','b','c','d','e'], x.words )
-    end
-
-    def test_002
-      x = "ab cd\nef"
-      assert_equal( ['ab','cd','ef'], x.words )
-    end
-
-    def test_003
-      x = "ab cd \n ef-gh"
-      assert_equal( ['ab','cd','ef-gh'], x.words )
-    end
-
-  end
-
-=end

data/lib/facet/symbol.rb

@@ -1,13 +0,0 @@
-require 'nano/symbol/camelcase'
-require 'nano/symbol/camelize'
-require 'nano/symbol/capitalize'
-require 'nano/symbol/capitalized'
-require 'nano/symbol/downcase'
-require 'nano/symbol/not'
-require 'nano/symbol/pad'
-require 'nano/symbol/succ'
-require 'nano/symbol/to_const'
-require 'nano/symbol/to_proc'
-require 'nano/symbol/to_str'
-require 'nano/symbol/underscore'
-require 'nano/symbol/upcase'

data/lib/facet/symbol/camelcase.rb

@@ -1,42 +0,0 @@
-
-require 'facet/string/camelcase'
-
-class Symbol
-
-  # Converts a symbol to camelcase. By default capitalization
-  # occurs on whitespace and underscores. By setting the first
-  # parameter to <tt>true</tt> the first character can also be
-  # captizlized. The second parameter can be assigned a valid
-  # Regualr Expression characeter set to determine which
-  # characters to match for capitalizing subsequent parts of
-  # the symbol.
-  #
-  #   :this_is_a_test.camelcase              #=> :ThisIsATest
-  #   :this_is_a_test.camelcase(false)       #=> :thisIsATest
-  #
-  def camelcase( *args )
-    self.to_s.camelcase( *args ).to_sym
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCSymbol < Test::Unit::TestCase
-
-    def test_camelcase
-      assert_equal( :thisIsTest, :this_is_test.camelcase )
-    end
-
-  end
-
-=end