packo 0.0.1.alpha.1

data/lib/packo/package/blocker.rb

@@ -0,0 +1,100 @@
+#--
+# 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; class Package
+
+class Blocker < Package
+  def self.parse (text)
+    text = text.dup
+
+    if text.end_with? '!!'
+      text[-2, 2] = ''
+      type = :runtime
+    elsif text.end_with? '!'
+      text[-1] = ''
+      type = :build
+    else
+      type = :both
+    end
+
+    if matches = text.match(/^([<>~]?=?)/)
+      validity = ((matches[1] && !matches[1].empty?) ? matches[1] : nil)
+      text.sub!(/^([<>~]?=?)/, '')
+    else
+      validity = nil
+    end
+
+    parsed = Packo::Package.parse(text)
+
+    self.new(parsed.to_hash, validity, type)
+  end
+
+  attr_reader :type, :validity
+
+  def initialize (data, validity=nil, type=nil)
+    super(data)
+
+    @validity = validity
+    @type     = type
+  end
+
+  def runtime?; [:runtime, :both].member?(@type) end
+  def build?;   [:build,   :both].member?(@type) end
+  def both?;    @type == :both                   end
+
+  def in? (package)
+    return false if package.name != name || package.tags != tags
+
+    return true if !version
+
+    case validity
+      when '~', '~=' then !!package.version.to_s.match(/^#{Regexp.escape(version.to_s)}/)
+      when '>'       then package.version >  version
+      when '>='      then package.version >= version
+      when '<'       then package.version <  version
+      when '<='      then package.version <= version
+      else                package.version == version
+    end
+  end
+
+  def to_s (type=:normal)
+    case type
+      when :short
+        "#{tags}/#{name}#{"-#{version}" if version}"
+
+      else
+        features = features.to_a.sort {|a, b|
+          if a.enabled? && b.enabled?     ;  0
+          elsif a.enabled? && !b.enabled? ; -1
+          else                            ;  1
+          end
+        }.map {|feature|
+          (feature.enabled? ? '' : '-') + feature.name.to_s
+        }.join(',')
+
+        flavor = flavor.to_a.map {|f|
+          f.name.to_s
+        }.sort
+
+        "#{validity}#{tags}/#{name}#{"-#{version}" if version}#{"[#{features}]" if !features.empty?}#{"{#{flavor}}" if !flavor.empty?}"
+    end
+  end
+end
+
+end; end

data/lib/packo/package/blockers.rb

@@ -0,0 +1,40 @@
+#--
+# 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/package/blocker'
+
+module Packo; class Package
+
+class Blockers < Array
+  attr_reader :package
+
+  def initialize (package)
+    @package = package
+  end
+
+  def push (blocker)
+    super(blocker.is_a?(Blocker) ? blocker : Blocker.parse(blocker))
+    self.compact!
+    self
+  end
+
+  alias << push
+end
+
+end; end

data/lib/packo/package/dependencies.rb

@@ -0,0 +1,40 @@
+#--
+# 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/package/dependency'
+
+module Packo; class Package
+
+class Dependencies < Array
+  attr_reader :package
+
+  def initialize (package)
+    @package = package
+  end
+
+  def push (dependency)
+    super(dependency.is_a?(Dependency) ? dependency : Dependency.parse(dependency))
+    self.compact!
+    self
+  end
+
+  alias << push
+end
+
+end; end

data/lib/packo/package/dependency.rb

@@ -0,0 +1,100 @@
+#--
+# 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; class Package
+
+class Dependency < Package
+  def self.parse (text)
+    text = text.dup
+
+    if text.end_with? '!!'
+      text[-2, 2] = ''
+      type = :runtime
+    elsif text.end_with? '!'
+      text[-1] = ''
+      type = :build
+    else
+      type = :both
+    end
+
+    if matches = text.match(/^([<>~]?=?)/)
+      validity = ((matches[1] && !matches[1].empty?) ? matches[1] : nil)
+      text.sub!(/^([<>~]?=?)/, '')
+    else
+      validity = nil
+    end
+
+    parsed = Packo::Package.parse(text)
+
+    self.new(parsed.to_hash, validity, type)
+  end
+
+  attr_reader :type, :validity
+
+  def initialize (data, validity=nil, type=nil)
+    super(data)
+
+    @validity = validity
+    @type     = type
+  end
+
+  def runtime?; [:runtime, :both].member?(@type) end
+  def build?;   [:build,   :both].member?(@type) end
+  def both?;    @type == :both                   end
+
+  def in? (package)
+    return false if package.name != name || package.tags != tags
+
+    return true if !version
+
+    case validity
+      when '~', '~=' then !!package.version.to_s.match(/^#{Regexp.escape(version.to_s)}/)
+      when '>'       then package.version >  version
+      when '>='      then package.version >= version
+      when '<'       then package.version <  version
+      when '<='      then package.version <= version
+      else                package.version == version
+    end
+  end
+
+  def to_s (type=:normal)
+    case type
+      when :short
+        "#{tags}/#{name}#{"-#{version}" if version}"
+
+      else
+        features = features.to_a.sort {|a, b|
+          if a.enabled? && b.enabled?     ;  0
+          elsif a.enabled? && !b.enabled? ; -1
+          else                            ;  1
+          end
+        }.map {|feature|
+          (feature.enabled? ? '' : '-') + feature.name.to_s
+        }.join(',')
+
+        flavor = flavor.to_a.map {|f|
+          f.name.to_s
+        }.sort
+
+        "#{validity}#{tags}/#{name}#{"-#{version}" if version}#{"[#{features}]" if !features.empty?}#{"{#{flavor}}" if !flavor.empty?}"
+    end
+  end
+end
+
+end; end

data/lib/packo/package/feature.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/>.
+#++
+
+module Packo; class Package
+
+class Feature
+  def self.parse (text)
+    Feature.new(text.match(/^[\+\-]?(.*)$/)[1], !text.start_with?('-'))
+  end
+
+  attr_reader :name
+
+  def initialize (name, enabled=false, description=nil)
+    @name        = name.to_sym
+    @enabled     = !!enabled
+    @description = description
+  end
+
+  def enabled?;   @enabled                        end
+  def disabled?; !@enabled                        end
+  def enabled!;   @enabled = true  unless @forced end
+  def disabled!;  @enabled = false unless @forced end
+  def enable!;    @enabled = true  unless @forced end
+  def disable!;   @enabled = false unless @forced end
+
+  def forced?;     @forced         end
+  def force!;      @forced = true  end
+  def not_forced!; @forced = false end
+
+  def description (value=nil)
+    value ? @description = value : @description
+  end
+
+  def to_s
+    name.to_s
+  end
+end
+
+end; end

data/lib/packo/package/features.rb

@@ -0,0 +1,105 @@
+#--
+# 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/package/feature'
+
+module Packo; class Package
+
+class Features
+  def self.parse (text)
+    data = []
+
+    text.split(/\s+/).each {|part|
+      data << Feature.parse(part)
+    }
+
+    Features.new(data)
+  end
+
+  def initialize (values={})
+    @values = {}
+
+    if values.is_a?(Array)
+      values.dup.each {|feature|
+        @values[feature.name] = feature
+      }
+    elsif values.is_a?(Hash)
+      values.dup.each {|name, value|
+        @values[name.to_sym] = Feature.new(name, value || false)
+      }
+    end
+  end
+
+  def each
+    @values.dup.each_value {|feature|
+      yield feature
+    }
+  end
+
+  def empty?
+    @values.empty?
+  end
+
+  def set (name, value)
+    @values[name.to_sym] = Feature.new(name, value)
+  end
+
+  def get (name)
+    @values[name.to_sym] ||= Feature.new(name, false)
+  end
+
+  def delete (name)
+    @values.delete(name.to_sym)
+  end
+
+  def has? (name)
+    @values.key? name.to_sym
+  end
+
+  def to_hash
+    Hash[*@values.map {|(name, element)|
+      [name, element.value]
+    }]
+  end
+
+  def to_a
+    @values.map {|(name, element)|
+      element
+    }
+  end
+
+  def to_s (type=:normal)
+    case type
+      when :package
+        @values.select {|name, feature| feature.enabled?}.map {|item| item[0]}.join('-')
+
+      when :normal
+        self.to_a.sort {|a, b|
+          if a.enabled? && b.enabled?     ;  0
+          elsif a.enabled? && !b.enabled? ; -1
+          else                            ;  1
+          end
+        }.map {|feature|
+          (feature.enabled? ? '' : '-') + feature.name.to_s
+        }.join(' ')
+    end
+  end
+end
+
+end; end