bmg 0.9.1 → 0.10.0

data/lib/bmg/sql/ext/predicate/lte.rb

@@ -0,0 +1,9 @@
+class Predicate
+  module Lte
+
+    def to_sql_operator
+      Sql::Expr::LESS_OR_EQUAL
+    end
+
+  end
+end

data/lib/bmg/sql/ext/predicate/nadic_bool.rb

@@ -0,0 +1,16 @@
+class Predicate
+  module NadicBool
+
+    def to_sql(buffer, dialect)
+      each_with_index do |child, index|
+        next if index == 0
+        unless index == 1
+          buffer << Sql::Expr::SPACE << to_sql_operator << Sql::Expr::SPACE
+        end
+        child.to_sql(buffer, dialect)
+      end
+      buffer
+    end
+
+  end
+end

data/lib/bmg/sql/ext/predicate/native.rb

@@ -0,0 +1,9 @@
+class Predicate
+  module Native
+
+    def to_sql(buffer, dialect)
+      raise NotSupportedError, "Unable to compile native predicates to SQL"
+    end
+
+  end
+end

data/lib/bmg/sql/ext/predicate/neq.rb

@@ -0,0 +1,9 @@
+class Predicate
+  module Neq
+
+    def to_sql_operator
+      Sql::Expr::NOT_EQUAL
+    end
+
+  end
+end

data/lib/bmg/sql/ext/predicate/not.rb

@@ -0,0 +1,12 @@
+class Predicate
+  module Not
+
+    def to_sql(buffer, dialect)
+      buffer << Sql::Expr::NOT << Sql::Expr::LEFT_PARENTHESE
+      last.to_sql(buffer, dialect)
+      buffer << Sql::Expr::RIGHT_PARENTHESE
+      buffer
+    end
+
+  end
+end

data/lib/bmg/sql/ext/predicate/or.rb

@@ -0,0 +1,9 @@
+class Predicate
+  module Or
+
+    def to_sql_operator
+      Sql::Expr::OR
+    end
+
+  end
+end

data/lib/bmg/sql/ext/predicate/qualified_identifier.rb

@@ -0,0 +1,12 @@
+class Predicate
+  module QualifiedIdentifier
+
+    def to_sql(buffer, dialect)
+      buffer << dialect.quote_identifier(qualifier)
+      buffer << Sql::Expr::DOT
+      buffer << dialect.quote_identifier(name)
+      buffer
+    end
+
+  end
+end

data/lib/bmg/sql/ext/predicate/tautology.rb

@@ -0,0 +1,10 @@
+class Predicate
+  module Tautology
+
+    def to_sql(buffer, dialect)
+      buffer << Sql::Expr::TRUE
+      buffer
+    end
+
+  end
+end

data/lib/bmg/sql/grammar.rb

@@ -0,0 +1,45 @@
+module Bmg
+  module Sql
+    Grammar = Sexpr.load(Path.dir/'grammar.sexp.yml')
+    module Grammar
+
+      def tagging_reference
+        Sql
+      end
+
+      def default_tagging_module
+        Expr
+      end
+
+    end # module Grammar
+  end # module Sql
+end # module Bmg
+require_relative "nodes/expr"
+require_relative "nodes/set_operator"
+require_relative "nodes/literal"
+require_relative "nodes/column_name"
+require_relative "nodes/qualified_name"
+require_relative "nodes/range_var_name"
+require_relative "nodes/select_exp"
+require_relative "nodes/set_quantifier"
+require_relative "nodes/select_list"
+require_relative "nodes/select_star"
+require_relative "nodes/select_item"
+require_relative "nodes/from_clause"
+require_relative "nodes/table_as"
+require_relative "nodes/native_table_as"
+require_relative "nodes/subquery_as"
+require_relative "nodes/table_name"
+require_relative "nodes/order_by_clause"
+require_relative "nodes/order_by_term"
+require_relative "nodes/limit_clause"
+require_relative "nodes/offset_clause"
+require_relative "nodes/union"
+require_relative "nodes/intersect"
+require_relative "nodes/except"
+require_relative "nodes/with_exp"
+require_relative "nodes/with_spec"
+require_relative "nodes/name_intro"
+require_relative "nodes/where_clause"
+require_relative "nodes/cross_join"
+require_relative "nodes/inner_join"

data/lib/bmg/sql/grammar.sexp.yml

@@ -0,0 +1,96 @@
+rules:
+  query:
+    - with_exp
+    - nonjoin_exp
+  with_exp:
+    - [ with_spec, nonjoin_exp ]
+  with_spec:
+    - [ name_intro+ ]
+  name_intro:
+    - [ table_name, nonjoin_exp ]
+  nonjoin_exp:
+    - union
+    - except
+    - intersect
+    - select_exp
+  union:
+    - [ all, nonjoin_exp, nonjoin_exp ]
+  all:
+    - truth_value
+  except:
+    - [ set_quantifier, nonjoin_exp, nonjoin_exp ]
+  intersect:
+    - [ set_quantifier, nonjoin_exp, nonjoin_exp ]
+  join_exp:
+    - cross_join
+    - inner_join
+  cross_join:
+    - [ table_spec, table_spec ]
+  inner_join:
+    - [ table_spec, table_spec, predicate ]
+  using:
+    - [ column_name+ ]
+  select_exp:
+    - [ set_quantifier,
+        [ select_list, select_star ],
+        from_clause,
+        where_clause,
+        order_by_clause,
+        limit_clause,
+        offset_clause ]
+  set_quantifier:
+    - [ set_quantifier_name ]
+  select_star:
+    - []
+  set_quantifier_name:
+    !ruby/regexp /^all|distinct$/
+  select_list:
+    - [ select_item+ ]
+  from_clause:
+    - [ table_spec ]
+  where_clause:
+    - [ predicate ]
+  order_by_clause:
+    - [ order_by_term+ ]
+  order_by_term:
+    - [ qualified_name, direction ]
+  direction:
+    !ruby/regexp /^asc|desc$/
+  select_item:
+    - [ scalar_exp, column_name ]
+  table_spec:
+    - native_table_as
+    - table_as
+    - subquery_as
+    - join_exp
+  table_as:
+    - [ table_name, range_var_name ]
+  native_table_as:
+    - "::Object"
+  subquery_as:
+    - [ nonjoin_exp, range_var_name ]
+  scalar_exp:
+    - qualified_name
+    - column_name
+    - literal
+  qualified_name:
+    - [ range_var_name, column_name ]
+  column_name:
+    - [ name_rgx ]
+  table_name:
+    - [ name_rgx ]
+  range_var_name:
+    - [ name_rgx ]
+  limit_clause:
+    - [ integer ]
+  offset_clause:
+    - [ integer ]
+  integer:
+    - "::Integer"
+  literal:
+    - "::Object"
+  name_rgx:
+    !ruby/regexp /^[a-zA-Z0-9_]+$/
+  truth_value:
+    - "::TrueClass"
+    - "::FalseClass"

data/lib/bmg/sql/nodes/column_name.rb

@@ -0,0 +1,25 @@
+module Bmg
+  module Sql
+    module ColumnName
+      include Expr
+
+      def qualifier
+        nil
+      end
+
+      def as_name
+        last
+      end
+
+      def would_be_name
+        last
+      end
+
+      def to_sql(buffer, dialect)
+        buffer << dialect.quote_identifier(last)
+        buffer
+      end
+
+    end # module ColumnName
+  end # module Sql
+end # module Bmg

data/lib/bmg/sql/nodes/cross_join.rb

@@ -0,0 +1,28 @@
+module Bmg
+  module Sql
+    module CrossJoin
+      include Expr
+
+      def join?
+        true
+      end
+
+      def left
+        self[1]
+      end
+
+      def right
+        self[2]
+      end
+
+      def to_sql(buffer, dialect)
+        each_child do |child, index|
+          buffer << COMMA << SPACE unless index == 0
+          child.to_sql(buffer, dialect)
+        end
+        buffer
+      end
+
+    end # module CrossJoin
+  end # module Sql
+end # module Bmg

data/lib/bmg/sql/nodes/except.rb

@@ -0,0 +1,14 @@
+module Bmg
+  module Sql
+    module Except
+      include SetOperator
+
+      EXCEPT = "EXCEPT".freeze
+
+      def keyword
+        EXCEPT
+      end
+
+    end # module Except
+  end # module Sql
+end # module Bmg

data/lib/bmg/sql/nodes/expr.rb

@@ -0,0 +1,94 @@
+module Bmg
+  module Sql
+    module Expr
+
+      LEFT_PARENTHESE  = "(".freeze
+      RIGHT_PARENTHESE = ")".freeze
+      SPACE            = " ".freeze
+      COMMA            = ",".freeze
+      DOT              = ".".freeze
+      QUOTE            = "'".freeze
+      AS               = "AS".freeze
+      AND              = "AND".freeze
+      OR               = "OR".freeze
+      NOT              = "NOT".freeze
+      TRUE             = "TRUE".freeze
+      FALSE            = "FALSE".freeze
+      EQUAL            = "=".freeze
+      NOT_EQUAL        = "<>".freeze
+      GREATER          = ">".freeze
+      LESS             = "<".freeze
+      GREATER_OR_EQUAL = ">=".freeze
+      LESS_OR_EQUAL    = "<=".freeze
+      IN               = "IN".freeze
+      EXISTS           = "EXISTS".freeze
+
+      def set_operator?
+        false
+      end
+
+      def limit_or_offset?
+        not(limit_clause.nil? and offset_clause.nil?)
+      end
+
+      def join?
+        false
+      end
+
+      def ordering
+        obc = order_by_clause
+        obc && order_by_clause.to_ordering
+      end
+
+      def with_update(index, what)
+        index = find_child_index(index) if index.is_a?(Symbol)
+        dup.tap{|x| x[index] = Grammar.sexpr(what) }
+      end
+
+      def with_insert(index, what)
+        dup.tap{|x| x.insert(index, Grammar.sexpr(what)) }
+      end
+
+      def with_push(*sexprs)
+        dup.push(*sexprs)
+      end
+
+      def each_child(skip = 0)
+        each_with_index do |c,i|
+          next if i <= skip
+          yield(c, i - 1)
+        end
+      end
+
+      def flatten
+        Processor::Flatten.new(nil).call(self)
+      end
+
+    private
+
+      def find_child(kind = nil, &search)
+        if search.nil? and kind
+          search = ->(x){ x.is_a?(Array) && x.first == kind }
+        end
+        each_child do |child|
+          return child if search.call(child)
+        end
+        nil
+      end
+
+      def find_child_index(kind)
+        each_with_index do |child,index|
+          return index if child.is_a?(Array) && child.first == kind
+        end
+        nil
+      end
+
+      def sql_parenthesized(buffer)
+        buffer << LEFT_PARENTHESE
+        yield(buffer)
+        buffer << RIGHT_PARENTHESE
+      end
+
+    end # module Expr
+  end # module Sql
+end # module Bmg

data/lib/bmg/sql/nodes/from_clause.rb

@@ -0,0 +1,24 @@
+module Bmg
+  module Sql
+    module FromClause
+      include Expr
+
+      FROM = "FROM".freeze
+
+      def table_spec
+        last
+      end
+
+      def join?
+        table_spec.join?
+      end
+
+      def to_sql(buffer, dialect)
+        buffer << FROM << SPACE
+        last.to_sql(buffer, dialect)
+        buffer
+      end
+
+    end # module FromClause
+  end # module Sql
+end # module Bmg

data/lib/bmg/sql/nodes/inner_join.rb

@@ -0,0 +1,37 @@
+module Bmg
+  module Sql
+    module InnerJoin
+      include Expr
+
+      INNER = "INNER".freeze
+      JOIN  = "JOIN".freeze
+      ON    = "ON".freeze
+
+      def join?
+        true
+      end
+
+      def left
+        self[1]
+      end
+
+      def right
+        self[2]
+      end
+
+      def predicate
+        last
+      end
+
+      def to_sql(buffer, dialect)
+        left.to_sql(buffer, dialect)
+        buffer << SPACE << JOIN << SPACE
+        right.to_sql(buffer, dialect)
+        buffer << SPACE << ON << SPACE
+        predicate.to_sql(buffer, dialect)
+        buffer
+      end
+
+    end # module InnerJoin
+  end # module Sql
+end # module Bmg