packo 0.0.1.alpha.1

data/lib/packo/models/repository.rb

@@ -0,0 +1,209 @@
+#--
+# 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/repository'
+
+require 'packo/models/repository/package'
+
+require 'packo/models/repository/binary'
+require 'packo/models/repository/source'
+require 'packo/models/repository/virtual'
+
+module Packo; module Models
+
+class Repository
+  include DataMapper::Resource
+
+  property :id, Serial
+
+  property :type, Enum[:binary, :source, :virtual], required: true
+  property :name, String,                           required: true
+
+  property :uri,  URI,  required: true
+  property :path, Text, required: true
+
+  has n, :packages, constraint: :destroy
+
+  after :create do |repo|
+    case repo.type
+      when :binary;  Binary.create(repo: repo)
+      when :source;  Source.create(repo: repo)
+      when :virtual; Virtual.create(repo: repo)
+    end
+  end
+
+  after :save do |repo|
+    repo.data.save if repo.data
+  end
+
+  after :destroy do |repo|
+    repo.data.destroy! if repo.data
+  end
+
+  def data
+     case type
+      when :binary;  Binary.first_or_create(repo: self)
+      when :source;  Source.first_or_create(repo: self)
+      when :virtual; Virtual.first_or_create(repo: self)
+    end
+  end
+
+  def to_hash
+    Hash[
+      type: self.type,
+      name: self.name,
+      uri:  self.uri,
+      path: self.path
+    ]
+  end
+
+  def URI
+    case type
+      when :binary;  data.mirrors.to_a.map {|m| m.uri}.join("\n")
+      when :source;  data.address
+      when :virtual; data.address
+    end
+  end
+
+  def search (expression, exact=false)
+    if expression.start_with?('[') && expression.end_with?(']')
+      expression = expression[1, expression.length - 2]
+
+      if DataMapper.repository.adapter.respond_to? :select
+        result = _find_by_expression(expression).map {|id|
+          Package.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 = packages.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
+
+    return result
+  end
+
+  private
+
+  def _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_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_repository_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 _find_by_expression (expression)
+    joins, names, expression = _expression_to_sql(expression)
+
+    repository.adapter.select(%{
+      SELECT DISTINCT packo_models_repository_packages.id
+
+      FROM packo_models_repository_packages
+
+      #{joins}
+
+      WHERE packo_models_repository_packages.repo_id = ? #{"AND (#{expression})" if !expression.empty?}
+    }, *(names + [id])) rescue []
+  end
+end
+
+end; end

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

@@ -0,0 +1,32 @@
+#--
+# 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/repository/binary/mirror'
+
+module Packo; module Models; class Repository
+
+class Binary
+  include DataMapper::Resource
+
+  belongs_to :repo, 'Repository', key: true
+
+  has n, :mirrors, constraint: :destroy
+end
+
+end; end; end

data/lib/packo/models/repository/binary/mirror.rb

@@ -0,0 +1,35 @@
+#--
+# 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 Repository; class Binary
+
+class Mirror
+  include DataMapper::Resource
+
+  property :id, Serial
+
+  belongs_to :binary
+
+  property :id, Serial
+
+  property :binary_id, Integer, unique_index: :a
+  property :uri,       URI,     unique_index: :a
+end
+
+end; end; end; end

data/lib/packo/models/repository/package.rb

@@ -0,0 +1,73 @@
+#--
+# 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/repository/package/binary'
+require 'packo/models/repository/package/source'
+require 'packo/models/repository/package/virtual'
+
+module Packo; module Models; class Repository
+
+class Package
+  include DataMapper::Resource
+
+  property :id, Serial
+
+  belongs_to :repo, 'Repository'
+  has n,     :tags, through: Resource, constraint: :destroy
+
+  property :repository_id, Integer,                                     unique_index: :a
+  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, unique_index: :a
+  property :slot,          String,  default: '',                     unique_index: :a
+  property :revision,      Integer, default: 0
+
+  property :description,  Text
+  property :homepage,     Text
+  property :license,      Text
+
+  property :maintainer, String
+
+  after :create do |package|
+    case package.repo.type
+      when :binary;  Binary.create(package: package)
+      when :source;  Source.create(package: package)
+      when :virtual; Virtual.create(package: package)
+    end
+  end
+
+  after :save do |package|
+    package.data.save if package.data
+  end
+
+  after :destroy do |package|
+    package.data.destroy! if package.data
+  end
+
+  def data
+    case repo.type
+      when :binary;  Binary.first_or_create(package: self)
+      when :source;  Source.first_or_create(package: self)
+      when :virtual; Virtual.first_or_create(package: self)
+    end
+  end
+end
+
+end; end; end

data/lib/packo/models/repository/package/binary.rb

@@ -0,0 +1,34 @@
+#--
+# 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/repository/package/binary/build'
+
+module Packo; module Models; class Repository; class Package
+
+class Binary
+  include DataMapper::Resource
+
+  belongs_to :package, key: true
+
+  property :features, Text, default: ''
+
+  has n, :builds, constraint: :destroy
+end
+
+end; end; end; end

data/lib/packo/models/repository/package/binary/build.rb

@@ -0,0 +1,36 @@
+#--
+# 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 Repository; class Package; class Binary
+
+class Build
+  include DataMapper::Resource
+
+  belongs_to :binary
+
+  property :id, Serial
+
+  property :binary_package_id, Integer,                 unique_index: :a
+  property :flavor,            Text,    default: '', unique_index: :a
+  property :features,          Text,    default: '', unique_index: :a
+
+  property :digest, Text, default: ''
+end
+
+end; end; end; end; end

data/lib/packo/models/repository/package/source.rb

@@ -0,0 +1,36 @@
+ #--
+# 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/repository/package/source/feature'
+require 'packo/models/repository/package/source/flavor'
+
+module Packo; module Models; class Repository; class Package
+
+class Source
+  include DataMapper::Resource
+
+  belongs_to :package, key: true
+
+  property :path, Text, default: ''
+
+  has n, :features, constraint: :destroy
+  has n, :flavor,   constraint: :destroy
+end
+
+end; end; end; end