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
102
103
104
105
106
|
require 'rbconfig'
require 'find'
require 'ftools'
Dir.chdir ".." if Dir.pwd =~ /bin.?$/
include Config
FREERIDE = "freeride"
$srcdir = CONFIG["srcdir"]
$version = CONFIG["MAJOR"]+"."+CONFIG["MINOR"]
$libdir = File.join(CONFIG["libdir"], "ruby", $version)
$archdir = File.join($libdir, CONFIG["arch"])
$site_libdir = CONFIG["sitelibdir"]
$libdir = ["config", "plugins", "redist"]
$libdir_excl = [ /i[36]86-mswin32/ ]
$libdir_subst = [ [/i686-linux/, CONFIG["arch"] ] ]
class Array
def contains?
return false unless defined?( yield )
each { |e| return true if yield( e ) }
return false
end
def include_like?( pattern )
return include?( pattern ) unless pattern.kind_of?( Regexp )
return contains? { |v| ( v.kind_of?( String ) and (v =~ pattern) ) }
end
end
class File
def File.libdirPath( f )
ofn = File.join($site_libdir, FREERIDE, f)
$libdir_subst.each { |p, s| ofn.gsub!( p, s ) }
ofn
end
end
class String
attr_accessor :localDir
def rmLocal
localDir = "/usr/local/" if localDir.nil?
gsub( Regexp.new( "^#{Regexp.escape(localDir)}" ), "" )
end
end
def dirmake( dir, noharm = false )
for f in dir.sort.reverse
next if f == "."
next if f == "CVS"
odn = File.libdirPath( f )
if noharm then
$stdout << "@dirrm #{odn.rmLocal}\n"
else
File::makedirs( odn )
end
end
end
def filecopy( path, noharm = false )
for f in path
ofn = File.libdirPath( f )
if noharm then
$stdout << "#{ofn.rmLocal}\n"
else
File::install( f, ofn, 0644, true)
end
end
end
def install_rb(noharm = false, srcdir = nil)
libdir = $libdir
libdir_excl = $libdir_excl
libdir.collect! { |ld|
File.join(srcdir, ld)
} if srcdir
path = ["freeride.rb"]
dir = [ "" ]
libdir.each { |ld|
Find.find(ld) do |f|
next unless FileTest.file?(f)
next if (f = f[ld.length+1..-1]) == nil
next if (/CVS$/ =~ File.dirname(f))
next if libdir_excl.contains? { |p| (f =~ p) }
path.push File.join( ld, f )
dir |= [File.join( ld, File.dirname(f) )]
end
}
if noharm then
filecopy( path, noharm )
dirmake( dir, noharm )
else
dirmake( dir, noharm )
filecopy( path, noharm )
end
$stdout.flush
end
no_harm = (ARGV.include_like?(/\A^-[a-zA-Z0-9]*n/) or ARGV.include?("--no-harm"))
$stderr << "No-harm install\n" if no_harm
$stderr.flush
install_rb( no_harm )
|
