makeconf 0.1.0

data/lib/makeconf/externalproject.rb

@@ -0,0 +1,108 @@
+# An external project is typically a third-party library dependency
+# that does not use makeconf for it's build system.
+#
+class ExternalProject < Buildable
+ 
+  require 'net/http'
+  require 'uri'
+
+  attr_accessor :uri, :patch
+
+  def initialize(options)
+    # KLUDGE - parent constructor will barf unless we delete our 
+    #       custom options
+    @uri = options[:uri]
+    options.delete :uri
+    @configure = options[:configure]  # options passed to ./configure 
+    options.delete :configure
+    @configure = './configure' if @configure.nil?
+    @patch = options[:patch]
+    options.delete :patch
+    @patch = [] if @patch.nil?
+
+    super(options)
+
+    @installable = false
+    @distributable = false
+  end
+
+  # Examine the operating environment and set configuration options
+  def configure
+    printf "checking for external project #{@id}... "
+    if File.exists?(@id)
+       puts "yes"
+    else
+      puts "no"
+      download
+
+      # Apply patches
+      @patch.each do |p|
+        system "cd #{@id} && patch -p0 -N < ../#{p}" \
+            or throw "failed to apply patch: ../#{p}"
+      end
+    end
+
+    # KLUDGE: passthrough certain options
+    passthru = []
+    Makeconf.original_argv.each do |x|
+      passthru.push x if x =~ /^--(host|with-ndk|with-sdk)/
+    end
+    @configure += ' ' + passthru.join(' ') unless passthru.empty?
+
+    # FIXME: this works, but autotools differ widely across host systems.
+    #        make this an optional step that can be done
+    #
+    # Regenerate the Autotools files
+    #if File.exists?(@id + '/configure.ac')
+    #      system "cd #{@id} && autoreconf -fvi" \
+    #          or throw "autoreconf failed"
+    #    end
+
+    # Run the autoconf-style ./configure script
+    puts "*** Configuring #{@id} using #{@configure}"
+    system "cd #{@id} && #{@configure}" \
+        or throw "Unable to configure #{@id}"
+    puts "*** Done"
+  end
+
+  def build
+     makefile = Makefile.new
+     return makefile unless @buildable
+     makefile.add_dependency('all', "#{@id}-build-stamp")
+     makefile.add_target("#{@id}-build-stamp", [], 
+             [
+             "cd #{@id} && make",
+             "touch #{@id}-build-stamp",
+             ])
+     makefile.add_rule('check', [ "cd #{@id} && make check" ])
+     makefile.add_rule('clean', Platform.rm("#{@id}-build-stamp"))
+     makefile
+  end
+
+
+private
+
+  # Download the project from an external source
+  def download
+
+#example for tarball
+#    x = Net::HTTP.get(URI(uri))
+#  end
+    uri = URI(@uri)
+
+    case uri.scheme
+    when 'svn', 'svn+ssh'
+      puts "downloading #{@uri}.. "
+      system "svn co #{@uri} #{@id}" or throw "Unable to checkout working copy"
+    when 'file'
+      puts "unpacking #{uri.host}.. "
+      system "tar zxf #{uri.host}" or throw "Unable to unpack #{uri.host}"
+    else
+      throw "Unsupported URI scheme #{@uri}"
+    end
+  end
+
+  def log
+      Makeconf.logger
+  end
+end

data/lib/makeconf/gui.rb

@@ -0,0 +1,239 @@
+class Makeconf::GUI
+
+  def initialize(project)
+    require 'tk'
+
+    @project = project
+    @page = [ 'intro_page', 
+              'license_page',
+# TODO:'install_prefix_page',
+              'build_page',
+              'outro_page',
+         ]
+    @pageIndex = 0
+
+    @mainTitle = TkVariable.new 
+    @mainMessage = TkVariable.new 
+
+    @root = TkRoot.new() { 
+        title "Installation" 
+    }
+
+    @mainTitleWidget = TkLabel.new(@root) {
+        pack('side' => 'top')
+    }
+    @mainTitleWidget.configure('textvariable', @mainTitle)
+
+    @mainFrame = TkFrame.new(@root) {
+        height      600
+        width       600
+        background  'white'
+        borderwidth 5
+        relief      'groove'
+        padx        10
+        pady        10
+        pack('side' => 'top')
+    }
+
+    @mainLabel = TkLabel.new(@mainFrame) {
+        background  'white'
+    }
+    @mainLabel.configure('textvariable', @mainMessage)
+    
+    @mainText = TkText.new(@mainFrame) {
+        background  'white'
+    }
+
+    @cancelButton = TkButton.new(@root) { 
+        text "Cancel" 
+        command proc {
+            exit 1
+        }
+        pack('side' => 'left')
+    }
+
+    @nextButton = TkButton.new(@root) { 
+        text "Next" 
+        pack('side' => 'right')
+    }
+    @nextButton.configure('command', method(:next_page))
+#nextButton.configure('command', proc { mainMessage.set_value 'You click it' })
+    @nextButtonEnable = true
+
+    @backButton = TkButton.new(@root) { 
+        text    "Back" 
+        command proc { prev_page }
+        state   'disabled'
+        pack('side' => 'right')
+    }
+    @backButton.configure('command', method(:prev_page))
+    @backButtonEnable = true
+
+    update_buttons
+  end
+
+  def next_page
+    eval "#{@page[@pageIndex]}(false)"
+    @pageIndex = @pageIndex + 1
+    eval "#{@page[@pageIndex]}(true)"
+    update_buttons
+  end
+
+  def prev_page
+    eval "#{@page[@pageIndex]}(false)"
+    @pageIndex = @pageIndex - 1
+    eval "#{@page[@pageIndex]}(true)"
+    update_buttons
+  end
+
+  # Update the Back and Next buttons based on the position in the pagelist
+  def update_buttons
+    if @pageIndex == 0
+      @backButton.configure('state', 'disabled')
+      @nextButton.configure('state', 'normal')
+      @nextButton.configure('text', 'Next')
+    elsif @pageIndex == @page.length - 1
+      @nextButton.configure('text', 'Finish')
+      @nextButton.configure('command', proc { exit 0 })
+      @backButton.configure('state', 'disabled')
+      @cancelButton.configure('state', 'disabled')
+    else
+      @nextButton.configure('text', 'Next')
+      @nextButton.configure('state', @nextButtonEnable ? 'normal' : 'disabled')
+      @backButton.configure('state', @backButtonEnable ? 'normal' : 'disabled')
+    end
+  end
+
+  def main_loop
+    eval "#{@page[0]}(true)"
+    Tk.mainloop()
+  end
+
+  def intro_page(display)
+    if display
+      @mainTitle.set_value 'Welcome'
+      @mainLabel.place('relx'=>0.0, 'rely' => 0.0)
+      @mainMessage.set_value "This will install #{@project.id} on your computer"
+    else
+      TkPlace.forget(@mainLabel)
+    end
+  end
+
+  def license_page(display)
+    if display
+      @mainTitle.set_value 'License Agreement'
+      @mainText.insert('end', File.read(@project.license_file))
+      @mainText.place('relx'=>0.0, 'rely' => 0.0)
+    else
+      TkPlace.forget(@mainText)
+      @mainText.delete(1.0, 'end')
+    end
+  end
+
+  def install_prefix_page(display)
+    if display
+      @mainTitle.set_value 'Installation Path'
+      @mainText.insert('end', "choose an installation path")
+      @mainText.place('relx'=>0.0, 'rely' => 0.0)
+      Tk.getOpenFile
+    else
+      TkPlace.forget(@mainText)
+      @mainText.delete(1.0, 'end')
+    end
+  end
+
+  def build_page(display)
+    if display
+      @nextButtonEnable = false
+      update_buttons
+      @mainTitle.set_value 'Checking Configuration'
+      @mainText.delete(1.0, 'end')
+      @mainText.place('relx'=>0.0, 'rely' => 0.0)
+      Thread.new {
+          @mainText.insert('end', "Configuring.. ")
+          Makeconf.configure_project @project 
+          @mainText.insert('end', "done\n")
+
+          make = Platform.is_windows? ? 'nmake' : 'make'
+
+          @mainText.insert('end', "Building.. ")
+          system "#{make}"
+          @mainText.insert('end', "done\n")
+
+          @mainText.insert('end', "Installing.. ")
+          system "#{make} install"
+          @mainText.insert('end', "done\n")
+
+          @mainText.insert('end', "\nAll tasks completed.")
+
+          @nextButtonEnable = true
+          update_buttons
+      }
+    else
+      TkPlace.forget(@mainText)
+      @mainText.delete(1.0, 'end')
+    end
+  end
+
+  def outro_page(display)
+    if display
+      @mainTitle.set_value 'Installation Complete'
+      @mainLabel.place('relx'=>0.0, 'rely' => 0.0)
+      @mainMessage.set_value "Installation is complete."
+    else
+      TkPlace.forget(@mainLabel)
+    end
+  end
+
+end
+
+__END__
+# UNUSED: might use for showing error messages if "require 'tk'" fails
+#
+class Makeconf::GUI::Minimal
+
+  if Platform.is_windows?
+    require 'dl'
+  end
+
+  def initialize
+  end
+
+  # Display a graphical message box
+  def message_box(txt, title, buttons=0)
+    if Platform.is_windows?
+
+# FIXME: add conditional
+
+#Ruby 1.8:
+#      user32 = DL.dlopen('user32')
+#      msgbox = user32['MessageBoxA', 'ILSSI']
+#      r, rs = msgbox.call(0, txt, title, buttons)
+#      return r
+
+#Ruby 1.9:
+    user32 = DL.dlopen('user32')
+    msgbox = DL::CFunc.new(user32['MessageBoxA'], DL::TYPE_LONG, 'MessageBox')
+    r, rs = msgbox.call([0, txt, title, buttons].pack('L!ppL!').unpack('L!*'))
+    return r
+    elsif Platform.is_linux?
+      #XXX-scrub txt to eliminate "'" character
+      cmd = "zenity --text='#{txt}' " + (buttons > 0 ? '--question' : '--info')
+      rv = system cmd
+      return rv == true ? 1 : 0
+    else
+      throw 'STUB'
+    end
+  end
+
+  # Display an informational message with a single 'OK' button
+  def notice(txt, title)
+    message_box(txt, title, 0)
+  end
+
+  # Display an confirmation message with an OK button and CANCEL button
+  def confirm(txt, title)
+    return (message_box(txt, title, 1) == 1) ? true : false
+  end
+
+end

data/lib/makeconf/header.rb

@@ -0,0 +1,37 @@
+# A generic Header class that installs header files into $(PKGINCLUDEDIR)
+
+class Header < Buildable
+
+  def initialize(options)
+    raise ArgumentError unless options.kind_of?(Hash)
+
+    # KLUDGE - parent constructor will barf unless we delete our 
+    #       custom options
+    @namespace = options[:namespace]
+    options.delete :namespace
+
+    super(options)
+  end
+
+  def build
+    mk = Makefile.new
+
+    mk.distribute(@sources)
+
+    dest = '$(INCLUDEDIR)'
+    dest += '/' + @namespace unless @namespace.nil?
+
+    @project.installer.install(
+        :sources => @sources,
+        :dest => dest,
+        :mode => '644' 
+     ) 
+
+    return mk
+  end
+
+  def makedepends
+    []
+  end
+
+end

data/lib/makeconf/installer.rb

@@ -0,0 +1,205 @@
+# An installer copies files from the current directory to an OS-wide location
+class Installer
+
+  attr_reader :dir
+  attr_accessor :package
+
+  def initialize
+    @items = []         # Items to be installed
+    @project = nil
+    @path = nil
+
+    # Set default installation paths
+    @dir = {
+        :prefix => Platform.is_superuser? ? '/usr' : '/usr/local',
+        :eprefix => '$(PREFIX)',    # this is --exec-prefix
+        :bindir => '$(EPREFIX)/bin',
+        :datarootdir => '$(PREFIX)/share',
+        :datadir => '$(DATAROOTDIR)',
+        :docdir => '$(DATAROOTDIR)/doc/$(PACKAGE)',
+        :includedir => '$(PREFIX)/include',
+        :infodir => '$(DATAROOTDIR)/info',
+        :libdir => '$(EPREFIX)/lib',
+        :libexecdir => '$(EPREFIX)/libexec',
+        :localedir => '$(DATAROOTDIR)/locale',
+        :localstatedir => '$(PREFIX)/var',
+        :mandir => '$(DATAROOTDIR)/man',
+        :oldincludedir => '/usr/include',
+        :sbindir => '$(EPREFIX)/sbin',
+        :sysconfdir => '$(PREFIX)/etc',
+        :sharedstatedir => '$(PREFIX)/com',
+
+        # Package-specific directories
+        :pkgincludedir => '$(INCLUDEDIR)/$(PACKAGE)',
+        :pkgdatadir => '$(DATADIR)/$(PACKAGE)',
+        :pkglibdir => '$(LIBDIR)/$(PACKAGE)',
+        
+        #TODO: document this
+        #DEPRECATED: htmldir, dvidir, pdfdir, psdir
+    }
+
+    @dir[:prefix] = ENV['SystemDrive'] + @dir[:prefix] if Platform.is_windows?
+  end
+
+  # Examine the operating environment and set configuration options
+  def configure(project)
+    @project = project
+    printf 'checking for a BSD-compatible install.. '
+    if Platform.is_windows?
+       puts 'not found'
+    else
+       @path = search() or throw 'No installer found'
+       printf @path + "\n"
+    end
+  end
+
+  # Parse command line options.
+  # Should only be called from Makeconf.parse_options()
+  def parse_options(opts)
+    opts.separator ""
+    opts.separator "Installation options:"
+
+    # Convert symbols to strings
+    tmp = {}
+    @dir.each { |k,v| tmp[k.to_s] = v }
+
+    tmp.sort.each do |k, v|
+       opts.on('--' + k + ' [DIRECTORY]', "TODO describe this [#{v}]") do |arg|
+          @dir[k.to_sym] = arg
+       end
+    end
+
+  end
+
+  # Register a file to be copied during the 'make install' phase.
+  def install(src)
+    buf = {
+        :sources => nil,
+        :dest => nil,
+        :rename => nil,
+        :directory? => false,
+        :group => nil,
+        :user => nil,
+        :mode => '0755',
+    }
+#TODO: check for leading '/': raise ArgumentError, 'absolute path is required' unless src[:dest].index(0) == '/'
+    raise ArgumentError, ':dest is require' if src[:dest].nil?
+    raise ArgumentError, 'Cannot specify both directory and sources' \
+       if buf[:directory] == true and not buf[:sources].nil
+    @items.push buf.merge(src)
+  end
+
+  def to_make
+    mkdir_list = []   # all directories that have been created so far
+
+    m = Makefile.new
+    m.define_variable('INSTALL', '?=', @path) unless @path.nil?
+
+    # Add 'make install' rules
+    @items.each do |i| 
+      # Automatically create the destination directory, if needed
+      destdir = expand_dir(i[:dest])
+      unless mkdir_list.include?(destdir)
+       m.add_rule('install', Platform.is_windows? ?
+               "dir $(DESTDIR)#{destdir} >NUL 2>NUL || mkdir $(DESTDIR)#{destdir}" : 
+               "/usr/bin/test -e $(DESTDIR)#{destdir} || $(INSTALL) -d -m 755 $(DESTDIR)#{destdir}")
+       mkdir_list.push(destdir)
+      end
+
+      m.add_rule('install', install_command(i)) 
+      m.add_rule('uninstall', uninstall_command(i)) 
+    end
+
+    return m
+  end
+
+  private
+
+  # Expand makefile variables related to installation directories
+  def expand_dir(s)
+    buf = s
+
+    throw 'FIXME -- handle $(PACKAGE)' if buf =~ /\$\(PACKAGE\)/
+    while buf =~ /\$/
+      old = buf.dup
+      @dir.each do |k,v|
+        buf.gsub!(/\$\(#{k.to_s.upcase}\)/, v)
+      end
+      # Crude way of bailing out when there are undefined variables
+      # like $(DESTDIR)
+      break if old == buf and buf =~ /\$\(/
+    end
+
+    Platform.pathspec(buf)
+  end
+
+  # Translate an @item into the equivalent shell command(s)
+  def install_command(h)
+    res = []
+    h[:sources] = [ h[:sources] ] if h[:sources].kind_of? String
+
+    # TODO: more sanity checks (e.g. !h[:directory] && h[:sources])
+
+    if Platform.is_windows?
+      # XXX-this is not fully implemented, need mode/owner/group
+      if h[:directory]
+        res.push 'mkdir $(DESTDIR)' + expand_dir(h[:dest])
+      else
+        res.push "copy" 
+        h[:sources].each do |src|
+          res.push Platform.pathspec(src)
+        end
+        res.push '$(DESTDIR)' + expand_dir(h[:dest])
+      end
+    else
+      res.push '$(INSTALL)'
+      res.push '-d' if h[:directory]
+      res.push('-m', h[:mode]) if h[:mode]
+      res.push('-o', h[:owner]) if h[:owner]
+      res.push('-g', h[:group]) if h[:group]
+      h[:sources].each do |src|
+        res.push Platform.pathspec(src)
+      end
+      dst = '$(DESTDIR)' + expand_dir(h[:dest])
+      dst += '/' + h[:rename] unless h[:rename].nil?
+      res.push dst
+    end
+
+    res.join(' ')
+  end
+
+  # Translate an @item into the equivalent uninstallation shell command(s)
+  def uninstall_command(h)
+    res = []
+
+    h[:sources] = [ h[:sources] ] if h[:sources].kind_of?(String)
+
+    # TODO: use Platform abstractions instead of duplicate logic
+    if Platform.is_windows?
+      unless h[:sources]
+        res.push 'del', Platform.pathspec('$(DESTDIR)' + h[:dest])
+      else
+        h[:sources].each do |src|
+          res.push 'del', Platform.pathspec('$(DESTDIR)' + h[:dest] + '/' + File.basename(src) )
+        end
+      end
+    else
+      unless h[:sources]
+        res.push 'rmdir', '$(DESTDIR)' + h[:dest]
+      else
+        res.push 'rm', '-f', h[:sources].map { |x| '$(DESTDIR)' + h[:dest] + '/' + x }
+      end
+    end
+
+    res.join(' ')
+  end
+
+  def search()
+    [ ENV['INSTALL'], '/usr/ucb/install', '/usr/bin/install' ].each do |x|
+        if !x.nil? and File.exists?(x)
+         return x
+        end
+    end
+  end
+
+end

data/lib/makeconf/library.rb

@@ -0,0 +1,72 @@
+# A generic Library class that builds both shared and static
+
+class Library < Buildable
+
+  attr_reader :buildable
+
+  def initialize(options)
+    raise ArgumentError unless options.kind_of?(Hash)
+    @buildable = [SharedLibrary.new(options), StaticLibrary.new(options)]
+  end
+
+end
+
+class SharedLibrary < Buildable
+
+  def initialize(options)
+    raise ArgumentError unless options.kind_of?(Hash)
+    id = options[:id]
+
+    super(options)
+    @abi_major = 0
+    @abi_minor = 0
+    @output = id + Platform.shared_library_extension
+    @output_type = 'shared library'
+#FIXME: @cc.ld.flags.push('-export-dynamic') unless Platform.is_solaris?
+  end
+
+end
+
+class StaticLibrary < Buildable
+
+  def initialize(options)
+    raise ArgumentError unless options.kind_of?(Hash)
+    id = options[:id]
+    super(options)
+    @output = id + Platform.static_library_extension
+    @output_type = 'static library'
+
+# FIXME: clashes with shared objects
+#      src = d.sub(/-static#{Platform.object_extension}$/, '.c')
+  end
+
+end
+
+#
+# UnionLibrary - combine multiple static libraries into a single library.
+#
+#   The :sources for this library should be an array of Library objects
+#
+class UnionLibrary < Library
+
+  def initialize(options)
+    raise ArgumentError unless options.kind_of?(Hash)
+    @buildable = []
+    options[:sources].each do |x|
+      x.buildable.each do |y|
+        @buildable.push y if y.kind_of?(StaticLibrary)
+      end
+    end
+    @buildable.flatten!
+
+    # Build a list of all source files within each component library
+    sources = []
+    @buildable.each { |x| sources.push x.sources }
+    sources.flatten!
+
+    @buildable.push StaticLibrary.new(
+            :id => options[:id],
+            :sources => sources
+            )
+  end
+end