packo 0.0.1.alpha.1

data/bin/packo

@@ -0,0 +1,78 @@
+#! /usr/bin/env ruby
+# encoding: utf-8
+#--
+# 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/>.
+#++
+
+commands = Dir.glob('/usr/bin/packo-*').map {|path|
+  File.basename(path).sub('packo-', '')
+}
+
+descriptions = {
+  :base       => 'Manage packages in the system',
+  :files      => 'Manage various informations about package contents',
+  :build      => 'Manage packø building system',
+  :select     => 'Manage various configurations',
+  :repository => 'Manage packø repositories',
+  :env        => 'Manage packø environment',
+  :db         => 'Manage packø databases',
+  :profile    => 'Manage packø profiles',
+}
+
+trusted = [:base, :select, :db, :profile]
+
+if commands.member?(ARGV.first)
+  command  = ARGV.shift
+  sandbox  = false
+  fakeroot = false
+
+  ENV['PATH'].split(':').each {|folder|
+    sandbox  = File.executable?("#{folder}/sandbox")  if !sandbox
+    fakeroot = File.executable?("#{folder}/fakeroot") if !fakeroot
+  }
+  
+  warn "sandbox isn't installed"  if !sandbox
+  warn "fakeroot isn't installed" if !fakeroot
+
+  exit system(*([((!trusted.include?(command.to_sym)) ? 'sandbox' : nil), 'fakeroot', "packo-#{command}"] + ARGV).compact)
+end
+
+require 'rubygems' unless defined?(Gem)
+
+require 'packo'
+require 'packo/cli/base'
+
+class Application < Packo::CLI::Base
+  class_option :help, :type => :boolean, :desc => 'Show help usage'
+
+  desc 'version', 'Show current version'
+  map '-v' => :version, '--version' => :version
+  def version
+    puts "packø v. #{Packo.version}"
+  end
+end
+
+commands.each {|command|
+  Application.class_eval %{
+    desc '#{command} [ARGUMENTS...]', '#{descriptions[command.to_sym] || '...'}'
+    def #{command} (*arguments)
+    end
+  }
+}
+
+Application.start(ARGV)

data/bin/packo-base

@@ -0,0 +1,24 @@
+#! /usr/bin/env ruby
+#--
+# 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 'rubygems' unless defined?(Gem)
+
+require 'packo/cli/base'
+Packo::CLI::Base.start(ARGV)

data/bin/packo-build

@@ -0,0 +1,24 @@
+#! /usr/bin/env ruby
+#--
+# 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 'rubygems' unless defined?(Gem)
+
+require 'packo/cli/build'
+Packo::CLI::Build.start(ARGV)

data/bin/packo-db

@@ -0,0 +1,24 @@
+#! /usr/bin/env ruby
+#--
+# 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 'rubygems' unless defined?(Gem)
+
+require 'packo/cli/database'
+Packo::CLI::Database.start(ARGV)

data/bin/packo-env

@@ -0,0 +1,24 @@
+#! /usr/bin/env ruby
+#--
+# 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 'rubygems' unless defined?(Gem)
+
+require 'packo/cli/environment'
+Packo::CLI::Environment.start(ARGV)

data/bin/packo-files

@@ -0,0 +1,24 @@
+#! /usr/bin/env ruby
+#--
+# 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 'rubygems' unless defined?(Gem)
+
+require 'packo/cli/files'
+Packo::CLI::Files.start(ARGV)

data/bin/packo-profile

@@ -0,0 +1,24 @@
+#! /usr/bin/env ruby
+#--
+# 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 'rubygems' unless defined?(Gem)
+
+require 'packo/cli/profile'
+Packo::CLI::Profile.start(ARGV)

data/bin/packo-repository

@@ -0,0 +1,24 @@
+#! /usr/bin/env ruby
+#--
+# 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 'rubygems' unless defined?(Gem)
+
+require 'packo/cli/repository'
+Packo::CLI::Repository.start(ARGV)

data/bin/packo-select

@@ -0,0 +1,24 @@
+#! /usr/bin/env ruby
+#--
+# 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 'rubygems' unless defined?(Gem)
+
+require 'packo/cli/select'
+Packo::CLI::Select.start(ARGV)

data/lib/packo.rb

@@ -0,0 +1,186 @@
+#--
+# 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'
+
+module Packo
+  def self.sh (*cmd, &block)
+    options = (Hash === cmd.last) ? cmd.pop : {}
+
+    if !block_given?
+      show_command = cmd.join(' ')
+      show_command = show_command[0, 42] + '...' unless $trace
+
+      block = lambda {|ok, status|
+        ok or fail "Command failed with status (#{status.exitstatus}): [#{show_command}] in {#{Dir.pwd}}"
+      }
+    end
+
+    if options[:silent]
+      options[:out] = '/dev/null'
+      options[:err] = '/dev/null'
+    else
+      print "#{cmd.first} "
+      cmd[1 .. cmd.length].each {|cmd|
+        if cmd.match(/[ \$'`]/)
+          print %Q{"#{cmd}" }
+        else
+          print "#{cmd} "
+        end
+      }
+      print "\n"
+    end
+
+    options.delete :silent
+
+    result = Kernel.system(options[:env] || {}, *cmd, options)
+    status = $?
+
+    block.call(result, status)
+  end
+
+  def self.debug (argument, options={})
+    if !Packo.const_defined?(:System) || (!System.env[:DEBUG] && !options[:force])
+      return
+    end
+
+    if System.env[:DEBUG].to_i < (options[:level] || 1) && !options[:force]
+      return
+    end
+
+    output = "[#{Time.new}] From: #{caller[0, options[:deep] || 1].join("\n")}\n"
+
+    if argument.is_a?(Exception)
+      output << "#{argument.class}: #{argument.message}\n"
+      output << argument.backtrace.collect {|stack|
+        stack
+      }.join("\n")
+      output << "\n\n"
+    elsif argument.is_a?(String)
+      output << "#{argument}\n"
+    else
+      output << "#{argument.inspect}\n"
+    end
+
+    if options[:separator]
+      output << options[:separator]
+    end
+
+    puts output
+  end
+
+  def self.load (path, options={})
+    if !File.readable? path
+      raise LoadError.new("no such file to load -- #{path}")
+    end
+
+    eval("#{options[:before]}#{File.read(path, encoding: 'utf-8').split(/^__END__$/).first}#{options[:after]}", options[:binding] || binding, path, 1)
+  end
+
+  def self.loadPackage (path, package=nil)
+    options = {
+      before: 'module ::Packo::RBuild;',
+      after:  ';end'
+    }
+
+    files = {}
+
+    if package
+      if File.exists?("#{path}/digest.xml") && (digest = Nokogiri::XML.parse(File.read("#{path}/digest.xml")))
+        features = digest.xpath("//build[@version = '#{package.version}'][@slot = '#{package.slot}']/features").first
+
+        if features
+          features.text.split(' ').each {|feature|
+            next if RBuild::Features::Default[feature.to_sym]
+
+            (package.environment || Environment.new).profiles.each {|profile|
+              begin
+                Packo.load "#{profile.features}/#{feature}", options
+              rescue LoadError
+              rescue Exception => e
+                CLI.warn "Something went wrong while loading #{feature} feature." if System.env[:VERBOSE]
+                Packo.debug e
+              end
+            }
+          }
+        end
+
+        # FIXME: maybe check slot too?
+        digest.xpath("//build[@version = '#{package.version}']/files/file").each {|file|
+          tmp = OpenStruct.new(
+            name:   file['name'],
+            url:    file['url'],
+            digest: file.text
+          )
+
+          files[file['name']] = tmp
+          files[file['url']]  = tmp
+        }
+      end
+
+      begin
+        Packo.load "#{path}/#{package.name}.rbuild", options
+
+        if (pkg = RBuild::Package.last) && (tmp = File.read("#{path}/#{package.name}.rbuild").split(/^__END__$/)).length > 1
+          pkg.filesystem.parse(tmp.last.lstrip)
+        end
+      rescue Exception => e
+        Packo.debug e
+      end
+
+      Packo.load "#{path}/#{package.name}-#{package.version}.rbuild", options
+
+      if RBuild::Package.last.name == package.name && RBuild::Package.last.version == package.version
+        RBuild::Package.last.filesystem.merge!(pkg.filesystem)
+
+        if (tmp = File.read("#{path}/#{package.name}-#{package.version}.rbuild").split(/^__END__$/)).length > 1
+          RBuild::Package.last.filesystem.parse(tmp.last.lstrip)
+        end
+
+        if File.directory?("#{path}/data")
+          RBuild::Package.last.filesystem.load("#{path}/data")
+        end
+
+        RBuild::Package.last.digests = files
+
+        return RBuild::Package.last
+      end
+    else
+      begin
+        Packo.load path, options
+
+        if (pkg = RBuild::Package.last) && (tmp = File.read(path).split(/^__END__$/)).length > 1
+          pkg.filesystem.parse(tmp.last.lstrip)
+        end
+      rescue Exception => e
+        Packo.debug e
+      end
+
+      return RBuild::Package.last
+    end
+  end
+end
+
+require 'packo/version'
+require 'packo/extensions'
+require 'packo/system'
+require 'packo/do'
+require 'packo/cli'
+require 'packo/repository'
+require 'packo/package'