autorake 2.0

data/lib/autorake/configure.rb

@@ -0,0 +1,59 @@
+#
+#  autorake/configure.rb  --  Configure scripts
+#
+
+require "autorake/directories"
+require "yaml"
+
+module Autorake
+
+  class Configuration
+
+    CONFIG_FILE = ".configure"
+
+    attr_reader :directories
+    attr_reader :features, :parameters
+    attr_reader :incdirs, :headers, :macros, :libdirs, :libs
+
+    def initialize environment, directories
+      @environment = {}
+      environment.each { |k,v| @environment[ k] = v }
+      @directories = directories
+      @features = {}
+      @parameters = {}
+      @incdirs = []
+      @headers = []
+      @macros = {}
+      @libdirs = []
+      @libs = []
+    end
+
+    def do_env
+      @environment.each { |k,v| ENV[ k] = v }
+    end
+
+    def dump
+      puts "Environment:"
+      @environment.each { |k,v| puts "  #{k}=#{v}" }
+      puts "Directories:"
+      @directories.keys.each { |k| puts "  #{k}=#{@directories.expanded k}" }
+      puts "Features:"
+      @features.each { |k,v| puts "  #{k}=#{v}" }
+      puts "Parameters:"
+      @parameters.each { |k,v| puts "  #{k}=#{v}" }
+      puts "Include directories:"
+      @incdirs.each { |d| puts "  #{d}" }
+      puts "Header files:"
+      @headers.each { |h| puts "  #{h}" }
+      puts "C Macros:"
+      @macros.each { |k,v| puts "  #{k}=#{v}" }
+      puts "Library directories:"
+      @libdirs.each { |d| puts "  #{d}" }
+      puts "Libraries:"
+      @libs.each { |l| puts "  #{l}" }
+    end
+
+  end
+
+end
+

data/lib/autorake/definition.rb

@@ -0,0 +1,300 @@
+#
+#  autorake/definition.rb  --  Definitions to produce a config
+#
+
+require "autorake/compile"
+require "autorake/configure"
+
+module Autorake
+
+  class Definitions
+
+    attr_reader :environment, :directories, :features
+    def parameters ; @args[ :par] ; end
+    def incpath    ; @args[ :inc] ; end
+    def libpath    ; @args[ :lib] ; end
+
+    def initialize
+      @environment = {}
+      @directories = Directories.new
+      @features = {}
+      @args = { :par => {}, :inc => {}, :lib => {}, }
+      @checks = []
+    end
+
+    def dump
+      c = perform
+      c.dump
+    end
+
+    def perform
+      Compiler.quiet = true
+      c = Configuration.new @environment, @directories
+      c.do_env
+      c.features.update @features
+      c.incdirs.push std_incdir
+      c.libdirs.push std_libdir
+      af = @features.keys.map { |k| AddFeature.new k }
+      am = @args[ :par].map { |k,v| AddMacro.new k, v }
+      ai = @args[ :inc].map { |k,v| AddIncdir.new k, v }
+      al = @args[ :lib].map { |k,v| AddLibdir.new k, v }
+      [ af, am, ai, al, @checks].each { |a| a.each { |k| k.perform c } }
+      c
+    end
+
+    protected
+
+    def std_incdir ; @directories.expand "INCLUDE" ; end
+    def std_libdir ; @directories.expand "LIB"     ; end
+
+    def directory name, dir
+      @directories[ name]= dir
+    end
+
+    def feature name, enabled = nil
+      name = name.to_sym
+      @current and raise "Features may not be nested."
+      @current = name
+      @features[ name] = enabled
+      yield if block_given?
+    ensure
+      @current = nil
+    end
+    def enable name, &block
+      feature name, true, &block
+    end
+    def disable name, &block
+      feature name, false, &block
+    end
+
+    def with   name, val ; argdef :par, name, val ; end
+
+    def incdir name, dir ; argdef :inc, name, dir ; end
+    def libdir name, dir ; argdef :lib, name, dir ; end
+
+    def extending_ruby
+      if RUBY_VERSION < "1.9" then
+        incdir :ruby, RbConfig::CONFIG[ "topdir"]
+      else
+        h = RbConfig::CONFIG[ "rubyhdrdir"]
+        incdir :ruby, h
+        incdir :ruby_arch, (File.join h, RbConfig::CONFIG[ "arch"])
+        #incdir :ruby_backward, (File.join h, "ruby/backward")
+      end
+      libdir :ruby, RbConfig::CONFIG[ "libdir"]
+      l = RbConfig::CONFIG[ "LIBRUBY"]
+      l.slice! /\Alib/
+      l.slice! /\.so(?:\..*)?\z/
+      have_library l
+    end
+
+    def have_header name
+      c = CheckHeader.new @current, name
+      @checks.push c
+    end
+
+    def have_macro name
+      c = CheckMacro.new @current, name
+      @checks.push c
+    end
+
+    def have_func name
+      c = CheckFunction.new @current, name
+      @checks.push c
+    end
+
+    def have_library name
+      c = CheckLibrary.new @current, name
+      @checks.push c
+    end
+
+    private
+
+    def argdef type, name, dir
+      return unless dir
+      dir.chomp!
+      return if dir.empty?
+      name = "#@current/#{name}" if @current
+      @args[ type][ name.to_sym] = dir
+    end
+
+  end
+
+
+  class Add
+    def initialize feature, name
+      @feature, @name = feature, name
+    end
+    def perform config
+      @config = config
+      check! and set!
+    ensure
+      @config = nil
+    end
+    private
+    def check!
+      not @feature or
+        @config.features[ @feature]
+    end
+    def set!
+    end
+    def name_upcase
+      r = @name.to_s.upcase
+      r.gsub! /[^A-Z_]/, "_"
+      r
+    end
+  end
+
+  class AddFeature < Add
+    def initialize feature
+      super feature, feature
+    end
+    def set!
+      @config.macros[ "FEATURE_#{name_upcase}"] = true
+    end
+  end
+
+  class AddKeyVal < Add
+    def initialize key, val
+      x, y = key.to_s.split "/"
+      if y then
+        x = x.to_sym
+      else
+        x, y = nil, x
+      end
+      super x, y.to_sym
+      @val = val
+    end
+    private
+    def expanded
+      @config.directories.expand @val
+    end
+  end
+  class AddMacro < AddKeyVal
+    def set!
+      @config.parameters[ @name] = @val
+      @config.macros[ "WITH_#{name_upcase}"] = @val
+    end
+  end
+  class AddIncdir < AddKeyVal
+    def set!
+      @config.incdirs.push expanded
+    end
+  end
+  class AddLibdir < AddKeyVal
+    def set!
+      @config.libdirs.push expanded
+    end
+  end
+
+  class Check < Add
+    private
+    def check!
+      super or return
+      print "Checking for #{self.class::TYPE} #@name ... "
+      res = TmpFiles.open build_source do |t|
+        compile t
+      end
+      print "yes"
+      true
+    rescue Compiler::Error
+      print "no"
+      false
+    ensure
+      puts
+    end
+  end
+
+  class CheckHeader < Check
+    TYPE = "header"
+    private
+    def build_source
+      <<-SRC
+#include <#@name>
+      SRC
+    end
+    def compile t
+      c = CompilerPP.new @config.incdirs, @config.macros, "-w"
+      c.cc t.cpp, t.src
+    end
+    def set!
+      @config.macros[ "HAVE_HEADER_#{name_upcase}"] = true
+      @config.headers.push @name
+    end
+  end
+
+  class CheckWithHeaders < Check
+    private
+    def build_source
+      src = ""
+      @config.headers.each { |i|
+        src << <<-SRC
+#include <#{i}>
+        SRC
+      }
+      src
+    end
+  end
+
+  class CheckMacro < CheckWithHeaders
+    TYPE = "macro"
+    private
+    def build_source
+      super << <<-SRC
+#ifndef #@name
+#error not defined
+#endif
+      SRC
+    end
+    def compile t
+      c = CompilerPP.new @config.incdirs, @config.macros, "-w"
+      c.cc t.cpp, t.src
+    end
+    def check!
+      super or raise "Macro not defined: #@name."
+    end
+  end
+
+  class CheckFunction < CheckWithHeaders
+    TYPE = "function"
+    private
+    def build_source
+      super << <<-SRC
+void dummy( void)
+{
+  void (*f)( void) = (void (*)( void)) #@name;
+}
+      SRC
+    end
+    def compile t
+      c = CompilerC.new @config.incdirs, @config.macros, "-w"
+      c.cc t.obj, t.src
+    end
+    def set!
+      @config.macros[ "HAVE_FUNC_#{name_upcase}"] = true
+    end
+  end
+
+  class CheckLibrary < Check
+    TYPE = "library"
+    def build_source
+      <<-SRC
+int main( int argc, char *argv[]) { return 0; }
+      SRC
+    end
+    def compile t
+      c = CompilerC.new @config.incdirs, @config.macros, "-w"
+      c.cc t.obj, t.src
+      l = Linker.new @config.libdirs, [ @name], "-w"
+      l.cc t.bin, t.obj
+    end
+    def check!
+      super or raise "Library missing: #@name."
+    end
+    def set!
+      @config.libs.push @name
+    end
+  end
+
+end
+

data/lib/autorake/directories.rb

@@ -0,0 +1,57 @@
+#
+#  autorake/directories.rb  --  Directory shortcuts
+#
+
+module Autorake
+
+  class Directories < Hash
+
+    STD = {
+      :prefix      => "/usr/local",
+      :eprefix     => "PREFIX",
+      :cprefix     => "EPREFIX",
+      :bin         => "EPREFIX/bin",
+      :sbin        => "EPREFIX/sbin",
+      :libexec     => "EPREFIX/libexec",
+      :sysconf     => "CPREFIX/etc",
+      :localstate  => "/var",
+      :lib         => "EPREFIX/lib",
+      :include     => "PREFIX/include",
+      :data        => "PREFIX/share",
+      :info        => "DATA/info",
+      :locale      => "DATA/locale",
+      :man         => "DATA/man",
+    }
+
+    def initialize
+      super
+      update STD
+    end
+
+    def [] key
+      super key.to_sym
+    end
+
+    def []= key, value
+      super key.to_sym, value
+    end
+
+    def expanded key
+      expand self[ key]
+    end
+
+    def expand dir
+      case dir
+        when /\A[A-Z_]+/ then
+          (expand self[ $&.downcase]) + $'
+        when /\A:(\w+)/ then
+          (expand self[ $1]) + $'
+        else
+          dir
+      end
+    end
+
+  end
+
+end
+

data/lib/autorake/mkconfig.rb

@@ -0,0 +1,107 @@
+#
+#  autorake/mkconfig.rb  --  Make configuration
+#
+
+require "autorake/definition"
+require "autorake/application"
+
+module Autorake
+
+  class <<self
+    def configure &block
+      d = Definitions.new
+      d.instance_eval &block
+      p = MkConfig.new d
+      p.run
+      nil
+    end
+  end
+
+
+  class MkConfig < Application
+
+    attr_accessor :outfile
+    attr_bang :clean, :verbose
+
+    def initialize definition
+      @definition = definition
+    end
+
+    private
+
+    def define_options
+      add_option %w(o outfile), "specify output file",
+                                    Configuration::CONFIG_FILE, :outfile=
+      add_option %w(c clean),   "delete config file resp. -o outfile",
+                                                        nil, :clean!
+      add_option %w(d dump),    "just dump the results", nil, :dump
+      add_option %w(v verbose), "lots of ubly debugging information",
+                                                        nil, :verbose!
+      super
+      @definition.directories.each { |k,v|
+        add_option %W(dir-#{k}), "set directory #{k}", v, :set_dir, k
+      }
+      @definition.features.each { |k,v|
+        de, dd = "[default]", nil
+        de, dd = dd, de unless v
+        add_option %W(enable-#{k}),  "enable  #{k} #{de}", nil,
+                                                        :set_feature, k, true
+        add_option %W(disable-#{k}), "disable #{k} #{dd}", nil,
+                                                        :set_feature, k, false
+      }
+      @definition.parameters.each { |k,v|
+        add_option %W(with-#{k}), "define a parameter and C macro #{k}", v,
+                                                                :set_parm, k
+      }
+      @definition.incpath.each { |k,v|
+        add_option %W(incdir-#{k}), "include directory #{k}", v, :set_incdir, k
+      }
+      @definition.libpath.each { |k,v|
+        add_option %W(libdir-#{k}), "library directory #{k}", v, :set_libdir, k
+      }
+    end
+
+    def set_dir name, val
+      @definition.directories[ name] = val
+    end
+
+    def set_feature name, val
+      @definition.features[ name.to_sym] = val
+    end
+
+    def set_parm name, val
+      @definition.parameters[ name.to_sym] = val
+    end
+
+    def set_incdir name, val
+      @definition.incpath[ name.to_sym] = val
+    end
+
+    def set_libdir name, val
+      @definition.libpath[ name.to_sym] = val
+    end
+
+    def dump
+      @definition.dump
+      raise Done
+    end
+
+    def environ name, val
+      @definition.environment[ name] = val
+    end
+
+    def execute
+      if @clean then
+        File.unlink @outfile if File.file? @outfile
+      else
+        cfg = @definition.perform
+        File.open @outfile, "w" do |f|
+          f.write cfg.to_yaml
+        end
+      end
+    end
+
+  end
+
+end
+