[ruby-list:6711] Re: call for scripts

In message <[e-mail]>
Kazuhisa YANAGAWA <[e-mail]> writes:

>   せっかくですから, より一層発展するといいですね.

  珍しく言ったきりでなくて手を動かしてみました. とりあえず find を使っ
  て再帰的にサブディレクトリをアーカイブします. 中身でやってることはオ
  リジナルとほぼ同じです. ただアーカイブの形式はちょっと違うようになっ
  ています.

  # 単なる趣味 (^^;

    rar archive-name root-directory

  という形で起動すると archive-name のアーカイブができます.
  root-directory で指定したディレクトリに展開しようとするので絶対パス
  でアーカイブを作ると困ります (^^; 相対パスで作っても `../foo' なんて
  指定をすると, 展開する時には展開しようとしたディレクトリの `../foo' 
  に展開してくれます (^^;;

  「pack を使った方が速くなる」とかいう議論も見ていたのですが, 結局 
  pack の使い方が良くわからないんで encode はオリジナルのままです.

  # イテレータと here document を多用するとこんなにわかりにくく書けま
  # すという例を書いたような気もしますね....

======================================================================
  柳川 @ 情報システム学研究科 . 電気通信大学
  [e-mail]                          February 24, 1998
Translaters, traitors.


#!/usr/local/bin/ruby

require "find"
require "base64"
require "ftools"

arch = ARGV.shift
tmpar = "/tmp/#{arch}"
root = ARGV.shift
dirs = []

if not arch or not root
  $stderr.puts "Usage: #{$0} archive root"
  exit 1
end

File.open(tmpar, "w") do
  |ar|
  Find.find(root) do
    |f|
    next if File.directory? f or f =~ arch
    dir, file = File.split(f)
    file.gsub!(/\W/, "_")              # for safty
    dirs << dir if not dirs.include? dir
    ar.puts <<_EXPAND_CODE_PRE
File.open("#{f}", "w") do
  |fp|
  text = <<_END_OF_#{file}
_EXPAND_CODE_PRE
    File.open(f) do
      |fp|
      text = encode64(fp.readlines)
      text.gsub!(/.{72}/, "\\&\n")
      ar.puts text
    end
    ar.puts <<_EXPAND_CODE_POST
_END_OF_#{file}
fp.puts text.unpack("m")
end

_EXPAND_CODE_POST
  end
end

File.open(arch, "w") do
  |ar|
  ar.puts <<_HEAD
#!/usr/local/bin/ruby
require "ftools"

_HEAD
  dirs.each_index do |i| dirs[i] = "\""+dirs[i]+"\"" end
  ar.puts <<_DIRLIST
# Directories
[
#{dirs.join(",\n")}
].each do
  |d|
  File.makedirs d if d !~ /^\.$|^\.\.$/
end

_DIRLIST

  File.open(tmpar) do
    |tar|
    ar.puts tar.readlines
  end
  File.rm_f tmpar
end