oughtve 110.e2f5bb28

Sign up to get free protection for your applications and to get access to all the features.
@@ -0,0 +1,353 @@
1
+ # LICENCE
2
+ # =========
3
+ #
4
+ # Authors
5
+ # ---------
6
+ #
7
+ # See doc/AUTHORS.
8
+ #
9
+ #
10
+ # Copyright
11
+ # -----------
12
+ #
13
+ # Copyright (c) 2006-2010 Eero Saynatkari, all rights reserved.
14
+ #
15
+ #
16
+ # Licence
17
+ # ---------
18
+ #
19
+ # Redistribution and use in source and binary forms, with or without
20
+ # modification, are permitted provided that the following conditions
21
+ # are met:
22
+ #
23
+ # - Redistributions of source code must retain the above copyright
24
+ # notice, this list of conditions, the following disclaimer and
25
+ # attribution to the original authors.
26
+ #
27
+ # - Redistributions in binary form must reproduce the above copyright
28
+ # notice, this list of conditions, the following disclaimer and
29
+ # attribution to the original authors in the documentation and/or
30
+ # other materials provided with the distribution.
31
+ #
32
+ # - The names of the authors may not be used to endorse or promote
33
+ # products derived from this software without specific prior
34
+ # written permission.
35
+ #
36
+ #
37
+ # Disclaimer
38
+ # ------------
39
+ #
40
+ # This software is provided "as is" and without any express or
41
+ # implied warranties, including, without limitation, the implied
42
+ # warranties of merchantability and fitness for a particular purpose.
43
+ # Authors are not responsible for any damages, direct or indirect.
44
+ #
45
+
46
+ module Oughtve
47
+
48
+ # Forward-declare Chapter.
49
+ class Chapter; end
50
+
51
+
52
+ #
53
+ # Tangents are directory-based groupings of notes.
54
+ #
55
+ # Most of the work occurs here. Chapters and Verses
56
+ # are mere extras on this stage.
57
+ #
58
+ class Tangent
59
+ include DataMapper::Resource
60
+
61
+ # Unique identifier
62
+ property :id, Serial
63
+
64
+ # Base directory in which this Tangent lives
65
+ property :dir, String, :required => true
66
+
67
+ # Name by which the Tangent can be accessed
68
+ property :name, String, :required => true
69
+
70
+
71
+ # Current chapter. DM `has 1` relationship sucks, so do this.
72
+ property :current, Integer
73
+
74
+ # Previous Chapters
75
+ has n, :chapters
76
+
77
+
78
+ # Set the current chapter.
79
+ def current_chapter=(other)
80
+ other.save unless other.id # Force ID generation.
81
+
82
+ self.current = other.id
83
+ end
84
+
85
+ # Current chapter.
86
+ def current_chapter; Chapter.get! current if current; end
87
+
88
+
89
+ #
90
+ # Hash representation, including all Verses.
91
+ #
92
+ def to_hash()
93
+ {
94
+ :name => name,
95
+ :dir => dir,
96
+ :current => current_chapter.to_hash,
97
+ :old => chapters.sort_by {|c| c.ended || Time.now }.reverse.map {|c| c.to_hash}
98
+ }
99
+ end
100
+
101
+ end
102
+
103
+
104
+ # The standard time format
105
+ TimeFormat = "%Y-%m-%d %H:%M:%S"
106
+
107
+
108
+ #
109
+ # Mark old chapter and start new one.
110
+ #
111
+ def self.chapter(parameters)
112
+ tangent = tangent_for parameters
113
+ previous = tangent.current_chapter
114
+
115
+ previous.summary = parameters.endnote
116
+ previous.summary << " " << parameters.rest.join(" ") unless parameters.rest.empty?
117
+
118
+ previous.ended = parameters.time
119
+ previous.save
120
+
121
+ chapter = tangent.chapters.new
122
+ tangent.current_chapter = chapter
123
+
124
+ tangent.save
125
+ chapter.save
126
+
127
+ "Chapter of \"#{tangent.name}\" finished."
128
+ end
129
+
130
+
131
+ #
132
+ # Delete a tangent.
133
+ #
134
+ # @todo Does not touch Chapters or Verses.
135
+ #
136
+ def self.delete(parameters)
137
+ raise ArgumentError, "Must provide name to delete!" unless parameters.name
138
+ raise ArgumentError, "Default tangent may not be deleted!" if parameters.name == "default"
139
+
140
+ tangent = tangent_for parameters
141
+ path = tangent.dir
142
+
143
+ raise ArgumentError, "No tangent named `#{parameters.name}'!" unless tangent
144
+
145
+ tangent.destroy
146
+
147
+ "Deleted `#{parameters.name}', which was bound at #{path}"
148
+ end
149
+
150
+
151
+ #
152
+ # Show all open defined Tangents and their base directories.
153
+ #
154
+ def self.list(*)
155
+ " Defined tangents:\n" <<
156
+ "===================\n" <<
157
+ Tangent.all.map {|t| " * #{t.name} (#{t.dir})" }.join("\n")
158
+ end
159
+
160
+
161
+ #
162
+ # Enter a new Verse.
163
+ #
164
+ # Text may be given with or without --text option, or
165
+ # read from $stdin if no other text is found.
166
+ #
167
+ def self.scribe(parameters)
168
+ tangent = tangent_for parameters
169
+
170
+ text = parameters.text || ""
171
+ text << " " << parameters.rest.join(" ") unless parameters.rest.empty?
172
+
173
+ if text.empty?
174
+ $stdout.puts "Reading for `#{tangent.name}' from standard input, terminate with ^D."
175
+ text = $stdin.read
176
+ end
177
+
178
+ raise ArgumentError, "No note!" if text.empty?
179
+
180
+ tangent.current_chapter.verses.new(:text => text.strip, :time => parameters.time).save
181
+
182
+ "So noted in \"#{tangent.name}\"."
183
+ end
184
+
185
+
186
+ #
187
+ # Output notes for tangent.
188
+ #
189
+ # Optionally both open and closed; optionally old chapters too.
190
+ #
191
+ def self.show(parameters)
192
+ tangent = tangent_for parameters
193
+
194
+ case parameters.format
195
+ when :yaml
196
+ require "yaml"
197
+ return tangent.to_hash.to_yaml
198
+ when :json
199
+ require "json"
200
+ return tangent.to_hash.to_json
201
+ end
202
+
203
+ message = " #{tangent.name}\n"
204
+ message << ("=" * (tangent.name.length + 2)) << "\n"
205
+
206
+ chapters = if parameters.old
207
+ tangent.chapters.sort_by {|chapter| chapter.ended || Time.now }.reverse
208
+ else
209
+ [tangent.current_chapter]
210
+ end
211
+
212
+ chapters.each {|chapter|
213
+ if chapter.summary
214
+ summary = "#{chapter.summary}, closed #{chapter.ended.strftime TimeFormat}"
215
+ message << "\n\n\n" << summary << "\n" << ("=" * (summary.length + 2)) << "\n"
216
+ end
217
+
218
+ closed, open = chapter.verses.partition {|v| v.struck }
219
+
220
+ # @todo Remove duplication here, unless output stays different..
221
+ message << "\n Open:\n-------\n"
222
+ message << open.reverse.map {|v|
223
+ if parameters.verbose
224
+ " * #{v.text} (##{v.id} #{v.time.strftime TimeFormat})"
225
+ else
226
+ " * #{v.text}"
227
+ end
228
+ }.join("\n")
229
+
230
+ if parameters.all
231
+ message << "\n\n Closed:\n---------\n"
232
+ message << closed.reverse.map {|v|
233
+ if parameters.verbose
234
+ " * #{v.text} (##{v.id} #{v.time.strftime TimeFormat})"
235
+ else
236
+ " * #{v.text}"
237
+ end
238
+ }.join("\n")
239
+ end
240
+ }
241
+
242
+ message
243
+ end
244
+
245
+
246
+ #
247
+ # Strike out an existing note.
248
+ #
249
+ # Used to mark a note completed (or just get rid of it.)
250
+ #
251
+ def self.strike(parameters)
252
+ verse = if parameters.serial
253
+ Verse.get! parameters.serial
254
+ else
255
+ tangent = tangent_for parameters
256
+ candidates = tangent.current_chapter.verses.select {|v|
257
+ parameters.regexp =~ v.text
258
+ }
259
+
260
+ if candidates.size < 1
261
+ raise ArgumentError, "No match for #{parameters.regexp.inspect}!"
262
+ elsif candidates.size > 1
263
+ # TODO: Show matches
264
+ raise ArgumentError, "Ambiguous #{parameters.regexp.inspect}!"
265
+ end
266
+
267
+ candidates.first
268
+ end
269
+
270
+ raise ArgumentError, "Already struck out: #{parameters.serial}" if verse.struck
271
+
272
+ verse.struck = parameters.time
273
+ verse.save
274
+
275
+ "\"#{verse.text[0..20]}...\" has been stricken."
276
+ end
277
+
278
+
279
+ #
280
+ # Create a new Tangent.
281
+ #
282
+ def self.tangent(parameters)
283
+ dir = File.expand_path(parameters.dir) rescue Dir.pwd
284
+
285
+ tangent = tangent_for parameters, :check_path_too
286
+
287
+ if tangent
288
+ if tangent.name == parameters.name
289
+ raise ArgumentError, "Tangent `#{tangent.name}' already exists at #{tangent.dir}"
290
+ end
291
+
292
+ # Relationship with existing tangent?
293
+ case dir <=> tangent.dir
294
+ when -1
295
+ # @todo Is this a necessary warning? Verbose only maybe? --rue
296
+ warn "One or more existing tangents live below the new one (at least #{tangent.dir})"
297
+ when 0
298
+ raise ArgumentError, "#{tangent.dir} is already bound to `#{tangent.name}'!"
299
+ else
300
+ # Does not matter if it is a subdirectory
301
+ end
302
+ end
303
+
304
+ tangent = Tangent.new
305
+
306
+ tangent.dir = File.expand_path(parameters.dir) rescue Dir.pwd
307
+ raise ArgumentError, "No such directory #{tangent.dir}" unless File.directory? tangent.dir
308
+
309
+ tangent.name = parameters.name || tangent.dir
310
+
311
+ chapter = tangent.chapters.new
312
+ tangent.current_chapter = chapter
313
+
314
+ tangent.save
315
+ chapter.save
316
+
317
+ "Created #{tangent.name} at #{tangent.dir}."
318
+ end
319
+
320
+
321
+ private
322
+
323
+ #
324
+ # Locate Tangent matching given directory closest.
325
+ #
326
+ def self.tangent_for(parameters, check_path_too = false)
327
+
328
+ # *sigh*
329
+ if parameters.name
330
+ named = Tangent.first :name => parameters.name
331
+
332
+ if named
333
+ if parameters.dir and named.dir != File.expand_path(parameters.dir)
334
+ raise ArgumentError, "Given path #{parameters.dir} does not match named `#{named.name}' path #{named.dir}"
335
+ end
336
+ return named
337
+ end
338
+
339
+ return named unless check_path_too
340
+ end
341
+
342
+ dir = if parameters.dir then File.expand_path(parameters.dir) else Dir.pwd end
343
+
344
+ Tangent.all.inject {|longest, t|
345
+ if /\A#{Regexp.escape t.dir}/ =~ dir and t.dir.size > longest.dir.size
346
+ t
347
+ else
348
+ longest
349
+ end
350
+ }
351
+ end
352
+
353
+ end
@@ -0,0 +1,83 @@
1
+ # LICENCE
2
+ # =========
3
+ #
4
+ # Authors
5
+ # ---------
6
+ #
7
+ # See doc/AUTHORS.
8
+ #
9
+ #
10
+ # Copyright
11
+ # -----------
12
+ #
13
+ # Copyright (c) 2006-2010 Eero Saynatkari, all rights reserved.
14
+ #
15
+ #
16
+ # Licence
17
+ # ---------
18
+ #
19
+ # Redistribution and use in source and binary forms, with or without
20
+ # modification, are permitted provided that the following conditions
21
+ # are met:
22
+ #
23
+ # - Redistributions of source code must retain the above copyright
24
+ # notice, this list of conditions, the following disclaimer and
25
+ # attribution to the original authors.
26
+ #
27
+ # - Redistributions in binary form must reproduce the above copyright
28
+ # notice, this list of conditions, the following disclaimer and
29
+ # attribution to the original authors in the documentation and/or
30
+ # other materials provided with the distribution.
31
+ #
32
+ # - The names of the authors may not be used to endorse or promote
33
+ # products derived from this software without specific prior
34
+ # written permission.
35
+ #
36
+ #
37
+ # Disclaimer
38
+ # ------------
39
+ #
40
+ # This software is provided "as is" and without any express or
41
+ # implied warranties, including, without limitation, the implied
42
+ # warranties of merchantability and fitness for a particular purpose.
43
+ # Authors are not responsible for any damages, direct or indirect.
44
+ #
45
+
46
+
47
+ module Oughtve
48
+
49
+ #
50
+ # A Verse is a single note or entry.
51
+ #
52
+ class Verse
53
+ include DataMapper::Resource
54
+
55
+ # Unique identifier
56
+ property :id, Serial
57
+
58
+ # Time at which entered (approximately anyway)
59
+ property :time, Time, :required => true
60
+
61
+ # Note text
62
+ property :text, Text, :required => true
63
+
64
+ # Whether struck out (done) and time of occurrence if so
65
+ property :struck, Time
66
+
67
+
68
+ # We know nothing about no Tangents
69
+ belongs_to :chapter
70
+
71
+
72
+ #
73
+ # Hash representation of data.
74
+ #
75
+ def to_hash()
76
+ hash = {:text => text, :time => time}
77
+ hash[:closed] = struck if struck
78
+ hash
79
+ end
80
+
81
+ end
82
+
83
+ end
data/setup.rb ADDED
@@ -0,0 +1,1360 @@
1
+ #
2
+ # setup.rb
3
+ #
4
+ # Copyright (c) 2000-2004 Minero Aoki
5
+ #
6
+ # This program is free software.
7
+ # You can distribute/modify this program under the terms of
8
+ # the GNU LGPL, Lesser General Public License version 2.1.
9
+ #
10
+
11
+ unless Enumerable.method_defined?(:map) # Ruby 1.4.6
12
+ module Enumerable
13
+ alias map collect
14
+ end
15
+ end
16
+
17
+ unless File.respond_to?(:read) # Ruby 1.6
18
+ def File.read(fname)
19
+ open(fname) {|f|
20
+ return f.read
21
+ }
22
+ end
23
+ end
24
+
25
+ def File.binread(fname)
26
+ open(fname, 'rb') {|f|
27
+ return f.read
28
+ }
29
+ end
30
+
31
+ # for corrupted windows stat(2)
32
+ def File.dir?(path)
33
+ File.directory?((path[-1,1] == '/') ? path : path + '/')
34
+ end
35
+
36
+
37
+ class SetupError < StandardError; end
38
+
39
+ def setup_rb_error(msg)
40
+ raise SetupError, msg
41
+ end
42
+
43
+ #
44
+ # Config
45
+ #
46
+
47
+ if arg = ARGV.detect {|arg| /\A--rbconfig=/ =~ arg }
48
+ ARGV.delete(arg)
49
+ require arg.split(/=/, 2)[1]
50
+ $".push 'rbconfig.rb'
51
+ else
52
+ require 'rbconfig'
53
+ end
54
+
55
+ def multipackage_install?
56
+ FileTest.directory?(File.dirname($0) + '/packages')
57
+ end
58
+
59
+
60
+ class ConfigItem
61
+ def initialize(name, template, default, desc)
62
+ @name = name.freeze
63
+ @template = template
64
+ @value = default
65
+ @default = default.dup.freeze
66
+ @description = desc
67
+ end
68
+
69
+ attr_reader :name
70
+ attr_reader :description
71
+
72
+ attr_accessor :default
73
+ alias help_default default
74
+
75
+ def help_opt
76
+ "--#{@name}=#{@template}"
77
+ end
78
+
79
+ def value
80
+ @value
81
+ end
82
+
83
+ def eval(table)
84
+ @value.gsub(%r<\$([^/]+)>) { table[$1] }
85
+ end
86
+
87
+ def set(val)
88
+ @value = check(val)
89
+ end
90
+
91
+ private
92
+
93
+ def check(val)
94
+ setup_rb_error "config: --#{name} requires argument" unless val
95
+ val
96
+ end
97
+ end
98
+
99
+ class BoolItem < ConfigItem
100
+ def config_type
101
+ 'bool'
102
+ end
103
+
104
+ def help_opt
105
+ "--#{@name}"
106
+ end
107
+
108
+ private
109
+
110
+ def check(val)
111
+ return 'yes' unless val
112
+ unless /\A(y(es)?|n(o)?|t(rue)?|f(alse))\z/i =~ val
113
+ setup_rb_error "config: --#{@name} accepts only yes/no for argument"
114
+ end
115
+ (/\Ay(es)?|\At(rue)/i =~ value) ? 'yes' : 'no'
116
+ end
117
+ end
118
+
119
+ class PathItem < ConfigItem
120
+ def config_type
121
+ 'path'
122
+ end
123
+
124
+ private
125
+
126
+ def check(path)
127
+ setup_rb_error "config: --#{@name} requires argument" unless path
128
+ path[0,1] == '$' ? path : File.expand_path(path)
129
+ end
130
+ end
131
+
132
+ class ProgramItem < ConfigItem
133
+ def config_type
134
+ 'program'
135
+ end
136
+ end
137
+
138
+ class SelectItem < ConfigItem
139
+ def initialize(name, template, default, desc)
140
+ super
141
+ @ok = template.split('/')
142
+ end
143
+
144
+ def config_type
145
+ 'select'
146
+ end
147
+
148
+ private
149
+
150
+ def check(val)
151
+ unless @ok.include?(val.strip)
152
+ setup_rb_error "config: use --#{@name}=#{@template} (#{val})"
153
+ end
154
+ val.strip
155
+ end
156
+ end
157
+
158
+ class PackageSelectionItem < ConfigItem
159
+ def initialize(name, template, default, help_default, desc)
160
+ super name, template, default, desc
161
+ @help_default = help_default
162
+ end
163
+
164
+ attr_reader :help_default
165
+
166
+ def config_type
167
+ 'package'
168
+ end
169
+
170
+ private
171
+
172
+ def check(val)
173
+ unless File.dir?("packages/#{val}")
174
+ setup_rb_error "config: no such package: #{val}"
175
+ end
176
+ val
177
+ end
178
+ end
179
+
180
+ class ConfigTable_class
181
+
182
+ def initialize(items)
183
+ @items = items
184
+ @table = {}
185
+ items.each do |i|
186
+ @table[i.name] = i
187
+ end
188
+ ALIASES.each do |ali, name|
189
+ @table[ali] = @table[name]
190
+ end
191
+ end
192
+
193
+ include Enumerable
194
+
195
+ def each(&block)
196
+ @items.each(&block)
197
+ end
198
+
199
+ def key?(name)
200
+ @table.key?(name)
201
+ end
202
+
203
+ def lookup(name)
204
+ @table[name] or raise ArgumentError, "no such config item: #{name}"
205
+ end
206
+
207
+ def add(item)
208
+ @items.push item
209
+ @table[item.name] = item
210
+ end
211
+
212
+ def remove(name)
213
+ item = lookup(name)
214
+ @items.delete_if {|i| i.name == name }
215
+ @table.delete_if {|name, i| i.name == name }
216
+ item
217
+ end
218
+
219
+ def new
220
+ dup()
221
+ end
222
+
223
+ def savefile
224
+ '.config'
225
+ end
226
+
227
+ def load
228
+ begin
229
+ t = dup()
230
+ File.foreach(savefile()) do |line|
231
+ k, v = *line.split(/=/, 2)
232
+ t[k] = v.strip
233
+ end
234
+ t
235
+ rescue Errno::ENOENT
236
+ setup_rb_error $!.message + "#{File.basename($0)} config first"
237
+ end
238
+ end
239
+
240
+ def save
241
+ @items.each {|i| i.value }
242
+ File.open(savefile(), 'w') {|f|
243
+ @items.each do |i|
244
+ f.printf "%s=%s\n", i.name, i.value if i.value
245
+ end
246
+ }
247
+ end
248
+
249
+ def [](key)
250
+ lookup(key).eval(self)
251
+ end
252
+
253
+ def []=(key, val)
254
+ lookup(key).set val
255
+ end
256
+
257
+ end
258
+
259
+ c = ::Config::CONFIG
260
+
261
+ rubypath = c['bindir'] + '/' + c['ruby_install_name']
262
+
263
+ major = c['MAJOR'].to_i
264
+ minor = c['MINOR'].to_i
265
+ teeny = c['TEENY'].to_i
266
+ version = "#{major}.#{minor}"
267
+
268
+ # ruby ver. >= 1.4.4?
269
+ newpath_p = ((major >= 2) or
270
+ ((major == 1) and
271
+ ((minor >= 5) or
272
+ ((minor == 4) and (teeny >= 4)))))
273
+
274
+ if c['rubylibdir']
275
+ # V < 1.6.3
276
+ _stdruby = c['rubylibdir']
277
+ _siteruby = c['sitedir']
278
+ _siterubyver = c['sitelibdir']
279
+ _siterubyverarch = c['sitearchdir']
280
+ elsif newpath_p
281
+ # 1.4.4 <= V <= 1.6.3
282
+ _stdruby = "$prefix/lib/ruby/#{version}"
283
+ _siteruby = c['sitedir']
284
+ _siterubyver = "$siteruby/#{version}"
285
+ _siterubyverarch = "$siterubyver/#{c['arch']}"
286
+ else
287
+ # V < 1.4.4
288
+ _stdruby = "$prefix/lib/ruby/#{version}"
289
+ _siteruby = "$prefix/lib/ruby/#{version}/site_ruby"
290
+ _siterubyver = _siteruby
291
+ _siterubyverarch = "$siterubyver/#{c['arch']}"
292
+ end
293
+ libdir = '-* dummy libdir *-'
294
+ stdruby = '-* dummy rubylibdir *-'
295
+ siteruby = '-* dummy site_ruby *-'
296
+ siterubyver = '-* dummy site_ruby version *-'
297
+ parameterize = lambda {|path|
298
+ path.sub(/\A#{Regexp.quote(c['prefix'])}/, '$prefix')\
299
+ .sub(/\A#{Regexp.quote(libdir)}/, '$libdir')\
300
+ .sub(/\A#{Regexp.quote(stdruby)}/, '$stdruby')\
301
+ .sub(/\A#{Regexp.quote(siteruby)}/, '$siteruby')\
302
+ .sub(/\A#{Regexp.quote(siterubyver)}/, '$siterubyver')
303
+ }
304
+ libdir = parameterize.call(c['libdir'])
305
+ stdruby = parameterize.call(_stdruby)
306
+ siteruby = parameterize.call(_siteruby)
307
+ siterubyver = parameterize.call(_siterubyver)
308
+ siterubyverarch = parameterize.call(_siterubyverarch)
309
+
310
+ if arg = c['configure_args'].split.detect {|arg| /--with-make-prog=/ =~ arg }
311
+ makeprog = arg.sub(/'/, '').split(/=/, 2)[1]
312
+ else
313
+ makeprog = 'make'
314
+ end
315
+
316
+ common_conf = [
317
+ PathItem.new('prefix', 'path', c['prefix'],
318
+ 'path prefix of target environment'),
319
+ PathItem.new('bindir', 'path', parameterize.call(c['bindir']),
320
+ 'the directory for commands'),
321
+ PathItem.new('libdir', 'path', libdir,
322
+ 'the directory for libraries'),
323
+ PathItem.new('datadir', 'path', parameterize.call(c['datadir']),
324
+ 'the directory for shared data'),
325
+ PathItem.new('mandir', 'path', parameterize.call(c['mandir']),
326
+ 'the directory for man pages'),
327
+ PathItem.new('sysconfdir', 'path', parameterize.call(c['sysconfdir']),
328
+ 'the directory for man pages'),
329
+ PathItem.new('stdruby', 'path', stdruby,
330
+ 'the directory for standard ruby libraries'),
331
+ PathItem.new('siteruby', 'path', siteruby,
332
+ 'the directory for version-independent aux ruby libraries'),
333
+ PathItem.new('siterubyver', 'path', siterubyver,
334
+ 'the directory for aux ruby libraries'),
335
+ PathItem.new('siterubyverarch', 'path', siterubyverarch,
336
+ 'the directory for aux ruby binaries'),
337
+ PathItem.new('rbdir', 'path', '$siterubyver',
338
+ 'the directory for ruby scripts'),
339
+ PathItem.new('sodir', 'path', '$siterubyverarch',
340
+ 'the directory for ruby extentions'),
341
+ PathItem.new('rubypath', 'path', rubypath,
342
+ 'the path to set to #! line'),
343
+ ProgramItem.new('rubyprog', 'name', rubypath,
344
+ 'the ruby program using for installation'),
345
+ ProgramItem.new('makeprog', 'name', makeprog,
346
+ 'the make program to compile ruby extentions'),
347
+ SelectItem.new('shebang', 'all/ruby/never', 'ruby',
348
+ 'shebang line (#!) editing mode'),
349
+ BoolItem.new('without-ext', 'yes/no', 'no',
350
+ 'does not compile/install ruby extentions')
351
+ ]
352
+ class ConfigTable_class # open again
353
+ ALIASES = {
354
+ 'std-ruby' => 'stdruby',
355
+ 'site-ruby-common' => 'siteruby', # For backward compatibility
356
+ 'site-ruby' => 'siterubyver', # For backward compatibility
357
+ 'bin-dir' => 'bindir',
358
+ 'bin-dir' => 'bindir',
359
+ 'rb-dir' => 'rbdir',
360
+ 'so-dir' => 'sodir',
361
+ 'data-dir' => 'datadir',
362
+ 'ruby-path' => 'rubypath',
363
+ 'ruby-prog' => 'rubyprog',
364
+ 'ruby' => 'rubyprog',
365
+ 'make-prog' => 'makeprog',
366
+ 'make' => 'makeprog'
367
+ }
368
+ end
369
+ multipackage_conf = [
370
+ PackageSelectionItem.new('with', 'name,name...', '', 'ALL',
371
+ 'package names that you want to install'),
372
+ PackageSelectionItem.new('without', 'name,name...', '', 'NONE',
373
+ 'package names that you do not want to install')
374
+ ]
375
+ if multipackage_install?
376
+ ConfigTable = ConfigTable_class.new(common_conf + multipackage_conf)
377
+ else
378
+ ConfigTable = ConfigTable_class.new(common_conf)
379
+ end
380
+
381
+
382
+ module MetaConfigAPI
383
+
384
+ def eval_file_ifexist(fname)
385
+ instance_eval File.read(fname), fname, 1 if File.file?(fname)
386
+ end
387
+
388
+ def config_names
389
+ ConfigTable.map {|i| i.name }
390
+ end
391
+
392
+ def config?(name)
393
+ ConfigTable.key?(name)
394
+ end
395
+
396
+ def bool_config?(name)
397
+ ConfigTable.lookup(name).config_type == 'bool'
398
+ end
399
+
400
+ def path_config?(name)
401
+ ConfigTable.lookup(name).config_type == 'path'
402
+ end
403
+
404
+ def value_config?(name)
405
+ case ConfigTable.lookup(name).config_type
406
+ when 'bool', 'path'
407
+ true
408
+ else
409
+ false
410
+ end
411
+ end
412
+
413
+ def add_config(item)
414
+ ConfigTable.add item
415
+ end
416
+
417
+ def add_bool_config(name, default, desc)
418
+ ConfigTable.add BoolItem.new(name, 'yes/no', default ? 'yes' : 'no', desc)
419
+ end
420
+
421
+ def add_path_config(name, default, desc)
422
+ ConfigTable.add PathItem.new(name, 'path', default, desc)
423
+ end
424
+
425
+ def set_config_default(name, default)
426
+ ConfigTable.lookup(name).default = default
427
+ end
428
+
429
+ def remove_config(name)
430
+ ConfigTable.remove(name)
431
+ end
432
+
433
+ end
434
+
435
+
436
+ #
437
+ # File Operations
438
+ #
439
+
440
+ module FileOperations
441
+
442
+ def mkdir_p(dirname, prefix = nil)
443
+ dirname = prefix + File.expand_path(dirname) if prefix
444
+ $stderr.puts "mkdir -p #{dirname}" if verbose?
445
+ return if no_harm?
446
+
447
+ # does not check '/'... it's too abnormal case
448
+ dirs = File.expand_path(dirname).split(%r<(?=/)>)
449
+ if /\A[a-z]:\z/i =~ dirs[0]
450
+ disk = dirs.shift
451
+ dirs[0] = disk + dirs[0]
452
+ end
453
+ dirs.each_index do |idx|
454
+ path = dirs[0..idx].join('')
455
+ Dir.mkdir path unless File.dir?(path)
456
+ end
457
+ end
458
+
459
+ def rm_f(fname)
460
+ $stderr.puts "rm -f #{fname}" if verbose?
461
+ return if no_harm?
462
+
463
+ if File.exist?(fname) or File.symlink?(fname)
464
+ File.chmod 0777, fname
465
+ File.unlink fname
466
+ end
467
+ end
468
+
469
+ def rm_rf(dn)
470
+ $stderr.puts "rm -rf #{dn}" if verbose?
471
+ return if no_harm?
472
+
473
+ Dir.chdir dn
474
+ Dir.foreach('.') do |fn|
475
+ next if fn == '.'
476
+ next if fn == '..'
477
+ if File.dir?(fn)
478
+ verbose_off {
479
+ rm_rf fn
480
+ }
481
+ else
482
+ verbose_off {
483
+ rm_f fn
484
+ }
485
+ end
486
+ end
487
+ Dir.chdir '..'
488
+ Dir.rmdir dn
489
+ end
490
+
491
+ def move_file(src, dest)
492
+ File.unlink dest if File.exist?(dest)
493
+ begin
494
+ File.rename src, dest
495
+ rescue
496
+ File.open(dest, 'wb') {|f| f.write File.binread(src) }
497
+ File.chmod File.stat(src).mode, dest
498
+ File.unlink src
499
+ end
500
+ end
501
+
502
+ def install(from, dest, mode, prefix = nil)
503
+ $stderr.puts "install #{from} #{dest}" if verbose?
504
+ return if no_harm?
505
+
506
+ realdest = prefix ? prefix + File.expand_path(dest) : dest
507
+ realdest = File.join(realdest, File.basename(from)) if File.dir?(realdest)
508
+ str = File.binread(from)
509
+ if diff?(str, realdest)
510
+ verbose_off {
511
+ rm_f realdest if File.exist?(realdest)
512
+ }
513
+ File.open(realdest, 'wb') {|f|
514
+ f.write str
515
+ }
516
+ File.chmod mode, realdest
517
+
518
+ File.open("#{objdir_root()}/InstalledFiles", 'a') {|f|
519
+ if prefix
520
+ f.puts realdest.sub(prefix, '')
521
+ else
522
+ f.puts realdest
523
+ end
524
+ }
525
+ end
526
+ end
527
+
528
+ def diff?(new_content, path)
529
+ return true unless File.exist?(path)
530
+ new_content != File.binread(path)
531
+ end
532
+
533
+ def command(str)
534
+ $stderr.puts str if verbose?
535
+ system str or raise RuntimeError, "'system #{str}' failed"
536
+ end
537
+
538
+ def ruby(str)
539
+ command config('rubyprog') + ' ' + str
540
+ end
541
+
542
+ def make(task = '')
543
+ command config('makeprog') + ' ' + task
544
+ end
545
+
546
+ def extdir?(dir)
547
+ File.exist?(dir + '/MANIFEST')
548
+ end
549
+
550
+ def all_files_in(dirname)
551
+ Dir.open(dirname) {|d|
552
+ return d.select {|ent| File.file?("#{dirname}/#{ent}") }
553
+ }
554
+ end
555
+
556
+ REJECT_DIRS = %w(
557
+ CVS SCCS RCS CVS.adm .svn
558
+ )
559
+
560
+ def all_dirs_in(dirname)
561
+ Dir.open(dirname) {|d|
562
+ return d.select {|n| File.dir?("#{dirname}/#{n}") } - %w(. ..) - REJECT_DIRS
563
+ }
564
+ end
565
+
566
+ end
567
+
568
+
569
+ #
570
+ # Main Installer
571
+ #
572
+
573
+ module HookUtils
574
+
575
+ def run_hook(name)
576
+ try_run_hook "#{curr_srcdir()}/#{name}" or
577
+ try_run_hook "#{curr_srcdir()}/#{name}.rb"
578
+ end
579
+
580
+ def try_run_hook(fname)
581
+ return false unless File.file?(fname)
582
+ begin
583
+ instance_eval File.read(fname), fname, 1
584
+ rescue
585
+ setup_rb_error "hook #{fname} failed:\n" + $!.message
586
+ end
587
+ true
588
+ end
589
+
590
+ end
591
+
592
+
593
+ module HookScriptAPI
594
+
595
+ def get_config(key)
596
+ @config[key]
597
+ end
598
+
599
+ alias config get_config
600
+
601
+ def set_config(key, val)
602
+ @config[key] = val
603
+ end
604
+
605
+ #
606
+ # srcdir/objdir (works only in the package directory)
607
+ #
608
+
609
+ #abstract srcdir_root
610
+ #abstract objdir_root
611
+ #abstract relpath
612
+
613
+ def curr_srcdir
614
+ "#{srcdir_root()}/#{relpath()}"
615
+ end
616
+
617
+ def curr_objdir
618
+ "#{objdir_root()}/#{relpath()}"
619
+ end
620
+
621
+ def srcfile(path)
622
+ "#{curr_srcdir()}/#{path}"
623
+ end
624
+
625
+ def srcexist?(path)
626
+ File.exist?(srcfile(path))
627
+ end
628
+
629
+ def srcdirectory?(path)
630
+ File.dir?(srcfile(path))
631
+ end
632
+
633
+ def srcfile?(path)
634
+ File.file? srcfile(path)
635
+ end
636
+
637
+ def srcentries(path = '.')
638
+ Dir.open("#{curr_srcdir()}/#{path}") {|d|
639
+ return d.to_a - %w(. ..)
640
+ }
641
+ end
642
+
643
+ def srcfiles(path = '.')
644
+ srcentries(path).select {|fname|
645
+ File.file?(File.join(curr_srcdir(), path, fname))
646
+ }
647
+ end
648
+
649
+ def srcdirectories(path = '.')
650
+ srcentries(path).select {|fname|
651
+ File.dir?(File.join(curr_srcdir(), path, fname))
652
+ }
653
+ end
654
+
655
+ end
656
+
657
+
658
+ class ToplevelInstaller
659
+
660
+ Version = '3.3.1'
661
+ Copyright = 'Copyright (c) 2000-2004 Minero Aoki'
662
+
663
+ TASKS = [
664
+ [ 'all', 'do config, setup, then install' ],
665
+ [ 'config', 'saves your configurations' ],
666
+ [ 'show', 'shows current configuration' ],
667
+ [ 'setup', 'compiles ruby extentions and others' ],
668
+ [ 'install', 'installs files' ],
669
+ [ 'clean', "does `make clean' for each extention" ],
670
+ [ 'distclean',"does `make distclean' for each extention" ]
671
+ ]
672
+
673
+ def ToplevelInstaller.invoke
674
+ instance().invoke
675
+ end
676
+
677
+ @singleton = nil
678
+
679
+ def ToplevelInstaller.instance
680
+ @singleton ||= new(File.dirname($0))
681
+ @singleton
682
+ end
683
+
684
+ include MetaConfigAPI
685
+
686
+ def initialize(ardir_root)
687
+ @config = nil
688
+ @options = { 'verbose' => true }
689
+ @ardir = File.expand_path(ardir_root)
690
+ end
691
+
692
+ def inspect
693
+ "#<#{self.class} #{__id__()}>"
694
+ end
695
+
696
+ def invoke
697
+ run_metaconfigs
698
+ case task = parsearg_global()
699
+ when nil, 'all'
700
+ @config = load_config('config')
701
+ parsearg_config
702
+ init_installers
703
+ exec_config
704
+ exec_setup
705
+ exec_install
706
+ else
707
+ @config = load_config(task)
708
+ __send__ "parsearg_#{task}"
709
+ init_installers
710
+ __send__ "exec_#{task}"
711
+ end
712
+ end
713
+
714
+ def run_metaconfigs
715
+ eval_file_ifexist "#{@ardir}/metaconfig"
716
+ end
717
+
718
+ def load_config(task)
719
+ case task
720
+ when 'config'
721
+ ConfigTable.new
722
+ when 'clean', 'distclean'
723
+ if File.exist?(ConfigTable.savefile)
724
+ then ConfigTable.load
725
+ else ConfigTable.new
726
+ end
727
+ else
728
+ ConfigTable.load
729
+ end
730
+ end
731
+
732
+ def init_installers
733
+ @installer = Installer.new(@config, @options, @ardir, File.expand_path('.'))
734
+ end
735
+
736
+ #
737
+ # Hook Script API bases
738
+ #
739
+
740
+ def srcdir_root
741
+ @ardir
742
+ end
743
+
744
+ def objdir_root
745
+ '.'
746
+ end
747
+
748
+ def relpath
749
+ '.'
750
+ end
751
+
752
+ #
753
+ # Option Parsing
754
+ #
755
+
756
+ def parsearg_global
757
+ valid_task = /\A(?:#{TASKS.map {|task,desc| task }.join '|'})\z/
758
+
759
+ while arg = ARGV.shift
760
+ case arg
761
+ when /\A\w+\z/
762
+ setup_rb_error "invalid task: #{arg}" unless valid_task =~ arg
763
+ return arg
764
+
765
+ when '-q', '--quiet'
766
+ @options['verbose'] = false
767
+
768
+ when '--verbose'
769
+ @options['verbose'] = true
770
+
771
+ when '-h', '--help'
772
+ print_usage $stdout
773
+ exit 0
774
+
775
+ when '-v', '--version'
776
+ puts "#{File.basename($0)} version #{Version}"
777
+ exit 0
778
+
779
+ when '--copyright'
780
+ puts Copyright
781
+ exit 0
782
+
783
+ else
784
+ setup_rb_error "unknown global option '#{arg}'"
785
+ end
786
+ end
787
+
788
+ nil
789
+ end
790
+
791
+
792
+ def parsearg_no_options
793
+ unless ARGV.empty?
794
+ setup_rb_error "#{task}: unknown options: #{ARGV.join ' '}"
795
+ end
796
+ end
797
+
798
+ alias parsearg_show parsearg_no_options
799
+ alias parsearg_setup parsearg_no_options
800
+ alias parsearg_clean parsearg_no_options
801
+ alias parsearg_distclean parsearg_no_options
802
+
803
+ def parsearg_config
804
+ re = /\A--(#{ConfigTable.map {|i| i.name }.join('|')})(?:=(.*))?\z/
805
+ @options['config-opt'] = []
806
+
807
+ while i = ARGV.shift
808
+ if /\A--?\z/ =~ i
809
+ @options['config-opt'] = ARGV.dup
810
+ break
811
+ end
812
+ m = re.match(i) or setup_rb_error "config: unknown option #{i}"
813
+ name, value = *m.to_a[1,2]
814
+ @config[name] = value
815
+ end
816
+ end
817
+
818
+ def parsearg_install
819
+ @options['no-harm'] = false
820
+ @options['install-prefix'] = ''
821
+ while a = ARGV.shift
822
+ case a
823
+ when /\A--no-harm\z/
824
+ @options['no-harm'] = true
825
+ when /\A--prefix=(.*)\z/
826
+ path = $1
827
+ path = File.expand_path(path) unless path[0,1] == '/'
828
+ @options['install-prefix'] = path
829
+ else
830
+ setup_rb_error "install: unknown option #{a}"
831
+ end
832
+ end
833
+ end
834
+
835
+ def print_usage(out)
836
+ out.puts 'Typical Installation Procedure:'
837
+ out.puts " $ ruby #{File.basename $0} config"
838
+ out.puts " $ ruby #{File.basename $0} setup"
839
+ out.puts " # ruby #{File.basename $0} install (may require root privilege)"
840
+ out.puts
841
+ out.puts 'Detailed Usage:'
842
+ out.puts " ruby #{File.basename $0} <global option>"
843
+ out.puts " ruby #{File.basename $0} [<global options>] <task> [<task options>]"
844
+
845
+ fmt = " %-24s %s\n"
846
+ out.puts
847
+ out.puts 'Global options:'
848
+ out.printf fmt, '-q,--quiet', 'suppress message outputs'
849
+ out.printf fmt, ' --verbose', 'output messages verbosely'
850
+ out.printf fmt, '-h,--help', 'print this message'
851
+ out.printf fmt, '-v,--version', 'print version and quit'
852
+ out.printf fmt, ' --copyright', 'print copyright and quit'
853
+ out.puts
854
+ out.puts 'Tasks:'
855
+ TASKS.each do |name, desc|
856
+ out.printf fmt, name, desc
857
+ end
858
+
859
+ fmt = " %-24s %s [%s]\n"
860
+ out.puts
861
+ out.puts 'Options for CONFIG or ALL:'
862
+ ConfigTable.each do |item|
863
+ out.printf fmt, item.help_opt, item.description, item.help_default
864
+ end
865
+ out.printf fmt, '--rbconfig=path', 'rbconfig.rb to load',"running ruby's"
866
+ out.puts
867
+ out.puts 'Options for INSTALL:'
868
+ out.printf fmt, '--no-harm', 'only display what to do if given', 'off'
869
+ out.printf fmt, '--prefix=path', 'install path prefix', '$prefix'
870
+ out.puts
871
+ end
872
+
873
+ #
874
+ # Task Handlers
875
+ #
876
+
877
+ def exec_config
878
+ @installer.exec_config
879
+ @config.save # must be final
880
+ end
881
+
882
+ def exec_setup
883
+ @installer.exec_setup
884
+ end
885
+
886
+ def exec_install
887
+ @installer.exec_install
888
+ end
889
+
890
+ def exec_show
891
+ ConfigTable.each do |i|
892
+ printf "%-20s %s\n", i.name, i.value
893
+ end
894
+ end
895
+
896
+ def exec_clean
897
+ @installer.exec_clean
898
+ end
899
+
900
+ def exec_distclean
901
+ @installer.exec_distclean
902
+ end
903
+
904
+ end
905
+
906
+
907
+ class ToplevelInstallerMulti < ToplevelInstaller
908
+
909
+ include HookUtils
910
+ include HookScriptAPI
911
+ include FileOperations
912
+
913
+ def initialize(ardir)
914
+ super
915
+ @packages = all_dirs_in("#{@ardir}/packages")
916
+ raise 'no package exists' if @packages.empty?
917
+ end
918
+
919
+ def run_metaconfigs
920
+ eval_file_ifexist "#{@ardir}/metaconfig"
921
+ @packages.each do |name|
922
+ eval_file_ifexist "#{@ardir}/packages/#{name}/metaconfig"
923
+ end
924
+ end
925
+
926
+ def init_installers
927
+ @installers = {}
928
+ @packages.each do |pack|
929
+ @installers[pack] = Installer.new(@config, @options,
930
+ "#{@ardir}/packages/#{pack}",
931
+ "packages/#{pack}")
932
+ end
933
+
934
+ with = extract_selection(config('with'))
935
+ without = extract_selection(config('without'))
936
+ @selected = @installers.keys.select {|name|
937
+ (with.empty? or with.include?(name)) \
938
+ and not without.include?(name)
939
+ }
940
+ end
941
+
942
+ def extract_selection(list)
943
+ a = list.split(/,/)
944
+ a.each do |name|
945
+ setup_rb_error "no such package: #{name}" unless @installers.key?(name)
946
+ end
947
+ a
948
+ end
949
+
950
+ def print_usage(f)
951
+ super
952
+ f.puts 'Inluded packages:'
953
+ f.puts ' ' + @packages.sort.join(' ')
954
+ f.puts
955
+ end
956
+
957
+ #
958
+ # multi-package metaconfig API
959
+ #
960
+
961
+ attr_reader :packages
962
+
963
+ def declare_packages(list)
964
+ raise 'package list is empty' if list.empty?
965
+ list.each do |name|
966
+ raise "directory packages/#{name} does not exist"\
967
+ unless File.dir?("#{@ardir}/packages/#{name}")
968
+ end
969
+ @packages = list
970
+ end
971
+
972
+ #
973
+ # Task Handlers
974
+ #
975
+
976
+ def exec_config
977
+ run_hook 'pre-config'
978
+ each_selected_installers {|inst| inst.exec_config }
979
+ run_hook 'post-config'
980
+ @config.save # must be final
981
+ end
982
+
983
+ def exec_setup
984
+ run_hook 'pre-setup'
985
+ each_selected_installers {|inst| inst.exec_setup }
986
+ run_hook 'post-setup'
987
+ end
988
+
989
+ def exec_install
990
+ run_hook 'pre-install'
991
+ each_selected_installers {|inst| inst.exec_install }
992
+ run_hook 'post-install'
993
+ end
994
+
995
+ def exec_clean
996
+ rm_f ConfigTable.savefile
997
+ run_hook 'pre-clean'
998
+ each_selected_installers {|inst| inst.exec_clean }
999
+ run_hook 'post-clean'
1000
+ end
1001
+
1002
+ def exec_distclean
1003
+ rm_f ConfigTable.savefile
1004
+ run_hook 'pre-distclean'
1005
+ each_selected_installers {|inst| inst.exec_distclean }
1006
+ run_hook 'post-distclean'
1007
+ end
1008
+
1009
+ #
1010
+ # lib
1011
+ #
1012
+
1013
+ def each_selected_installers
1014
+ Dir.mkdir 'packages' unless File.dir?('packages')
1015
+ @selected.each do |pack|
1016
+ $stderr.puts "Processing the package `#{pack}' ..." if @options['verbose']
1017
+ Dir.mkdir "packages/#{pack}" unless File.dir?("packages/#{pack}")
1018
+ Dir.chdir "packages/#{pack}"
1019
+ yield @installers[pack]
1020
+ Dir.chdir '../..'
1021
+ end
1022
+ end
1023
+
1024
+ def verbose?
1025
+ @options['verbose']
1026
+ end
1027
+
1028
+ def no_harm?
1029
+ @options['no-harm']
1030
+ end
1031
+
1032
+ end
1033
+
1034
+
1035
+ class Installer
1036
+
1037
+ FILETYPES = %w( bin lib ext data )
1038
+
1039
+ include HookScriptAPI
1040
+ include HookUtils
1041
+ include FileOperations
1042
+
1043
+ def initialize(config, opt, srcroot, objroot)
1044
+ @config = config
1045
+ @options = opt
1046
+ @srcdir = File.expand_path(srcroot)
1047
+ @objdir = File.expand_path(objroot)
1048
+ @currdir = '.'
1049
+ end
1050
+
1051
+ def inspect
1052
+ "#<#{self.class} #{File.basename(@srcdir)}>"
1053
+ end
1054
+
1055
+ #
1056
+ # Hook Script API base methods
1057
+ #
1058
+
1059
+ def srcdir_root
1060
+ @srcdir
1061
+ end
1062
+
1063
+ def objdir_root
1064
+ @objdir
1065
+ end
1066
+
1067
+ def relpath
1068
+ @currdir
1069
+ end
1070
+
1071
+ #
1072
+ # configs/options
1073
+ #
1074
+
1075
+ def no_harm?
1076
+ @options['no-harm']
1077
+ end
1078
+
1079
+ def verbose?
1080
+ @options['verbose']
1081
+ end
1082
+
1083
+ def verbose_off
1084
+ begin
1085
+ save, @options['verbose'] = @options['verbose'], false
1086
+ yield
1087
+ ensure
1088
+ @options['verbose'] = save
1089
+ end
1090
+ end
1091
+
1092
+ #
1093
+ # TASK config
1094
+ #
1095
+
1096
+ def exec_config
1097
+ exec_task_traverse 'config'
1098
+ end
1099
+
1100
+ def config_dir_bin(rel)
1101
+ end
1102
+
1103
+ def config_dir_lib(rel)
1104
+ end
1105
+
1106
+ def config_dir_ext(rel)
1107
+ extconf if extdir?(curr_srcdir())
1108
+ end
1109
+
1110
+ def extconf
1111
+ opt = @options['config-opt'].join(' ')
1112
+ command "#{config('rubyprog')} #{curr_srcdir()}/extconf.rb #{opt}"
1113
+ end
1114
+
1115
+ def config_dir_data(rel)
1116
+ end
1117
+
1118
+ #
1119
+ # TASK setup
1120
+ #
1121
+
1122
+ def exec_setup
1123
+ exec_task_traverse 'setup'
1124
+ end
1125
+
1126
+ def setup_dir_bin(rel)
1127
+ all_files_in(curr_srcdir()).each do |fname|
1128
+ adjust_shebang "#{curr_srcdir()}/#{fname}"
1129
+ end
1130
+ end
1131
+
1132
+ def adjust_shebang(path)
1133
+ return if no_harm?
1134
+ tmpfile = File.basename(path) + '.tmp'
1135
+ begin
1136
+ File.open(path, 'rb') {|r|
1137
+ first = r.gets
1138
+ return unless File.basename(config('rubypath')) == 'ruby'
1139
+ return unless File.basename(first.sub(/\A\#!/, '').split[0]) == 'ruby'
1140
+ $stderr.puts "adjusting shebang: #{File.basename(path)}" if verbose?
1141
+ File.open(tmpfile, 'wb') {|w|
1142
+ w.print first.sub(/\A\#!\s*\S+/, '#! ' + config('rubypath'))
1143
+ w.write r.read
1144
+ }
1145
+ move_file tmpfile, File.basename(path)
1146
+ }
1147
+ ensure
1148
+ File.unlink tmpfile if File.exist?(tmpfile)
1149
+ end
1150
+ end
1151
+
1152
+ def setup_dir_lib(rel)
1153
+ end
1154
+
1155
+ def setup_dir_ext(rel)
1156
+ make if extdir?(curr_srcdir())
1157
+ end
1158
+
1159
+ def setup_dir_data(rel)
1160
+ end
1161
+
1162
+ #
1163
+ # TASK install
1164
+ #
1165
+
1166
+ def exec_install
1167
+ rm_f 'InstalledFiles'
1168
+ exec_task_traverse 'install'
1169
+ end
1170
+
1171
+ def install_dir_bin(rel)
1172
+ install_files collect_filenames_auto(), "#{config('bindir')}/#{rel}", 0755
1173
+ end
1174
+
1175
+ def install_dir_lib(rel)
1176
+ install_files ruby_scripts(), "#{config('rbdir')}/#{rel}", 0644
1177
+ end
1178
+
1179
+ def install_dir_ext(rel)
1180
+ return unless extdir?(curr_srcdir())
1181
+ install_files ruby_extentions('.'),
1182
+ "#{config('sodir')}/#{File.dirname(rel)}",
1183
+ 0555
1184
+ end
1185
+
1186
+ def install_dir_data(rel)
1187
+ install_files collect_filenames_auto(), "#{config('datadir')}/#{rel}", 0644
1188
+ end
1189
+
1190
+ def install_files(list, dest, mode)
1191
+ mkdir_p dest, @options['install-prefix']
1192
+ list.each do |fname|
1193
+ install fname, dest, mode, @options['install-prefix']
1194
+ end
1195
+ end
1196
+
1197
+ def ruby_scripts
1198
+ collect_filenames_auto().select {|n| /\.rb\z/ =~ n }
1199
+ end
1200
+
1201
+ # picked up many entries from cvs-1.11.1/src/ignore.c
1202
+ reject_patterns = %w(
1203
+ core RCSLOG tags TAGS .make.state
1204
+ .nse_depinfo #* .#* cvslog.* ,* .del-* *.olb
1205
+ *~ *.old *.bak *.BAK *.orig *.rej _$* *$
1206
+
1207
+ *.org *.in .*
1208
+ )
1209
+ mapping = {
1210
+ '.' => '\.',
1211
+ '$' => '\$',
1212
+ '#' => '\#',
1213
+ '*' => '.*'
1214
+ }
1215
+ REJECT_PATTERNS = Regexp.new('\A(?:' +
1216
+ reject_patterns.map {|pat|
1217
+ pat.gsub(/[\.\$\#\*]/) {|ch| mapping[ch] }
1218
+ }.join('|') +
1219
+ ')\z')
1220
+
1221
+ def collect_filenames_auto
1222
+ mapdir((existfiles() - hookfiles()).reject {|fname|
1223
+ REJECT_PATTERNS =~ fname
1224
+ })
1225
+ end
1226
+
1227
+ def existfiles
1228
+ all_files_in(curr_srcdir()) | all_files_in('.')
1229
+ end
1230
+
1231
+ def hookfiles
1232
+ %w( pre-%s post-%s pre-%s.rb post-%s.rb ).map {|fmt|
1233
+ %w( config setup install clean ).map {|t| sprintf(fmt, t) }
1234
+ }.flatten
1235
+ end
1236
+
1237
+ def mapdir(filelist)
1238
+ filelist.map {|fname|
1239
+ if File.exist?(fname) # objdir
1240
+ fname
1241
+ else # srcdir
1242
+ File.join(curr_srcdir(), fname)
1243
+ end
1244
+ }
1245
+ end
1246
+
1247
+ def ruby_extentions(dir)
1248
+ Dir.open(dir) {|d|
1249
+ ents = d.select {|fname| /\.#{::Config::CONFIG['DLEXT']}\z/ =~ fname }
1250
+ if ents.empty?
1251
+ setup_rb_error "no ruby extention exists: 'ruby #{$0} setup' first"
1252
+ end
1253
+ return ents
1254
+ }
1255
+ end
1256
+
1257
+ #
1258
+ # TASK clean
1259
+ #
1260
+
1261
+ def exec_clean
1262
+ exec_task_traverse 'clean'
1263
+ rm_f ConfigTable.savefile
1264
+ rm_f 'InstalledFiles'
1265
+ end
1266
+
1267
+ def clean_dir_bin(rel)
1268
+ end
1269
+
1270
+ def clean_dir_lib(rel)
1271
+ end
1272
+
1273
+ def clean_dir_ext(rel)
1274
+ return unless extdir?(curr_srcdir())
1275
+ make 'clean' if File.file?('Makefile')
1276
+ end
1277
+
1278
+ def clean_dir_data(rel)
1279
+ end
1280
+
1281
+ #
1282
+ # TASK distclean
1283
+ #
1284
+
1285
+ def exec_distclean
1286
+ exec_task_traverse 'distclean'
1287
+ rm_f ConfigTable.savefile
1288
+ rm_f 'InstalledFiles'
1289
+ end
1290
+
1291
+ def distclean_dir_bin(rel)
1292
+ end
1293
+
1294
+ def distclean_dir_lib(rel)
1295
+ end
1296
+
1297
+ def distclean_dir_ext(rel)
1298
+ return unless extdir?(curr_srcdir())
1299
+ make 'distclean' if File.file?('Makefile')
1300
+ end
1301
+
1302
+ #
1303
+ # lib
1304
+ #
1305
+
1306
+ def exec_task_traverse(task)
1307
+ run_hook "pre-#{task}"
1308
+ FILETYPES.each do |type|
1309
+ if config('without-ext') == 'yes' and type == 'ext'
1310
+ $stderr.puts 'skipping ext/* by user option' if verbose?
1311
+ next
1312
+ end
1313
+ traverse task, type, "#{task}_dir_#{type}"
1314
+ end
1315
+ run_hook "post-#{task}"
1316
+ end
1317
+
1318
+ def traverse(task, rel, mid)
1319
+ dive_into(rel) {
1320
+ run_hook "pre-#{task}"
1321
+ __send__ mid, rel.sub(%r[\A.*?(?:/|\z)], '')
1322
+ all_dirs_in(curr_srcdir()).each do |d|
1323
+ traverse task, "#{rel}/#{d}", mid
1324
+ end
1325
+ run_hook "post-#{task}"
1326
+ }
1327
+ end
1328
+
1329
+ def dive_into(rel)
1330
+ return unless File.dir?("#{@srcdir}/#{rel}")
1331
+
1332
+ dir = File.basename(rel)
1333
+ Dir.mkdir dir unless File.dir?(dir)
1334
+ prevdir = Dir.pwd
1335
+ Dir.chdir dir
1336
+ $stderr.puts '---> ' + rel if verbose?
1337
+ @currdir = rel
1338
+ yield
1339
+ Dir.chdir prevdir
1340
+ $stderr.puts '<--- ' + rel if verbose?
1341
+ @currdir = File.dirname(rel)
1342
+ end
1343
+
1344
+ end
1345
+
1346
+
1347
+ if $0 == __FILE__
1348
+ begin
1349
+ if multipackage_install?
1350
+ ToplevelInstallerMulti.invoke
1351
+ else
1352
+ ToplevelInstaller.invoke
1353
+ end
1354
+ rescue SetupError
1355
+ raise if $DEBUG
1356
+ $stderr.puts $!.message
1357
+ $stderr.puts "Try 'ruby #{$0} --help' for detailed usage."
1358
+ exit 1
1359
+ end
1360
+ end