ftools.rb

class << File

  TOO_BIG = 1024 * 1024 * 2 # 2MB

  def catname from, to
    if FileTest.directory? to
      to +
	if to =~ /\\/
	  if to[-1,1] != '\\' then '\\' end + basename(from)
	else
	  if to[-1,1] != '/' then '/' end + basename(from)
	end
    else
      to
    end
  end

# copy file

  def syscopy from, to
    to = catname(from, to)

    fsize = size(from)
    fsize = 1024 if fsize < 512
    fsize = TOO_BIG if fsize > TOO_BIG

    from = open(from, "r")
    from.binmode
    to = open(to, "w")
    to.binmode

    begin
      while TRUE
	r = from.sysread(fsize)
	rsize = r.size
        w = 0
	while w < rsize
	  t = to.syswrite(r[w, rsize - w])
	  w += t
	end
      end
    rescue EOFError
      ret = TRUE
    rescue
      ret = FALSE
    ensure
      to.close
      from.close
    end
    ret
  end

  def copy from, to, verbose = FALSE
    $stderr.print from, " -> ", catname(from, to), "\n" if verbose
    syscopy from, to
  end

  alias cp copy

# move file

  def move from, to, verbose = FALSE
    to = catname(from, to)
    $stderr.print from, " -> ", to, "\n" if verbose

    if PLATFORM =~ /djgpp|cygwin32|mswin32/ and FileTest.file? to
      unlink to
    end
    begin
      rename from, to
    rescue
      syscopy from, to and unlink from
    end
  end

  alias mv move

#  compare two files
#   TRUE:  identical
#   FALSE: not identical

  def compare from, to, verbose = FALSE
    $stderr.print from, " <=> ", to, "\n" if verbose
    fsize = size(from)
    fsize = 1024 if fsize < 512
    fsize = TOO_BIG if fsize > TOO_BIG

    from = open(from, "r")
    from.binmode
    to = open(to, "r")
    to.binmode

    ret = FALSE
    fr = tr = ''

    begin
      while fr == tr
	if fr = from.read(fsize)
	  tr = to.read(fr.size)
	else
	  ret = !to.read(fsize)
	  break
	end
      end
    rescue
      ret = FALSE
    ensure
      to.close
      from.close
    end
    ret
  end

  alias cmp compare

#  unlink files safely

  def safe_unlink(*files)
    verbose = if files[-1].is_a? String then FALSE else files.pop end
    begin
      $stderr.print files.join(" "), "\n" if verbose
      chmod 0777, *files
      unlink *files
    rescue
#      STDERR.print "warning: Couldn't unlink #{files.join ' '}\n"
    end
  end

  alias rm_f safe_unlink

  def makedirs(*dirs)
    verbose = if dirs[-1].is_a? String then FALSE else dirs.pop end
#    mode = if dirs[-1].is_a? Fixnum then dirs.pop else 0755 end
    mode = 0755
    for dir in dirs
      next if FileTest.directory? dir
      parent = dirname(dir)
      makedirs parent unless FileTest.directory? parent
      $stderr.print "mkdir ", dir, "\n" if verbose
      Dir.mkdir dir, mode
    end
  end

  alias mkpath makedirs

  alias o_chmod chmod

  def chmod(mode, *files)
    verbose = if files[-1].is_a? String then FALSE else files.pop end
    $stderr.printf "chmod %04o %s\n", mode, files.join(" ") if verbose
    o_chmod mode, *files
  end

  def install(from, to, mode = nil, verbose = false)
    to = catname(from, to)
    unless FileTest.exist? to and cmp from, to
      cp from, to, verbose
      chmod mode, to, verbose if mode
    end
  end

end
# vi:set sw=2: