activerecord-odbc-adapter-openedge 2.3

data/lib/active_record/vendor/odbcext_sqlanywhere_col.rb

@@ -0,0 +1,49 @@
+#
+#  $Id: odbcext_sqlanywhere_col.rb,v 1.2 2008/04/22 16:54:57 source Exp $
+#
+#  OpenLink ODBC Adapter for Ruby on Rails
+#  Copyright (C) 2006 OpenLink Software
+#
+#  Permission is hereby granted, free of charge, to any person obtaining
+#  a copy of this software and associated documentation files (the
+#  "Software"), to deal in the Software without restriction, including
+#  without limitation the rights to use, copy, modify, merge, publish,
+#  distribute, sublicense, and/or sell copies of the Software, and to
+#  permit persons to whom the Software is furnished to do so, subject
+#  to the following conditions:
+#
+#  The above copyright notice and this permission notice shall be
+#  included in all copies or substantial portions of the Software.
+#
+#  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+#  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+#  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
+#  ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
+#  CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+#  WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#
+
+module ODBCColumnExt
+  
+  # Is the column a numeric autoincrementing column?
+  def auto_unique?
+    @autounique
+  end
+  
+  private
+  
+  def autoUnique?
+    @nativeType =~ /\bidentity\b/i
+  end
+  
+  #private
+  
+  def default_preprocess(nativeType, default)
+    return default if default.nil?
+    default.replace($2.strip) if default =~ /(DEFAULT +)(.*)/i
+    default.replace($1) if default =~ /^'(.*)'$/
+    default
+  end
+  
+end # module

data/lib/active_record/vendor/odbcext_sybase.rb

@@ -0,0 +1,213 @@
+#
+#  $Id: odbcext_sybase.rb,v 1.3 2008/04/13 22:46:09 source Exp $
+#
+#  OpenLink ODBC Adapter for Ruby on Rails
+#  Copyright (C) 2006 OpenLink Software
+#
+#  Permission is hereby granted, free of charge, to any person obtaining
+#  a copy of this software and associated documentation files (the
+#  "Software"), to deal in the Software without restriction, including
+#  without limitation the rights to use, copy, modify, merge, publish,
+#  distribute, sublicense, and/or sell copies of the Software, and to
+#  permit persons to whom the Software is furnished to do so, subject
+#  to the following conditions:
+#
+#  The above copyright notice and this permission notice shall be
+#  included in all copies or substantial portions of the Software.
+#
+#  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+#  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+#  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
+#  ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
+#  CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+#  WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#
+
+module ODBCExt
+  
+  # ------------------------------------------------------------------------
+  # Mandatory methods
+  #
+  
+  # #last_insert_id must be implemented for any database which returns
+  # false from #prefetch_primary_key?
+  def last_insert_id(table, sequence_name, stmt = nil)
+    @logger.unknown("ODBCAdapter#last_insert_id>") if @trace
+    #TODO: Fixme - Doesn't work with OpenLink TDS driver against Sybase
+    #select_value("select @@IDENTITY", 'last_insert_id')
+    select_value("select max(syb_identity) from #{table}", 'last_insert_id')
+  end
+  
+  # ------------------------------------------------------------------------
+  # Optional methods
+  #
+  # These are supplied for a DBMS only if necessary.
+  # ODBCAdapter tests for optional methods using Object#respond_to?
+  
+  # Pre action for ODBCAdapter#insert
+  def pre_insert(sql, name, pk, id_value, sequence_name)
+    @iiTable = get_table_name(sql)
+    @iiCol = get_autounique_column(@iiTable)
+    @iiEnabled = false
+    
+    if @iiCol != nil
+      if query_contains_autounique_col(sql, @iiCol)
+        begin
+          @connection.do(enable_identity_insert(@iiTable, true))
+          @iiEnabled = true
+        rescue Exception => e
+          raise ActiveRecordError, "IDENTITY_INSERT could not be turned on"
+        end
+      end
+    end
+  end
+  
+  # Post action for ODBCAdapter#insert
+  def post_insert(sql, name, pk, id_value, sequence_name)
+    if @iiEnabled
+      begin
+        @connection.do(enable_identity_insert(@iiTable, false))
+      rescue Exception => e
+        raise ActiveRecordError, "IDENTITY_INSERT could not be turned off"
+      end
+    end
+  end
+  
+  # ------------------------------------------------------------------------
+  # Method redefinitions
+  #
+  # DBMS specific methods which override the default implementation 
+  # provided by the ODBCAdapter core.
+  
+  def rename_table(name, new_name)
+    @logger.unknown("ODBCAdapter#rename_table>") if @trace
+    execute "EXEC sp_rename '#{name}', '#{new_name}'"
+  rescue Exception => e
+    @logger.unknown("exception=#{e}") if @trace
+    raise
+  end
+  
+  def remove_column(table_name, column_name)
+    @logger.unknown("ODBCAdapter#remove_column>") if @trace
+    # Remove default constraints first
+    defaults = select_all "select def.name from sysobjects def, syscolumns col, sysobjects tab where col.cdefault = def.id and col.name = '#{column_name}' and tab.name = '#{table_name}' and col.id = tab.id"
+    defaults.each {|constraint|
+      execute "ALTER TABLE #{quote_table_name(table_name)} DROP CONSTRAINT #{constraint["name"]}"
+    }                      
+    execute "ALTER TABLE #{quote_table_name(table_name)} DROP #{quote_column_name(column_name)}"                   
+  rescue Exception => e
+    @logger.unknown("exception=#{e}") if @trace
+    raise
+  end
+  
+  def change_column(table_name, column_name, type, options = {})
+    @logger.unknown("ODBCAdapter#change_column>") if @trace
+    if options.include?(:default)
+      # Sybase ASE's ALTER TABLE statement doesn't allow a column's DEFAULT to be changed.
+      raise ActiveRecord::ActiveRecordError, 
+        "Sybase ASE does not support changing a column's DEFAULT definition"
+    end
+    execute "ALTER TABLE #{table_name} MODIFY #{column_name} #{type_to_sql(type, options[:limit], options[:precision], options[:scale])}"
+  rescue Exception => e
+    @logger.unknown("exception=#{e}") if @trace
+    raise
+  end
+  
+  def rename_column(table_name, column_name, new_column_name)
+    @logger.unknown("ODBCAdapter#rename_column>") if @trace
+    execute "EXEC sp_rename '#{table_name}.#{column_name}', '#{new_column_name}'"        
+  rescue Exception => e
+    @logger.unknown("exception=#{e}") if @trace
+    raise
+  end
+  
+  def remove_index(table_name, options = {})
+    @logger.unknown("ODBCAdapter#remove_index>") if @trace
+    execute "DROP INDEX #{table_name}.#{quote_column_name(index_name(table_name, options))}"        
+  rescue Exception => e
+    @logger.unknown("exception=#{e}") if @trace
+    raise
+  end
+  
+  def tables(name = nil)
+    # Hide system tables.
+    super(name).delete_if {|t| t =~ /^sys/ }
+  end
+  
+  def indexes(table_name, name = nil)
+    # Hide primary key indexes.
+    # Primary key indexes take the form <tablename>_<primary key name>_<integer>
+    super(table_name, name).delete_if { |i| i.unique && i.name =~ /^\w+_\w+_\d+$/ }
+  end
+  
+  def add_column_options!(sql, options) # :nodoc:
+    @logger.unknown("ODBCAdapter#add_column_options!>") if @trace
+    @logger.unknown("args=[#{sql}]") if @trace
+    sql << " DEFAULT #{quote(options[:default], options[:column])}" if options_include_default?(options)
+    
+    if column_type_allows_null?(sql, options)
+      sql << (options[:null] == false ? " NOT NULL" : " NULL")
+    end
+    sql   																											
+  rescue Exception => e
+    @logger.unknown("exception=#{e}") if @trace
+    raise ActiveRecord::StatementInvalid, e.message
+  end
+  
+  # ------------------------------------------------------------------------
+  # Private methods to support methods above
+  #
+  private
+  
+  def get_table_name(sql)
+    if sql =~ /^\s*insert\s+into\s+([^\(\s]+)\s*|^\s*update\s+([^\(\s]+)\s*/i
+      $1
+    elsif sql =~ /from\s+([^\(\s]+)\s*/i
+      $1
+    else
+      nil
+    end	end
+  
+  def get_autounique_column(table_name)
+    @table_columns = {} unless @table_columns
+    @table_columns[table_name] = columns(table_name) if @table_columns[table_name] == nil
+    @table_columns[table_name].each do |col|
+      return col.name if col.auto_unique?
+    end
+    
+    return nil
+  end
+  
+  def query_contains_autounique_col(sql, col)
+    sql =~ /(\[#{col}\])|("#{col}")/
+  end
+  
+  def enable_identity_insert(table_name, enable = true)
+    if has_autounique_column(table_name)
+    	"SET IDENTITY_INSERT #{table_name} #{enable ? 'ON' : 'OFF'}"
+    end
+  end
+  
+  def has_autounique_column(table_name)
+    !get_autounique_column(table_name).nil?
+  end
+  
+  def column_type_allows_null?(sql, options)
+    # Sybase columns are NOT NULL by default, so explicitly set NULL
+    # if :null option is omitted.  Disallow NULLs for boolean.
+    col = options[:column]
+    return false if col && col[:type] == :primary_key
+    
+    # Force options[:null] to be ignored for BIT (:boolea) columns
+    # by returning false
+    isBitCol = !(sql =~ /\s+bit(\s+default)?/i).nil? || (col && col[:type] == :boolean)
+    hasDefault = !$1.nil? || options[:default]
+    
+    # If no default clause found on a boolean column, add one.
+    sql << " DEFAULT 0" if isBitCol && !hasDefault
+    
+    !isBitCol
+  end
+  
+end # module

data/lib/active_record/vendor/odbcext_sybase_col.rb

@@ -0,0 +1,49 @@
+#
+#  $Id: odbcext_sybase_col.rb,v 1.1 2006/12/06 14:42:11 source Exp $
+#
+#  OpenLink ODBC Adapter for Ruby on Rails
+#  Copyright (C) 2006 OpenLink Software
+#
+#  Permission is hereby granted, free of charge, to any person obtaining
+#  a copy of this software and associated documentation files (the
+#  "Software"), to deal in the Software without restriction, including
+#  without limitation the rights to use, copy, modify, merge, publish,
+#  distribute, sublicense, and/or sell copies of the Software, and to
+#  permit persons to whom the Software is furnished to do so, subject
+#  to the following conditions:
+#
+#  The above copyright notice and this permission notice shall be
+#  included in all copies or substantial portions of the Software.
+#
+#  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+#  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+#  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
+#  ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
+#  CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+#  WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#
+
+module ODBCColumnExt
+  
+  # Is the column a numeric autoincrementing column?
+  def auto_unique?
+    @autounique
+  end
+  
+  private
+  
+  def autoUnique?
+    @nativeType =~ /\bidentity\b/i
+  end
+  
+  #private
+  
+  def default_preprocess(nativeType, default)
+    return default if default.nil?
+    default.replace($2.strip) if default =~ /(DEFAULT +)(.*)/i
+    default.replace($1) if default =~ /^'(.*)'$/
+    default
+  end
+  
+end # module

data/lib/active_record/vendor/odbcext_virtuoso.rb

@@ -0,0 +1,158 @@
+#
+#  $Id: odbcext_virtuoso.rb,v 1.3 2008/04/13 22:46:09 source Exp $
+#
+#  OpenLink ODBC Adapter for Ruby on Rails
+#  Copyright (C) 2006 OpenLink Software
+#
+#  Permission is hereby granted, free of charge, to any person obtaining
+#  a copy of this software and associated documentation files (the
+#  "Software"), to deal in the Software without restriction, including
+#  without limitation the rights to use, copy, modify, merge, publish,
+#  distribute, sublicense, and/or sell copies of the Software, and to
+#  permit persons to whom the Software is furnished to do so, subject
+#  to the following conditions:
+#
+#  The above copyright notice and this permission notice shall be
+#  included in all copies or substantial portions of the Software.
+#
+#  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+#  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+#  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
+#  ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
+#  CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+#  WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#
+
+module ODBCExt
+  
+  # ------------------------------------------------------------------------
+  # Mandatory methods
+  #
+  
+  # #last_insert_id must be implemented for any database which returns
+  # false from #prefetch_primary_key?
+  
+  def last_insert_id(table, sequence_name, stmt = nil)
+    @logger.unknown("ODBCAdapter#last_insert_id>") if @trace
+    # 1049 (SQL_LASTSERIAL) is an ODBC extension for SQLGetStmtOption  
+    stmt.get_option(1049)
+  end
+  
+    
+  # ------------------------------------------------------------------------
+  # Optional methods
+  #
+  # These are supplied for a DBMS only if necessary.
+  # ODBCAdapter tests for optional methods using Object#respond_to?
+
+  # Pre action for ODBCAdapter#insert
+  # def pre_insert(sql, name, pk, id_value, sequence_name)
+  # end
+  
+  # Post action for ODBCAdapter#insert
+  # def post_insert(sql, name, pk, id_value, sequence_name)
+  # end
+  
+  def set_sequence(table_name, pk)
+    begin
+      stmt = @connection.run("select max(#{pk}) + 1 from #{table_name}")
+      next_pk_val = stmt.fetch
+     stmt.drop
+     flds = table_name.split('.')
+     @connection.do("sequence_set('#{flds[0]}.#{flds[1]}.#{table_name}.#{pk}', #{next_pk_val}, 0)")
+     return true
+    rescue Exception => e
+      @logger.unknown("exception=#{e}") if @trace
+    end
+    return false
+  end
+  
+  # ------------------------------------------------------------------------
+  # Method redefinitions
+  #
+  # DBMS specific methods which override the default implementation 
+  # provided by the ODBCAdapter core.
+  
+  def type_to_sql(type, limit = nil, precision = nil, scale = nil)
+    if type == :decimal
+      # Force an explicit scale if none supplied to specify the fixed
+      # point form of Virtuoso's DECIMAL type. If no scale is specified,
+      # the Virtuoso DECIMAL type stores floating point values.
+      precision ||= 32
+      scale ||= 0
+    end
+    super(type, limit, precision, scale)
+  end
+  
+  def quote_string(s)
+    s.gsub(/\\/, '\&\&').gsub(/'/, "''")
+  end
+  
+  def quoted_date(value)
+    @logger.unknown("ODBCAdapter#quoted_date>") if @trace
+    @logger.unknown("args=[#{value}]") if @trace        
+      # Ruby Time class includes a date component and so must be
+      # mapped to a Virtuoso DateTime type, not a Virtuoso Time type.
+      if value.acts_like?(:time) # Time, DateTime
+          %Q!stringdate('#{value.strftime("%Y-%m-%d %H:%M:%S")}')!
+      else # Date
+          %Q!d('#{value.strftime("%Y-%m-%d")}')!
+      end
+  end
+  
+  def rename_table(name, new_name)
+    @logger.unknown("ODBCAdapter#rename_table>") if @trace
+    @logger.unknown("args=[#{name}|#{new_name}]") if @trace    
+    execute "ALTER TABLE #{name} RENAME #{new_name}"
+  rescue Exception => e
+    @logger.unknown("exception=#{e}") if @trace
+    raise ActiveRecord::ActiveRecordError, e.message
+  end
+  
+  def change_column(table_name, column_name, type, options = {})
+    @logger.unknown("ODBCAdapter#change_column>") if @trace
+    @logger.unknown("args=[#{table_name}|#{column_name}|#{type}]") if @trace
+    change_column_sql = "ALTER TABLE #{table_name} MODIFY #{column_name} " +
+        "#{type_to_sql(type, options[:limit], options[:precision], options[:scale])}" 
+
+    # Add any :null and :default options
+    add_column_options!(change_column_sql, options)
+    execute(change_column_sql)    
+  rescue Exception => e
+    @logger.unknown("exception=#{e}") if @trace
+    raise ActiveRecord::ActiveRecordError, e.message
+  end
+
+  def change_column_default(table_name, column_name, default)
+    @logger.unknown("ODBCAdapter#change_column_default>") if @trace
+    @logger.unknown("args=[#{table_name}|#{column_name}]") if @trace    
+    col = columns(table_name).find {|c| c.name == column_name.to_s }
+    change_column(table_name, column_name, col.type, :default => default,
+      :limit => col.limit, :precision => col.precision, :scale => col.scale)
+  rescue Exception => e
+    @logger.unknown("exception=#{e}") if @trace
+    raise ActiveRecord::ActiveRecordError, e.message
+  end
+
+  def remove_index(table_name, options = {})
+    @logger.unknown("ODBCAdapter#remove_index>") if @trace
+    @logger.unknown("args=[#{table_name}]") if @trace    
+    execute "DROP INDEX #{quote_column_name(index_name(table_name, options))} #{table_name}"
+  rescue Exception => e
+    @logger.unknown("exception=#{e}") if @trace
+    raise ActiveRecord::ActiveRecordError, e.message
+  end
+
+  def indexes(table_name, name = nil)
+    # Virtuoso creates a unique index for a table's primary key.
+    # Hide any such index. The index name matches the table name.
+    #
+    # If this isn't done...
+    # Rails' 'rake test_units' attempts to create this index explicitly,
+    # but Virtuoso rejects this as the index has already been created 
+    # automatically when the table was defined.
+    super(table_name, name).delete_if { |i| i.unique && i.name == table_name }
+  end
+  
+end