packo 0.0.1.alpha.1

data/lib/packo/models.rb

@@ -0,0 +1,171 @@
+#--
+# 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 'dm-core'
+require 'dm-constraints'
+require 'dm-migrations'
+require 'dm-types'
+require 'dm-transactions'
+
+require 'versionomy'
+
+require 'packo'
+
+module DataMapper
+
+module Adapters
+  class DataObjectsAdapter < AbstractAdapter
+    private
+      def operation_statement(operation, qualify)
+        statements  = []
+        bind_values = []
+
+        operation.each do |operand|
+          statement, values = conditions_statement(operand, qualify)
+          next unless statement
+          statements << statement
+          bind_values.concat(values) if values
+        end
+
+        statement = statements.join(" #{operation.slug.to_s.upcase} ")
+
+        if statements.size > 1
+          statement = "(#{statement})"
+        end
+
+        return (statement.empty? ? nil : statement), bind_values
+      end
+  end
+end
+
+if Packo::System.env[:DEBUG].to_i > 2
+  Logger.new($stdout, :debug)
+end
+
+Model.raise_on_save_failure = true
+
+class Property
+  class Version < String
+    # Hopefully the max length of a version won't go over 255 chars
+    length 255
+
+    def custom?
+      true
+    end
+
+    def primitive? (value)
+      value.is_a?(Versionomy::Value)
+    end
+
+    def valid? (value, negated = false)
+      super || primitive?(value) || value.is_a?(::String)
+    end
+
+    def load (value)
+      Versionomy.parse(value.to_s) unless value.to_s.empty?
+    end
+
+    def dump (value)
+      value.to_s unless value.nil?
+    end
+
+    def typecast_to_primitive (value)
+      load(value)
+    end
+  end
+end
+
+begin
+  setup :default, Packo::System.env[:DATABASE]
+rescue Exception => e
+  Packo::CLI.warn "Could not setup a connection with #{Packo::System.env[:DATABASE]}: #{e.message}"
+end
+
+require 'packo/models/installed_package'
+require 'packo/models/repository'
+require 'packo/models/selector'
+
+finalize
+
+begin
+  auto_upgrade!
+rescue Exception => e
+  Packo::CLI.warn "Could not migrate the database: #{e.message}"
+end
+
+end
+
+module Packo
+
+module Models
+  def self.transactions
+    @@transactions ||= []
+  end
+
+  def self.transaction (&block)
+    transaction = DataMapper::Transaction.new(DataMapper.repository)
+    transaction.begin
+
+    Models.transactions << transaction
+
+    begin
+      transaction.within &block
+    rescue Exception => e
+      transaction.rollback unless transaction.rollback?
+
+      raise e
+    end
+
+    transaction.commit
+  end
+
+  def self.search_installed (expression, name=nil, type=nil)
+    Models::InstalledPackage.search(expression, true, type && name ? "#{type}/#{name}" : nil).map {|pkg|
+      Package.wrap(pkg)
+    }
+  end
+
+  def self.search (expression, name=nil, type=nil, exact=false)
+    packages = []
+
+    if name && !name.empty?
+      repository      = Packo::Repository.parse(name)
+      repository.type = type if type && Packo::Repository::Types.member?(type.to_sym)
+      repository      = Models::Repository.first(repository.to_hash)
+
+      if repository
+        packages << repository.search(expression, exact)
+      end
+    else
+      Packo::Repository::Types.each {|t|
+        if type.nil? || type == 'all' || type == t
+          Models::Repository.all(type: t).each {|repository|
+            packages << repository.search(expression, exact)
+          }
+        end
+      }
+    end
+
+    return packages.flatten.compact.map {|package|
+      Package.wrap(package)
+    }
+  end
+end
+
+end

data/lib/packo/models/installed_package.rb

@@ -0,0 +1,190 @@
+#--
+# 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/tag'
+require 'packo/models/installed_package/dependency'
+require 'packo/models/installed_package/content'
+
+module Packo; module Models
+
+class InstalledPackage
+  include DataMapper::Resource
+
+  property :id, Serial
+
+  property :repo, String
+  has n,   :tags, through: Resource, constraint: :destroy
+
+  property :tags_hashed, String,  length: 40,   required: true, unique_index: :a
+  property :name,        String,  length: 255,  required: true, unique_index: :a
+  property :version,     Version,                  required: true
+  property :slot,        String,  default: '',                     unique_index: :a
+  property :revision,    Integer, default: 0
+
+  property :flavor,  Text
+  property :features, Text
+
+  property :description,  Text
+  property :homepage,     Text
+  property :license,      Text
+
+  property :maintainer, String
+
+  property :manual, Boolean,                       default: false
+  property :type,   Enum[:both, :runtime, :build], default: :both
+
+  property :destination, Text
+
+  property :created_at, DateTime
+
+  has n, :dependencies, constraint: :destroy
+  has n, :contents,     constraint: :destroy
+
+  def self.search (expression, exact=false, repository=nil)
+    if expression.start_with?('[') && expression.end_with?(']')
+      expression = expression[1, expression.length - 2]
+
+      if DataMapper.repository.adapter.respond_to? :select
+        result = self._find_by_expression(expression).map {|id|
+          InstalledPackage.get(id)
+        }
+      else
+        expression = Packo::Package::Tags::Expression.parse(expression)
+
+        result = packages.all.select {|pkg|
+          expression.evaluate(Packo::Package.wrap(pkg))
+        }
+      end
+    else
+      if matches = expression.match(/^([<>]?=?)/)
+        validity = ((matches[1] && !matches[1].empty?) ? matches[1] : nil)
+        expression = expression.sub(/^([<>]?=?)/, '')
+
+        validity = nil if validity == '='
+      else
+        validity = nil
+      end
+
+      package = Packo::Package.parse(expression)
+
+      conditions = { order: [:name.asc] }
+
+      if exact
+        conditions[:name]    = package.name    if package.name
+        conditions[:version] = package.version if package.version
+        conditions[:slot]    = package.slot    if package.slot
+      else
+        conditions[:name.like]    = "%#{package.name}%" if package.name
+        conditions[:version.like] = package.version     if package.version
+        conditions[:slot.like]    = "%#{package.slot}%" if package.slot
+      end
+
+      result = InstalledPackage.all(conditions)
+
+      if !package.tags.empty?
+        result = result.to_a.select {|pkg|
+          Packo::Package.wrap(pkg).tags == package.tags
+        }
+      end
+
+      if validity
+        result = result.select {|pkg|
+          case validity
+            when '>';  pkg.version >  package.version
+            when '>='; pkg.version >= package.version
+            when '<';  pkg.version <  package.version
+            when '<='; pkg.version <= package.version
+          end
+        }
+      end
+    end
+
+    if repository
+      result.delete_if {|pkg|
+        pkg.repo != repository
+      }
+    end
+
+    return result
+  end
+
+  private
+
+  def self._expression_to_sql (value)
+    value.downcase!
+    value.gsub!(/(\s+and\s+|\s*&&\s*)/i, ' && ')
+    value.gsub!(/(\s+or\s+|\s*\|\|\s*)/i, ' || ')
+    value.gsub!(/(\s+not\s+|\s*!\s*)/i, ' !')
+    value.gsub!(/\(\s*!/, '(!')
+
+    joins      = String.new
+    names      = []
+    expression = value.clone
+
+    expression.scan(/(("(([^\\"]|\\.)*)")|([^\s&!|()]+))/) {|match|
+      names.push((match[2] || match[4]).downcase)
+    }
+
+    names.compact!
+    names.uniq!
+
+    names.each_index {|index|
+      joins << %{
+        LEFT JOIN (
+            SELECT _used_tag_#{index}.package_id
+
+            FROM packo_models_installed_package_tags AS _used_tag_#{index}
+
+            INNER JOIN packo_models_tags AS _tag_#{index}
+                ON _used_tag_#{index}.tag_id = _tag_#{index}.id AND _tag_#{index}.name = ?
+        ) AS _tag_check_#{index}
+            ON packo_models_installed_packages.id = _tag_check_#{index}.package_id
+      }
+
+      if (replace = names[index]).match(/[\s&!|]/)
+        replace = %{"#{replace}"}
+      end
+
+      expression.gsub!(/([\s()]|\G)!\s*#{Regexp.escape(replace)}([\s()]|$)/, "\\1 (_tag_check_#{index}.package_id IS NULL) \\2")
+      expression.gsub!(/([\s()]|\G)#{Regexp.escape(replace)}([\s()]|$)/,     "\\1 (_tag_check_#{index}.package_id IS NOT NULL) \\2")
+    }
+
+    expression.gsub!(/([\G\s()])&&([\s()\A])/,   '\1 AND \2')
+    expression.gsub!(/([\G\s()])\|\|([\s()\A])/, '\1 OR  \2')
+    expression.gsub!(/([\G\s()])!([\s()\A])/,    '\1 NOT \2')
+
+    return joins, names, expression
+  end
+
+  def self._find_by_expression (expression)
+    joins, names, expression = self._expression_to_sql(expression)
+
+    repository.adapter.select(%{
+      SELECT DISTINCT packo_models_installed_packages.id
+
+      FROM packo_models_installed_packages
+
+      #{joins}
+
+      WHERE #{expression}
+    }, *names) rescue []
+  end
+end
+
+end; end

data/lib/packo/models/installed_package/content.rb

@@ -0,0 +1,50 @@
+#--
+# 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 Models; class InstalledPackage
+
+class Content
+  include DataMapper::Resource
+
+  belongs_to :installed_package
+
+  property :id, Serial
+
+  property :type, Enum[:dir, :obj, :sym]
+
+  property :path, Text
+
+  property :meta, Object, required: false
+
+  def check!
+    return if self.type
+
+    if File.directory?(self.path)
+      self.type = :dir
+    elsif File.symlink?(self.path)
+      self.type = :sym
+    elsif File.file?(self.path)
+      self.type = :obj
+    end
+
+    self.save
+  end
+end
+
+end; end; end

data/lib/packo/models/installed_package/dependency.rb

@@ -0,0 +1,39 @@
+#--
+# 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 Models; class InstalledPackage
+
+class Dependency
+  include DataMapper::Resource
+
+  belongs_to :installed_package
+
+  property :id, Serial
+
+  property :tags,     Text,                   unique_index: :a
+  property :name,     String,                 unique_index: :a
+  property :version,  String,                 unique_index: :a
+  property :slot,     String,  default: ''
+  property :revision, Integer, default: 0
+
+  property :flavor,   Text, default: ''
+  property :features, Text, default: ''
+end
+
+end; end; end