facets 1.0.0 → 1.0.1

data/lib/facet/string/mscan.rb

@@ -1,42 +0,0 @@
-
-class String
-
-  # Like #scan but returns MatchData ($~) rather
-  # then matched string ($&).
-  #
-  def mscan(re) #:yield:
-    if block_given?
-      scan(re) { yield($~) }
-    else
-      m = []
-      scan(re) { m << $~ }
-      m
-    end
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_mscan
-      r = 'abc,def,gh'.mscan(/[,]/)
-      assert( r.all?{ |md| MatchData === md } )
-      assert_equal( 2, r.to_a.length )
-      assert_equal( ',', r[0][0] )
-      assert_equal( ',', r[1][0] )
-    end
-
-  end
-
-=end

data/lib/facet/string/natcmp.rb

@@ -1,108 +0,0 @@
-
-class String
-
-  # 'Natural order' comparison of two strings, e.g.
-  #
-  #   "my_prog_v1.1.0" < "my_prog_v1.2.0" < "my_prog_v1.10.0"
-  #
-  # which does not follow alphabetically. A secondary
-  # parameter, if set to _true_, makes the comparison
-  # case insensitive.
-  #
-  #   "Hello.10".natcmp("Hello.1")  #=> -1
-  #
-  #--
-  # Adapted from:
-  #
-  #   http://sourcefrog.net/projects/natsort/natcmp.rb
-  #
-  # Based on Martin Pool's "Natural Order String Comparison" originally
-  # written in C. (see http://sourcefrog.net/projects/natsort/)
-  #
-  # This implementation is Copyright (C) 2003 by Alan Davies
-  # <cs96and_AT_yahoo_DOT_co_DOT_uk>
-  #
-  # This software is provided 'as-is', without any express or implied
-  # warranty.  In no event will the authors be held liable for any damages
-  # arising from the use of this software.
-  #
-  # Permission is granted to anyone to use this software for any purpose,
-  # including commercial applications, and to alter it and redistribute it
-  # freely, subject to the following restrictions:
-  #
-  # 1. The origin of this software must not be misrepresented; you must not
-  #    claim that you wrote the original software. If you use this software
-  #    in a product, an acknowledgment in the product documentation would be
-  #    appreciated but is not required.
-  # 2. Altered source versions must be plainly marked as such, and must not be
-  #    misrepresented as being the original software.
-  # 3. This notice may not be removed or altered from any source distribution.
-  #
-  #++
-  def natcmp(str2, caseInsensitive=false)
-    str1 = self.dup
-    str2 = str2.dup
-    compareExpression = /^(\D*)(\d*)(.*)$/
-
-    if caseInsensitive
-      str1.downcase!
-      str2.downcase!
-    end
-
-    # remove all whitespace
-    str1.gsub!(/\s*/, '')
-    str2.gsub!(/\s*/, '')
-
-    while (str1.length > 0) or (str2.length > 0) do
-      # Extract non-digits, digits and rest of string
-      str1 =~ compareExpression
-      chars1, num1, str1 = $1.dup, $2.dup, $3.dup
-      str2 =~ compareExpression
-      chars2, num2, str2 = $1.dup, $2.dup, $3.dup
-      # Compare the non-digits
-      case (chars1 <=> chars2)
-        when 0 # Non-digits are the same, compare the digits...
-          # If either number begins with a zero, then compare alphabetically,
-          # otherwise compare numerically
-          if (num1[0] != 48) and (num2[0] != 48)
-            num1, num2 = num1.to_i, num2.to_i
-          end
-          case (num1 <=> num2)
-            when -1 then return -1
-            when 1 then return 1
-          end
-        when -1 then return -1
-        when 1 then return 1
-      end # case
-    end # while
-
-    # strings are naturally equal.
-    return 0
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_natcmp
-      assert( -1, "my_prog_v1.1.0".natcmp("my_prog_v1.2.0") )
-      assert( -1, "my_prog_v1.2.0".natcmp("my_prog_v1.10.0") )
-      assert( 1, "my_prog_v1.2.0".natcmp("my_prog_v1.1.0") )
-      assert( 1, "my_prog_v1.10.0".natcmp("my_prog_v1.2.0") )
-      assert( 0, "my_prog_v1.0.0".natcmp("my_prog_v1.0.0") )
-    end
-
-  end
-
-=end

data/lib/facet/string/nchar.rb

@@ -1,45 +0,0 @@
-
-class String
-
-  # Retrns _n_ characters of the string. If _n_ is positive
-  # the characters are from the beginning of the string.
-  # If _n_ is negative from the end of the string.
-  #
-  # Alternatively a replacement string can be given, which will
-  # replace the _n_ characters.
-  #
-  def nchar( n, replacement=nil )
-    if replacement
-      s = self.dup
-      n > 0 ? (s[0...n] = replacement) : (s[n..-1] = replacement)
-      return s
-    else
-      n > 0 ? self[0...n] : self[n..-1]
-    end
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_nchar
-      assert_equal( "abc", "abcxyz".nchar(3) )
-      assert_equal( "xyz", "abcxyz".nchar(-3) )
-      assert_equal( "HIxyz", "abcxyz".nchar(3, 'HI') )
-      assert_equal( "abcHI", "abcxyz".nchar(-3, 'HI') )
-    end
-
-  end
-
-=end

data/lib/facet/string/ordinal.rb

@@ -1,16 +0,0 @@
-require 'facet/integer/ordinal'
-
-class String
-  def ordinal
-    self.to_i.ordinal
-  end
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO

data/lib/facet/string/plural.rb

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

data/lib/facet/string/pop.rb

@@ -1,54 +0,0 @@
-
-class String
-
-  # Polymorphic with Array of characters.
-  def pop
-    return '' if size == 0
-    r = self[-1,1]
-    self[-1] = ''
-    r #self
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def setup
-      @a =  "012345"
-    end
-
-    def test_001
-      assert_raises( ArgumentError ) { @a.pop(1) }
-    end
-
-    def test_002
-      assert_equal( "5", @a.pop )
-      assert_equal( "01234", @a )
-      assert_equal( "4", @a.pop )
-      assert_equal( "0123", @a )
-      assert_equal( "3", @a.pop )
-      assert_equal( "012", @a )
-      assert_equal( "2", @a.pop )
-      assert_equal( "01", @a )
-      assert_equal( "1", @a.pop )
-      assert_equal( "0", @a )
-      assert_equal( "0", @a.pop )
-      assert_equal( "", @a )
-      assert_equal( "", @a.pop )
-      assert_equal( "", @a )
-    end
-
-  end
-
-=end

data/lib/facet/string/probability.rb

@@ -1,34 +0,0 @@
-
-require 'facet/string/to_arr'
-require 'facet/enumerable/probability'
-
-class String
-
-  def probability(*args)
-    to_arr(*args).probability
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_probability
-      assert_equal( {'a'=>0.5,'b'=>0.5}, "ab".probability )
-      assert_equal( {'tom'=>0.5,'boy'=>0.5}, "tom boy".probability(:word) )
-      assert_equal( {'tom'=>0.5,'boy'=>0.5}, "tom\nboy".probability(:line) )
-    end
-
-  end
-
-=end

data/lib/facet/string/pull.rb

@@ -1,17 +0,0 @@
-class String
-  # Same as #shift.
-  def pull
-    return '' if size == 0
-    self[0] = ''
-    self
-  end
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO

data/lib/facet/string/push.rb

@@ -1,44 +0,0 @@
-
-class String
-
-  # Polymorphic with Array of characters.
-  def push(str=' ')
-    concat(str)
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def setup
-      @a =  ""
-    end
-
-    def test_001
-      #assert_raises( ArgumentError ) { @a.push }
-      assert_raises( ArgumentError ) { @a.push(1,2) }
-    end
-
-    def test_002
-      assert_equal( "0", @a.push("0") )
-      assert_equal( "01", @a.push("1") )
-      assert_equal( "012", @a.push("2") )
-      assert_equal( "0123", @a.push("3") )
-      assert_equal( "01234", @a.push("4") )
-      assert_equal( "012345", @a.push("5") )
-    end
-
-  end
-
-=end

data/lib/facet/string/quote.rb

@@ -1,68 +0,0 @@
-require 'facet/string/bracket'
-
-class String
-
-  # Return a new string embraced by given quotes.
-  # If no quotes are specified, then assumes single quotes.
-  #
-  #   "quote me".quote     #=> "'quote me'"
-  #   "quote me".quote(2)  #=> "\"quote me\""
-  #
-  def quote(type=:s)
-    case type.to_s.downcase
-    when 's', 'single'
-      bracket("'")
-    when 'd', 'double'
-      bracket('"')
-    when 'b', 'back'
-      bracket('`')
-    else
-      bracket("'")
-    end
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def setup
-      @a =  "hi"
-    end
-
-    def test_001
-      assert_raises( ArgumentError ) { @a.quote(1,2) }
-    end
-
-    def test_002
-      assert_equal( %{'hi'}, @a.quote )
-    end
-
-    def test_003
-      assert_equal( %{"hi"}, @a.quote(:d) )
-      assert_equal( %{"hi"}, @a.quote(:double) )
-    end
-
-    def test_004
-      assert_equal( %{'hi'}, @a.quote(:s) )
-      assert_equal( %{'hi'}, @a.quote(:single) )
-    end
-
-    def test_005
-      assert_equal( %{`hi`}, @a.quote(:b) )
-      assert_equal( %{`hi`}, @a.quote(:back) )
-    end
-
-  end
-
-=end

data/lib/facet/string/rand_byte.rb

@@ -1,55 +0,0 @@
-
-class String
-
-  # Return a random byte of _self_.
-  #
-  #   "Ruby rules".rand_byte  #=> 121
-  #
-  def rand_byte
-    self[rand( size )]
-  end
-
-  # Destructive rand_byte. Delete a random byte of _self_ and return it.
-  #
-  #   s = "Ruby rules"
-  #   s.rand_byte!      #=> 121
-  #   s                 #=> "Rub rules"
-  #
-  def rand_byte!
-    i = rand( size )
-    rv = self[i,1]
-    self[i,1] = ''
-    rv
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCString < Test::Unit::TestCase
-
-    def test_rand_byte
-      s = 'ab'
-      r = s.rand_byte
-      assert( r == 97 || r == 98 )
-    end
-
-    def test_rand_byte
-      s = 'ab'
-      r = s.rand_byte
-      assert( r == 97 || r == 98 )
-      assert( s = 'a' || s = 'b' )
-    end
-
-  end
-
-=end