facets 1.0.0 → 1.0.1

data/lib/facet/string/blank.rb

@@ -1,36 +0,0 @@
-
-class String
-
-  # Is this string just whitespace?
-  #
-  #   "abc".blank?  #=> false
-  #   "   ".blank?  #=> true
-  #
-  def blank?
-    self !~ /\S/
-  end
-  alias_method :whitespace?, :blank?
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_blank?
-      assert( ! "xyz".blank? )
-      assert( "     ".blank? )
-    end
-
-  end
-
-=end

data/lib/facet/string/bracket.rb

@@ -1,70 +0,0 @@
-
-class String
-
-  def self.bra2ket
-    @bra2ket ||= { '['=>']', '('=>')', '{'=>'}', '<'=>'>' }
-  end
-
-  # Return a new string embraced by given brakets.
-  # If only one bracket char is given it will be placed
-  # on either side.
-  #
-  #   "wrap me".bracket('{')        #=> "{wrap me}"
-  #   "wrap me".bracket('--','!')   #=> "--wrap me!"
-  #
-  def bracket(bra, ket=nil)
-    #ket = String.bra2ket[$&] if ! ket && /^[\[({<]$/ =~ bra
-    ket = String.bra2ket[bra] unless ket
-    "#{bra}#{self}#{ket ? ket : bra}"
-  end
-
-  # Inplace version of #braket.
-  def bracket!(bra, ket=nil)
-    self.replace( self.bracket(bra, ket) )
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_bracket
-      assert_equal( '#X#', 'X'.bracket('#') )
-      assert_equal( 'xX!', 'X'.bracket('x','!') )
-      assert_equal( '{X}', 'X'.bracket('{','}') )
-      assert_equal( '<X>', 'X'.bracket('<') )
-      assert_equal( '(X)', 'X'.bracket('(') )
-      assert_equal( '[X]', 'X'.bracket('[') )
-      assert_equal( '{X}', 'X'.bracket('{') )
-    end
-
-    def test_braket!
-      a = 'X' ; a.bracket!('#')
-      assert_equal( '#X#', a )
-      a = 'X' ; a.bracket!('x','!')
-      assert_equal( 'xX!', a )
-      a = 'X' ; a.bracket!('{','}')
-      assert_equal( '{X}', a )
-      a = 'X' ; a.bracket!('<')
-      assert_equal( '<X>', a )
-      a = 'X' ; a.bracket!('(')
-      assert_equal( '(X)', a )
-      a = 'X' ; a.bracket!('[')
-      assert_equal( '[X]', a )
-      a = 'X' ; a.bracket!('{')
-      assert_equal( '{X}', a )
-    end
-
-  end
-
-=end

data/lib/facet/string/brief.rb

@@ -1,33 +0,0 @@
-#--
-# Credit goes to George Moschovitis.
-#++
-class String
-
-  # Returns short abstract of long strings (first 'count'
-  # characters, chopped at the nearest word, appended by '...')
-  # force_cutoff: break forcibly at 'count' chars. Does not accept
-  # count < 2.
-  def brief(string, count = 128, force_cutoff = false, ellipsis="...")
-    return nil unless string
-    return nil if count < 2
-
-    if string.size > count
-      cut_at = force_cutoff ? count : (string.index(' ', count-1) || count)
-      xstring = string.slice(0, cut_at)
-      return xstring.chomp(" ") + ellipsis
-    else
-      return string
-    end
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO
-

data/lib/facet/string/bytes.rb

@@ -1,19 +0,0 @@
-
-class String
-
-  # Upacks string ginto bytes.
-  #
-  def bytes
-    self.unpack('C*')
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO

data/lib/facet/string/camelcase.rb

@@ -1,58 +0,0 @@
-
-class String
-
-  # Converts a string 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 string.
-  #
-  #   "this_is a test".camelcase             #=> "thisIsATest"
-  #   "this_is a test".camelcase(true)       #=> "ThisIsATest"
-  #   "this_is a test".camelcase(true, ' ')  #=> "This_isATest"
-  #
-  def camelcase( first=false, on='_\s' )
-    if first
-      gsub(/(^|[#{on}]+)([A-Za-z])/){ $2.upcase }
-    else
-      gsub(/([#{on}]+)([A-Za-z])/){ $2.upcase }
-    end
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_camelcase
-      assert_equal( "abcXyz", "abc_xyz".camelcase )
-      assert_equal( "abcXyz", "abc xyz".camelcase )
-      assert_equal( "abcXyz", "abc  xyz".camelcase )
-      assert_equal( "abcXyz", "abc\txyz".camelcase )
-      assert_equal( "abcXyz", "abc\nxyz".camelcase )
-      assert_equal( "abcXyz", "abc____xyz".camelcase )
-    end
-
-    def test_camelcase_true
-      assert_equal( "AbcXyz", "abc_xyz".camelcase(true) )
-      assert_equal( "AbcXyz", "abc xyz".camelcase(true) )
-      assert_equal( "AbcXyz", "abc  xyz".camelcase(true) )
-      assert_equal( "AbcXyz", "abc\txyz".camelcase(true) )
-      assert_equal( "AbcXyz", "abc\nxyz".camelcase(true) )
-    end
-
-  end
-
-=end

data/lib/facet/string/camelize.rb

@@ -1,35 +0,0 @@
-
-class String
-
-  # Variation of coverting a string to camelcase. This is unlike
-  # #camelcase in that it is geared toward code reflection use.
-  #
-  #   "this/is_a_test".camelize  #=> This::IsATest
-  #
-  def camelize
-    #to_s.gsub(/(^|_)(.)/){$2.upcase}
-    to_s.gsub(/\/(.?)/){ "::" + $1.upcase }.gsub(/(^|_)(.)/){ $2.upcase }
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_camelize
-      assert_equal( 'ThisIsIt', 'this_is_it'.camelize )
-    end
-
-  end
-
-=end

data/lib/facet/string/capitalized.rb

@@ -1,38 +0,0 @@
-
-class String
-
-  # Return true if the string is capitalized, otherwise false.
-  #
-  #   "THIS".capitalized?  #=> true
-  #   "This".capitalized?  #=> true
-  #   "this".capitalized?  #=> false
-  #
-  #--
-  # Credit goes to Phil Tomson.
-  #++
-  def capitalized?
-    self =~ /^[A-Z]/
-  end
-
-end #class String
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_capitalized?
-      assert( 'Abc'.capitalized? )
-    end
-
-  end
-
-=end

data/lib/facet/string/chars.rb

@@ -1,34 +0,0 @@
-
-class String
-
-  # Returns an array of characters.
-  #
-  #   "abc".chars  #=> ["a","b","c"]
-  #
-  def chars
-    self.split(//)
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_chars
-      assert_equal( ["a","b","c"], "abc".chars )
-      assert_equal( ["a","b","\n","c"], "ab\nc".chars )
-    end
-
-  end
-
-=end

data/lib/facet/string/cmp.rb

@@ -1,43 +0,0 @@
-
-class String
-
-  # Compare method that takes length into account.
-  # Unlike #<=>, this is compatible with #succ.
-  #
-  #   "abc".cmp("abc")   #=>  0
-  #   "abcd".cmp("abc")  #=>  1
-  #   "abc".cmp("abcd")  #=> -1
-  #   "xyz".cmp("abc")   #=>  1
-  #
-  def cmp(other)
-    return -1 if length < other.length
-    return 1 if length > other.length
-    self <=> other  # alphabetic compare
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_cmp
-      assert_equal( 0, "abc".cmp("abc") )
-      assert_equal( -1, "abc".cmp("abcd") )
-      assert_equal( 1, "abcd".cmp("abc") )
-      assert_equal( -1, "abc".cmp("bcd") )
-      assert_equal( 1, "bcd".cmp("abc") )
-    end
-
-  end
-
-=end

data/lib/facet/string/demodulize.rb

@@ -1,40 +0,0 @@
-require 'facet/string/basename'
-
-class String
-
-  alias_method :demodulize, :basename  # a la Rails
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def setup
-      @a =  "Down::Bottom"
-      @b =  "Further::Down::Bottom"
-    end
-
-    def test_001
-      assert_raises( ArgumentError ) { @a.demodulize(1) }
-    end
-
-    def test_002
-      assert_equal( "Bottom", @a.demodulize )
-    end
-
-    def test_003
-      assert_equal( "Bottom", @b.demodulize )
-    end
-  end
-
-=end

data/lib/facet/string/dequote.rb

@@ -1,29 +0,0 @@
-class String
-
-  def dequote
-    s = self.dup
-
-    case self[0,1]
-    when "'", '"', '`'
-      s[0] = ''
-    end
-
-    case self[-1,1]
-    when "'", '"', '`'
-      s[-1] = ''
-    end
-
-    s
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO
-