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

ふなばです。

rar の改訂版です。ディレクトリをあつかえるようにしました。パーミッション
とタイムスタンプを保存するようにしました。ファイルサイズのチェックもおこ
なうようにしました。コードは三倍以上になりましたが、少し考えをあらためて、
書きかたもかえたら、スッキリしたように思います。

rar を rar してみたので、ruby -x 'このメイル' としてください。


#! /usr/local/bin/ruby

$exit_status = 0

def restore_sentinel(dir_or_file)
  begin
    yield
  rescue
    $stderr.puts "restore of #{dir_or_file} failed"
    $exit_status = 1
  end
end

def create_dir(dir)
  restore_sentinel(dir) do
    Dir.mkdir dir unless File.directory? dir
  end
end

def create_file(file, text, mode, size, atime, mtime)
  restore_sentinel(file) do
    open(file, 'w') do |output|
      output.binmode.write text.unpack('m')[0]
    end
    File.chmod(mode, file)
    File.utime(atime, mtime, file)
    raise unless File.size(file) == size
  end
end

create_dir('rar')
text = <<'__RAREOF__'
ICAgICAgICAgICAgICAgICAgICAgICAgIFJ1YnkgpaKhvKWrpaSl9KTOuu7A
rgoKpLOk7KTPIHNoYXIgpM4gUnVieSDIx6THpLmhowoKpMSkq6SkpKukv6TP
tMrDsaGjpL+kyKSopNChonJhciCkzqW9obyluaTypeGlpKXrpMfB96TqpL+k
pKTKpOmhoqTEpK6kzqToCqSmpMukt6TepLmhowoKICAgIHJhciBSRUFETUUg
cmFyLnJiIHwgbWFpbCAtcyAncmFyIHNvdXJjZScgdGFkZgo=
__RAREOF__
create_file('rar/README', text, 420, 215, 888631108, 888631107)
text = <<'__RAREOF__'
IyEgL3Vzci9sb2NhbC9iaW4vcnVieQoKIyByYXIucmI6IFdyaXR0ZW4gYnkg
VGFkYXlvc2hpIEZ1bmFiYSAxOTk4CiMgJElkOiByYXIucmIsdiAxLjEgMTk5
OC8wMi8yOCAwMTo1MjozNCB0YWRmIEV4cCAkCgpleGl0IGlmICQqLmVtcHR5
PwoKcHJpbnQgPDwnX19QUkVMVURFX18nCiMhIC91c3IvbG9jYWwvYmluL3J1
YnkKCiRleGl0X3N0YXR1cyA9IDAKCmRlZiByZXN0b3JlX3NlbnRpbmVsKGRp
cl9vcl9maWxlKQogIGJlZ2luCiAgICB5aWVsZAogIHJlc2N1ZQogICAgJHN0
ZGVyci5wdXRzICJyZXN0b3JlIG9mICN7ZGlyX29yX2ZpbGV9IGZhaWxlZCIK
ICAgICRleGl0X3N0YXR1cyA9IDEKICBlbmQKZW5kCgpkZWYgY3JlYXRlX2Rp
cihkaXIpCiAgcmVzdG9yZV9zZW50aW5lbChkaXIpIGRvCiAgICBEaXIubWtk
aXIgZGlyIHVubGVzcyBGaWxlLmRpcmVjdG9yeT8gZGlyCiAgZW5kCmVuZAoK
ZGVmIGNyZWF0ZV9maWxlKGZpbGUsIHRleHQsIG1vZGUsIHNpemUsIGF0aW1l
LCBtdGltZSkKICByZXN0b3JlX3NlbnRpbmVsKGZpbGUpIGRvCiAgICBvcGVu
KGZpbGUsICd3JykgZG8gfG91dHB1dHwKICAgICAgb3V0cHV0LmJpbm1vZGUu
d3JpdGUgdGV4dC51bnBhY2soJ20nKVswXQogICAgZW5kCiAgICBGaWxlLmNo
bW9kKG1vZGUsIGZpbGUpCiAgICBGaWxlLnV0aW1lKGF0aW1lLCBtdGltZSwg
ZmlsZSkKICAgIHJhaXNlIHVubGVzcyBGaWxlLnNpemUoZmlsZSkgPT0gc2l6
ZQogIGVuZAplbmQKCl9fUFJFTFVERV9fCgokZXhpdF9zdGF0dXMgPSAwCgpk
ZWYgc3RvcmVfc2VudGluZWwoZGlyX29yX2ZpbGUpCiAgYmVnaW4KICAgIHlp
ZWxkCiAgcmVzY3VlCiAgICAkc3RkZXJyLnB1dHMgInN0b3JlIG9mICN7ZGly
X29yX2ZpbGV9IGZhaWxlZCIKICAgICRleGl0X3N0YXR1cyA9IDEKICBlbmQK
ZW5kCgpkZWYgZmluZF9maWxlczIoZmlsZSkKICB1bmxlc3MgRmlsZS5kaXJl
Y3Rvcnk/IGZpbGUgdGhlbgogICAgeWllbGQgZmlsZQogIGVsc2UKICAgIHN0
b3JlX3NlbnRpbmVsKGZpbGUpIGRvCiAgICAgIERpci5mb3JlYWNoKGZpbGUp
IGRvIHxlbGVtfAoJbmV4dCBpZiAvXlwuezEsMn0kL25vID1+IGVsZW0KCWZp
bmRfZmlsZXMyKGZpbGUuc3ViKC9cLyokL25vLCAnLycpICsgZWxlbSkgZG8g
fGZpbGUyfAoJICB5aWVsZCBmaWxlMgoJZW5kCiAgICAgIGVuZAogICAgZW5k
CiAgZW5kCmVuZAoKZGVmIGZpbmRfZmlsZXMoZmlsZXMpCiAgZmlsZXMuZWFj
aCBkbyB8ZmlsZXwKICAgIGZpbmRfZmlsZXMyKGZpbGUpIGRvIHxmaWxlMnwK
ICAgICAgeWllbGQgZmlsZTIKICAgIGVuZAogIGVuZAplbmQKCiRkaXJsaXN0
ID0gW10KCmRlZiBnZW5fY3JlYXRlX2RpcihmaWxlKQogIGRpciA9IEZpbGUu
ZGlybmFtZShmaWxlKQogIHJldHVybiBpZiAvXlwuJC9ubyA9fiBkaXIKICBk
aXIyID0gZGlyLnNjYW4oL15cLytbXi9dK3xbXi9dKy9ubykKICBmb3IgbGFz
dCBpbiAwIC4uIGRpcjIubGVuZ3RoIC0gMQogICAgZGlyMyA9IGRpcjJbMCAu
LiBsYXN0XS5qb2luKCcvJykKICAgIG5leHQgaWYgJGRpcmxpc3QuaW5jbHVk
ZT8gZGlyMwogICAgcHV0cyAiY3JlYXRlX2RpcignI3tkaXIzfScpIgogICAg
JGRpcmxpc3QgPDwgZGlyMwogIGVuZAplbmQKCmZpbmRfZmlsZXMoJCopIGRv
IHxmaWxlfAogIGdlbl9jcmVhdGVfZGlyKGZpbGUpCiAgc3RvcmVfc2VudGlu
ZWwoZmlsZSkgZG8KICAgIHRleHQgPSBtb2RlID0gc2l6ZSA9IGF0aW1lID0g
bXRpbWUgPSBuaWwKICAgIG9wZW4oZmlsZSwgJ3InKSBkbyB8aW5wdXR8CiAg
ICAgIHRleHQgPSAoaW5wdXQuYmlubW9kZS5yZWFkIG9yICcnKQogICAgICBt
b2RlID0gaW5wdXQuc3RhdC5tb2RlICYgMDc3NwogICAgICBzaXplID0gaW5w
dXQuc3RhdC5zaXplCiAgICAgIGF0aW1lID0gaW5wdXQuc3RhdC5hdGltZS50
b19pCiAgICAgIG10aW1lID0gaW5wdXQuc3RhdC5tdGltZS50b19pCiAgICBl
bmQKICAgIHByaW50ICJ0ZXh0ID0gPDwnX19SQVJFT0ZfXydcbiIsIFt0ZXh0
XS5wYWNrKCdtJyksICJfX1JBUkVPRl9fXG4iCiAgICBwdXRzICJjcmVhdGVf
ZmlsZSgnI3tmaWxlfScsIHRleHQsICN7bW9kZX0sICN7c2l6ZX0sICN7YXRp
bWV9LCAje210aW1lfSkiCiAgZW5kCmVuZApwdXRzICcnLCAnZXhpdCAkZXhp
dF9zdGF0dXMnLCAnX19FTkRfXycKCmV4aXQgJGV4aXRfc3RhdHVzCg==
__RAREOF__
create_file('rar/rar.rb', text, 292, 2155, 888631108, 888631107)

exit $exit_status
__END__


--Tadayoshi Funaba