From: Ara.T.Howard@...
Date: 2004-08-28T07:45:33+09:00
Subject: Re: Install to bin dir?

On Sat, 28 Aug 2004, T. Onoma wrote:

> I know there's probably a ready made solution for this. And I know its been
> done ten thousand times before. That's exactly why I'll just ask rather then
> reinvent the wheel.
>
> I have an install.rb script which works fine for lib files, but does nothing
> for bin files. Anyone have a good code snip for determining where to put bin
> files during installation?

a modified install.rb:


#!/usr/bin/env ruby
require 'rbconfig'
require 'find'
require 'ftools'
include Config

LIBDIR      = "lib"
LIBDIR_MODE = 0644

BINDIR      = "bin"
BINDIR_MODE = 0755


$srcdir      = CONFIG["srcdir"]
$version     = CONFIG["MAJOR"]+"."+CONFIG["MINOR"]
$libdir      = File.join(CONFIG["libdir"], "ruby", $version)
$archdir     = File.join($libdir, CONFIG["arch"])
$site_libdir = $:.find {|x| x =~ /site_ruby$/}
$bindir      = CONFIG["bindir"]

if !$site_libdir
   $site_libdir = File.join($libdir, "site_ruby")
elsif $site_libdir !~ %r/#{Regexp.quote($version)}/
   $site_libdir = File.join($site_libdir, $version)
end

def install_rb(srcdir=nil, destdir=nil, mode=nil)
   path   = []
   dir    = []
   Find.find(srcdir) do |f|
     next unless FileTest.file?(f)
     next if (f = f[srcdir.length+1..-1]) == nil
     next if (/CVS$/ =~ File.dirname(f))
     path.push f
     dir |= [File.dirname(f)]
   end
   for f in dir
     next if f == "."
     next if f == "CVS"
     File::makedirs(File.join(destdir, f))
   end
   for f in path
     next if (/\~$/ =~ f)
     next if (/^\./ =~ File.basename(f))
     File::install(File.join(srcdir, f), File.join(destdir, f), mode, true)
   end
end

def ARGV.switch
   return nil if self.empty?
   arg = self.shift
   return nil if arg == '--'
   if arg =~ /^-(.)(.*)/
     return arg if $1 == '-'
     raise 'unknown switch "-"' if $2.index('-')
     self.unshift "-#{$2}" if $2.size > 0
     "-#{$1}"
   else
     self.unshift arg
     nil
   end
end

def ARGV.req_arg
   self.shift || raise('missing argument')
end


# main program
libdir = $site_libdir
bindir = $bindir

begin
   while switch = ARGV.switch
     case switch
     when '-d', '--destdir'
       libdir = ARGV.req_arg
     when '-l', '--libdir'
       libdir = ARGV.req_arg
     when '-b', '--bindir'
       bindir = ARGV.req_arg
     else
       raise "unknown switch #{switch.dump}"
     end
   end
rescue
   STDERR.puts $!.to_s
   STDERR.puts File.basename($0) +
     " -d <destdir>" +
     " -l <libdir>" +
     " -b <bindir>"
   exit 1
end

install_rb(LIBDIR, libdir, LIBDIR_MODE)
install_rb(BINDIR, bindir, BINDIR_MODE)



cheers.

-a
--
===============================================================================
| EMAIL   :: Ara [dot] T [dot] Howard [at] noaa [dot] gov
| PHONE   :: 303.497.6469
| A flower falls, even though we love it;
| and a weed grows, even though we do not love it. 
|   --Dogen
===============================================================================