facets 1.8.54 → 2.0.0

data/lib/facets/core/file/self/split_all.rb

@@ -1,36 +0,0 @@
-
-# Splits a file path into an array of individual path components.
-# This differs from <tt>File.split</tt>, which divides the path into
-# only two parts, directory path and basename.
-#
-#   split_all("a/b/c") =>  ['a', 'b', 'c']
-#
-def File.split_all(path)
-  head, tail = File.split(path)
-  return [tail] if head == '.' || tail == '/'
-  return [head, tail] if head == '/'
-  return split_all(head) + [tail]
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCFile < Test::Unit::TestCase
-
-    def test_split_all
-      fp = "this/is/test"
-      assert_equal( ['this', 'is', 'test'], File.split_all(fp) )
-    end
-
-  end
-
-=end

data/lib/facets/core/file/self/write.rb

@@ -1,8 +0,0 @@
-
-# Write a file.
-
-def File.write( file, str )
-  File.open( file, 'w+' ) { |f|
-    f << str
-  }
-end

data/lib/facets/core/file/self/yaml.rb

@@ -1,16 +0,0 @@
-# Is a file a YAML file?
-# Note this isn't perfect. At present it depends on the use
-# use of an initial document separator (eg. '---'). With 
-# YAML 1.1 the %YAML delaration will be manditory, so in the
-# future this can be adapted to fit that standard.
-
-def File.yaml?(file)
-  File.open(file) do |f|
-    until f.eof?
-      line = f.gets
-      break true if line =~ /^---/
-      break false unless line =~ /^(\s*#.*?|\s*)$/
-    end
-  end
-end
-

data/lib/facets/core/filetest/self/root.rb

@@ -1,13 +0,0 @@
-#--
-# Special Thanks to Jeffrey Schwab.
-#++
-
-# Is the specified directory the root directory?
-
-def FileTest.root?(dir)
-  pth = File.expand_path(dir)
-  return true if pth == '/'
-  return true if pth =~ /^(\w:)?\/$/
-  false
-end
-

data/lib/facets/core/fileutils/compress.rb

@@ -1,154 +0,0 @@
-require 'facets/more/minitar'
-require 'zlib'
-
-# Extentions to FileUtils adding compression methods.
-#
-#--
-# TODO Most of this shells out. It would be best to internalize.
-#++
-
-module FileUtils
-
-  COMPRESS_FORMAT = {
-    'tar.gz'  => 'tar_gzip',
-    'tgz'     => 'tar_gzip',
-    'tar.bz2' => 'tar_bzip',
-    'zip'     => 'zip',
-
-    '.tar.gz'  => 'tar_gzip',
-    '.tgz'     => 'tar_gzip',
-    '.tar.bz2' => 'tar_bzip',
-    '.zip'     => 'zip'
-  }
-
-  module_function
-
-  # Compress based on given extension.
-  # Supported extensions are:
-  # * tar.gz
-  # * tgz
-  # * tar.bz2
-  # * zip
-
-  def compress( format_extension, folder, to_file=nil )
-    format = COMPRESS_FORMAT[format_extension]
-    if format
-      send(format, folder, to_file)
-    else
-      raise ArgumentError, "unknown compression format -- #{format_extension}"
-    end
-  end
-
-  # Tar Gzip
-
-  def tar_gzip( folder, to_file=nil )
-    require 'zlib'
-    to_file ||= File.basename(File.expand_path(folder)) + '.tar.gz'
-    puts "tar --gzip -czf #{to_file} #{folder}" if $VERBOSE
-
-    gzIO = Zlib::GzipWriter.new(File.open(to_file, 'wb'))
-    Archive::Tar::Minitar.pack(folder, gzIO)
-
-    return File.expand_path(to_file)
-  end
-  alias_method :tar_gz, :tar_gzip
-
-  # Untar Gzip
-
-  def untar_gzip( file )
-    require 'zlib'
-    # TODO Write internalized untar_gzip function.
-
-  end
-  alias_method :untar_gz, :untar_gzip
-
-  # Tar Bzip2
-
-  def tar_bzip( folder, to_file=nil )
-    to_file ||= File.basename(File.expand_path(folder)) + '.tar.bz2'
-    cmd = "tar --bzip2 -cf #{to_file} #{folder}"
-    puts cmd
-    system cmd
-    return File.expand_path(to_file)
-  end
-  alias_method :tar_bz2, :tar_bzip
-
-  # Untar Bzip2
-
-  def untar_bzip( file )
-    cmd = "tar --bzip2 -xf #{file}"
-    puts cmd
-    system cmd
-  end
-  alias_method :untar_bz2, :untar_bzip
-
-  # Zip
-
-  def zip( folder, to_file=nil )
-    to_file ||= File.basename(File.expand_path(folder)) + 'tar.bz2'
-    cmd = "zip -cf #{to_file} #{folder}"
-    puts cmd
-    system cmd
-    return File.expand_path(to_file)
-  end
-
-  # Unzip
-
-  def unzip( file )
-    cmd = "zip -xf #{file}"
-    puts cmd
-    system cmd
-  end
-
-  #
-
-  module DryRun
-
-    module_function
-
-    def compress( format, folder, to_file=nil )
-      send(FORMAT_TO_COMPRESS[format], folder, to_file)
-    end
-
-    # Tar Gzip
-
-    def tar_gzip( folder, to_file=nil )
-      to_file ||= File.basename(File.expand_path(folder)) + '.tar.gz'
-      puts "tar --gzip -czf #{to_file} #{folder}"
-    end
-
-    # Untar Gzip
-
-    def untar_gzip( file )
-      puts "tar --gzip -xzf #{file}"
-    end
-
-    # Tar Bzip2
-
-    def tar_bzip( folder, to_file=nil )
-      puts "tar --bzip2 -cf #{to_file} #{folder}"
-    end
-    alias_method :tar_bz2, :tar_bzip
-
-    # Untar Bzip2
-
-    def untar_bzip( file )
-      puts "tar --bzip2 -xf #{file}"
-    end
-    alias_method :untar_bz2, :untar_bzip
-
-    # Zip
-
-    def zip( folder, to_file=nil )
-      puts "zip -cf #{to_file} #{folder}"
-    end
-
-    # Unzip
-
-    def unzip( file )
-      puts "zip -xf #{file}"
-    end
-
-  end
-
-end

data/lib/facets/core/fileutils/head.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facets/core/fileutils/slice'

data/lib/facets/core/fileutils/safe_ln.rb

@@ -1,38 +0,0 @@
-#--
-# Credit goes to Jim Weirich
-#++
-
-require 'fileutils'
-
-module FileUtils
-
-  module_function
-
-  LINKING_SUPPORTED = [true]
-
-  # Attempt to do a normal file link, but fall back
-  # to a copy if the link fails.
-  def safe_ln(*args)
-    unless LINKING_SUPPORTED[0]
-      cp(*args)
-    else
-      begin
-        ln(*args)
-      rescue Errno::EOPNOTSUPP
-        LINKING_SUPPORTED[0] = false
-        cp(*args)
-      end
-    end
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO

data/lib/facets/core/fileutils/slice.rb

@@ -1,152 +0,0 @@
-
-require 'fileutils'
-
-module FileUtils
-
-  module_function
-
-  # In block form, yields the first number of ((*lines*)) of file ((*filename*)).
-  # In non-block form, it returns an array of the first number of ((*lines*)).
-  #
-  #   # Returns first 10 lines of 'myfile'
-  #   FileUtils.head("myfile")
-  #
-  def head(filename,lines=10) #:yield:
-    a = []
-    IO.foreach(filename){|line|
-        break if lines <= 0
-        lines -= 1
-        if block_given?
-          yield line
-        else
-          a << line
-        end
-    }
-    return a.empty? ? nil : a
-  end
-
-  # In block form, yields the last number of ((*lines*)) of file ((*filename*)).
-  # In non-block form, it returns the lines as an array.
-  #
-  # Note that this method slurps the entire file, so I don't recommend it
-  # for very large files.  If you want an advanced form of ((*tail*)), I
-  # suggest using file-tail, by Florian Frank (available on the RAA).
-  # And no tail -f.
-  #
-  #   # Returns last 3 lines of 'myfile'
-  #   FileUtils.tail("myfile",3)
-  #
-  def tail(filename,lines=10) #:yield
-    IO.readlines(filename).reverse[0..lines-1].reverse
-  end
-
-  # In block form, yields lines ((*from*))-((*to*)).  In non-block form,
-  # returns an array of lines ((*from*))-((*to*)).
-  #
-  #   # Returns lines 8-12 of 'myfile'
-  #   FileUtils.body("myfile",8,12)
-  #
-  #--
-  # Credit goes to Shashank Date, via Daniel Berger.
-  #++
-  def slice(filename,from,to) #:yield:
-    IO.readlines(filename)[from-1..to-1]
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-
-# TODO This test have been remarked out until such time
-#      as a mock FileSystem can be used to test it against.
-
-=begin #test
-
-  require 'test/unit'
-
-  # FIND TEST DIRECTORY
-  paths = File.expand_path(File.dirname(__FILE__)).split('/')
-  paths.size.downto(1) do |i|
-    f = (paths.slice(0..i)+['test']).join('/')
-    $TESTDIR = File.join(f,'FIXTURE') if File.directory?(f)
-  end
-  raise unless $TESTDIR
-
-  class TC_FileUtils_HeadTail < Test::Unit::TestCase
-
-    def setup
-      @workdir = Dir.getwd
-      @thisdir = $TESTDIR
-
-      @tfile = 'test_file.txt'
-
-      @expected_head1 = ["line1\n","line2\n","line3\n","line4\n","line5\n"]
-      @expected_head1.push("line6\n","line7\n","line8\n","line9\n","line10\n")
-      @expected_head2 = ["line1\n","line2\n","line3\n","line4\n","line5\n"]
-
-      @expected_tail1 = ["line16\n","line17\n","line18\n","line19\n","line20\n"]
-      @expected_tail1.push("line21\n","line22\n","line23\n","line24\n","line25\n")
-      @expected_tail2 = ["line21\n","line22\n","line23\n","line24\n","line25\n"]
-
-      @expected_body1 = ["line10\n", "line11\n", "line12\n", "line13\n", "line14\n"]
-      @expected_body1.push("line15\n","line16\n", "line17\n", "line18\n", "line19\n","line20\n")
-      @expected_body2 = ["line14\n","line15\n","line16\n","line17\n","line18\n","line19\n","line20\n"]
-      @expected_body3 = ["line5\n","line6\n","line7\n","line8\n","line9\n","line10\n"]
-    end
-
-    def test_method
-      assert_respond_to( FileUtils, :head )
-      assert_respond_to( FileUtils, :tail )
-      assert_respond_to( FileUtils, :slice )
-    end
-
-    # head
-
-    def test_head
-      Dir.chdir @thisdir
-      begin
-      assert_nothing_raised{ FileUtils.head(@tfile) }
-      assert_nothing_raised{ FileUtils.head(@tfile,5) }
-      assert_equal(@expected_head1,FileUtils.head(@tfile))
-      assert_equal(@expected_head2,FileUtils.head(@tfile,5))
-      ensure
-        Dir.chdir @workdir
-      end
-    end
-
-    # slice
-
-    def test_slice
-      Dir.chdir @thisdir
-      begin
-        assert_nothing_raised{ FileUtils.slice(@tfile,5,10) }
-        assert_equal(@expected_body3,FileUtils.slice(@tfile,5,10))
-      ensure
-        Dir.chdir @workdir
-      end
-    end
-
-    # tail
-
-    def test_tail
-      Dir.chdir @thisdir
-      begin
-        assert_nothing_raised{ FileUtils.tail(@tfile) }
-        assert_nothing_raised{ FileUtils.tail(@tfile,5) }
-        assert_equal(@expected_tail1,FileUtils.tail(@tfile))
-        assert_equal(@expected_tail2,FileUtils.tail(@tfile,5))
-      ensure
-        Dir.chdir @workdir
-      end
-    end
-
-  end
-
-=end

data/lib/facets/core/fileutils/split_all.rb

@@ -1,29 +0,0 @@
-
-module FileUtils
-
-  module_function
-
-  # Splits a file path into an array of individual path components.
-  # This differs from <tt>File.split</tt>, which divides the path into
-  # only two parts, directory path and basename.
-  #
-  #   split_all("a/b/c") =>  ['a', 'b', 'c']
-  #
-  def split_all(path)
-    head, tail = File.split(path)
-    return [tail] if head == '.' || tail == '/'
-    return [head, tail] if head == '/'
-    return split_all(head) + [tail]
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO
-