alf 0.9.2 → 0.9.3

data/lib/alf/loader.rb

@@ -1 +1,2 @@
-require "quickl"
+require "quickl"
+require "myrrha"

data/lib/alf/text.rb

@@ -0,0 +1,160 @@
+module Alf
+  module Text
+
+    #
+    # Implements Alf::Renderer for outputting beautiful text tables.
+    #
+    class Renderer < ::Alf::Renderer
+  
+      module Utils
+  
+        def looks_a_relation?(value)
+          value.is_a?(Alf::Iterator) or
+            (value.is_a?(Array) && !value.empty? && value.all?{|v| v.is_a?(Hash)})
+        end
+  
+        def max(x, y)
+          return y if x.nil?
+          return x if y.nil?
+          x > y ? x : y
+        end
+  
+      end
+      include Utils
+  
+      class Cell
+        include Utils
+  
+        def initialize(value)
+          @value = value
+        end
+  
+        def min_width
+          @min_width ||= rendering_lines.inject(0) do |maxl,line|
+            max(maxl,line.size)
+          end
+        end
+  
+        def rendering_lines(size = nil)
+          if size.nil?
+            text_rendering.split(/\n/)
+          elsif @value.is_a?(Numeric)
+            rendering_lines(nil).collect{|l| "%#{size}s" % l}
+          else
+            rendering_lines(nil).collect{|l| "%-#{size}s" % l}
+          end
+        end
+  
+        def text_rendering
+          @text_rendering ||= case (value = @value)
+            when NilClass
+              "[nil]"
+            when Symbol
+              value.inspect
+            when Float
+              "%.7f" % value
+            when Hash
+              value.inspect
+            when Alf::Iterator
+              Text::Renderer.render(value, "")
+            when Array
+              array_rendering(value)
+            else
+              value.to_s
+          end
+        end
+        
+        def array_rendering(value)
+          if looks_a_relation?(value) 
+            Text.render(value, "")
+          elsif value.empty?
+            "[]"
+          else
+            values = value.collect{|x| Cell.new(x).text_rendering}
+            if values.inject(0){|memo,s| memo + s.size} < 20
+              "[" + values.join(", ") + "]"
+            else
+              "[" + values.join(",\n ") + "]"
+            end 
+          end
+        end
+  
+      end # class Cell
+  
+      class Row
+        include Utils        
+  
+        def initialize(values)
+          @cells = values.collect{|v| Cell.new(v)}
+        end
+  
+        def min_widths
+          @cells.collect{|cell| cell.min_width}
+        end
+  
+        def rendering_lines(sizes = min_widths)
+          nb_lines = 0
+          by_cell = @cells.zip(sizes).collect do |cell,size|
+            lines = cell.rendering_lines(size)
+            nb_lines = max(nb_lines, lines.size)
+            lines
+          end
+          grid = (0...nb_lines).collect do |line_i|
+            "| " + by_cell.zip(sizes).collect{|cell_lines, size|
+              cell_lines[line_i] || " "*size
+            }.join(" | ") + " |"
+          end
+          grid.empty? ? ["|  |"] : grid
+        end
+  
+      end # class Row
+  
+      class Table
+        include Utils
+  
+        def initialize(records, attributes)
+          @header = Row.new(attributes)
+          @rows = records.collect{|r| Row.new(r)}
+        end
+  
+        def render(buffer = "")
+          sizes = @rows.inject(@header.min_widths) do |memo,row|
+            memo.zip(row.min_widths).collect{|x,y| max(x,y)}
+          end
+          sep = '+-' << sizes.collect{|s| '-' * s}.join('-+-') << '-+'
+          buffer << sep << "\n"
+          buffer << @header.rendering_lines(sizes).first << "\n"
+          buffer << sep << "\n"
+          @rows.each do |row|
+            row.rendering_lines(sizes).each do |line|
+              buffer << line << "\n"
+            end
+          end
+          buffer << sep << "\n"
+          buffer
+        end
+  
+      end # class Table
+  
+      protected
+      
+      def render(input, output)
+        relation = input.to_a
+        attrs = relation.inject([]){|memo,t| 
+          memo | t.keys
+        }
+        records = relation.collect{|t|
+          attrs.collect{|a| t[a]}
+        }
+        Table.new(records, attrs).render(output)
+      end
+      
+      def self.render(input, output)
+        new(input).execute(output)
+      end
+      
+      ::Alf::Renderer.register(:text, "as a text table",  self)
+    end # class Renderer
+    
+  end # module Text
+end # module Alf

data/lib/alf/version.rb

@@ -3,7 +3,7 @@ module Alf
   
     MAJOR = 0
     MINOR = 9
-    TINY  = 2
+    TINY  = 3
   
     def self.to_s
       [ MAJOR, MINOR, TINY ].join('.')

data/lib/alf/yaml.rb

@@ -0,0 +1,24 @@
+module Alf
+  module YAML
+
+    #
+    # Implements Alf::Renderer contract for outputing YAML files.
+    #
+    class Renderer < ::Alf::Renderer
+      
+      protected 
+      
+      # (see Alf::Renderer#render)
+      def render(input, output)
+         require "yaml"
+        # TODO: refactor this to avoid loading all tuples
+        # in memory
+        output << input.to_a.to_yaml << "\n"
+        output
+      end
+  
+      ::Alf::Renderer.register(:yaml, "as a yaml output",  self)
+    end # class Renderer
+    
+  end # module YAML
+end # module Alf

data/spec/integration/__database__/group.alf

@@ -0,0 +1,3 @@
+#!/usr/bin/env alf
+(group :supplies, [:pid, :qty], :supplying)
+(group :supplies, [:sid], :supplying, true)

data/spec/integration/__database__/parts.rash

@@ -0,0 +1,6 @@
+{:pid => 'P1', :name => 'Nut',   :color => 'Red',   :weight => 12.0, :city => 'London'}
+{:pid => 'P2', :name => 'Bolt',  :color => 'Green', :weight => 17.0, :city => 'Paris'}
+{:pid => 'P3', :name => 'Screw', :color => 'Blue',  :weight => 17.0, :city => 'Oslo'}
+{:pid => 'P4', :name => 'Screw', :color => 'Red',   :weight => 14.0, :city => 'London'}
+{:pid => 'P5', :name => 'Cam',   :color => 'Blue',  :weight => 12.0, :city => 'Paris'}
+{:pid => 'P6', :name => 'Cog',   :color => 'Red',   :weight => 19.0, :city => 'London'}

data/spec/integration/__database__/suppliers.rash

@@ -0,0 +1,5 @@
+{:sid => 'S1', :name => 'Smith', :status => 20, :city => 'London'}
+{:sid => 'S2', :name => 'Jones', :status => 10, :city => 'Paris'}
+{:sid => 'S3', :name => 'Blake', :status => 30, :city => 'Paris'}
+{:sid => 'S4', :name => 'Clark', :status => 20, :city => 'London'}
+{:sid => 'S5', :name => 'Adams', :status => 30, :city => 'Athens'}

data/spec/integration/__database__/supplies.rash

@@ -0,0 +1,12 @@
+{:sid => 'S1', :pid => 'P1', :qty => 300}
+{:sid => 'S1', :pid => 'P2', :qty => 200}
+{:sid => 'S1', :pid => 'P3', :qty => 400}
+{:sid => 'S1', :pid => 'P4', :qty => 200}
+{:sid => 'S1', :pid => 'P5', :qty => 100}
+{:sid => 'S1', :pid => 'P6', :qty => 100}
+{:sid => 'S2', :pid => 'P1', :qty => 300}
+{:sid => 'S2', :pid => 'P2', :qty => 400}
+{:sid => 'S3', :pid => 'P2', :qty => 200}
+{:sid => 'S4', :pid => 'P2', :qty => 200}
+{:sid => 'S4', :pid => 'P4', :qty => 300}
+{:sid => 'S4', :pid => 'P5', :qty => 400}

data/spec/integration/command/alf/alf_e.cmd

@@ -0,0 +1 @@
+alf -e "(restrict :suppliers, lambda{ status > 10})"

data/spec/integration/command/alf/alf_e.stdout

@@ -0,0 +1,4 @@
+{:sid => "S1", :name => "Smith", :status => 20, :city => "London"}
+{:sid => "S3", :name => "Blake", :status => 30, :city => "Paris"}
+{:sid => "S4", :name => "Clark", :status => 20, :city => "London"}
+{:sid => "S5", :name => "Adams", :status => 30, :city => "Athens"}

data/spec/integration/command/alf/alf_env.cmd

@@ -0,0 +1 @@
+alf --env=$(_("command/alf",__FILE__)) show rel

data/spec/integration/command/alf/alf_env.stdout

@@ -0,0 +1,5 @@
++--------+
+| :hello |
++--------+
+| world  |
++--------+

data/spec/integration/command/alf/alf_implicit.alf

@@ -0,0 +1 @@
+(restrict :suppliers, lambda{ status > 10 })

data/spec/integration/command/alf/alf_implicit_exec.cmd

@@ -0,0 +1 @@
+alf $(_("command/alf/alf_implicit.alf",__FILE__))

data/spec/integration/command/alf/alf_implicit_exec.stdout

@@ -0,0 +1,4 @@
+{:sid => "S1", :name => "Smith", :status => 20, :city => "London"}
+{:sid => "S3", :name => "Blake", :status => 30, :city => "Paris"}
+{:sid => "S4", :name => "Clark", :status => 20, :city => "London"}
+{:sid => "S5", :name => "Adams", :status => 30, :city => "Athens"}

data/spec/integration/command/alf/alf_r.cmd

@@ -0,0 +1 @@
+alf -ruri extend suppliers -- uri "URI::parse(name).to_s"

data/spec/integration/command/alf/alf_r.stdout

@@ -0,0 +1,5 @@
+{:sid => "S1", :name => "Smith", :status => 20, :city => "London", :uri => "Smith"}
+{:sid => "S2", :name => "Jones", :status => 10, :city => "Paris", :uri => "Jones"}
+{:sid => "S3", :name => "Blake", :status => 30, :city => "Paris", :uri => "Blake"}
+{:sid => "S4", :name => "Clark", :status => 20, :city => "London", :uri => "Clark"}
+{:sid => "S5", :name => "Adams", :status => 30, :city => "Athens", :uri => "Adams"}

data/spec/integration/command/alf/alf_version.cmd

@@ -0,0 +1 @@
+alf --version

data/spec/integration/command/alf/alf_version.stdout

@@ -0,0 +1,2 @@
+alf $(Alf::VERSION) (c) 2011, Bernard Lambeau
+SystemExit

data/spec/integration/command/alf/alf_yaml.cmd

@@ -0,0 +1 @@
+alf --yaml show suppliers

data/spec/integration/command/alf/alf_yaml.stdout

@@ -0,0 +1,22 @@
+---
+- :sid: S1
+  :name: Smith
+  :status: 20
+  :city: London
+- :sid: S2
+  :name: Jones
+  :status: 10
+  :city: Paris
+- :sid: S3
+  :name: Blake
+  :status: 30
+  :city: Paris
+- :sid: S4
+  :name: Clark
+  :status: 20
+  :city: London
+- :sid: S5
+  :name: Adams
+  :status: 30
+  :city: Athens
+

data/spec/integration/command/alf/rel.rash

@@ -0,0 +1 @@
+{:hello => "world"}

data/spec/integration/command/autonum/autonum_0.cmd

@@ -0,0 +1 @@
+alf --text autonum           suppliers

data/spec/integration/command/autonum/autonum_0.stdout

@@ -0,0 +1,9 @@
++------+-------+---------+--------+----------+
+| :sid | :name | :status | :city  | :autonum |
++------+-------+---------+--------+----------+
+| S1   | Smith |      20 | London |        0 |
+| S2   | Jones |      10 | Paris  |        1 |
+| S3   | Blake |      30 | Paris  |        2 |
+| S4   | Clark |      20 | London |        3 |
+| S5   | Adams |      30 | Athens |        4 |
++------+-------+---------+--------+----------+

data/spec/integration/command/autonum/autonum_1.cmd

@@ -0,0 +1 @@
+alf --text autonum           suppliers -- unique_id

data/spec/integration/command/autonum/autonum_1.stdout

@@ -0,0 +1,9 @@
++------+-------+---------+--------+------------+
+| :sid | :name | :status | :city  | :unique_id |
++------+-------+---------+--------+------------+
+| S1   | Smith |      20 | London |          0 |
+| S2   | Jones |      10 | Paris  |          1 |
+| S3   | Blake |      30 | Paris  |          2 |
+| S4   | Clark |      20 | London |          3 |
+| S5   | Adams |      30 | Athens |          4 |
++------+-------+---------+--------+------------+

data/spec/integration/command/clip/clip_0.cmd

@@ -0,0 +1 @@
+alf --text clip              suppliers -- name city

data/spec/integration/command/clip/clip_0.stdout

@@ -0,0 +1,9 @@
++-------+--------+
+| :name | :city  |
++-------+--------+
+| Smith | London |
+| Jones | Paris  |
+| Blake | Paris  |
+| Clark | London |
+| Adams | Athens |
++-------+--------+

data/spec/integration/command/clip/clip_1.cmd

@@ -0,0 +1 @@
+alf --text clip              suppliers --allbut -- name city

data/spec/integration/command/clip/clip_1.stdout

@@ -0,0 +1,9 @@
++------+---------+
+| :sid | :status |
++------+---------+
+| S1   |      20 |
+| S2   |      10 |
+| S3   |      30 |
+| S4   |      20 |
+| S5   |      30 |
++------+---------+

data/spec/integration/command/compact/compact_0.cmd

@@ -0,0 +1 @@
+alf --text compact           suppliers

data/spec/integration/command/compact/compact_0.stdout

@@ -0,0 +1,9 @@
++------+-------+---------+--------+
+| :sid | :name | :status | :city  |
++------+-------+---------+--------+
+| S1   | Smith |      20 | London |
+| S2   | Jones |      10 | Paris  |
+| S3   | Blake |      30 | Paris  |
+| S4   | Clark |      20 | London |
+| S5   | Adams |      30 | Athens |
++------+-------+---------+--------+

data/spec/integration/command/defaults/defaults_0.cmd

@@ -0,0 +1 @@
+alf --text defaults          suppliers -- country "'Belgium'"

data/spec/integration/command/defaults/defaults_0.stdout

@@ -0,0 +1,9 @@
++----------+------+-------+---------+--------+
+| :country | :sid | :name | :status | :city  |
++----------+------+-------+---------+--------+
+| Belgium  | S1   | Smith |      20 | London |
+| Belgium  | S2   | Jones |      10 | Paris  |
+| Belgium  | S3   | Blake |      30 | Paris  |
+| Belgium  | S4   | Clark |      20 | London |
+| Belgium  | S5   | Adams |      30 | Athens |
++----------+------+-------+---------+--------+

data/spec/integration/command/defaults/defaults_1.cmd

@@ -0,0 +1 @@
+alf --text defaults --strict suppliers -- country "'Belgium'"

data/spec/integration/command/defaults/defaults_1.stdout

@@ -0,0 +1,9 @@
++----------+
+| :country |
++----------+
+| Belgium  |
+| Belgium  |
+| Belgium  |
+| Belgium  |
+| Belgium  |
++----------+

data/spec/integration/command/extend/extend_0.cmd

@@ -0,0 +1 @@
+alf --text extend supplies -- sp "sid + '/' + pid" big "qty > 100 ? true : false"

data/spec/integration/command/extend/extend_0.stdout

@@ -0,0 +1,16 @@
++------+------+------+-------+-------+
+| :sid | :pid | :qty | :sp   | :big  |
++------+------+------+-------+-------+
+| S1   | P1   |  300 | S1/P1 | true  |
+| S1   | P2   |  200 | S1/P2 | true  |
+| S1   | P3   |  400 | S1/P3 | true  |
+| S1   | P4   |  200 | S1/P4 | true  |
+| S1   | P5   |  100 | S1/P5 | false |
+| S1   | P6   |  100 | S1/P6 | false |
+| S2   | P1   |  300 | S2/P1 | true  |
+| S2   | P2   |  400 | S2/P2 | true  |
+| S3   | P2   |  200 | S3/P2 | true  |
+| S4   | P2   |  200 | S4/P2 | true  |
+| S4   | P4   |  300 | S4/P4 | true  |
+| S4   | P5   |  400 | S4/P5 | true  |
++------+------+------+-------+-------+

data/spec/integration/command/group/group_0.cmd

@@ -0,0 +1 @@
+alf --text group             supplies  -- pid qty supplying