packo 0.0.1.alpha.1

data/lib/packo/environment.rb

@@ -0,0 +1,269 @@
+#--
+# 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 'tempfile'
+require 'tmpdir'
+require 'pathname'
+
+require 'packo/profile'
+require 'packo/flags'
+
+module Packo
+
+class Environment < Hash
+  @@default = {
+    ARCH:     nil,
+    KERNEL:   nil,
+    LIBC:     nil,
+    COMPILER: nil,
+
+    CFLAGS:    '-Os -pipe',
+    CXXFLAGS:  '-Os -pipe',
+    CPPFLAGS:  '',
+    LDFLAGS:   '-Wl,-O1 -Wl,--as-needed',
+    MAKE_JOBS: 1,
+
+    FLAVOR:   'vanilla',
+    FEATURES: '',
+    USE:      '',
+
+    PROFILES: '',
+
+    FETCHER: 'wget -c -O "#{output}" "#{source}"',
+
+    NO_COLORS: false,
+    DEBUG:     nil,
+    VERBOSE:   false,
+    SECURE:    true,
+
+    TMP: "#{Dir.tmpdir}/packo-#{ENV['USER'] || Process.euid}"
+  }
+
+  if Process.euid == 0 && ENV['USER'] == 'root'
+    @@default.merge!(
+      CONFIG_PATH:  '/etc/packo',
+      INSTALL_PATH: '/',
+
+      DATABASE: 'sqlite:///var/lib/packo/db',
+
+      REPOSITORIES: '/var/lib/packo/repositories',
+      SELECTORS:    '/var/lib/packo/selectors',
+    )
+  else
+    @@default.merge!(
+      CONFIG_PATH:  "#{ENV['HOME']}/.packo",
+      INSTALL_PATH: "#{ENV['HOME']}/.packo/disk",
+
+      DATABASE: "sqlite://#{ENV['HOME']}/.packo/db",
+
+      REPOSITORIES: "#{ENV['HOME']}/.packo/repositories",
+      SELECTORS:    "#{ENV['HOME']}/.packo/selectors",
+    )
+  end
+
+  @@callbacks = {
+    COMPILER: lambda {|value|
+      self[:CPP]    = 'cpp'
+      self[:AS]     = 'as'
+      self[:AR]     = 'ar'
+      self[:LD]     = 'ld'
+      self[:RANLIB] = 'ranlib'
+
+      case value
+        when 'gcc'
+          self[:CC]  = 'gcc'
+          self[:CXX] = 'g++'
+
+        when 'clang'
+          self[:CC]  = 'clang'
+          self[:CXX] = 'clang++'
+
+        else
+          raise ArgumentError.new 'I do not know that compiler :<' if value
+      end
+    }
+  }
+
+  def self.[] (name, nodefault=false)
+    value = ENV["PACKO_#{name}"] || ENV[name.to_s] || (nodefault ? nil : @@default[name.to_sym]) or return
+
+    return value unless value.is_a?(String)
+
+    return nil if value.strip.empty?
+
+    return case value.strip
+      when 'false';   false
+      when 'true';    true
+      else;           value
+    end
+  end
+
+  def self.[]= (name, value)
+    ENV["PACKO_#{name}"] = value.to_s rescue ''
+  end
+
+  def self.each (limit=true)
+    variables = (@@default.keys + (ENV.map {|(key, value)|
+      if limit
+        key.sub(/^PACKO_/, '').to_sym if key.start_with?('PACKO_')
+      else
+        key.start_with?('PACKO_') ?
+          key.sub(/^PACKO_/, '').to_sym :
+          key.to_sym
+      end
+    }.compact)).uniq
+
+    if variables.member?(:FLAVORS)
+      variables.delete(:FLAVORS)
+      variables << :FLAVOR
+
+      Environment[:FLAVOR] = Environment[:FLAVORS]
+    end
+
+    variables.each {|name|
+      yield name, Environment[name]
+    }
+  end
+
+  def self.clone
+    result = {}
+
+    Environment.each {|name, value|
+      result[name.to_s] = value
+    }
+
+    result
+  end
+
+  def self.sandbox (box)
+    old = Hash[ENV]
+
+    box.each {|key, value|
+      ENV[key.to_s] = value.to_s
+    }
+
+    begin
+      result = yield
+    rescue Exception => e
+      result = e
+    end
+
+    box.each {|key, value|
+      ENV.delete(key.to_s)
+    }
+
+    old.each {|key, value|
+      ENV[key] = value
+    }
+
+    if result.is_a?(Exception)
+      raise result
+    else
+      return result
+    end
+  end
+
+  attr_reader :package, :profiles
+
+  def initialize (package=nil, noenv=false)
+    @package  = package
+    @profiles = []
+
+    @profiles << Profile.path(Environment[:CONFIG_PATH])
+    @profiles << Profile.path("#{ENV['HOME']}/.packo")
+    @profiles << Profile.path('/var/lib/packo')
+
+    Environment[:PROFILES].split(/\s*;\s*/).each {|profile|
+      @profiles << Profile.path(profile)
+    } if Environment[:PROFILES]
+
+    if File.readable?("#{ENV['HOME']}/.packo/profiles")
+      files = File.read("#{ENV['HOME']}/.packo/profiles").split("\n")
+    elsif File.readable?('/etc/packo/profiles')
+      files << File.read('/etc/packo/profiles').split("\n")
+    end
+
+    files.each {|profile|
+      @profiles << Profile.path(profile)
+    } if files
+
+    @profiles.compact!
+
+    apply!(noenv)
+
+    yield self if block_given?
+  end
+
+  def apply! (noenv=false)
+    self.clear
+
+    @profiles.each {|profile|
+      profile.apply!(self, @package)
+    }
+
+    if noenv
+      @@default.each {|key, value|
+        self[key] = value unless self[key]
+      }
+    else
+      Environment.each(false) {|key, value|
+        next if value.nil?
+
+        # This is an array, not a call to self.[]
+        if [:FEATURES].member?(key)
+          (self[key] ||= '') << " #{value}"
+        else
+          self[key] = value unless self[key] && value == @@default[key] && !Environment[key, true]
+        end
+      }
+    end
+
+    self.each {|key, value|
+      if key.to_s.end_with?('FLAGS')
+        self[key] = Flags.parse(value.to_s)
+      elsif key.to_s.end_with?('PATH')
+        self[key] = Pathname.new(value.to_s)
+      end
+    }
+  end
+
+  def [] (name)
+    super(name.to_sym)
+  end
+
+  def []= (name, value)
+    self.instance_exec(value, &@@callbacks[name.to_sym]) if @@callbacks[name.to_sym]
+
+    if name.to_s.end_with?('FLAGS')
+      value = Flags.parse(value.to_s)
+    elsif name.to_s.end_with?('PATH')
+      value = Pathname.new(value.to_s)
+    end
+
+    super(name.to_sym, value)
+  end
+
+  def sandbox (changes={}, &block)
+    Environment.sandbox(self.merge({
+      ARCH: Host.new(self).arch
+    }.merge(changes)), &block)
+  end
+end
+
+end

data/lib/packo/extensions.rb

@@ -0,0 +1,70 @@
+#--
+# 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 'ostruct'
+
+class Object
+  def numeric?
+    true if Float(self) rescue false
+  end
+end
+
+module Kernel
+  def suppress_warnings
+    tmp, $VERBOSE = $VERBOSE, nil
+
+    result = yield
+
+    $VERBOSE = tmp
+
+    return result
+  end
+end
+
+class File
+  def self.write (path, data, mode=nil)
+    open(path, 'wb') {|f|
+      f.write data
+      f.chmod mode if mode
+    }
+  end
+
+  def self.append (path, data, mode=nil)
+    open(path, 'ab') {|f|
+      f.write data
+      f.chmod mode if mode
+    }
+  end
+end
+
+class String
+  def interpolate (on)
+    on.instance_eval("%{#{self}}") rescue self
+  end
+
+  def === (value)
+    value.is_a?(Packo::Host) ?
+      value == self :
+      super(value)
+  end
+end
+
+class OpenStruct
+  alias to_hash marshal_dump
+end

data/lib/packo/flags.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/>.
+#++
+
+module Packo
+
+class Flags < Array
+  def self.parse (string)
+    Flags.new(*string.to_s.split(/\s+/))
+  end
+
+  def initialize (*flags)
+    self.insert(-1, *flags)
+  end
+
+  def push (*values)
+    values.each {|value|
+      super(value.to_s.strip)
+    }
+
+    self
+  end
+
+  alias << push
+
+  def delete (*values)
+    values.each {|value|
+      super(value)
+    }
+
+    self
+  end
+
+  def replace (from, to)
+    tmp, _ = self.dup, self.clear
+
+    self.insert(-1, *tmp.map {|value|
+      value.match(from) ? to : value
+    })
+
+    self
+  end
+
+  def to_s
+    self.join(' ')
+  end
+end
+
+end

data/lib/packo/host.rb

@@ -0,0 +1,121 @@
+#--
+# 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/environment'
+
+module Packo
+
+class Host
+  def self.parse (text)
+    matches = text.match(/^([^-]+)(-([^-]+))?-([^-]+)(-([^-]+))?$/) or return
+
+    Host.new(
+      ARCH:   matches[1],
+      VENDOR: matches[3],
+      KERNEL: matches[4],
+      MISC:   matches[6]
+    ) rescue nil
+  end
+
+  def self.arch (value=System.env![:ARCH])
+    case value
+      when 'core2', 'k8'; 'x86_64'
+      when 'x86';         'i686'
+
+      when 'i386', 'i486', 'i586', 'i686',
+           'amd64', 'x86_64'
+      ; value
+
+      else; raise ArgumentError.new('Architecture not supported')
+    end
+  end
+
+  def self.vendor (value=System.env![:VENDOR])
+    case value
+      when 'pc'; value
+
+      else; 'unknown'
+    end
+  end
+
+  def self.kernel (value=System.env![:KERNEL])
+    case value
+      when 'windows'; 'cygwin'
+      when 'mac';     'darwin'
+      when 'linux';   'linux'
+
+      else; raise ArgumentError.new('Kernel not supported')
+    end
+  end
+
+  def self.misc (value=System.env![:MISC])
+    case value
+      when 'gnu'; value
+    end
+  end
+
+  attr_reader :arch, :vendor, :kernel, :misc
+
+  def initialize (data)
+    self.arch   = data[:ARCH]
+    self.vendor = data[:VENDOR]
+    self.kernel = data[:KERNEL]
+    self.misc   = data[:MISC]
+
+    if !self.misc && data[:LIBC] == 'glibc' && (self.kernel == 'linux')
+      self.misc = 'gnu'
+    end
+
+    if self.vendor == 'unknown' && ['x86_64', 'i386', 'i486', 'i586', 'i686'].member?(self.arch)
+      self.vendor = 'pc'
+    end
+  end
+
+  def arch= (value)
+    @arch = Host.arch(value)
+  end
+
+  def vendor= (value)
+    @vendor = Host.vendor(value)
+  end
+
+  def kernel= (value)
+    @kernel = Host.kernel(value)
+  end
+
+  def misc= (value)
+    @misc = Host.misc(value)
+  end
+
+  def == (value)
+    if value.is_a?(Host)
+      self.to_s == value.to_s
+    else
+      !!self.to_s.match(Regexp.new('^' + Regexp.escape(value.to_s).gsub(/\\\*/, '.*?').gsub(/\\\?/, '.') + '$', 'i'))
+    end
+  end
+
+  alias === ==
+
+  def to_s
+    "#{arch}#{"-#{vendor}" if vendor}-#{kernel}#{"-#{misc}" if misc}"
+  end
+end
+
+end