packo 0.0.1.alpha.1

data/lib/packo/rbuild.rb

@@ -0,0 +1,22 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of packo.
+#
+# packo is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# packo is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with packo. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'packo/rbuild/package'
+require 'packo/rbuild/modules'
+require 'packo/rbuild/behaviors'

data/lib/packo/rbuild/behaviors.rb

@@ -0,0 +1,20 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of packo.
+#
+# packo is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# packo is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with packo. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'packo/rbuild/behaviors/default'

data/lib/packo/rbuild/behaviors/default.rb

@@ -0,0 +1,27 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of packo.
+#
+# packo is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# packo is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with packo. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+module Packo; module RBuild; module Behaviors
+
+Default = [
+  Modules::Misc::Fetcher, Modules::Misc::Unpacker,
+  Modules::Building::Patch, Modules::Building::Autotools, Modules::Building::Strip
+]
+
+end; end; end

data/lib/packo/rbuild/feature.rb

@@ -0,0 +1,64 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of packo.
+#
+# packo is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# packo is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with packo. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'packo/package/feature'
+
+module Packo; module RBuild
+
+class Feature < Packo::Package::Feature
+  include Stages::Callable
+
+  attr_reader :package, :name, :block, :dependencies
+
+  def initialize (package, name, enabled=false, &block)
+    super(name, enabled)
+
+    @package      = package
+    @dependencies = []
+
+    if Features::Default[self.name.to_sym]
+      Features::Default[self.name.to_sym].each {|feature|
+        self.instance_exec(self, &feature)
+      }
+    end
+
+    self.do(&block)
+  end
+
+  def do (&block)
+    self.instance_exec(self, &block) if block
+    self
+  end
+
+  def needs (*names)
+    if names.first == :not
+      names[1, names.length].each {|name|
+        @dependencies.delete(name)
+      }
+    else
+      @dependencies = @dependencies.concat(names).flatten.compact.uniq
+    end
+  end
+
+  def method_missing (id, *args, &block)
+    @package.send id, *args, &block
+  end
+end
+
+end; end

data/lib/packo/rbuild/features.rb

@@ -0,0 +1,65 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of packo.
+#
+# packo is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# packo is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with packo. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'packo/package/features'
+
+require 'packo/rbuild/feature'
+
+module Packo; module RBuild
+
+class Features < Packo::Package::Features
+  Default = Class.new(Hash) {
+    def define (name, &block)
+      (self[name.to_sym] ||= []) << block
+    end
+  }.new
+
+  attr_reader :package
+
+  def initialize (package, values={})
+    super(values)
+
+    @package = package
+
+    yield self if block_given?
+  end
+
+  def method_missing (id, *args, &block)
+    case id.to_s
+      when /^(.+?)\?$/    then (@values[$1.to_sym] ||  Feature.new(@package, $1, false)).enabled?
+      when /^not_(.+?)!$/ then (@values[$1.to_sym] ||= Feature.new(@package, $1, false)).disable!
+      when /^(.+?)!$/     then (@values[$1.to_sym] ||= Feature.new(@package, $1, false)).enable!
+      when /^(.+?)$/      then (@values[$1.to_sym] ||= Feature.new(@package, $1, false)).do(&block)
+    end
+  end
+
+  def set (name, &block)
+    @values[name.to_sym] = Feature.new(@package, name, &block)
+  end
+
+  def get (name)
+    @values[name.to_sym] ||= Feature.new(@package, name, false)
+  end
+
+  def delete (name)
+    @values.delete(name.to_sym)
+  end
+end
+
+end; end

data/lib/packo/rbuild/flavor.rb

@@ -0,0 +1,67 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of packo.
+#
+# packo is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# packo is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with packo. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'packo/package/flavor'
+
+require 'packo/rbuild/feature'
+
+module Packo; module RBuild
+
+class Flavor < Packo::Package::Flavor
+  Default = Class.new(Hash) {
+    def define (name, &block)
+      (self[name.to_sym] ||= []) << block
+    end
+  }.new
+
+  attr_reader :package
+
+  def initialize (package, values={})
+    super(values)
+
+    @package = package
+
+    yield self if block_given?
+  end
+
+  def method_missing (id, *args, &block)
+    case id.to_s
+      when /^(.+?)\?$/    then (@values[$1.to_sym] ||  Feature.new(@package, $1, false)).enabled?
+      when /^not_(.+?)!$/ then (@values[$1.to_sym] ||= Feature.new(@package, $1, false)).disable!
+      when /^(.+?)!$/     then (@values[$1.to_sym] ||= Feature.new(@package, $1, false)).enable!
+      when /^(.+?)$/      then (@values[$1.to_sym] ||= Feature.new(@package, $1, false)).do(&block)
+    end
+  end
+
+  def set (name, &block)
+    @values[name.to_sym] = Feature.new(@package, name, &block)
+  end
+
+  def get (name)
+    @values[name.to_sym] ||= Feature.new(@package, name, false)
+  end
+
+  def delete (name)
+    @values.delete(name.to_sym)
+  end
+end
+
+
+
+end; end

data/lib/packo/rbuild/module.rb

@@ -0,0 +1,40 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of packo.
+#
+# packo is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# packo is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with packo. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+module Packo; module RBuild
+
+class Module
+  include Stages::Callable
+
+  class Helper
+    attr_accessor :package
+
+    def initialize (package)
+      @package = package
+    end
+  end
+
+  attr_reader :package
+
+  def initialize (package)
+    @package = package
+  end
+end
+
+end; end

data/lib/packo/rbuild/modules.rb

@@ -0,0 +1,27 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of packo.
+#
+# packo is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# packo is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with packo. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'packo/rbuild/module'
+
+require 'packo/rbuild/modules/building'
+require 'packo/rbuild/modules/packaging'
+require 'packo/rbuild/modules/misc'
+
+require 'packo/rbuild/modules/misc/fetching'
+require 'packo/rbuild/modules/misc/unpacking'

data/lib/packo/rbuild/modules/building.rb

@@ -0,0 +1,24 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of packo.
+#
+# packo is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# packo is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with packo. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'packo/rbuild/modules/building/autotools'
+require 'packo/rbuild/modules/building/cmake'
+require 'packo/rbuild/modules/building/rake'
+require 'packo/rbuild/modules/building/patch'
+require 'packo/rbuild/modules/building/strip'

data/lib/packo/rbuild/modules/building/autotools.rb

@@ -0,0 +1,315 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of packo.
+#
+# packo is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# packo is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with packo. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+module Packo; module RBuild; module Modules; module Building
+
+class Autotools < Module
+  class Configuration
+    attr_accessor :path
+
+    attr_reader :module
+
+    def initialize (mod=nil)
+      @module = mod
+
+      @enable = {}
+      @with   = {}
+      @other  = {}
+
+      @path = './configure'
+    end
+
+    def clear
+      @enable.clear
+      @with.clear
+      @other.clear
+    end
+
+    def with (name, value=nil)
+      [name].flatten.each {|name|
+        if value === true || value === false
+          @with[name.to_s] = value
+        else
+          @with[name.to_s] = value || true
+        end
+      }
+    end
+
+    def without (name, value=nil)
+      [name].flatten.each {|name|
+        if value === true || value === false
+          @with[name.to_s] = !value
+        else
+          @with[name.to_s] = false
+        end
+      }
+    end
+
+    def enable (name, value=nil)
+      [name].flatten.each {|name|
+        if value === true || value === false
+          @enable[name.to_s] = value
+        else
+          @enable[name.to_s] = value || true
+        end
+      }
+    end
+
+    def disable (name, value=nil)
+      [name].flatten.each {|name|
+        if value === true || value === false
+          @enable[name.to_s] = !value
+        else
+          @enable[name.to_s] = false
+        end
+      }
+    end
+
+    def set (name, value)
+      @other[name.to_s] = value.to_s
+    end
+
+    def get (name)
+      @other[name.to_s]
+    end
+
+    def delete (from, *names)
+      names.flatten.each {|name|
+        case from.to_sym
+          when :with;   @with.delete(name.to_s)
+          when :enable; @enable.delete(name.to_s)
+          when :other;  @other.delete(name.to_s)
+        end
+      }
+    end
+
+    def to_s
+      result = ''
+
+      @enable.each {|name, value|
+        case value
+          when true;  result += "--enable-#{name} "
+          when false; result += "--disable-#{name} "
+          else;       result += "--enable-#{name}='#{value}' "
+        end
+      }
+
+      @with.each {|name, value|
+        case value
+          when true;  result += "--with-#{name} "
+          when false; result += "--without-#{name} "
+          else;       result += "--with-#{name}='#{value}' "
+        end
+      }
+
+      @other.each {|name, value|
+        result += "--#{name}='#{value}' "
+      }
+
+      return result
+    end
+  end
+
+  def initialize (package)
+    super(package)
+
+    package.stages.add :configure, self.method(:configure), after: :fetch
+    package.stages.add :compile,   self.method(:compile),   after: :configure
+    package.stages.add :install,   self.method(:install),   after: :compile
+
+    if package.type == 'library'
+      package.filesystem.post << FFFS::File.new('ld-config-update.sh', %{
+        #! /bin/sh
+        ldconfig
+      })
+    end
+
+    before :pack do
+      slot = package.slot.to_s
+
+      if package.host != package.target
+        slot << '-' unless slot.empty?
+        slot << package.target.to_s
+      end
+
+      package.slot = slot
+    end
+
+    if Environment[:CROSS]
+      package.host = Host.new(System.env!)
+    else
+      package.host = Host.new(package.environment)
+    end
+
+    package.target = Host.new(package.environment)
+
+    package.environment[:CHOST]   = package.host.to_s
+    package.environment[:CTARGET] = package.target.to_s
+
+    package.autotools = Class.new(Module::Helper) {
+      def initialize (package)
+        super(package)
+
+        @versions = {}
+        @enabled  = true
+        @forced   = false
+      end
+
+      def enabled?;   @enabled         end
+      def disabled?; !@enabled         end
+      def enable!;    @enabled = true  end
+      def disable!;   @enabled = false end
+
+      def forced?; @forced        end
+      def force!;  @forced = true end
+
+      def configure (conf)
+        package.environment.sandbox {
+          Packo.sh "#{conf.path} #{conf}"
+        }
+      end
+
+      def autogen
+        self.autoreconf '-i'
+        self.autoheader
+        self.automake
+      end
+
+      def autoreconf (*args)
+        version = args.last.is_a?(Numeric) ? args.pop : nil
+
+        package.environment.sandbox {
+          Packo.sh "autoreconf#{"-#{version}" if version}", *args
+        }
+      end
+
+      def aclocal (*args)
+        version = args.last.is_a?(Numeric) ? args.pop : @versions[:aclocal]
+
+        package.environment.sandbox {
+          Packo.sh "aclocal#{"-#{version}" if version}", *args
+        }
+      end
+
+      def autoconf (*args)
+        version = args.last.is_a?(Numeric) ? args.pop : @versions[:autoconf]
+
+        package.environment.sandbox {
+          Packo.sh "autoconf#{"-#{version}" if version}", *args
+        }
+      end
+
+      def autoheader (*args)
+        version = args.last.is_a?(Numeric) ? args.pop : @versions[:autoheader]
+
+        package.environment.sandbox {
+          Packo.sh "autoheader#{"-#{version}" if version}", *args
+        }
+      end
+
+      def automake (*args)
+        version = args.last.is_a?(Numeric) ? args.pop : @versions[:automake]
+
+        package.environment.sandbox {
+          Packo.sh "automake#{"-#{version}" if version}", *args
+        }
+      end
+
+      def autoupdate (*args)
+        version = args.last.is_a?(Numeric) ? args.pop : @versions[:autoupdate]
+
+        package.environment.sandbox {
+          Packo.sh "autoupdate#{"-#{version}" if version}", *args
+        }
+      end
+
+      def make (*args)
+        package.environment.sandbox {
+          Packo.sh 'make', *args
+        }
+      end
+
+      def install (path=nil, *args)
+        package.environment.sandbox(DESTDIR: path || package.distdir) {
+          puts ENV['DESTDIR']
+
+          self.make "DESTDIR=#{path || package.distdir}", 'install', *args
+        }
+      end
+
+      def version (name, slot=nil)
+        slot ? @versions[name.to_sym] = slot : @versions[name.to_sym]
+      end
+    }.new(package)
+  end
+
+  def finalize
+    package.stages.delete :configure, self.method(:configure)
+    package.stages.delete :compile,   self.method(:compile)
+    package.stages.delete :install,   self.method(:install)
+  end
+
+  def configure
+    @configuration = Configuration.new(self)
+
+    @configuration.set 'prefix',         (System.env[:INSTALL_PATH] + '/usr').cleanpath
+    @configuration.set 'sysconfdir',     (System.env[:INSTALL_PATH] + '/etc').cleanpath
+    @configuration.set 'sharedstatedir', (System.env[:INSTALL_PATH] + '/com').cleanpath
+    @configuration.set 'localstatedir',  (System.env[:INSTALL_PATH] + '/var').cleanpath
+
+    @configuration.set 'host',   package.host
+    @configuration.set 'build',  package.host
+
+    if package.host != package.target
+      @configuration.set 'target', package.target
+    end
+
+    package.stages.callbacks(:configure).do(@configuration) {
+      next if package.autotools.disabled?
+
+      if !File.exists? @configuration.path
+        Do.cd(File.dirname(@configuration.path)) {
+          package.autotools.autogen
+        }
+      end
+
+      if !File.exists?('Makefile') || package.autotools.forced?
+        package.autotools.configure(@configuration)
+      end
+    }
+  end
+
+  def compile
+    package.stages.callbacks(:compile).do(@configuration) {
+      next if package.autotools.disabled?
+
+      package.autotools.make "-j#{package.environment['MAKE_JOBS']}"
+    }
+  end
+
+  def install
+    package.stages.callbacks(:install).do(@configuration) {
+      next if package.autotools.disabled?
+
+      package.autotools.install
+    }
+  end
+end
+
+end; end; end; end