alf-shell 0.14.0 → 0.15.0

data/lib/alf/shell/from_argv.rb

@@ -1,84 +0,0 @@
-module Alf
-  module Shell
-
-    FROM_ARGV = Myrrha.coercions do |c|
-
-      # ARGV -> Boolean
-      c.coercion(Array, Boolean){|argv,_|
-        throw :next_rule if argv.size > 1
-        Alf::Support.coerce(argv.first || false, Boolean)
-      }
-
-      # ARGV -> Size
-      c.coercion(Array, Size){|argv,_|
-        throw :next_rule if argv.size > 1
-        Size.new(Integer(argv.first || 0))
-      }
-
-      # ARGV -> Integer
-      c.coercion(Array, Integer){|argv,_|
-        throw :next_rule if argv.size > 1
-        Integer(argv.first || 0)
-      }
-
-      # ARGV -> AttrName
-      c.coercion(Array, AttrName){|argv,_|
-        throw :next_rule if argv.size > 1
-        AttrName.coerce(argv.first)
-      }
-
-      # ARGV -> AttrList
-      c.coercion(Array, AttrList){|argv,_|
-        AttrList.coerce(argv)
-      }
-
-      # ARGV -> Heading
-      c.coercion(Array, Heading){|argv,_|
-        Heading.coerce(argv)
-      }
-
-      # ARGV -> Ordering
-      c.coercion(Array, Ordering){|argv,_|
-        Ordering.coerce(argv)
-      }
-
-      # ARGV -> Renaming
-      c.coercion(Array, Renaming){|argv,_|
-        Renaming.coerce(argv)
-      }
-
-      # ARGV -> Summarization
-      c.coercion(Array, Summarization){|argv,_|
-        Summarization.coerce(argv)
-      }
-
-      # ARGV -> TupleComputation
-      c.coercion(Array, TupleComputation){|argv,_|
-        TupleComputation.coerce(argv)
-      }
-
-      # ARGV -> TupleExpression
-      c.coercion(Array, TupleExpression){|argv,_|
-        throw :next_rule if argv.size != 1
-        TupleExpression.coerce(argv.first)
-      }
-
-      # ARGV -> Predicate
-      c.coercion(Array, Predicate){|argv,_|
-        if argv.size == 1
-          Predicate.coerce(argv.first)
-        elsif (argv.size % 2) == 0
-          Predicate.coerce(Hash[argv.each_slice(2).map{|k,v| [k.to_sym, eval(v)] }])
-        else
-          throw :next_rule
-        end
-      }
-
-    end
-
-    def self.from_argv(argv, target_domain)
-      FROM_ARGV.coerce(argv, target_domain)
-    end
-
-  end # module Shell
-end # module Alf

data/lib/alf/shell/operator.rb

@@ -1,63 +0,0 @@
-require 'forwardable'
-module Alf
-  module Shell
-    module Operator
-
-      module ClassMethods
-        extend Forwardable
-
-        attr_accessor  :operator_class
-        def_delegators :operator_class, :signature,
-                                        :relational?,
-                                        :non_relational?,
-                                        :experimental?,
-                                        :nullary?,
-                                        :unary?,
-                                        :binary?
-
-        def command?
-          false
-        end
-
-        def operator?
-          true
-        end
-      end
-
-      module InstanceMethods
-        extend Forwardable
-
-        def_delegators :"self.class", :signature, :operator_class
-
-        def run(argv, req = nil)
-          @requester = req
-          compile(argv)
-        end
-
-        def compile(argv)
-          operands, args, options = signature.argv2args(argv)
-          operands  = operands(operands, operator_class.arity)
-          init_args = [operands] + args + [options]
-          operator_class.new(*init_args)
-        end
-
-      end # module InstanceMethods
-
-
-      # Defines a command for `clazz`
-      def self.define_operator(op_name, op_class)
-        superclass = Shell::Operator() do |b|
-          b.callback do |cmd|
-            cmd.operator_class = op_class
-          end
-        end
-        Operator.const_set(::Alf::Support.class_name(op_class), Class.new(superclass))
-      end
-
-      Algebra::Operator.listen do |op_name, op_class|
-        define_operator(op_name, op_class)
-      end
-
-    end # module Operator
-  end # module Shell
-end # module Alf

data/spec/integration/__database__/group.alf

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

data/spec/integration/alf/alf_e.cmd

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

data/spec/integration/alf/alf_e.stdout

@@ -1,4 +0,0 @@
-{: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/alf/alf_help.cmd

@@ -1 +0,0 @@
-alf --help

data/spec/integration/alf/alf_help.stdout

@@ -1,76 +0,0 @@
-
-alf - Relational algebra at your fingertips
-
-SYNOPSIS
-
-    alf [--version] [--help]
-    alf -e '(lispy command)'
-    alf [FILE.alf]
-    alf [alf opts] OPERATOR [operator opts] ARGS ...
-    alf help OPERATOR
-
-OPTIONS
-
-    -e, --execute                    Execute one line of script (Lispy API)
-    --rash                       Render output as ruby hashes
-    --text                       Render output as a text table
-    --yaml                       Render output in YAML
-    --json                       Render output in JSON
-    --csv                        Render output in CSV
-    --examples                   Use the example database for database
-    --db=DB                      Set the database to use
-    --input-reader=READER        Specify the kind of reader when reading on $stdin (rash,csv,json,ruby)
-    -Idirectory                      Specify $LOAD_PATH directory (may be used more than once)
-    -rlibrary                        Require the library, before executing alf
-    --ff=FORMAT                  Specify the floating point format
-    --[no-]pretty                Enable/disable pretty print best effort
-    -h, --help                       Show help
-    -v, --version                    Show version
-
-RELATIONAL OPERATORS
-
-    extend           Relational extension (additional, computed attributes)
-    frame            Relational framing (aka offset/limit, yet sounder)
-    group            Relational grouping (relation-valued attributes)
-    intersect        Relational intersection (aka a logical and)
-    join             Relational join (and cartesian product)
-    matching         Relational matching (join + project back on left)
-    minus            Relational minus (aka difference)
-    not-matching     Relational not matching (inverse of matching)
-    page             Relational pagination (like frame, but easier)
-    project          Relational projection (clip + compact)
-    rank             Relational ranking (explicit tuple positions)
-    rename           Relational renaming (rename some attributes)
-    restrict         Relational restriction (aka where, predicate filtering)
-    summarize        Relational summarization (group-by + aggregate ops)
-    ungroup          Relational un-grouping (inverse of group)
-    union            Relational union
-    unwrap           Relational un-wrapping (inverse of wrap)
-    wrap             Relational wrapping (tuple-valued attributes)
-
-EXPERIMENTAL RELATIONAL OPERATORS
-
-    hierarchize       Relational hierarchy (recursive relation-trees)
-    infer-heading     Relational heading inference (print the relation type)
-    quota             Generalized quota-queries (position, sum progression, etc.)
-
-NON-RELATIONAL OPERATORS
-
-    autonum       Extend its operand with an unique autonumber attribute
-    clip          Clip input tuples to a subset of attributes
-    coerce        Force attribute coercion according to a heading
-    compact       Remove tuple duplicates
-    defaults      Force default values on missing/nil attributes
-    generator     Generate a relation with an auto-numbered attribute
-    sort          Sort input tuples according to an order relation
-    type-safe     Check that input tuples are of a specified heading
-
-OTHER NON-RELATIONAL COMMANDS
-
-    exec     Executes an .alf file on current database
-    help     Show help about a specific command
-    show     Output input tuples through the default renderer in a specific order.
-
-See 'alf help COMMAND' for details about a specific command.
-
-SystemExit

data/spec/integration/alf/alf_r.cmd

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

data/spec/integration/alf/alf_r.stdout

@@ -1,5 +0,0 @@
-{: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/autonum/autonum_0.cmd

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

data/spec/integration/autonum/autonum_0.stdout

@@ -1,9 +0,0 @@
-+------+-------+---------+--------+----------+
-| :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/autonum/autonum_1.cmd

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

data/spec/integration/autonum/autonum_1.stdout

@@ -1,9 +0,0 @@
-+------+-------+---------+--------+------------+
-| :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/clip/clip_0.cmd

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

data/spec/integration/clip/clip_0.stdout

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

data/spec/integration/clip/clip_1.cmd

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

data/spec/integration/clip/clip_1.stdout

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

data/spec/integration/coerce/coerce_1.cmd

@@ -1 +0,0 @@
-alf coerce suppliers -- sid Symbol status Integer

data/spec/integration/coerce/coerce_1.stdout

@@ -1,5 +0,0 @@
-{: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/compact/compact_0.cmd

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

data/spec/integration/compact/compact_0.stdout

@@ -1,9 +0,0 @@
-+------+-------+---------+--------+
-| :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/defaults/defaults_0.cmd

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

data/spec/integration/defaults/defaults_0.stdout

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

data/spec/integration/defaults/defaults_1.cmd

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

data/spec/integration/defaults/defaults_1.stdout

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

data/spec/integration/defaults/defaults_2.cmd

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

data/spec/integration/defaults/defaults_2.stdout

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

data/spec/integration/extend/extend_0.cmd

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

data/spec/integration/extend/extend_0.stdout

@@ -1,16 +0,0 @@
-+------+------+------+-------+-------+
-| :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/frame/frame_0.cmd

@@ -1 +0,0 @@
-alf --text frame suppliers -- name -- 1 -- 2

data/spec/integration/frame/frame_0.stdout

@@ -1,6 +0,0 @@
-+------+-------+---------+--------+
-| :sid | :name | :status | :city  |
-+------+-------+---------+--------+
-| S3   | Blake |      30 | Paris  |
-| S4   | Clark |      20 | London |
-+------+-------+---------+--------+

data/spec/integration/generator/generator_1.cmd

@@ -1 +0,0 @@
-alf generator

data/spec/integration/generator/generator_1.stdout

@@ -1,10 +0,0 @@
-{:num => 1}
-{:num => 2}
-{:num => 3}
-{:num => 4}
-{:num => 5}
-{:num => 6}
-{:num => 7}
-{:num => 8}
-{:num => 9}
-{:num => 10}

data/spec/integration/generator/generator_2.cmd

@@ -1 +0,0 @@
-alf generator -- 5

data/spec/integration/generator/generator_2.stdout

@@ -1,5 +0,0 @@
-{:num => 1}
-{:num => 2}
-{:num => 3}
-{:num => 4}
-{:num => 5}

data/spec/integration/generator/generator_3.cmd

@@ -1 +0,0 @@
-alf generator -- 5 -- id

data/spec/integration/generator/generator_3.stdout

@@ -1,5 +0,0 @@
-{:id => 1}
-{:id => 2}
-{:id => 3}
-{:id => 4}
-{:id => 5}

data/spec/integration/group/group_0.cmd

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

data/spec/integration/group/group_1.cmd

@@ -1 +0,0 @@
-alf --text group --allbut supplies -- sid -- supplying