autorake 2.0

data/LICENSE

@@ -0,0 +1,34 @@
+      _         _                  _
+     / \  _   _| |_ ___  _ __ __ _| | _____
+    / _ \| | | | __/ _ \| '__/ _` | |/ / _ \
+   / ___ \ |_| | || (_) | | | (_| |   <  __/
+  /_/   \_\__,_|\__\___/|_|  \__,_|_|\_\___|
+
+
+Copyright (c) 2009-2013, Bertram Scharpf <software@bertram-scharpf.de>.
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are
+met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+    * Redistributions in binary form must reproduce the above copyright
+      notice, this list of conditions and the following disclaimer in
+      the documentation and/or other materials provided with the
+      distribution.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
+IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
+OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+

data/README

@@ -0,0 +1,15 @@
+Autorake
+========
+
+Author: Bertram Scharpf <software@bertram-scharpf.de>
+License: BSD
+
+This project wants to be to Rake what Autocmd is to Make.
+
+Have a look at the self-explaining samples directory.
+
+The script mkrf_conf will build a file .configure that contains
+the whole configuration information. The Rakefile will read it in
+by extending itself. Various #defines will be given in autoconf
+style.
+

data/lib/autorake.rb

@@ -0,0 +1,129 @@
+#
+#  autorake.rb  --  Autorake module
+#
+
+require "autorake/configure"
+require "autorake/compile"
+
+module Autorake
+
+  module Rakefile
+
+    class <<self
+      def extended obj
+        obj.load_autorake
+        Compiler.verbose = true
+      end
+    end
+
+    def has? name
+      @autorake.features[ name]
+    end
+
+    def parm
+      @autorake.parameters
+    end
+
+    def compiler *args
+      CompilerC.new @autorake.incdirs, @autorake.macros, *args
+    end
+
+    def linker *args
+      Linker.new @autorake.libdirs, @autorake.libs, *args
+    end
+
+
+    def installer under, files, destdir = nil, params = nil
+      not params and case destdir
+        when nil, Hash then
+          under, files, destdir, params = nil, under, files, destdir
+      end
+      destdir = @autorake.directories.expand destdir
+      d = ENV[ "DESTDIR"]
+      if d then
+        d = File.expand_path d
+        destdir = File.join d, destdir
+      end
+      files = case files
+        when Array then files
+        else            [ files]
+      end
+      unless @autorake_install then
+        task :install   do install_targets   end
+        task :uninstall do uninstall_targets end
+        @autorake_install = []
+      end
+      @autorake_install.push [ under, files, destdir, params]
+    end
+
+    def load_autorake filename = nil
+      @autorake = YAML.load_file filename||Configuration::CONFIG_FILE
+      @autorake.do_env
+    end
+
+    private
+
+    def install_targets
+      @autorake_install.each { |under,files,destdir,params|
+        File.directory? destdir or mkdir_p destdir
+        files.each { |f| install under, f, destdir, params }
+      }
+    end
+
+    def uninstall_targets
+      @autorake_install.reverse.each { |under,files,destdir,|
+        files.each { |f| uninstall under, f, destdir }
+      }
+    end
+
+    def paths_for_install under, src, dir
+      dst = File.join dir, src
+      here = under ? (File.join under, src) : src
+      there, = File.split src
+      there = nil if there == "."
+      yield dst, here, there
+    end
+
+    def install under, src, dir, ugm
+      paths_for_install under, src, dir do |dst,here,there|
+        install under, there, dir, ugm if there
+        if File.directory? here or not File.exists? here then
+          return if File.directory? dst
+          mkdir dst
+        elsif File.symlink? here then
+          rm dst if File.exists? dst
+          rdl = File.readlink here
+          ln_s rdl, dst
+        else
+          cp here, dst
+        end
+        if ugm then
+          u, g = [ :user, :group].map { |x| y = ugm[ x] ; y unless y.empty? }
+          chown u, g, dst if u or g
+          m = ugm[ :mode]
+          if m and not m.empty? then
+            m = Integer m
+            chmod m, dst
+          end
+        end
+      end
+    end
+
+    def uninstall under, src, dir
+      paths_for_install under, src, dir do |dst,here,there|
+        if File.directory? here or not File.exists? here then
+          rmdir dst rescue return
+        else
+          rm dst if File.exists? dst or File.symlink? dst
+        end
+        uninstall under, there, dir if there
+      end
+    end
+
+  end
+
+end
+
+# When we're loaded from a Rakefile, include the extensions to it.
+module Rake ; @application ; end and extend Autorake::Rakefile
+

data/lib/autorake/application.rb

@@ -0,0 +1,138 @@
+#
+#  autorake/application.rb  --  Parse commandline arguments
+#
+
+module Autorake
+
+  class Application
+
+    class Option
+      class <<self ; def [] *args ; new *args ; end ; end
+      attr_reader :desc, :arg
+      def initialize *args
+        @desc, @arg, *@call = *args
+      end
+      def call
+        @call.dup
+      end
+    end
+
+    class Done < Exception ; end
+
+    class <<self
+
+      def attr_bang *syms
+        syms.each { |sym|
+          define_method :"#{sym}!" do
+            instance_variable_set :"@#{sym}", true
+          end
+        }
+        nil
+      end
+
+    end
+
+    def run
+      process_options do
+        while (arg = $*.shift) do
+          case arg
+            when /\A--/ then
+              a, val = $'.split "=", 2
+              do_option a do val end
+            when /\A-/ then
+              arg = $'
+              until (a = arg.slice! 0, 1).empty? do
+                do_option a do
+                  arg.slice! 0, arg.length unless arg.empty?
+                end
+              end
+            else
+              n, v = arg.split "="
+              environ n, v
+          end
+        end
+      end
+      execute
+    rescue Done
+    rescue
+      raise if @verbose
+      $stderr.puts "#$! (#{$!.class})"
+      exit 1
+    end
+
+    private
+
+    def define_options
+      add_option %w(h help),    "display this help",           nil, :help
+      add_option %w(V version), "display version information", nil, :version
+    end
+
+    def add_option names, *desc_arg_call
+      o = Option[ *desc_arg_call]
+      names.each { |n| @options[ n] = o }
+    end
+
+    def process_options
+      @options = {}
+      define_options
+      @rest = @options.values.uniq
+      yield
+      @rest.each { |o|
+        if o.arg then
+          c = o.call
+          c.push o.arg
+          send *c
+        end
+      }
+    ensure
+      @options = @rest = nil
+    end
+
+    def do_option a
+      o = @options[ a]
+      o or raise "Unknown option: #{a}"
+      c = o.call
+      if o.arg then
+        g = yield || $*.shift
+        c.push g
+      end
+      send *c
+      @rest.delete o
+    end
+
+    def environ nam, val
+      raise "Define your own environment setter."
+    end
+
+    def help
+      puts "  %-16s  %-16s  %-40s" % %w(Option Argument Description)
+      prev = nil
+      @options.each { |k,v|
+        k = (k.length>1 ? "--" : "-") + k
+        l = "  %-16s" % k
+        unless v == prev then
+          l << "  %-16s   %-40s" % [ v.arg, v.desc]
+        end
+        puts l
+        prev = v
+      }
+      raise Done
+    end
+
+    def version
+      require "autorake/version"
+      puts <<-EOT
+#{NAME} #{VERSION}  --  #{SUMMARY}
+
+Copyright: #{COPYRIGHT}
+License:   #{LICENSE}
+
+#{HOMEPAGE}
+      EOT
+      raise Done
+    end
+
+  end
+
+end
+

data/lib/autorake/compile.rb

@@ -0,0 +1,134 @@
+#
+#  autorake/compile.rb  --  C compiler
+#
+
+module Autorake
+
+  class Compiler
+
+    class Error < StandardError ; end
+
+    class <<self
+      attr_accessor :verbose, :quiet
+    end
+
+    def cc *a
+      a.flatten!
+      a.compact!
+      a.unshift ENV[ "CC"] || "cc"
+      message a
+      f = fork do
+        $stderr.reopen "/dev/null" if Compiler.quiet
+        exec *a
+      end
+      Process.waitpid f
+      $?.success? or raise Error, "#{self.class} failed."
+    end
+
+    private
+
+    def message a
+      if Compiler.verbose then
+        m = a.join " "
+        puts m
+      end
+    end
+
+  end
+
+  class CompilerPP < Compiler
+
+    def initialize incdirs, macros, *args
+      @incdirs = incdirs.map { |d| "-I#{d}" }
+      @macros = macros.map { |k,v|
+        next unless v
+        m = "-D#{k}"
+        m << "=#{v}" if String === v
+        m
+      }
+      @args = args
+      e = ENV[ "CFLAGS"]
+      @cflags = e.split if e
+    end
+
+    def cc obj, src
+      io = [ "-o", obj.to_s, "-c", src.to_s]
+      super @cflags, @macros, @incdirs, @args, opt_E, io
+    end
+
+    private
+
+    def opt_E
+      "-E"
+    end
+
+  end
+
+  class CompilerC < CompilerPP
+
+    private
+
+    def opt_E ; end
+
+  end
+
+  class Linker < Compiler
+
+    def initialize libdirs, libs, *args
+      @libdirs = libdirs.map { |d| "-Wl,-L#{d}" }
+      @libs = libs.map { |d| "-Wl,-l#{d}" }
+    @args = args
+      e = ENV[ "LDFLAGS"]
+      @ldflags = e.split if e
+    end
+
+    def cc bin, *objs
+      io = [ "-o", bin.to_s, objs]
+      super @ldflags, @libdirs, @libs, @args, io
+    end
+
+  end
+
+
+  class TmpFiles
+
+    class <<self
+      def open source
+        i = new source
+        yield i
+      ensure
+        i.cleanup
+      end
+      private :new
+    end
+
+    attr_reader :src
+
+    def initialize source
+      @plain = "tmp-0001"
+      begin
+        @src = "#@plain.c"
+        File.open @src, File::WRONLY|File::CREAT|File::EXCL do |c|
+          c.puts source
+        end
+      rescue Errno::EEXIST
+        @plain.succ!
+        retry
+      end
+    end
+
+    def cpp ; @cpp = "#@plain.cpp" ; end
+    def obj ; @obj = "#@plain.o"   ; end
+    def bin ; @bin = "#@plain"     ; end
+
+    def cleanup
+      File.delete @bin if @bin and File.exists? @bin
+      File.delete @obj if @obj and File.exists? @obj
+      File.delete @cpp if @cpp and File.exists? @cpp
+      File.delete @src
+    end
+
+  end
+
+end
+