forked from ruby/ruby
-
Notifications
You must be signed in to change notification settings - Fork 0
/
rbuninstall.rb
executable file
·67 lines (67 loc) · 1.26 KB
/
rbuninstall.rb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
#! /usr/bin/ruby -nl
BEGIN {
$dryrun = false
$tty = STDOUT.tty?
until ARGV.empty?
case ARGV[0]
when /\A--destdir=(.*)/
$destdir = $1
when /\A-n\z/
$dryrun = true
when /\A--(?:no-)?tty\z/
$tty = !$1
else
break
end
ARGV.shift
end
$dirs = []
$files = []
}
list = ($_.chomp!('/') ? $dirs : $files)
$_ = File.join($destdir, $_) if $destdir
list << $_
END {
status = true
$\ = ors = (!$dryrun and $tty) ? "\e[K\r" : "\n"
$files.each do |file|
print "rm #{file}"
unless $dryrun
begin
File.unlink(file)
rescue Errno::ENOENT
rescue
status = false
puts $!
end
end
end
unlink = {}
$dirs.each do |dir|
unlink[dir] = true
end
while dir = $dirs.pop
print "rmdir #{dir}"
unless $dryrun
begin
begin
unlink.delete(dir)
Dir.rmdir(dir)
rescue Errno::ENOTDIR
raise unless File.symlink?(dir)
File.unlink(dir)
end
rescue Errno::ENOENT, Errno::ENOTEMPTY
rescue
status = false
puts $!
else
parent = File.dirname(dir)
$dirs.push(parent) unless parent == dir or unlink[parent]
end
end
end
$\ = nil
print ors.chomp
exit(status)
}