asa-2000 1.0.0

data/lib/activerecord-sqlserver-adapter.rb

@@ -0,0 +1 @@
+require 'active_record/connection_adapters/sqlserver_adapter'

data/lib/arel/visitors/sqlserver.rb

@@ -0,0 +1,386 @@
+require 'arel'
+
+module Arel
+
+  module Nodes
+
+    # Extending the Ordering class to be comparrison friendly which allows us to call #uniq on a
+    # collection of them. See SelectManager#order for more details.
+    class Ordering < Arel::Nodes::Unary
+      def hash
+        expr.hash
+      end
+      def ==(other)
+        other.is_a?(Arel::Nodes::Ordering) && self.expr == other.expr
+      end
+      def eql?(other)
+        self == other
+      end
+    end
+
+  end
+
+  class SelectManager < Arel::TreeManager
+    
+    AR_CA_SQLSA_NAME = 'ActiveRecord::ConnectionAdapters::SQLServerAdapter'.freeze
+    
+    # Getting real Ordering objects is very important for us. We need to be able to call #uniq on
+    # a colleciton of them reliably as well as using their true object attributes to mutate them
+    # to grouping objects for the inner sql during a select statment with an offset/rownumber. So this
+    # is here till ActiveRecord & ARel does this for us instead of using SqlLiteral objects.
+    alias :order_without_sqlserver :order
+    def order(*expr)
+      return order_without_sqlserver(*expr) unless engine_activerecord_sqlserver_adapter?
+      @ast.orders.concat(expr.map{ |x|
+        case x
+        when Arel::Attributes::Attribute
+          table = Arel::Table.new(x.relation.table_alias || x.relation.name)
+          e = table[x.name]
+          Arel::Nodes::Ascending.new e
+        when Arel::Nodes::Ordering
+          x
+        when String
+          x.split(',').map do |s|
+            s = x if x.strip =~ /\A\b\w+\b\(.*,.*\)(\s+(ASC|DESC))?\Z/i # Allow functions with comma(s) to pass thru.
+            s.strip!
+            d = s =~ /(ASC|DESC)\Z/i ? $1.upcase : nil
+            e = d.nil? ? s : s.mb_chars[0...-d.length].strip
+            e = Arel.sql(e)
+            d && d == "DESC" ? Arel::Nodes::Descending.new(e) : Arel::Nodes::Ascending.new(e)
+          end
+        else
+          e = Arel.sql(x.to_s)
+          Arel::Nodes::Ascending.new e
+        end
+      }.flatten)
+      self
+    end
+
+    # A friendly over ride that allows us to put a special lock object that can have a default or pass
+    # custom string hints down. See the visit_Arel_Nodes_LockWithSQLServer delegation method.
+    alias :lock_without_sqlserver :lock
+    def lock(locking=true)
+      if engine_activerecord_sqlserver_adapter?
+        case locking
+        when true
+          locking = Arel.sql('WITH(HOLDLOCK, ROWLOCK)')
+        when Arel::Nodes::SqlLiteral
+        when String
+          locking = Arel.sql locking
+        end
+        @ast.lock = Arel::Nodes::Lock.new(locking)
+        self
+      else
+        lock_without_sqlserver(locking)
+      end
+    end
+    
+    private
+    
+    def engine_activerecord_sqlserver_adapter?
+      @engine.connection && @engine.connection.class.name == AR_CA_SQLSA_NAME
+    end
+    
+  end
+
+  module Visitors
+    class SQLServer < Arel::Visitors::ToSql
+
+      private
+
+      # SQLServer ToSql/Visitor (Overides)
+
+      def visit_Arel_Nodes_SelectStatement(o)
+        if complex_count_sql?(o)
+          visit_Arel_Nodes_SelectStatementForComplexCount(o)
+        elsif o.offset
+          visit_Arel_Nodes_SelectStatementWithOffset(o)
+        else
+          visit_Arel_Nodes_SelectStatementWithOutOffset(o)
+        end
+      end
+      
+      def visit_Arel_Nodes_UpdateStatement(o)
+        if o.orders.any? && o.limit.nil?
+          o.limit = Nodes::Limit.new(2147483647)
+        end
+        super
+      end
+
+      def visit_Arel_Nodes_Offset(o)
+        "WHERE [__rnt].[__rn] > (#{visit o.expr})"
+      end
+
+      def visit_Arel_Nodes_Limit(o)
+        "TOP #{visit o.expr}"
+      end
+
+      def visit_Arel_Nodes_Lock(o)
+        visit o.expr
+      end
+      
+      def visit_Arel_Nodes_Ordering(o)
+        if o.respond_to?(:direction)
+          "#{visit o.expr} #{o.ascending? ? 'ASC' : 'DESC'}"
+        else
+          visit o.expr
+        end
+      end
+      
+      def visit_Arel_Nodes_Bin(o)
+        "#{visit o.expr} #{@connection.cs_equality_operator}"
+      end
+
+      # SQLServer ToSql/Visitor (Additions)
+
+      def visit_Arel_Nodes_SelectStatementWithOutOffset(o, windowed=false)
+        find_and_fix_uncorrelated_joins_in_select_statement(o)
+        core = o.cores.first
+        projections = core.projections
+        groups = core.groups
+        orders = o.orders.uniq
+        if windowed
+          projections = function_select_statement?(o) ? projections : projections.map { |x| projection_without_expression(x) }
+          groups = projections.map { |x| projection_without_expression(x) } if windowed_single_distinct_select_statement?(o) && groups.empty?
+          groups += orders.map { |x| Arel.sql(x.expr) } if windowed_single_distinct_select_statement?(o)
+        elsif eager_limiting_select_statement?(o)
+          projections = projections.map { |x| projection_without_expression(x) }
+          groups = projections.map { |x| projection_without_expression(x) }
+          orders = orders.map do |x|
+            expr = Arel.sql projection_without_expression(x.expr)
+            x.descending? ? Arel::Nodes::Max.new([expr]) : Arel::Nodes::Min.new([expr])
+          end
+        elsif top_one_everything_for_through_join?(o)
+          projections = projections.map { |x| projection_without_expression(x) }
+        end
+        [ ("SELECT" if !windowed),
+          (visit(core.set_quantifier) if core.set_quantifier),
+          (visit(o.limit) if o.limit && !windowed),
+          (projections.map{ |x| visit(x) }.join(', ')),
+          (source_with_lock_for_select_statement(o)),
+          ("WHERE #{core.wheres.map{ |x| visit(x) }.join ' AND ' }" unless core.wheres.empty?),
+          ("GROUP BY #{groups.map { |x| visit x }.join ', ' }" unless groups.empty?),
+          (visit(core.having) if core.having),
+          ("ORDER BY #{orders.map{ |x| visit(x) }.join(', ')}" if !orders.empty? && !windowed)
+        ].compact.join ' '
+      end
+
+      def visit_Arel_Nodes_SelectStatementWithOffset(o)
+        orders = rowtable_orders(o)
+        [ "SELECT",
+          (visit(o.limit) if o.limit && !windowed_single_distinct_select_statement?(o)),
+          (rowtable_projections(o).map{ |x| visit(x) }.join(', ')),
+          "FROM (",
+            "SELECT ROW_NUMBER() OVER (ORDER BY #{orders.map{ |x| visit(x) }.join(', ')}) AS [__rn],",
+            visit_Arel_Nodes_SelectStatementWithOutOffset(o,true),
+          ") AS [__rnt]",
+          (visit(o.offset) if o.offset),
+        ].compact.join ' '
+      end
+
+      def visit_Arel_Nodes_SelectStatementForComplexCount(o)
+        core = o.cores.first
+        o.limit.expr = Arel.sql("#{o.limit.expr} + #{o.offset ? o.offset.expr : 0}") if o.limit
+        orders = rowtable_orders(o)
+        [ "SELECT COUNT([count]) AS [count_id]",
+          "FROM (",
+            "SELECT",
+            (visit(o.limit) if o.limit),
+            "ROW_NUMBER() OVER (ORDER BY #{orders.map{ |x| visit(x) }.join(', ')}) AS [__rn],",
+            "1 AS [count]",
+            (source_with_lock_for_select_statement(o)),
+            ("WHERE #{core.wheres.map{ |x| visit(x) }.join ' AND ' }" unless core.wheres.empty?),
+            ("GROUP BY #{core.groups.map { |x| visit x }.join ', ' }" unless core.groups.empty?),
+            (visit(core.having) if core.having),
+            ("ORDER BY #{o.orders.map{ |x| visit(x) }.join(', ')}" if !o.orders.empty?),
+          ") AS [__rnt]",
+          (visit(o.offset) if o.offset)
+        ].compact.join ' '
+      end
+
+
+      # SQLServer Helpers
+
+      def source_with_lock_for_select_statement(o)
+        core = o.cores.first
+        source = "FROM #{visit(core.source).strip}" if core.source
+        if source && o.lock
+          lock = visit o.lock
+          index = source.match(/FROM [\w\[\]\.]+/)[0].mb_chars.length
+          source.insert index, " #{lock}"
+        else
+          source
+        end
+      end
+
+      def table_from_select_statement(o)
+        core = o.cores.first
+        # TODO: [ARel 2.2] Use #from/#source vs. #froms
+        # if Arel::Table === core.from
+        #   core.from
+        # elsif Arel::Nodes::SqlLiteral === core.from
+        #   Arel::Table.new(core.from, @engine)
+        # elsif Arel::Nodes::JoinSource === core.source
+        #   Arel::Nodes::SqlLiteral === core.source.left ? Arel::Table.new(core.source.left, @engine) : core.source.left
+        # end
+        table_finder = lambda { |x|
+          case x
+          when Arel::Table
+            x
+          when Arel::Nodes::SqlLiteral
+            Arel::Table.new(x, @engine)
+          when Arel::Nodes::Join
+            table_finder.call(x.left)
+          end
+        }
+        table_finder.call(core.froms)
+      end
+
+      def single_distinct_select_statement?(o)
+        projections = o.cores.first.projections
+        p1 = projections.first
+        projections.size == 1 &&
+          ((p1.respond_to?(:distinct) && p1.distinct) ||
+            p1.respond_to?(:include?) && p1.include?('DISTINCT'))
+      end
+      
+      def windowed_single_distinct_select_statement?(o)
+        o.limit && o.offset && single_distinct_select_statement?(o)
+      end
+      
+      def single_distinct_select_everything_statement?(o)
+        single_distinct_select_statement?(o) && visit(o.cores.first.projections.first).ends_with?(".*")
+      end
+      
+      def top_one_everything_for_through_join?(o)
+        single_distinct_select_everything_statement?(o) && 
+          (o.limit && !o.offset) && 
+          join_in_select_statement?(o)
+      end
+
+      def all_projections_aliased_in_select_statement?(o)
+        projections = o.cores.first.projections
+        projections.all? do |x|
+          visit(x).split(',').all? { |y| y.include?(' AS ') }
+        end
+      end
+
+      def function_select_statement?(o)
+        core = o.cores.first
+        core.projections.any? { |x| Arel::Nodes::Function === x }
+      end
+
+      def eager_limiting_select_statement?(o)
+        core = o.cores.first
+        single_distinct_select_statement?(o) && 
+          (o.limit && !o.offset) && 
+          core.groups.empty? && 
+          !single_distinct_select_everything_statement?(o)
+      end
+
+      def join_in_select_statement?(o)
+        core = o.cores.first
+        core.source.right.any? { |x| Arel::Nodes::Join === x }
+      end
+
+      def complex_count_sql?(o)
+        core = o.cores.first
+        core.projections.size == 1 &&
+          Arel::Nodes::Count === core.projections.first &&
+          o.limit &&
+          !join_in_select_statement?(o)
+      end
+      
+      def select_primary_key_sql?(o)
+        core = o.cores.first
+        return false if core.projections.size != 1
+        p = core.projections.first
+        t = table_from_select_statement(o)
+        Arel::Attributes::Attribute === p && t.primary_key && t.primary_key.name == p.name
+      end
+
+      def find_and_fix_uncorrelated_joins_in_select_statement(o)
+        core = o.cores.first
+        # TODO: [ARel 2.2] Use #from/#source vs. #froms
+        # return if !join_in_select_statement?(o) || core.source.right.size != 2
+        # j1 = core.source.right.first
+        # j2 = core.source.right.second
+        # return unless Arel::Nodes::OuterJoin === j1 && Arel::Nodes::StringJoin === j2
+        # j1_tn = j1.left.name
+        # j2_tn = j2.left.match(/JOIN \[(.*)\].*ON/).try(:[],1)
+        # return unless j1_tn == j2_tn
+        # crltd_tn = "#{j1_tn}_crltd"
+        # j1.left.table_alias = crltd_tn
+        # j1.right.expr.left.relation.table_alias = crltd_tn
+        return if !join_in_select_statement?(o) || !(Arel::Nodes::StringJoin === core.froms)
+        j1 = core.froms.left
+        j2 = core.froms.right
+        return unless Arel::Nodes::OuterJoin === j1 && Arel::Nodes::SqlLiteral === j2 && j2.include?('JOIN ')
+        j1_tn = j1.right.name
+        j2_tn = j2.match(/JOIN \[(.*)\].*ON/).try(:[],1)
+        return unless j1_tn == j2_tn
+        on_index = j2.index(' ON ')
+        j2.insert on_index, " AS [#{j2_tn}_crltd]"
+        j2.sub! "[#{j2_tn}].", "[#{j2_tn}_crltd]."
+      end
+
+      def rowtable_projections(o)
+        core = o.cores.first
+        if windowed_single_distinct_select_statement?(o) && core.groups.blank?
+          tn = table_from_select_statement(o).name
+          core.projections.map do |x|
+            x.dup.tap do |p|
+              p.sub! 'DISTINCT', ''
+              p.insert 0, visit(o.limit) if o.limit
+              p.gsub! /\[?#{tn}\]?\./, '[__rnt].'
+              p.strip!
+            end
+          end
+        elsif single_distinct_select_statement?(o)
+          tn = table_from_select_statement(o).name
+          core.projections.map do |x|
+            x.dup.tap do |p|
+              p.sub! 'DISTINCT', "DISTINCT #{visit(o.limit)}".strip if o.limit
+              p.gsub! /\[?#{tn}\]?\./, '[__rnt].'
+              p.strip!
+            end
+          end
+        elsif join_in_select_statement?(o) && all_projections_aliased_in_select_statement?(o)
+          core.projections.map do |x|
+            Arel.sql visit(x).split(',').map{ |y| y.split(' AS ').last.strip }.join(', ')
+          end
+        elsif select_primary_key_sql?(o)
+          [Arel.sql("[__rnt].#{quote_column_name(core.projections.first.name)}")]
+        else
+          [Arel.sql('[__rnt].*')]
+        end
+      end
+
+      def rowtable_orders(o)
+        core = o.cores.first
+        if !o.orders.empty?
+          o.orders
+        else
+          t = table_from_select_statement(o)
+          c = t.primary_key || t.columns.first
+          [c.asc]
+        end.uniq
+      end
+
+      # TODO: We use this for grouping too, maybe make Grouping objects vs SqlLiteral.
+      def projection_without_expression(projection)
+        Arel.sql(visit(projection).split(',').map do |x|
+          x.strip!
+          x.sub!(/^(COUNT|SUM|MAX|MIN|AVG)\s*(\((.*)\))?/,'\3')
+          x.sub!(/^DISTINCT\s*/,'')
+          x.sub!(/TOP\s*\(\d+\)\s*/i,'')
+          x.strip
+        end.join(', '))
+      end
+
+    end
+  end
+
+end
+
+Arel::Visitors::VISITORS['sqlserver'] = Arel::Visitors::SQLServer

metadata

@@ -0,0 +1,81 @@
+--- !ruby/object:Gem::Specification
+name: asa-2000
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+  prerelease: 
+platform: ruby
+authors:
+- Ken Collins
+- Murray Steele
+- Shawn Balestracci
+- Joe Rafaniello
+- Tom Ward
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-03-01 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: activerecord
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>'
+      - !ruby/object:Gem::Version
+        version: 3.0.0
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>'
+      - !ruby/object:Gem::Version
+        version: 3.0.0
+description: Rip off of SQLServer 2000 hack for SQL Server 2005 and 2008 Adapter For
+  ActiveRecord
+email: ken@metaskills.net
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- CHANGELOG
+- MIT-LICENSE
+- lib/active_record/connection_adapters/sqlserver/core_ext/active_record.rb
+- lib/active_record/connection_adapters/sqlserver/core_ext/database_statements.rb
+- lib/active_record/connection_adapters/sqlserver/core_ext/odbc.rb
+- lib/active_record/connection_adapters/sqlserver/database_limits.rb
+- lib/active_record/connection_adapters/sqlserver/database_statements.rb
+- lib/active_record/connection_adapters/sqlserver/errors.rb
+- lib/active_record/connection_adapters/sqlserver/quoting.rb
+- lib/active_record/connection_adapters/sqlserver/schema_cache.rb
+- lib/active_record/connection_adapters/sqlserver/schema_statements.rb
+- lib/active_record/connection_adapters/sqlserver/utils.rb
+- lib/active_record/connection_adapters/sqlserver/version.rb
+- lib/active_record/connection_adapters/sqlserver_adapter.rb
+- lib/activerecord-sqlserver-adapter.rb
+- lib/arel/visitors/sqlserver.rb
+homepage: http://github.com/rails-sqlserver/activerecord-sqlserver-adapter
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: activerecord-sqlserver-adapter
+rubygems_version: 1.8.25
+signing_key: 
+specification_version: 3
+summary: Rip off of SQLServer 2000 hack for SQL Server 2005 and 2008 Adapter For ActiveRecord.
+test_files: []