packo 0.0.1.alpha.1

data/lib/packo/cli/database.rb

@@ -0,0 +1,55 @@
+#--
+# 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/system'
+require 'packo/cli'
+
+module Packo; module CLI
+
+class Database < Thor
+  include Thor::Actions
+  include Database::Helpers
+
+  class_option :help, type: :boolean, desc: 'Show help usage'
+
+  desc 'export TYPE [DATA...] [OPTIONS]', 'Export a database'
+  map '-e' => :export
+  method_option :output, type: :string, aliases: '-o', desc: 'Output to a file instead of stdout'
+  def export (type, *data)
+    exported = Definition.new(type, *data).export
+
+    if options[:output]
+      file = File.new(options[:output])
+      file.write(exported)
+      file.close
+    else
+      puts exported
+    end
+  end
+
+  desc 'import FILE... [OPTIONS]', 'Import an exported database'
+  map '-i' => :import
+  def import (*files)
+    files.each {|file|
+      Definition.open(file).import
+    }
+  end
+end
+
+end; end

data/lib/packo/cli/database/definition.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/models'
+
+module Packo; module CLI; class Database < Thor; module Helpers
+
+class Definition
+  def self.parse (data)
+    Definition.new(*JSON.parse(data))
+  end
+
+  def self.import
+
+  def self.open (path)
+    data = File.read(path)
+
+    Definition.parse(LZMA.decompress(data) rescue data)
+  end
+
+  attr_reader :type, :data
+
+  def initialize (type, *data)
+    @type = type
+    @data = data
+  end
+
+  def export
+
+  end
+
+  def import
+    query = ''
+
+    query << 'BEGIN;'
+
+    query << 'COMMIT;'
+
+    DataMapper.repository.adapter.execute(query)
+  end
+
+  private
+
+  def export
+
+  end
+end
+
+end; end; end; end

data/lib/packo/cli/database/helpers.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/cli/database/definition'

data/lib/packo/cli/environment.rb

@@ -0,0 +1,45 @@
+# 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/>.
+#++
+
+require 'packo'
+
+module Packo; module CLI
+
+class Environment < Thor
+  include Thor::Actions
+
+  class_option :help, type: :boolean, desc: 'Show help usage'
+
+  desc 'show', 'Show the current system environment'
+  def show
+    length = System.env!.map {|(name, value)| name.length}.max
+
+    System.env!.each {|(name, value)|
+      puts "#{name}#{' ' * (1 + length - name.length)}= #{value}" if value && !value.to_s.empty?
+    }
+  end
+
+  desc 'update', 'Update the environment'
+  def update
+
+  end
+end
+
+end; end

data/lib/packo/cli/files.rb

@@ -0,0 +1,153 @@
+# 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/>.
+#++
+
+require 'packo'
+
+module Packo; module CLI
+
+class Files < Thor
+  include Thor::Actions
+
+  class_option :help, type: :boolean, desc: 'Show help usage'
+
+  desc 'package PACKAGE', 'Get a file list of a given package'
+  def package (name)
+    if name.end_with?('.pko')
+      require 'packo/rbuild'
+
+      path = "#{System.env[:TMP]}/.__packo_unpacked/#{File.basename(name)}"
+      RBuild::Modules::Packaging::PKO.unpack(File.realpath(name), path)
+
+      length = "#{path}/dist".length
+
+      Find.find("#{path}/dist") {|file|
+        type = nil
+        path = "/#{file[length, file.length]}".gsub(%r{/*/}, '/').sub(%r{/$}, '')
+        meta = nil
+
+        if File.directory? file
+          type = :dir
+        elsif File.symlink? file
+          type = :sym
+          meta = File.readlink file
+        elsif File.file? file
+          type = :obj
+        end
+
+        case type
+          when :dir; puts "--- #{path if path != '/'}/"
+          when :sym; puts ">>> #{path} -> #{meta}".cyan.bold
+          when :obj; puts ">>> #{path}".bold
+        end
+      }
+    else
+      require 'packo/models'
+
+      package = Models.search_installed(name).first
+      root    = Pathname.new(package.destination || '/')
+
+      if !package
+        fatal "No package matches #{name}"
+        exit! 10
+      end
+
+      package.model.contents.each {|content| content.check!
+        case content.type
+          when :dir; puts "--- #{(root + content.path).cleanpath}"
+          when :sym; puts ">>> #{(root + content.path).cleanpath} -> #{content.meta}".cyan.bold
+          when :obj; puts ">>> #{(root + content.path).cleanpath}".bold
+        end
+      }
+    end
+  end
+
+  desc 'belongs FILE', 'Find out to what package a path belongs'
+  def belongs (file)
+    require 'packo/models'
+
+    path    = Pathname.new(file).realpath.to_s
+    path[0] = ''
+
+    if content = Models::InstalledPackage::Content.first(path: path)
+      puts Package.wrap(content.installed_package).to_s
+    else
+      exit 1
+    end
+  end
+
+  desc 'check [PACKAGE...]', 'Check contents for the given packages'
+  def check (*names)
+    require 'packo/models'
+
+    packages = []
+
+    if names.empty?
+      packages << Models::InstalledPackage.all.map {|pkg|
+        Package.wrap(pkg)
+      }
+    else
+      names.each {|name|
+        packages << Models.search_installed(name)
+      }
+    end
+
+    packages.flatten.compact.each {|package|
+      print "[#{package.repository.black.bold}] " if package.repository
+      print "#{package.tags}/" unless package.tags.empty?
+      print package.name.bold
+      print "-#{package.version.to_s.red}"
+      print " (#{package.slot.to_s.blue.bold})" if package.slot
+      print " [#{package.features}]" unless package.features.empty?
+      print " {#{package.flavor}}"   unless package.flavor.empty?
+      print "\n"
+
+      package.model.contents.each {|content|
+        path = (Pathname.new(package.model.destination || '/') + content.path[1, content.path.length]).cleanpath.to_s
+
+        case content.type
+          when :dir
+            if !(File.directory?(path) rescue false)
+              puts "#{'FAIL ' if System.env[:NO_COLORS]}--- #{path}#{'/' if path != '/'}".red
+            else
+              puts "#{'OK   ' if System.env[:NO_COLORS]}--- #{path}#{'/' if path != '/'}".green
+            end
+
+          when :sym
+            if content.meta != (File.readlink(path) rescue nil)
+              puts "#{'FAIL ' if System.env[:NO_COLORS]}>>> #{path} -> #{content.meta}".red
+            else
+              puts "#{'OK   ' if System.env[:NO_COLORS]}>>> #{path} -> #{content.meta}".green
+            end
+
+          when :obj
+            if content.meta != (Do.digest(path) rescue nil)
+              puts "#{'FAIL ' if System.env[:NO_COLORS]}>>> #{path}".red
+            else
+              puts "#{'OK   ' if System.env[:NO_COLORS]}>>> #{path}".green
+            end
+        end
+      }
+
+      puts ''
+    }
+  end
+end
+
+end; end

data/lib/packo/cli/profile.rb

@@ -0,0 +1,31 @@
+# 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/>.
+#++
+
+require 'packo'
+
+module Packo; module CLI
+
+class Profile < Thor
+  include Thor::Actions
+
+  class_option :help, type: :boolean, desc: 'Show help usage'
+end
+
+end; end

data/lib/packo/cli/repository.rb

@@ -0,0 +1,561 @@
+# 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/>.
+#++
+
+require 'open-uri'
+require 'nokogiri'
+
+require 'packo'
+require 'packo/rbuild'
+require 'packo/models'
+require 'packo/cli/repository/helpers'
+
+module Packo; module CLI
+
+class Repository < Thor
+  include Thor::Actions
+
+  @@scm = ['git']
+
+  class_option :help, type: :boolean, desc: 'Show help usage'
+
+  desc 'add URI...', 'Add repositories'
+  map '-a' => :add
+  def add (*uris)
+    uris.each {|uri|
+      uri  = URI.parse(uri)
+      kind = nil
+      type = nil
+      name = nil
+
+      if uri.scheme.nil? || uri.scheme == 'file'
+        kind = :file
+
+        if uri.to_s.end_with?('.rb')
+          uri = File.realpath(uri.path)
+
+          type = :virtual
+          name = File.basename(uri.to_s).sub('.rb', '')
+        else
+          if File.directory? uri.path
+            dom = Nokogiri::XML.parse(File.read("#{uri.path}/repository.xml"))
+          else
+            dom = Nokogiri::XML.parse(File.read(uri.path))
+          end
+
+          uri = File.realpath(uri.path)
+
+          type = dom.root['type'].to_sym
+          name = dom.root['name']
+        end
+      elsif ['http', 'https', 'ftp'].member?(uri.scheme)
+        kind = :fetched
+
+        if uri.to_s.end_with?('.rb')
+          type = :virtual
+          name = File.basename(uri.to_s).sub('.rb', '')
+        else
+          xml = open(uri).read
+          dom = Nokogiri::XML.parse(xml)
+
+          type = dom.root['type'].to_sym
+          name = dom.root['name']
+        end
+      elsif @@scm.member?(uri.scheme)
+        kind = :scm
+
+        FileUtils.rm_rf("#{System.env[:TMP]}/.__repo", secure: true)
+
+        _checkout(uri, "#{System.env[:TMP]}/.__repo")
+
+        dom = Nokogiri::XML.parse(File.read("#{System.env[:TMP]}/.__repo/repository.xml"))
+
+        type = dom.root['type'].to_sym
+        name = dom.root['name']
+      end
+
+      if !kind
+        CLI.fatal "I don't know what to do with #{uri}"
+        next
+      end
+
+      path = "#{System.env[:REPOSITORIES]}/#{type}/#{name}"
+
+      if Models::Repository.first(type: type, name: name)
+        CLI.fatal "#{type}/#{name} already exists, delete it first"
+        exit 10
+      end
+
+      case type
+        when :binary
+          path << '.xml'
+
+          FileUtils.mkpath(File.dirname(path))
+          File.write(path, open((kind == :file && (!uri.to_s.end_with?('.xml'))) ?
+            "#{uri}/repository.xml" :
+            uri
+          ).read)
+
+        when :source
+          FileUtils.rm_rf path, secure: true rescue nil
+          FileUtils.mkpath path rescue nil
+
+          case kind
+            when :fetched
+              _checkout(dom.xpath('//address').first.text, path)
+
+            when :scm
+              FileUtils.cp_r "#{System.env[:TMP]}/.__repo/.", path, preserve: true
+
+            else
+              _checkout(uri.to_s, path)
+          end
+
+        when :virtual
+          path << '.rb'
+
+          FileUtils.mkpath(File.dirname(path))
+          File.write(path, open((kind == :file && (!uri.to_s.end_with?('.rb'))) ?
+            "#{uri}/repository.rb" :
+            uri
+          ).read)
+      end
+
+      begin
+        Models.transaction {
+          _add type, name, uri, path
+        }
+
+        CLI.info "Added #{type}/#{name}"
+      rescue Exception => e
+        CLI.fatal 'Failed to add the cache'
+
+        Packo.debug e
+      end
+    }
+  end
+
+
+  desc 'delete REPOSITORY...', 'Delete installed repositories'
+  map '-d' => :delete, '-R' => :delete
+  def delete (*names)
+    names.each {|name|
+      repository = Packo::Repository.parse(name)
+
+      if repository.type && !Packo::Repository::Types.member?(repository.type)
+        CLI.fatal "#{repository.type} is not a valid repository type"
+        exit 20
+      end
+
+      conditions        = Hash[name: repository.name]
+      conditions[:type] = repository.type if repository.type
+
+      repositories = Models::Repository.all(conditions)
+
+      if repositories.empty?
+        CLI.fatal "#{repository.type}/#{repository.name} doesn't exist"
+        exit 21
+      end
+
+      CLI.info "Deleting #{[repository.type, repository.name].join('/')}"
+
+      begin
+        repositories.each {|repository|
+          Models.transaction {
+            _delete(repository.type, repository.name)
+
+            FileUtils.rm_rf repository.path, secure: true
+          }
+        }
+      rescue Exception => e
+        CLI.fatal "Something went wrong while deleting #{name}"
+
+        Packo.debug e
+      end
+    }
+  end
+
+  desc 'update', 'Update installed repositories'
+  map '-u' => :update
+  method_option :force, type: :boolean, default: false, aliases: '-f', desc: 'Force the update'
+  def update
+    Models::Repository.all.each {|repository|
+      updated = false
+
+      type = repository.type
+      name = repository.name
+      uri  = repository.uri.to_s
+      path = repository.path
+
+      Models.transaction {
+        case repository.type
+          when :binary
+            if (content = open(uri).read) != File.read(path) || options[:force]
+              _delete(:binary, name)
+              File.write(path, content)
+              _add(:binary, name, uri, path)
+
+              updated = true
+            end
+
+          when :source
+            if _update(path) || options[:force]
+              _delete(:source, name)
+              _add(:source, name, uri, path)
+
+              updated = true
+            end
+
+          when :virtual
+        end
+      }
+
+      if updated
+        CLI.info "Updated #{type}/#{name}"
+      else
+        CLI.info "#{type}/#{name} already up to date"
+      end
+    }
+  end
+
+  desc 'search [EXPRESSION] [OPTIONS]', 'Search packages with the given expression'
+  map '--search' => :search, '-Ss' => :search
+  method_option :exact,      type: :boolean, default: false, aliases: '-e', desc: 'Search for the exact name'
+  method_option :full,       type: :boolean, default: false, aliases: '-F', desc: 'Include the repository that owns the package'
+  method_option :type,       type: :string,                     aliases: '-t', desc: 'The repository type'
+  method_option :repository, type: :string,                     aliases: '-r', desc: 'Set a specific repository'
+  def search (expression='')
+    Models.search(expression, options[:exact], options[:repository], options[:type]).group_by {|package|
+      "#{package.tags}/#{package.name}"
+    }.sort.each {|(name, packages)|
+      if options[:full]
+        packages.group_by {|package|
+          "#{package.repository.type}/#{package.repository.name}"
+        }.each {|name, packages|
+          print "#{"#{packages.first.tags}/" unless packages.first.tags.empty?}#{packages.first.name.bold}"
+
+          print ' ('
+          print packages.map {|package|
+            "#{package.version.to_s.red}" + (package.slot ? "%#{package.slot.to_s.blue.bold}" : '')
+          }.join(', ')
+          print ')'
+
+          print " <#{"#{package.repository.type}/#{package.repository.name}".black.bold} | #{package.repository.uri} | #{package.repository.path}>"
+        }
+      else
+        print "#{packages.first.tags}/#{packages.first.name.bold} ("
+
+        print packages.map {|package|
+          "#{package.version.to_s.red}" + (package.slot ? "%#{package.slot.to_s.blue.bold}" : '')
+        }.join(', ')
+
+        print ")"
+      end
+
+      print "\n"
+    }
+  end
+
+  desc 'info [EXPRESSION] [OPTIONS]', 'Search packages with the given expression and return detailed informations about them'
+  map '--info' => :info, '-I' => :info
+  method_option :exact,      type: :boolean, default: false, aliases: '-e', desc: 'Search for the exact name'
+  method_option :type,       type: :string,                     aliases: '-t', desc: 'The repository type'
+  method_option :repository, type: :string,                     aliases: '-r', desc: 'Set a specific repository'
+  def info (expression='')
+    Models.search(expression, options[:exact], options[:repository], options[:type]).group_by {|package|
+      package.name
+    }.sort.each {|(name, packages)|
+      packages.sort {|a, b|
+        a.version <=> b.version
+      }.each {|package|
+        print "<#{"source/#{package.repository.name}".black.bold}> "
+        print package.name.bold
+        print "-#{package.version.to_s.red}"
+        print " {#{package.revision.yellow.bold}}" if package.revision > 0
+        print " (#{package.slot.blue.bold})" if package.slot
+        print " [#{package.tags.join(' ').magenta}]" if !package.tags.empty?
+        print "\n"
+
+        puts "    #{'Description'.green}: #{package.description}"      if package.description
+        puts "    #{'Homepage'.green}:    #{package.homepage}"         if package.homepage
+        puts "    #{'License'.green}:     #{package.license}"          if package.license
+        puts "    #{'Maintainer'.green}:  #{package.model.maintainer}" if package.maintainer
+
+        case package.repository.type
+          when :binary
+            puts "    #{'Features'.green}:    #{package.features.to_a.select {|f| f.enabled?}.map {|f| f.name}.join(' ')}"
+
+            print "    #{'Builds'.green}:      "
+            package.model.data.builds.each {|build|
+              print 'With '
+
+              if !build.features.empty?
+                print build.features.bold
+              else
+                print 'nothing'
+              end
+
+              print " in #{build.flavor.bold} flavor" if build.flavor
+              print " (SHA1 #{build.digest})".black.bold if build.digest
+              print "\n                 "
+            }
+
+          when :source
+            length = (package.model.data.flavor.to_a + package.model.data.features.to_a).map {|f|
+              f.name.length
+            }.max
+
+            if package.model.data.flavor.length > 0
+              print "    #{'Flavor'.green}:      "
+
+              flavor = package.model.data.flavor
+
+              flavor.each {|element|
+                if element.enabled
+                  print "#{element.name.white.bold}#{System.env[:NO_COLORS] ? '!' : ''}"
+                else
+                  print element.name.black.bold
+                end
+
+                print "#{' ' * (4 + length - element.name.length + (System.env[:NO_COLORS] && !element.enabled ? 1 : 0))}#{element.description || '...'}"
+
+                print "\n                   "
+              }
+
+              print "\r" if package.model.data.features.length > 0
+            end
+
+            if package.model.data.features.length > 0
+              print "    #{'Features'.green}:    "
+
+              features = package.model.data.features
+
+              features.each {|feature|
+                if feature.enabled
+                  print "#{feature.name.white.bold}#{System.env[:NO_COLORS] ? '!' : ''}"
+                else
+                  print feature.name.black.bold
+                end
+
+                print "#{' ' * (4 + length - feature.name.length + (System.env[:NO_COLORS] && !feature.enabled ? 1 : 0))}#{feature.description || '...'}"
+
+                print "\n                 "
+              }
+            end
+        end
+
+        print "\n"
+      }
+    }
+  end
+
+  desc 'list [TYPE]', 'List installed repositories'
+  def list (type='all')
+    if Packo::Repository::Types.member?(type.to_sym)
+      CLI.info "Installed #{type} repositories:"
+
+      repositories = Models::Repository.all(type: type)
+      length       = repositories.map {|repository| "#{repository.type}/#{repository.name}".length}.max
+
+      repositories.each {|repository|
+        puts "  #{repository.type}/#{repository.name}#{' ' * (4 + length - "#{repository.type}/#{repository.name}".length)}#{repository.uri} (#{repository.path})"
+      }
+
+      puts ''
+    elsif type == 'all'
+      Packo::Repository::Types.each {|type|
+        list(type)
+      }
+    end
+  end
+
+  desc 'path REPOSITORY', 'Output the path of a given repository'
+  def path (name)
+    repository = Models::Repository.first(Packo::Repository.parse(name).to_hash)
+
+    exit if !repository
+
+    puts repository.path
+  end
+
+  desc 'uri REPOSITORY', 'Output the URI of a given package'
+  def uri (name)
+    repository = Models::Repository.first(Packo::Repository.parse(name).to_hash)
+
+    exit if !repository
+
+    puts repository.URI
+  end
+
+  desc 'rehash REPOSITORY...', 'Rehash the repository caches'
+  def rehash (*names)
+    repositories = []
+
+    if names.empty?
+      repositories << Models::Repository.all
+    else
+      names.each {|name|
+        repositories << Models::Repository.all(name: name)
+      }
+    end
+
+    repositories.flatten.compact.each {|repository|
+      type = repository.type
+      name = repository.name
+      uri  = repository.uri
+      path = repository.path
+
+      CLI.info "Rehashing #{type}/#{name}"
+
+      Models.transaction {
+        _delete(type, name)
+
+        case type
+          when :binary
+            _add(:binary, name, uri, path)
+
+          when :source
+            _add(:source, name, uri, path)
+        end
+      }
+    }
+  end
+
+  desc 'generate REPOSITORY [OPTIONS]', 'Generate a binary repository from sources'
+  method_option :repository, type: :string,                               aliases: '-r', desc: 'Specify a source repository from where to get packages'
+  method_option :output,     type: :string, default: System.env[:TMP], aliases: '-o', desc: 'Specify output directory'
+  def generate (repository)
+    dom = Nokogiri::XML.parse(File.read(repository)) {|config|
+      config.default_xml.noblanks
+    }
+
+    dom.xpath('//packages/package').each {|e|
+      CLI.info "Generating #{Packo::Package.new(tags: e['tags'].split(/\s+/), name: e['name'])}".bold if System.env[:VERBOSE]
+
+      e.xpath('.//build').each {|build|
+        package = Package.new(
+          tags:     e['tags'],
+          name:     e['name'],
+          version:  build.parent['name'],
+          slot:     (build.parent.parent.name == 'slot') ? build.parent.parent['name'] : nil,
+
+          repository: options[:repository]
+        )
+
+        package.flavor   = (build.xpath('.//flavor').first.text rescue '')
+        package.features = (build.xpath('.//features').first.text rescue '')
+
+        next if File.exists?("#{options[:output]}/#{dom.root['name']}/#{package.tags.to_s(true)}/" +
+          "#{package.name}-#{package.version}#{"%#{package.slot}" if package.slot}" +
+          "#{"+#{package.flavor.to_s(:package)}" if !package.flavor.to_s(:package).empty?}" +
+          "#{"-#{package.features.to_s(:package)}" if !package.features.to_s(:package).empty?}" +
+          '.pko'
+        )
+
+        begin
+          pko = _build(package,
+            FLAVOR:   package.flavor,
+            FEATURES: package.features
+          )
+
+          build.xpath('.//digest').each {|node| node.remove}
+          build.add_child dom.create_element('digest', Do.digest(pko))
+
+          FileUtils.mkpath "#{options[:output]}/#{dom.root['name']}/#{package.tags.to_s(true)}"
+          FileUtils.mv pko, "#{options[:output]}/#{dom.root['name']}/#{package.tags.to_s(true)}"
+        rescue Exception => e
+          Packo.debug e
+        end
+
+        File.write(repository, dom.to_xml(indent: 4))
+      }
+    }
+  end
+
+  private
+
+  def _build (package, env)
+    Do.cd {
+      FileUtils.rm_rf "#{System.env[:TMP]}/.__packo_build", secure: true rescue nil
+      FileUtils.mkpath "#{System.env[:TMP]}/.__packo_build" rescue nil
+
+      require 'packo/cli/build'
+
+      begin
+        System.env.sandbox(env) {
+          Packo::CLI::Build.start(['package', package.to_s(:whole), "--output=#{System.env[:TMP]}/.__packo_build", "--repository=#{package.repository}"])
+        }
+      rescue
+      end
+
+      Dir.glob("#{System.env[:TMP]}/.__packo_build/#{package.name}-#{package.version}*.pko").first
+    }
+  end
+
+  def _add (type, name, uri, path)
+    Helpers::Repository.wrap(Models::Repository.create(
+      type: type,
+      name: name,
+
+      uri:  uri,
+      path: path
+    )).populate
+  end
+
+  def _delete (type, name)
+    Models::Repository.first(name: name, type: type).destroy
+  end
+
+  def _checkout (uri, path)
+    uri = URI.parse(uri.to_s) if !uri.is_a?(URI)
+
+    if !uri.scheme
+      if File.directory?("#{uri}/.git")
+        scm = 'git'
+      end
+    else
+      scm = uri.scheme
+    end
+
+    if !@@scm.member?(scm)
+      CLI.fatal "#{scm} is an unsupported SCM"
+      exit 40
+    end
+
+    case scm
+      when 'git'; Packo.sh 'git', 'clone', '--depth', '1', uri.to_s, path, silent: !System.env[:VERBOSE]
+    end
+  end
+
+  def _update (path)
+    result = false
+
+    old = Dir.pwd; Dir.chdir(path)
+
+    if !result && (`git reset --hard`) && (`git pull`.strip != 'Already up-to-date.' rescue nil)
+      result = true
+    end
+
+    Dir.chdir(old)
+
+    return result
+  end
+end
+
+end; end