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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
#!/usr/bin/env ruby
# vim: set sw=4 sts=4 et tw=80 :
#
%w[Paludis find getoptlong].each {|x| require x}
include Paludis
Log.instance.log_level = LogLevel::Warning
Log.instance.program_name = $0
def get_contents(pids, directories, root)
in_contents= []
pids.each do |pid|
next if pid.contents_key.nil?
contents = pid.contents_key.parse_value
contents.each do |entry|
next if entry.kind_of? ContentsOtherEntry
directories.each do |directory|
if (root + entry.location_key.parse_value)[0,directory.length] == directory
in_contents << root + entry.location_key.parse_value
break;
end
end
end
end
return in_contents
end
opts = GetoptLong.new(
[ '--help', '-h', GetoptLong::NO_ARGUMENT ],
[ '--version', '-V', GetoptLong::NO_ARGUMENT ],
[ '--log-level', GetoptLong::REQUIRED_ARGUMENT ],
[ '--environment', '-E', GetoptLong::REQUIRED_ARGUMENT ])
env_spec = ""
opts.each do | opt, arg |
case opt
when '--help'
puts "Usage: " + $0 + " [options] directory1 [directory2 ...]"
puts
puts "Options:"
puts " --help Display a help message"
puts " --version Display program version"
puts
puts " --log-level level Set log level (debug, qa, warning, silent)"
puts " --environment env Environment specification (class:suffix, both parts optional)"
exit 0
when '--version'
puts $0.to_s.split(/\//).last + " " + Paludis::Version.to_s
exit 0
when '--log-level'
case arg
when 'debug'
Paludis::Log.instance.log_level = Paludis::LogLevel::Debug
when 'qa'
Paludis::Log.instance.log_level = Paludis::LogLevel::Qa
when 'warning'
Paludis::Log.instance.log_level = Paludis::LogLevel::Warning
when 'silent'
Paludis::Log.instance.log_level = Paludis::LogLevel::Silent
else
puts "Bad --log-level value " + arg
exit 1
end
when '--environment'
env_spec = arg
end
end
env = Paludis::EnvironmentFactory.instance.create env_spec
root = env.preferred_root_key.parse_value[-1] == ?/ ? env.preferred_root_key.parse_value.chop : env.preferred_root_key.parse_value
directories = []
if ARGV.empty?
puts "No directory to check"
exit 1
else
ARGV.each do |file|
unless File.directory? file
puts "#{file} is not a directory."
exit 1
end
unless file == root or file[0,root.length + 1] == root + "/"
puts "#{file} is not under ${ROOT} (#{root}/)"
exit 1
end
directories << (file[-1] == ?/ ? file.chop : file)
end
end
in_fs = []
Find.find(*(directories.collect {|d| d.empty? ? "/" : d})) {|file| in_fs << file}
in_fs-= get_contents(env[Selection::AllVersionsUnsorted.new(Generator::All.new | Filter::InstalledAtRoot.new(root))], directories, root)
puts in_fs
|
