packo 0.0.1.alpha.1

data/lib/packo/package/flavor.rb

@@ -0,0 +1,101 @@
+#--
+# 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 Flavor
+  def self.parse (text)
+    data = []
+
+    text.split(/\s+/).each {|part|
+      data << Feature.parse(part)
+    }
+
+    Flavor.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)
+    values = @values.map {|(name, value)|
+      next unless name != :binary && value.enabled?
+
+      name.to_s
+    }.compact
+
+    case type
+      when :normal;  values.join(' ')
+      when :package; values.join('.')
+    end
+  end
+end
+
+end; end

data/lib/packo/package/tags.rb

@@ -0,0 +1,60 @@
+#--
+# 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 'digest/sha1'
+
+require 'packo/package/tags/expression'
+
+module Packo; class Package
+
+class Tags < Array
+  def self.parse (value)
+    Tags.new(value.is_a?(Array) ? value : Tags.new(value.to_s.split(%r{/|\s+})))
+  end
+
+  def initialize (*tags)
+    tags.flatten.compact.each {|tag|
+      self << tag.to_s.strip.downcase
+    }
+
+    reject! {|tag|
+      tag.empty?
+    }
+  end
+
+  def == (tags)
+    self.to_a.sort == Tags.parse(tags).to_a.sort
+  end
+
+  def hashed
+    Digest::SHA1.hexdigest(self.sort.join('/'))
+  end
+
+  def hash
+    self.sort.join('/').hash
+  end
+
+  def to_s (minimized=false)
+    minimized ?
+      self.sort.map {|t| t[0]}.join :
+      self.join('/')
+  end
+end
+
+end; end

data/lib/packo/package/tags/expression.rb

@@ -0,0 +1,130 @@
+#--
+# 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/tags/expression/name'
+require 'packo/package/tags/expression/logic'
+require 'packo/package/tags/expression/group'
+
+require 'stringio'
+
+module Packo; class Package; class Tags < Array
+
+class Expression
+  def self.parse (text)
+    base  = Group.new
+    name  = nil
+    stack = [base]
+    logic = nil
+
+    text.to_s.each_char.to_a.each_with_index {|char, index|
+      begin
+        if char == ')' && stack.length == 1
+          raise SyntaxError.new('Closing an unopened parenthesis')
+        end
+
+        if char.match(/\s|\(|\)/) || (!logic && ['|', '&', '!'].member?(char))
+          if logic || (name && name.match(/(and|or|not)/i))
+            stack.last << Logic.new(logic || name)
+            logic       = nil
+            name        = nil
+          elsif name
+            stack.last << Name.new(name)
+            name        = nil
+          end
+        end
+
+        if name || logic
+          name  << char if name
+          logic << char if logic
+        else
+          case char
+            when '('; stack.push Group.new
+            when ')'; stack[-2] << stack.pop
+            when '|'; logic = '|'
+            when '&'; logic = '&'
+            when '!'; stack.last << Logic.new('!')
+            else;     name = char if !char.match(/\s/)
+          end
+        end
+      rescue SyntaxError => e
+        raise "#{e.message} near `#{text[index - 4, 8]}` at character #{index}"
+      end
+    }
+
+    if stack.length != 1
+      raise SyntaxError.new('Not all parenthesis are closed')
+    end
+
+    if logic
+      raise SyntaxError.new('The expression cannot end with a logic operator')
+    end
+
+    base << Name.new(name) if name
+
+    Expression.new(base)
+  end
+
+  attr_reader :base
+
+  def initialize (base=Group.new)
+    @base = base
+  end
+
+  def evaluate (package)
+    _evaluate(@base, package.is_a?(Array) ? package : package.tags.to_a)
+  end
+
+  private
+
+  def _evaluate (group, tags)
+    values = []
+
+    group.each {|thing|
+      case thing
+        when Logic; values << thing
+        when Group; values << _evaluate(thing, tags)
+        when Name;  values << tags.member?(thing)
+      end
+    }
+
+    at = 0
+    while at < values.length
+      if values[at].is_a?(Logic) && values[at].type == :not
+        values.delete_at(at)
+        values[at] = !values[at]
+      end
+
+      at += 1
+    end
+
+    while values.length > 1
+      if values.first.is_a?(Logic) && values.first.type == :not
+        values.shift
+        values.first = !values.first
+      else
+        a, logic, b = values.shift(3)
+        values.unshift(logic.evaluate(a, b))
+      end
+    end
+
+    return values.pop
+  end
+end
+
+end; end; end

data/lib/packo/package/tags/expression/group.rb

@@ -0,0 +1,28 @@
+#--
+# 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 Tags < Array; class Expression
+
+class Group < Array
+  def inspect
+    '(' + self.map {|e| e.inspect}.join(' ') + ')'
+  end
+end
+
+end; end; end; end

data/lib/packo/package/tags/expression/logic.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; class Package; class Tags < Array; class Expression
+
+class Logic
+  attr_reader :type
+
+  def initialize (what)
+    @type = case what
+      when '!',  /not/i then :not
+      when '&&', /and/i then :and
+      when '||', /or/i  then :or
+    end
+
+    raise SyntaxError.new('Invalid logical operator') unless @type
+  end
+
+  def evaluate (a, b=nil)
+    case @type
+      when :not; !a
+      when :and; !!(a && b)
+      when :or;  !!(a || b)
+    end
+  end
+
+  def inspect
+    self.type.to_s.upcase
+  end
+end
+
+end; end; end; end

data/lib/packo/package/tags/expression/name.rb

@@ -0,0 +1,28 @@
+#--
+# 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 Tags < Array; class Expression
+
+class Name < String
+  def inspect
+    self.to_s.downcase
+  end
+end
+
+end; end; end; end

data/lib/packo/profile.rb

@@ -0,0 +1,174 @@
+#--
+# 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 Profile
+  def self.path (path)
+    return unless File.directory?(path)
+
+    Profile.new(
+      config:   "#{path}/config",
+      tags:     "#{path}/tags",
+      packages: "#{path}/packages",
+      modules:  "#{path}/modules",
+      mask:     "#{path}/mask",
+      unmask:   "#{path}/unmask",
+    )
+  end
+
+  attr_reader :paths
+
+  def initialize (paths={})
+    @paths = paths
+
+    if !@paths.is_a?(Hash)
+      @paths = @paths.to_hash rescue {}
+    end
+
+    @paths.delete_if {|_, path|
+      !File.file?(path) || !File.readable?(path)
+    }
+
+    @paths.dup.each {|name, path|
+      @paths[name] = Pathname.new(path)
+    }
+  end
+
+  def method_missing (id, *args)
+    id = id.to_s.sub(/[=?]$/, '').to_sym
+
+    if args.length == 0
+      return @paths[id]
+    else
+      if respond_to? "#{id}="
+        send "#{id}=", *args
+      else
+        @paths[id] = Pathname.new(args.first)
+      end
+    end
+  end
+
+  def apply! (environment, package=nil)
+    mod = ::Module.new
+
+    begin
+      suppress_warnings {
+        mod.module_eval File.read(config)
+      } if File.readable?(config.to_s)
+    rescue Exception => e
+      Packo.debug e
+    end
+
+    if package
+      if File.directory?(modules.to_s)
+        Dir.glob("#{modules}/*").each {|script|
+          package.instance_exec(package, File.read(script)) if File.readable?(script)
+        }
+      end
+
+      if File.readable?(tags.to_s)
+        file   = File.read(tags)
+        tags   = {}
+        values = file.split(/^\s*\[.*?\]\s*$/); values.shift
+
+        file.scan(/^\s*\[(.*?)\]\s*$/).flatten.each_with_index {|name, index|
+          tags[name] = values[index]
+        }
+
+        tags.each {|expr, value|
+          next unless Packo::Package::Tags::Expression.parse(expr).evaluate(package) rescue false
+
+          begin
+            suppress_warnings {
+              mod.module_eval value
+            }
+          rescue Exception => e
+            Packo.debug e
+          end
+        }
+      end
+
+      if File.readable?(packages.to_s)
+        file     = File.read(packages)
+        packages = {}
+        values   = file.split(/^\s*\[.*?\]\s*$/); values.shift
+
+        file.scan(/^\s*\[(.*?)\]\s*$/).flatten.each_with_index {|name, index|
+          packages[name] = values[index]
+        }
+
+        packages.each {|name, value|
+          next unless Packo::Package::Dependency.parse(name).in?(package) rescue false
+
+          begin
+            suppress_warnings {
+              mod.module_eval value
+            }
+          rescue Exception => e
+            Packo.debug e
+          end
+        }
+      end
+
+      if File.readable?(mask.to_s)
+        File.read(mask).lines.each {|line|
+          line.strip!
+
+          if line.start_with?('[') && line.end_with?(']')
+            if Packo::Package::Tags::Expression.parse(line[1, line.length - 2]).evaluate(package)
+              package.mask!
+            end
+          else
+            if Packo::Package::Dependency.parse(line).in?(package)
+              package.mask!
+            end
+          end
+        }
+      end
+
+      if File.readable?(unmask.to_s)
+        File.read(unmask).lines.each {|line|
+          line.strip!
+
+          if line.start_with?('[') && line.end_with?(']')
+            if Packo::Package::Tags::Expression.parse(line[1, line.length - 2]).evaluate(package)
+              package.unmask!
+            end
+          else
+            if Packo::Package::Dependency.parse(line).in?(package)
+              package.unmask!
+            end
+          end
+        }
+      end
+
+    end
+
+    mod.constants.each {|const|
+      environment[const] = mod.const_get const
+    }
+  end
+
+  def hash
+    @paths.hash
+  end
+end
+
+end