tins 0.3.0

data/lib/tins/xt/count_by.rb

@@ -0,0 +1,11 @@
+require 'tins/count_by'
+
+module Tins
+  module ::Enumerable
+    include CountBy
+  end
+
+  class ::Array
+    include CountBy
+  end
+end

data/lib/tins/xt/deep_dup.rb

@@ -0,0 +1,7 @@
+require 'tins/deep_dup'
+
+module Tins
+  class ::Object
+    include Tins::DeepDup
+  end
+end

data/lib/tins/xt/file_binary.rb

@@ -0,0 +1,7 @@
+require 'tins/file_binary'
+
+module Tins
+  class ::File
+    include FileBinary
+  end
+end

data/lib/tins/xt/full.rb

@@ -0,0 +1,33 @@
+require 'tins/xt/blank'
+
+module Tins
+  module Full
+    # Returns the object if it isn't blank (as in Object#blank?), otherwise it
+    # returns nil. If a block was given as an argument and the object isn't
+    # blank, the block is executed with the object as its first argument. If an
+    # argument +dispatch+ was given and the object wasn't blank the method
+    # given by dispatch is called on the object. This is the same as
+    # foo.full?(&:bar) in the previous block form.
+    def full?(dispatch = nil, *args)
+      if blank?
+        obj = nil
+      #elsif Module === dispatch # TODO
+      #  dispatch.found?(self)
+      elsif dispatch
+        obj = __send__(dispatch, *args)
+        obj = nil if obj.blank?
+      else
+        obj = self
+      end
+      if block_given? and obj
+        yield obj
+      else
+        obj
+      end
+    end
+  end
+
+  class ::Object
+    include Full
+  end
+end

data/lib/tins/xt/hash_symbolize_keys_recursive.rb

@@ -0,0 +1,7 @@
+require 'tins/hash_symbolize_keys_recursive'
+
+module Tins
+  class ::Hash
+    include HashSymbolizeKeysRecursive
+  end
+end

data/lib/tins/xt/hash_union.rb

@@ -0,0 +1,11 @@
+require 'tins/hash_union'
+
+module Tins
+  class ::Hash
+    if method_defined?(:|)
+      warn "#{self}#| already defined, didn't include at #{__FILE__}:#{__LINE__}"
+    else
+      include HashUnion
+    end
+  end
+end

data/lib/tins/xt/irb.rb

@@ -0,0 +1,17 @@
+require 'irb'
+
+module Tins
+  IRB = ::IRB
+
+  module ::IRB
+    def self.examine(binding = TOPLEVEL_BINDING)
+      setup nil
+      workspace = WorkSpace.new binding
+      irb = Irb.new workspace
+      @CONF[:MAIN_CONTEXT] = irb.context
+      catch(:IRB_EXIT) { irb.eval_input }
+    rescue Interrupt
+      exit
+    end
+  end
+end

data/lib/tins/xt/named.rb

@@ -0,0 +1,35 @@
+require 'tins/xt/string_version'
+
+class Object
+  if RUBY_VERSION.version >= '1.9'.version
+    def named(name, method, *args, &named_block)
+      extend Module.new {
+        define_method(name) do |*rest, &block|
+          block = named_block if named_block
+          __send__(method, *(args + rest), &block)
+        end
+      }
+    end
+  else
+    def named(name, method, *args, &block)
+      extend Module.new { define_method(name) { |*rest| __send__(method, *(args + rest), &block) } }
+    end
+  end
+end
+
+class Module
+  if RUBY_VERSION.version >= '1.9'.version
+    def named(name, method, *args, &named_block)
+      include Module.new {
+        define_method(name) do |*rest, &block|
+          block = named_block if named_block
+          __send__(method, *(args + rest), &block)
+        end
+      }
+    end
+  else
+    def named(name, method, *args, &block)
+      include Module.new { define_method(name) { |*rest| __send__(method, *(args + rest), &block) } }
+    end
+  end
+end

data/lib/tins/xt/null.rb

@@ -0,0 +1,5 @@
+require 'tins/null'
+
+module Tins
+  ::NULL = Tins::NULL
+end

data/lib/tins/xt/p.rb

@@ -0,0 +1,7 @@
+require 'tins/p'
+
+module Tins
+  class ::Object
+    include Tins::P
+  end
+end

data/lib/tins/xt/partial_application.rb

@@ -0,0 +1,11 @@
+require 'tins/partial_application'
+
+module Tins
+  class ::Proc
+    include PartialApplication
+  end
+
+  class ::Method
+    include PartialApplication
+  end
+end

data/lib/tins/xt/range_plus.rb

@@ -0,0 +1,12 @@
+require 'tins/range_plus'
+
+module Tins
+  class ::Range
+    if method_defined?(:+)
+      warn "#{self}#+ already defined, didn't include at #{__FILE__}:#{__LINE__}"
+    else
+      include RangePlus
+    end
+  end
+end
+

data/lib/tins/xt/round.rb

@@ -0,0 +1,13 @@
+require 'tins/round'
+
+module Tins
+  module Round
+    class ::Float
+      include Round
+    end
+
+    class ::Integer
+      include Round
+    end
+  end
+end

data/lib/tins/xt/secure_write.rb

@@ -0,0 +1,11 @@
+require 'tins/secure_write'
+
+module Tins
+  #class ::Object
+  #  include Tins::SecureWrite
+  #end
+
+  class ::IO
+    extend Tins::SecureWrite
+  end
+end

data/lib/tins/xt/shuffle.rb

@@ -0,0 +1,11 @@
+require 'tins/shuffle'
+
+module Tins
+  class ::Array
+    if method_defined?(:shuffle)
+      warn "#{self}#shuffle already defined, didn't include at #{__FILE__}:#{__LINE__}"
+    else
+      include Shuffle
+    end
+  end
+end

data/lib/tins/xt/string.rb

@@ -0,0 +1,5 @@
+module Tins
+  require 'tins/xt/string_camelize'
+  require 'tins/xt/string_underscore'
+  require 'tins/xt/string_version'
+end

data/lib/tins/xt/string_camelize.rb

@@ -0,0 +1,6 @@
+module Tins
+  require 'tins/string_camelize'
+  class ::String
+    include StringCamelize
+  end
+end

data/lib/tins/xt/string_underscore.rb

@@ -0,0 +1,6 @@
+module Tins
+  require 'tins/string_underscore'
+  class ::String
+    include StringUnderscore
+  end
+end

data/lib/tins/xt/string_version.rb

@@ -0,0 +1,7 @@
+module Tins
+  require 'tins/string_version'
+
+  class ::String
+    include StringVersion
+  end
+end

data/lib/tins/xt/subhash.rb

@@ -0,0 +1,11 @@
+require 'tins/subhash'
+
+module Tins
+  class ::Hash
+    include Tins::Subhash
+
+    def subhash!(*patterns)
+      replace subhash(*patterns)
+    end
+  end
+end

data/lib/tins/xt/symbol_to_proc.rb

@@ -0,0 +1,7 @@
+module Tins
+  unless ::Symbol.method_defined?(:to_proc)
+    class ::Symbol
+      include ToProc
+    end
+  end
+end

data/lib/tins/xt/time_dummy.rb

@@ -0,0 +1,7 @@
+require 'tins/time_dummy'
+
+module Tins
+  class ::Time
+    include TimeDummy
+  end
+end

data/lib/tins/xt/uniq_by.rb

@@ -0,0 +1,15 @@
+require 'tins/uniq_by'
+
+module Tins
+  module ::Enumerable
+    include UniqBy
+  end
+
+  class ::Array
+    include UniqBy
+
+    def uniq_by!(&b)
+      replace uniq_by(&b)
+    end
+  end
+end

data/lib/tins/xt/write.rb

@@ -0,0 +1,11 @@
+require 'tins/write'
+
+module Tins
+  #class ::Object
+  #  include Tins::Write
+  #end
+
+  class ::IO
+    extend Tins::Write
+  end
+end

data/tests/tins_file_binary_test.rb

@@ -0,0 +1,67 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require 'tempfile'
+require 'tins/xt/file_binary'
+
+module Tins
+  class TinsFileBinaryTest < Test::Unit::TestCase
+    def test_ascii_buffer_size
+      write_file do |file|
+        file.write "A" * 10 + "\x00"
+        assert_equal true,  file.ascii?(:buffer_size => 10)
+        assert_equal true,  File.ascii?(file.path, :buffer_size => 10)
+        assert_equal false, file.binary?(:buffer_size => 10)
+        assert_equal false, File.binary?(file.path, :buffer_size => 10)
+      end
+    end
+
+    def test_binary
+      write_file do |file|
+        file.write "A" * 69 + "\x01" * 31
+        assert_equal true,  file.binary?
+        assert_equal true,  File.binary?(file.path)
+        assert_equal false, file.ascii?
+        assert_equal false, File.ascii?(file.path)
+      end
+    end
+
+    def test_ascii_offset
+      write_file do |file|
+        file.write "\x01" * 31 + "A" * 70
+        assert_equal false, file.binary?(:offset => 1)
+        assert_equal false, File.binary?(file.path, :offset => 1)
+        assert_equal true,  file.ascii?(:offset => 1)
+        assert_equal true,  File.ascii?(file.path, :offset => 1)
+      end
+    end
+
+    def test_binary_zero
+      write_file do |file|
+        file.write "A" * 50 + "\0"  + "A" * 49
+        assert_equal true,  file.binary?
+        assert_equal true,  File.binary?(file.path)
+        assert_equal false, file.ascii?
+        assert_equal false, File.ascii?(file.path)
+      end
+    end
+
+    def test_ascii
+      write_file do |file|
+        file.write "A" * 100
+        assert_equal false, file.binary?
+        assert_equal false, File.binary?(file.path)
+        assert_equal true,  file.ascii?
+        assert_equal true,  File.ascii?(file.path)
+      end
+    end
+
+    private
+
+    def write_file
+      File.open(File.join(Dir.tmpdir, "temp.#$$"), 'wb+') do |file|
+        yield file
+      end
+    end
+  end
+end

data/tests/tins_lines_file_test.rb

@@ -0,0 +1,84 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require 'tempfile'
+require 'tins/lines_file'
+
+module Tins
+  class TinsLinesFileTest < Test::Unit::TestCase
+    FILE = <<EOT
+def foo
+end
+
+def bar
+end
+
+def baz
+end
+EOT
+
+    def test_instantiation
+      write_file do |file|
+        file.write FILE
+        file.rewind
+        assert_kind_of Tins::LinesFile, lf = Tins::LinesFile.for_file(file)
+        assert_equal [ "def foo\n", 1 ], [ lf.line, lf.line.line_number ]
+        assert_kind_of Tins::LinesFile, lf = Tins::LinesFile.for_filename(file.path)
+        assert_equal [ "def foo\n", 1 ], [ lf.line, lf.line.line_number ]
+        file.rewind
+        assert_kind_of Tins::LinesFile, lf = Tins::LinesFile.for_lines(file.readlines)
+        assert_equal [ "def foo\n", 1 ], [ lf.line, lf.line.line_number ]
+      end
+    end
+
+    def test_match
+      write_file do |file|
+        file.write FILE
+        file.rewind
+        lf = Tins::LinesFile.for_file(file)
+        assert_equal "def foo\n", lf.line
+        assert_equal 1, lf.line.line_number
+        assert_equal %w[foo], lf.match_forward(/def (\S+)/)
+        assert_equal "def foo\n", lf.line
+        assert_equal %w[foo], lf.match_forward(/def (\S+)/, true)
+        assert_equal 2, lf.line.line_number
+        assert_equal "end\n", lf.line
+        assert_equal %w[bar], lf.match_forward(/def (\S+)/, true)
+        assert_equal 5, lf.line.line_number
+        assert_equal %w[baz], lf.match_forward(/def (\S+)/, true)
+        assert_nil   lf.match_forward(/def (\S+)/, true)
+        assert_equal "end\n", lf.line
+        assert_equal 8, lf.line.line_number
+        assert_equal %w[baz], lf.match_backward(/def (\S+)/)
+        assert_equal "def baz\n", lf.line
+        assert_equal 7, lf.line.line_number
+        assert_equal %w[baz], lf.match_backward(/def (\S+)/, true)
+        assert_equal "\n", lf.line
+        assert_equal 6, lf.line.line_number
+        assert_equal %w[bar], lf.match_backward(/def (\S+)/, true)
+        assert_equal %w[foo], lf.match_backward(/def (\S+)/, true)
+        assert_equal nil, lf.match_backward(/nada/, true)
+      end
+    end
+
+    def test_empty_and_not
+      lf = Tins::LinesFile.for_lines []
+      assert_equal true, lf.empty?
+      assert_equal 0, lf.last_line_number
+      assert_equal [], lf.to_a
+      lf = Tins::LinesFile.for_lines [ "foo\n" ]
+      assert_equal false, lf.empty?
+      assert_equal 1, lf.last_line_number
+      assert_equal [ "foo\n" ], lf.to_a
+      assert_equal [ "foo\n", 1 ], [ lf.line, lf.line.line_number ]
+    end
+
+    private
+
+    def write_file
+      File.open(File.join(Dir.tmpdir, "temp.#$$"), 'wb+') do |file|
+        yield file
+      end
+    end
+  end
+end