packo 0.0.1.alpha.1

data/lib/packo/cli/repository/binary.rb

@@ -0,0 +1,74 @@
+#--
+# 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 Repository < Thor; module Helpers
+
+class Binary < Packo::Repository::Binary
+  include Packo::Models
+  include Helpers::Repository
+
+  def initialize (model)
+    super(model.to_hash.merge(model: model))
+  end
+
+  def populate
+    self.packages.each {|package|
+      pkg = model.packages.first_or_create(
+        repo: model,
+
+        tags_hashed: package.tags.hashed,
+        name:        package.name,
+        version:     package.version,
+        slot:        package.slot,
+        revision:    package.revision
+      )
+
+      pkg.update(
+        features: package.features,
+
+        description: package.description,
+        homepage:    package.homepage,
+        license:     package.license,
+
+        maintainer: package.maintainer
+      )
+
+      package.tags.each {|tag|
+        pkg.tags << Tag.first_or_create(name: tag.to_s)
+      }
+
+      package.builds.each {|build|
+        bld = pkg.data.builds.first_or_create(
+          flavor:   build.flavor,
+          features: build.features
+        )
+
+        bld.update(
+          digest: build.digest
+        )
+      }
+
+      pkg.save
+    }
+  end
+end
+
+end; end; end; end

data/lib/packo/cli/repository/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/repository/repository'

data/lib/packo/cli/repository/repository.rb

@@ -0,0 +1,48 @@
+#--
+# 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 CLI; class Repository < Thor; module Helpers
+
+module Repository
+  def self.wrap (model)
+    unless model
+      raise ArgumentError.new('You passed a nil model.')
+    end
+
+    model.save
+
+    case model.type
+      when :binary;  Helpers::Binary.new(model)
+      when :source;  Helpers::Source.new(model)
+      when :virtual; Helpers::Virtual.new(model)
+    end
+  end
+
+  def model; @model      end
+  def type;  @model.type end
+  def name;  @model.name end
+  def uri;   @model.uri  end
+  def path;  @model.path end
+end
+
+require 'packo/cli/repository/binary'
+require 'packo/cli/repository/source'
+require 'packo/cli/repository/virtual'
+
+end; end; end; end

data/lib/packo/cli/repository/source.rb

@@ -0,0 +1,91 @@
+#--
+# 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 Repository < Thor; module Helpers
+
+class Source < Packo::Repository::Source
+  include Packo::Models
+  include Helpers::Repository
+
+  def initialize (model)
+    super(model.to_hash.merge(model: model))
+  end
+
+  def populate
+    self.packages.each {|package|
+      pkg = model.packages.first_or_create(
+        repo: model,
+
+        tags_hashed: package.tags.hashed,
+        name:        package.name,
+        version:     package.version,
+        slot:        package.slot,
+        revision:    package.revision
+      )
+
+      pkg.update(
+        description: package.description,
+        homepage:    [package.homepage].flatten.join(' '),
+        license:     [package.license].flatten.join(' '),
+
+        maintainer: package.maintainer
+      )
+
+      package.tags.each {|tag|
+        pkg.tags << Tag.first_or_create(name: tag.to_s)
+      }
+
+      pkg.data.update(
+        path: File.dirname(package.path)
+      )
+
+      package.features.each {|f|
+        feature = pkg.data.features.first_or_create(
+          source: pkg.data,
+          name:   f.name
+        )
+
+        feature.update(
+          description: f.description,
+          enabled:     f.enabled?
+        )
+      }
+
+      package.flavor.each {|f|
+        next if [:vanilla, :documentation, :headers, :debug].member?(f.name)
+
+        flavor = pkg.data.flavor.first_or_create(
+          source: pkg.data,
+          name:   f.name
+        )
+
+        flavor.update(
+          description: f.description,
+          enabled:     f.enabled?
+        )
+      }
+
+      pkg.save
+    }
+  end
+end
+
+end; end; end; end

data/lib/packo/cli/repository/virtual.rb

@@ -0,0 +1,53 @@
+#--
+# 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 CLI; class Repository < Thor; module Helpers
+
+class Virtual < Packo::Repository::Virtual
+  include Packo::Models
+  include Helpers::Repository
+
+  def initialize (model)
+    super(model.to_hash.merge(model: model))
+  end
+
+  def populate
+    self.packages.each {|package|
+      pkg = model.packages.first_or_create(
+        repo: model,
+
+        tags_hashed: package.tags.hashed,
+        name:        package.name,
+        version:     package.version,
+        slot:        package.slot,
+        revision:    package.revision
+      )
+
+      package.tags.each {|tag|
+        pkg.tags << Tag.first_or_create(name: tag.to_s)
+      }
+
+      pkg.data.update(content: package.data)
+
+      pkg.save
+    }
+  end
+end
+
+end; end; end; end

data/lib/packo/cli/select.rb

@@ -0,0 +1,61 @@
+#--
+# 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'
+require 'packo/models'
+
+module Packo; module CLI
+
+class Select < Thor
+  include Thor::Actions
+
+  class_option :help, type: :boolean, desc: 'Show help usage'
+
+  desc 'add NAME DESCRIPTION PATH', 'Add a module to the database'
+  def add (name, description, path)
+    Models::Selector.first_or_create(name: name).update(description: description, path: path)
+
+    CLI.info "#{name} added"
+  end
+
+  desc 'delete NAME', 'Delete a module from the database'
+  def delete (name)
+    selector = Models::Selector.first(name: name)
+
+    if !selector
+      fatal "#{name} doesn't exist"
+      exit! 30
+    end
+
+    selector.destroy
+
+    CLI.info "#{name} deleted"
+  end
+end
+
+Models::Selector.all.each {|selector|
+  Select.class_eval %{
+    desc '#{selector.name} [ARGUMENTS...]', '#{selector.description}'
+    def #{selector.name} (*arguments)
+      system(*(['#{selector.path}'] + ARGV[1, ARGV.length]).compact)
+    end
+  }
+}
+
+end; end

data/lib/packo/do.rb

@@ -0,0 +1,249 @@
+#--
+# 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 'fileutils'
+require 'digest/sha1'
+
+module Packo
+
+class Do
+  def self.digest (path)
+    Digest::SHA1.hexdigest(File.read(path))
+  end
+
+  def self.cd (path=nil)
+    if block_given?
+      tmp = Dir.pwd
+
+      Dir.chdir(path) if path
+      result = yield
+      Dir.chdir(tmp)
+      result
+    else
+      Dir.chdir(path) rescue false
+    end
+  end
+
+  def self.dir (path)
+    FileUtils.mkpath path rescue nil
+  end
+
+  def self.touch (*path)
+    FileUtils.touch(path) rescue nil
+  end
+
+  def self.cp (*files, to)
+    files.flatten!
+    files.compact!
+
+    if files.length == 1
+      Do.dir(File.dirname(to))
+      FileUtils.cp_r(files.first, to)
+    else
+      Do.dir(to)
+      FileUtils.cp_r(files, to)
+    end
+  end
+
+  def self.mv (*files, to)
+    files.flatten!
+    files.compact!
+
+    if files.length == 1
+      Do.dir(File.dirname(to))
+      FileUtils.mv(files.first, to, force: true)
+    else
+      Do.dir(to)
+      FileUtils.mv(files, to, force: true)
+    end
+  end
+
+  def self.rm (*path)
+    path.flatten!
+    path.compact!
+
+    path.each {|path|
+      next unless File.exists?(path)
+
+      if File.directory?(path)
+        Dir.delete(path) rescue nil
+      else
+        FileUtils.rm_f(path) rescue nil
+      end
+    }
+  end
+
+  def self.clean (*path)
+    path.each {|dir|
+      begin
+        ndel = Dir.glob("#{dir}/**/", File::FNM_DOTMATCH).count do |d|
+          begin; Dir.rmdir d; rescue SystemCallError; end
+        end
+      end while ndel > 0
+    }
+  end
+
+  def self.sed (file, *seds)
+    content = File.read(file)
+
+    seds.each {|(regexp, sub)|
+      content.gsub!(regexp, sub || '')
+    }
+
+    File.write(file, content)
+  end
+
+  attr_reader :package
+
+  def initialize (package)
+    @package = package
+
+    @relative = '/usr'
+    @opts     = nil
+    @verbose  = true
+  end
+
+  def verbose?;     @verbose         end
+  def verbose!;     @verbose = true  end
+  def not_verbose!; @verbose = false end
+
+  def root
+    "#{@root ? @root : package.distdir}/#{@relative}".gsub(%r{/*/}, '/')
+  end
+
+  def root= (path)
+    FileUtils.mkpath(path)
+  end
+
+  def into (path)
+    tmp, @relative = @relative, path
+
+    Do.dir root if root != "/"
+
+    yield
+
+    @relative = tmp
+  end
+
+  def opts (value)
+    tmp, @opts = @opts, value
+    yield
+    @opts = tmp
+  end
+
+  def ins (*files)
+    files.map {|file| Dir.glob(file)}.flatten.each {|file|
+      FileUtils.cp_r file, "#{root}/#{File.basename(file)}", preserve: true, verbose: @verbose
+      FileUtils.chmod @opts || 0644, "#{root}/#{File.basename(file)}", verbose: @verbose
+    }
+  end
+
+  def dir (path)
+    FileUtils.mkpath "#{root}/#{path}", verbose: @verbose
+    FileUtils.chmod @opts || 0755, "#{root}/#{path}", verbose: @verbose
+  end
+
+  def bin (*bins)
+    FileUtils.mkpath "#{root}/bin"
+
+    bins.map {|bin| Dir.glob(bin)}.flatten.each {|(file, name)|
+      FileUtils.cp_r file, "#{root}/bin/#{File.basename(name || file)}", preserve: true, verbose: @verbose
+      FileUtils.chmod @opts || 0755, "#{root}/bin/#{File.basename(name || file)}", verbose: @verbose
+    }
+  end
+
+  def sbin (*sbins)
+    FileUtils.mkpath "#{root}/sbin"
+
+    sbins.map {|sbin| Dir.glob(sbin)}.flatten.each {|(file, name)|
+      FileUtils.cp_r file, "#{root}/sbin/#{File.basename(name || file)}", preserve: true, verbose: @verbose
+      FileUtils.chmod @opts || 0755, "#{root}/sbin/#{File.basename(name || file)}", verbose: @verbose
+    }
+  end
+
+  def lib (*libs)
+     FileUtils.mkpath "#{root}/lib"
+
+    libs.map {|lib| Dir.glob(lib)}.flatten.each {|(file, name)|
+      FileUtils.cp_r file, "#{root}/lib/#{File.basename(name || file)}", preserve: true, verbose: @verbose
+      FileUtils.chmod @opts || (file.match(/\.a(\.|$)/) ? 0644 : 0755), "#{root}/lib/#{File.basename(name || file)}", verbose: @verbose
+    }
+  end
+
+  def doc (*docs)
+    into("/usr/share/doc/#{package.name}-#{package.version}") {
+      docs.map {|doc| Dir.glob(doc)}.flatten.each {|(file, name)|
+        FileUtils.cp_r file, "#{root}/#{File.basename(name || file)}", preserve: true, verbose: @verbose
+        FileUtils.chmod @opts || 0644, "#{root}/#{File.basename(name || file)}", verbose: @verbose
+      }
+    }
+  end
+
+  def html (*htmls)
+    into("/usr/share/doc/#{package.name}-#{package.version}/html") {
+      htmls.map {|html| Dir.glob(html)}.flatten.each {|(file, name)|
+        FileUtils.cp_r file, "#{root}/#{File.basename(name || file)}", preserve: true, verbose: @verbose
+        FileUtils.chmod @opts || 0644, "#{root}/#{File.basename(name || file)}", verbose: @verbose
+      }
+    }
+  end
+
+  def man (*mans)
+    mans.map {|man| Dir.glob(man)}.flatten.each {|man|
+      into("/usr/share/man/man#{man[-1]}") {
+        FileUtils.cp_r man, "#{root}/#{File.basename(man)}", preserve: true, verbose: @verbose
+        FileUtils.chmod @opts || 0644, "#{root}/#{File.basename(man)}", verbose: @verbose
+      }
+    }
+  end
+
+  def info (*infos)
+    infos.map {|info| Dir.glob(info)}.flatten.each {|info|
+      into("/usr/share/info/#{info[-1]}") {
+        FileUtils.cp_r info, "#{root}/#{File.basename(info)}", preserve: true, verbose: @verbose
+        Packo.sh 'gzip', '-9', "#{root}/#{File.basename(info)}", silent: !@verbose rescue nil
+        FileUtils.chmod @opts || 0644, "#{root}/#{File.basename(info)}", verbose: @verbose
+      }
+    }
+  end
+
+  def sym (link, to)
+    FileUtils.mkpath "#{root}/#{File.dirname(to)}"
+    FileUtils.ln_sf link, "#{root}/#{to}", verbose: @verbose
+  end
+
+  def hard (link, to)
+    FileUtils.mkpath "#{root}/#{File.dirname(to)}"
+    FileUtils.ln_f link, "#{root}/#{to}", verbose: @verbose
+  end
+
+  def own (user, group, *files)
+    infos.map {|info| Dir.glob(info)}.flatten.each {|info|
+      into("/usr/share/info/#{info[-1]}") {
+        FileUtils.cp_r info, "#{root}/#{File.basename(info)}", preserve: true, verbose: @verbose
+        Packo.sh 'gzip', '-9', "#{root}/#{File.basename(info)}", silent: !@verbose rescue nil
+        FileUtils.chmod @opts || 0644, "#{root}/#{File.basename(info)}", verbose: @verbose
+      }
+    }
+  end
+
+  # TODO: wrappers
+end
+
+end