pmacs-activerecord-oracle_enhanced-adapter 1.4.2.rc1

data/lib/active_record/connection_adapters/oracle_enhanced_base_ext.rb

@@ -0,0 +1,118 @@
+module ActiveRecord
+  class Base
+    # Establishes a connection to the database that's used by all Active Record objects.
+    def self.oracle_enhanced_connection(config) #:nodoc:
+      if config[:emulate_oracle_adapter] == true
+        # allows the enhanced adapter to look like the OracleAdapter. Useful to pick up
+        # conditionals in the rails activerecord test suite
+        require 'active_record/connection_adapters/emulation/oracle_adapter'
+        ConnectionAdapters::OracleAdapter.new(
+          ConnectionAdapters::OracleEnhancedConnection.create(config), logger, config)
+      else
+        ConnectionAdapters::OracleEnhancedAdapter.new(
+          ConnectionAdapters::OracleEnhancedConnection.create(config), logger, config)
+      end
+    end
+
+    # Specify table columns which should be ignored by ActiveRecord, e.g.:
+    # 
+    #   ignore_table_columns :attribute1, :attribute2
+    def self.ignore_table_columns(*args)
+      connection.ignore_table_columns(table_name,*args)
+    end
+
+    # Specify which table columns should be typecasted to Date (without time), e.g.:
+    # 
+    #   set_date_columns :created_on, :updated_on
+    def self.set_date_columns(*args)
+      connection.set_type_for_columns(table_name,:date,*args)
+    end
+
+    # Specify which table columns should be typecasted to Time (or DateTime), e.g.:
+    # 
+    #   set_datetime_columns :created_date, :updated_date
+    def self.set_datetime_columns(*args)
+      connection.set_type_for_columns(table_name,:datetime,*args)
+    end
+
+    # Specify which table columns should be typecasted to boolean values +true+ or +false+, e.g.:
+    # 
+    #   set_boolean_columns :is_valid, :is_completed
+    def self.set_boolean_columns(*args)
+      connection.set_type_for_columns(table_name,:boolean,*args)
+    end
+
+    # Specify which table columns should be typecasted to integer values.
+    # Might be useful to force NUMBER(1) column to be integer and not boolean, or force NUMBER column without
+    # scale to be retrieved as integer and not decimal. Example:
+    # 
+    #   set_integer_columns :version_number, :object_identifier
+    def self.set_integer_columns(*args)
+      connection.set_type_for_columns(table_name,:integer,*args)
+    end
+
+    # Specify which table columns should be typecasted to string values.
+    # Might be useful to specify that columns should be string even if its name matches boolean column criteria.
+    # 
+    #   set_string_columns :active_flag
+    def self.set_string_columns(*args)
+      connection.set_type_for_columns(table_name,:string,*args)
+    end
+
+    # After setting large objects to empty, select the OCI8::LOB
+    # and write back the data.
+    if ActiveRecord::VERSION::MAJOR == 3 && ActiveRecord::VERSION::MINOR >= 1
+      before_update :record_changed_lobs
+      after_update :enhanced_write_lobs
+    else
+      before_update :record_changed_lobs
+      after_save :enhanced_write_lobs
+    end
+    def enhanced_write_lobs #:nodoc:
+      if connection.is_a?(ConnectionAdapters::OracleEnhancedAdapter) &&
+          !(self.class.custom_create_method || self.class.custom_update_method)
+        connection.write_lobs(self.class.table_name, self.class, attributes, @changed_lob_columns || self.class.lob_columns)
+      end
+    end
+    def record_changed_lobs
+      @changed_lob_columns = self.class.lob_columns.select{|col| self.send(:"#{col.name}_changed?") && !self.class.readonly_attributes.to_a.include?(col.name)}
+    end
+    private :enhanced_write_lobs
+    private :record_changed_lobs
+
+    # Get table comment from schema definition.
+    def self.table_comment
+      connection.table_comment(self.table_name)
+    end
+
+    def self.lob_columns
+      columns.select do |column|
+        column.respond_to?(:lob?) && column.lob?
+      end
+    end
+
+    def self.virtual_columns
+      columns.select do |column|
+        column.respond_to?(:virtual?) && column.virtual?
+      end
+    end
+
+    if ActiveRecord::VERSION::MAJOR < 3
+      def attributes_with_quotes_with_virtual_columns(include_primary_key = true, include_readonly_attributes = true, attribute_names = @attributes.keys)
+        virtual_column_names = self.class.virtual_columns.map(&:name)
+        attributes_with_quotes_without_virtual_columns(include_primary_key, include_readonly_attributes, attribute_names - virtual_column_names)
+      end
+
+      alias_method_chain :attributes_with_quotes, :virtual_columns
+    else
+      def arel_attributes_values_with_virtual_columns(include_primary_key = true, include_readonly_attributes = true, attribute_names = @attributes.keys)
+        virtual_column_names = self.class.virtual_columns.map(&:name)
+        arel_attributes_values_without_virtual_columns(include_primary_key, include_readonly_attributes, attribute_names - virtual_column_names)
+      end
+
+      alias_method_chain :arel_attributes_values, :virtual_columns
+    end
+
+  end
+
+end

data/lib/active_record/connection_adapters/oracle_enhanced_column.rb

@@ -0,0 +1,141 @@
+module ActiveRecord
+  module ConnectionAdapters #:nodoc:
+    class OracleEnhancedColumn < Column
+
+      attr_reader :table_name, :forced_column_type, :nchar, :virtual_column_data_default #:nodoc:
+
+      def initialize(name, default, sql_type = nil, null = true, table_name = nil, forced_column_type = nil, virtual=false) #:nodoc:
+        @table_name = table_name
+        @forced_column_type = forced_column_type
+        @virtual = virtual
+        @virtual_column_data_default = default.inspect if virtual
+        default = nil if virtual
+        super(name, default, sql_type, null)
+        # Is column NCHAR or NVARCHAR2 (will need to use N'...' value quoting for these data types)?
+        # Define only when needed as adapter "quote" method will check at first if instance variable is defined.
+        @nchar = true if @type == :string && sql_type[0,1] == 'N'
+      end
+
+      def type_cast(value) #:nodoc:
+        return OracleEnhancedColumn::string_to_raw(value) if type == :raw
+        return guess_date_or_time(value) if type == :datetime && OracleEnhancedAdapter.emulate_dates
+        super
+      end
+
+      def virtual?
+        @virtual
+      end
+
+      def lob?
+        self.sql_type =~ /LOB$/i
+      end
+
+      # convert something to a boolean
+      # added y as boolean value
+      def self.value_to_boolean(value) #:nodoc:
+        if value == true || value == false
+          value
+        elsif value.is_a?(String) && value.blank?
+          nil
+        else
+          %w(true t 1 y +).include?(value.to_s.downcase)
+        end
+      end
+
+      # convert Time or DateTime value to Date for :date columns
+      def self.string_to_date(string) #:nodoc:
+        return string.to_date if string.is_a?(Time) || string.is_a?(DateTime)
+        super
+      end
+
+      # convert Date value to Time for :datetime columns
+      def self.string_to_time(string) #:nodoc:
+        return string.to_time if string.is_a?(Date) && !OracleEnhancedAdapter.emulate_dates
+        super
+      end
+
+      # convert RAW column values back to byte strings.
+      def self.string_to_raw(string) #:nodoc:
+        string
+      end
+
+      # Get column comment from schema definition.
+      # Will work only if using default ActiveRecord connection.
+      def comment
+        ActiveRecord::Base.connection.column_comment(@table_name, name)
+      end
+      
+      private
+
+      def simplified_type(field_type)
+        forced_column_type ||
+        case field_type
+        when /decimal|numeric|number/i
+          if OracleEnhancedAdapter.emulate_booleans && field_type == 'NUMBER(1)'
+            :boolean
+          elsif extract_scale(field_type) == 0 ||
+                # if column name is ID or ends with _ID
+                OracleEnhancedAdapter.emulate_integers_by_column_name && OracleEnhancedAdapter.is_integer_column?(name, table_name)
+            :integer
+          else
+            :decimal
+          end
+        when /raw/i
+          :raw
+        when /char/i
+          if OracleEnhancedAdapter.emulate_booleans_from_strings &&
+             OracleEnhancedAdapter.is_boolean_column?(name, field_type, table_name)
+            :boolean
+          else
+            :string
+          end
+        when /date/i
+          if OracleEnhancedAdapter.emulate_dates_by_column_name && OracleEnhancedAdapter.is_date_column?(name, table_name)
+            :date
+          else
+            :datetime
+          end
+        when /timestamp/i
+          :timestamp
+        when /time/i
+          :datetime
+        else
+          super
+        end
+      end
+
+      def guess_date_or_time(value)
+        value.respond_to?(:hour) && (value.hour == 0 and value.min == 0 and value.sec == 0) ?
+          Date.new(value.year, value.month, value.day) : value
+      end
+      
+      class << self
+        protected
+
+        def fallback_string_to_date(string) #:nodoc:
+          if OracleEnhancedAdapter.string_to_date_format || OracleEnhancedAdapter.string_to_time_format
+            return (string_to_date_or_time_using_format(string).to_date rescue super)
+          end
+          super
+        end
+
+        def fallback_string_to_time(string) #:nodoc:
+          if OracleEnhancedAdapter.string_to_time_format || OracleEnhancedAdapter.string_to_date_format
+            return (string_to_date_or_time_using_format(string).to_time rescue super)
+          end
+          super
+        end
+
+        def string_to_date_or_time_using_format(string) #:nodoc:
+          if OracleEnhancedAdapter.string_to_time_format && dt=Date._strptime(string, OracleEnhancedAdapter.string_to_time_format)
+            return Time.parse("#{dt[:year]}-#{dt[:mon]}-#{dt[:mday]} #{dt[:hour]}:#{dt[:min]}:#{dt[:sec]}#{dt[:zone]}")
+          end
+          DateTime.strptime(string, OracleEnhancedAdapter.string_to_date_format).to_date
+        end
+        
+      end
+    end
+
+  end
+
+end

data/lib/active_record/connection_adapters/oracle_enhanced_connection.rb

@@ -0,0 +1,135 @@
+module ActiveRecord
+  module ConnectionAdapters
+    # interface independent methods
+    class OracleEnhancedConnection #:nodoc:
+
+      def self.create(config)
+        connection = create_connection(config)
+        unless connection.nil?
+          connection.after_initialize(config)
+        end
+        connection
+      end
+
+      def after_initialize(config)
+        schema = config[:schema]
+        unless schema.blank?
+          exec "alter session set current_schema = #{schema}"
+          @owner = schema.upcase
+        end
+      end
+
+      attr_reader :raw_connection
+
+      # Oracle column names by default are case-insensitive, but treated as upcase;
+      # for neatness, we'll downcase within Rails. EXCEPT that folks CAN quote
+      # their column names when creating Oracle tables, which makes then case-sensitive.
+      # I don't know anybody who does this, but we'll handle the theoretical case of a
+      # camelCase column name. I imagine other dbs handle this different, since there's a
+      # unit test that's currently failing test_oci.
+      def oracle_downcase(column_name)
+        return nil if column_name.nil?
+        column_name =~ /[a-z]/ ? column_name : column_name.downcase
+      end
+
+      # Used always by JDBC connection as well by OCI connection when describing tables over database link
+      def describe(name)
+        name = name.to_s
+        if name.include?('@')
+          name, db_link = name.split('@')
+          default_owner = select_value("SELECT username FROM all_db_links WHERE db_link = '#{db_link.upcase}'")
+          db_link = "@#{db_link}"
+        else
+          db_link = nil
+          default_owner = @owner
+        end
+        real_name = OracleEnhancedAdapter.valid_table_name?(name) ? name.upcase : name
+        if real_name.include?('.')
+          table_owner, table_name = real_name.split('.')
+        else
+          table_owner, table_name = default_owner, real_name
+        end
+        sql = <<-SQL
+          SELECT owner, table_name, 'TABLE' name_type
+          FROM all_tables#{db_link}
+          WHERE owner = '#{table_owner}'
+            AND table_name = '#{table_name}'
+          UNION ALL
+          SELECT owner, view_name table_name, 'VIEW' name_type
+          FROM all_views#{db_link}
+          WHERE owner = '#{table_owner}'
+            AND view_name = '#{table_name}'
+          UNION ALL
+          SELECT table_owner, DECODE(db_link, NULL, table_name, table_name||'@'||db_link), 'SYNONYM' name_type
+          FROM all_synonyms#{db_link}
+          WHERE owner = '#{table_owner}'
+            AND synonym_name = '#{table_name}'
+          UNION ALL
+          SELECT table_owner, DECODE(db_link, NULL, table_name, table_name||'@'||db_link), 'SYNONYM' name_type
+          FROM all_synonyms#{db_link}
+          WHERE owner = 'PUBLIC'
+            AND synonym_name = '#{real_name}'
+        SQL
+        if result = select_one(sql)
+          case result['name_type']
+          when 'SYNONYM'
+            describe("#{result['owner'] && "#{result['owner']}."}#{result['table_name']}#{db_link}")
+          else
+            db_link ? [result['owner'], result['table_name'], db_link] : [result['owner'], result['table_name']]
+          end
+        else
+          raise OracleEnhancedConnectionException, %Q{"DESC #{name}" failed; does it exist?}
+        end
+      end
+
+      # Returns a record hash with the column names as keys and column values
+      # as values.
+      def select_one(sql)
+        result = select(sql)
+        result.first if result
+      end
+
+      # Returns a single value from a record
+      def select_value(sql)
+        if result = select_one(sql)
+          result.values.first
+        end
+      end
+
+      # Returns an array of the values of the first column in a select:
+      #   select_values("SELECT id FROM companies LIMIT 3") => [1,2,3]
+      def select_values(sql, name = nil)
+        result = select(sql, name = nil)
+        result.map { |r| r.values.first }
+      end
+
+
+      protected
+      def self.create_connection(config)
+        case ORACLE_ENHANCED_CONNECTION
+        when :oci
+          OracleEnhancedOCIConnection.new(config)
+        when :jdbc
+          OracleEnhancedJDBCConnection.new(config)
+        else
+          nil
+        end
+      end
+    end
+    
+    class OracleEnhancedConnectionException < StandardError #:nodoc:
+    end
+  end
+end
+
+# if MRI or YARV
+if !defined?(RUBY_ENGINE) || RUBY_ENGINE == 'ruby'
+  ORACLE_ENHANCED_CONNECTION = :oci
+  require 'active_record/connection_adapters/oracle_enhanced_oci_connection'
+# if JRuby
+elsif RUBY_ENGINE == 'jruby'
+  ORACLE_ENHANCED_CONNECTION = :jdbc
+  require 'active_record/connection_adapters/oracle_enhanced_jdbc_connection'
+else
+  raise "Unsupported Ruby engine #{RUBY_ENGINE}"
+end

data/lib/active_record/connection_adapters/oracle_enhanced_context_index.rb

@@ -0,0 +1,359 @@
+module ActiveRecord
+  module ConnectionAdapters
+    module OracleEnhancedContextIndex
+
+      # Define full text index with Oracle specific CONTEXT index type
+      #
+      # Oracle CONTEXT index by default supports full text indexing of one column.
+      # This method allows full text index creation also on several columns
+      # as well as indexing related table columns by generating stored procedure
+      # that concatenates all columns for indexing as well as generating trigger
+      # that will update main index column to trigger reindexing of record.
+      #
+      # Use +contains+ ActiveRecord model instance method to add CONTAINS where condition
+      # and order by score of matched results.
+      #
+      # Options:
+      #
+      # * <tt>:name</tt>
+      # * <tt>:index_column</tt>
+      # * <tt>:index_column_trigger_on</tt>
+      # * <tt>:tablespace</tt>
+      # * <tt>:sync</tt> - 'MANUAL', 'EVERY "interval-string"' or 'ON COMMIT' (defaults to 'MANUAL').
+      # * <tt>:lexer</tt> - Lexer options (e.g. <tt>:type => 'BASIC_LEXER', :base_letter => true</tt>).
+      # * <tt>:wordlist</tt> - Wordlist options (e.g. <tt>:type => 'BASIC_WORDLIST', :prefix_index => true</tt>).
+      # * <tt>:transactional</tt> - When +true+, the CONTAINS operator will process inserted and updated rows.
+      #
+      # ===== Examples
+      #
+      # ====== Creating single column index
+      #  add_context_index :posts, :title
+      # search with
+      #  Post.contains(:title, 'word')
+      #
+      # ====== Creating index on several columns
+      #  add_context_index :posts, [:title, :body]
+      # search with (use first column as argument for contains method but it will search in all index columns)
+      #  Post.contains(:title, 'word')
+      #
+      # ====== Creating index on several columns with dummy index column and commit option
+      #  add_context_index :posts, [:title, :body], :index_column => :all_text, :sync => 'ON COMMIT'
+      # search with
+      #  Post.contains(:all_text, 'word')
+      #
+      # ====== Creating index with trigger option (will reindex when specified columns are updated)
+      #  add_context_index :posts, [:title, :body], :index_column => :all_text, :sync => 'ON COMMIT',
+      #                     :index_column_trigger_on => [:created_at, :updated_at]
+      # search with
+      #  Post.contains(:all_text, 'word')
+      #
+      # ====== Creating index on multiple tables
+      #  add_context_index :posts,
+      #   [:title, :body,
+      #   # specify aliases always with AS keyword
+      #   "SELECT comments.author AS comment_author, comments.body AS comment_body FROM comments WHERE comments.post_id = :id"
+      #   ],
+      #   :name => 'post_and_comments_index',
+      #   :index_column => :all_text, :index_column_trigger_on => [:updated_at, :comments_count],
+      #   :sync => 'ON COMMIT'
+      # search in any table columns
+      #  Post.contains(:all_text, 'word')
+      # search in specified column
+      #  Post.contains(:all_text, "aaa within title")
+      #  Post.contains(:all_text, "bbb within comment_author")
+      #
+      # ====== Creating index using lexer
+      #  add_context_index :posts, :title, :lexer => { :type => 'BASIC_LEXER', :base_letter => true, ... }
+      #
+      # ====== Creating index using wordlist
+      #  add_context_index :posts, :title, :wordlist => { :type => 'BASIC_WORDLIST', :prefix_index => true, ... }
+      #
+      # ====== Creating transactional index (will reindex changed rows when querying)
+      #  add_context_index :posts, :title, :transactional => true
+      #
+      def add_context_index(table_name, column_name, options = {})
+        self.all_schema_indexes = nil
+        column_names = Array(column_name)
+        index_name = options[:name] || index_name(table_name, :column => options[:index_column] || column_names,
+          # CONEXT index name max length is 25
+          :identifier_max_length => 25)
+
+        quoted_column_name = quote_column_name(options[:index_column] || column_names.first)
+        if options[:index_column_trigger_on]
+          raise ArgumentError, "Option :index_column should be specified together with :index_column_trigger_on option" \
+            unless options[:index_column]
+          create_index_column_trigger(table_name, index_name, options[:index_column], options[:index_column_trigger_on])
+        end
+
+        sql = "CREATE INDEX #{quote_column_name(index_name)} ON #{quote_table_name(table_name)}"
+        sql << " (#{quoted_column_name})"
+        sql << " INDEXTYPE IS CTXSYS.CONTEXT"
+        parameters = []
+        if column_names.size > 1
+          procedure_name = default_datastore_procedure(index_name)
+          datastore_name = default_datastore_name(index_name)
+          create_datastore_procedure(table_name, procedure_name, column_names, options)
+          create_datastore_preference(datastore_name, procedure_name)
+          parameters << "DATASTORE #{datastore_name} SECTION GROUP CTXSYS.AUTO_SECTION_GROUP"
+        end
+        if options[:tablespace]
+          storage_name = default_storage_name(index_name)
+          create_storage_preference(storage_name, options[:tablespace])
+          parameters << "STORAGE #{storage_name}"
+        end
+        if options[:sync]
+          parameters << "SYNC(#{options[:sync]})"
+        end
+        if options[:lexer] && (lexer_type = options[:lexer][:type])
+          lexer_name = default_lexer_name(index_name)
+          (lexer_options = options[:lexer].dup).delete(:type)
+          create_lexer_preference(lexer_name, lexer_type, lexer_options)
+          parameters << "LEXER #{lexer_name}"
+        end
+        if options[:wordlist] && (wordlist_type = options[:wordlist][:type])
+          wordlist_name = default_wordlist_name(index_name)
+          (wordlist_options = options[:wordlist].dup).delete(:type)
+          create_wordlist_preference(wordlist_name, wordlist_type, wordlist_options)
+          parameters << "WORDLIST #{wordlist_name}"
+        end
+        if options[:transactional]
+          parameters << "TRANSACTIONAL"
+        end
+        unless parameters.empty?
+          sql << " PARAMETERS ('#{parameters.join(' ')}')"
+        end
+        execute sql
+      end
+
+      # Drop full text index with Oracle specific CONTEXT index type
+      def remove_context_index(table_name, options = {})
+        self.all_schema_indexes = nil
+        unless Hash === options # if column names passed as argument
+          options = {:column => Array(options)}
+        end
+        index_name = options[:name] || index_name(table_name,
+          :column => options[:index_column] || options[:column], :identifier_max_length => 25)
+        execute "DROP INDEX #{index_name}"
+        drop_ctx_preference(default_datastore_name(index_name))
+        drop_ctx_preference(default_storage_name(index_name))
+        procedure_name = default_datastore_procedure(index_name)
+        execute "DROP PROCEDURE #{quote_table_name(procedure_name)}" rescue nil
+        drop_index_column_trigger(index_name)
+      end
+
+      private
+
+      def create_datastore_procedure(table_name, procedure_name, column_names, options)
+        quoted_table_name = quote_table_name(table_name)
+        select_queries, column_names = column_names.partition { |c| c.to_s =~ /^\s*SELECT\s+/i }
+        select_queries = select_queries.map { |s| s.strip.gsub(/\s+/, ' ') }
+        keys, selected_columns = parse_select_queries(select_queries)
+        quoted_column_names = (column_names+keys).map{|col| quote_column_name(col)}
+        execute compress_lines(<<-SQL)
+          CREATE OR REPLACE PROCEDURE #{quote_table_name(procedure_name)}
+            (p_rowid IN	      ROWID,
+            p_clob	IN OUT NOCOPY CLOB) IS
+            -- add_context_index_parameters #{(column_names+select_queries).inspect}#{!options.empty? ? ', ' << options.inspect[1..-2] : ''}
+            #{
+            selected_columns.map do |cols|
+              cols.map do |col|
+                raise ArgumentError, "Alias #{col} too large, should be 28 or less characters long" unless col.length <= 28
+                "l_#{col} VARCHAR2(32767);\n"
+              end.join
+            end.join
+            } BEGIN
+            FOR r1 IN (
+              SELECT #{quoted_column_names.join(', ')}
+              FROM	 #{quoted_table_name}
+              WHERE  #{quoted_table_name}.ROWID = p_rowid
+            ) LOOP
+              #{
+              (column_names.map do |col|
+                col = col.to_s
+                "DBMS_LOB.WRITEAPPEND(p_clob, #{col.length+2}, '<#{col}>');\n" <<
+                "IF LENGTH(r1.#{col}) > 0 THEN\n" <<
+                "DBMS_LOB.WRITEAPPEND(p_clob, LENGTH(r1.#{col}), r1.#{col});\n" <<
+                "END IF;\n" <<
+                "DBMS_LOB.WRITEAPPEND(p_clob, #{col.length+3}, '</#{col}>');\n"
+              end.join) <<
+              (selected_columns.zip(select_queries).map do |cols, query|
+                (cols.map do |col|
+                  "l_#{col} := '';\n"
+                end.join) <<
+                "FOR r2 IN (\n" <<
+                query.gsub(/:(\w+)/,"r1.\\1") << "\n) LOOP\n" <<
+                (cols.map do |col|
+                  "l_#{col} := l_#{col} || r2.#{col} || CHR(10);\n"
+                end.join) <<
+                "END LOOP;\n" <<
+                (cols.map do |col|
+                  col = col.to_s
+                  "DBMS_LOB.WRITEAPPEND(p_clob, #{col.length+2}, '<#{col}>');\n" <<
+                  "IF LENGTH(l_#{col}) > 0 THEN\n" <<
+                  "DBMS_LOB.WRITEAPPEND(p_clob, LENGTH(l_#{col}), l_#{col});\n" <<
+                  "END IF;\n" <<
+                  "DBMS_LOB.WRITEAPPEND(p_clob, #{col.length+3}, '</#{col}>');\n"
+                end.join)
+              end.join)
+              }
+            END LOOP;
+          END;
+        SQL
+      end
+
+      def parse_select_queries(select_queries)
+        keys = []
+        selected_columns = []
+        select_queries.each do |query|
+          # get primary or foreign keys like :id or :something_id
+          keys << (query.scan(/:\w+/).map{|k| k[1..-1].downcase.to_sym})
+          select_part = query.scan(/^select\s.*\sfrom/i).first
+          selected_columns << select_part.scan(/\sas\s+(\w+)/i).map{|c| c.first}
+        end
+        [keys.flatten.uniq, selected_columns]
+      end
+
+      def create_datastore_preference(datastore_name, procedure_name)
+        drop_ctx_preference(datastore_name)
+        execute <<-SQL
+          BEGIN
+            CTX_DDL.CREATE_PREFERENCE('#{datastore_name}', 'USER_DATASTORE');
+            CTX_DDL.SET_ATTRIBUTE('#{datastore_name}', 'PROCEDURE', '#{procedure_name}');
+          END;
+        SQL
+      end
+
+      def create_storage_preference(storage_name, tablespace)
+        drop_ctx_preference(storage_name)
+        sql = "BEGIN\nCTX_DDL.CREATE_PREFERENCE('#{storage_name}', 'BASIC_STORAGE');\n"
+        ['I_TABLE_CLAUSE', 'K_TABLE_CLAUSE', 'R_TABLE_CLAUSE',
+        'N_TABLE_CLAUSE', 'I_INDEX_CLAUSE', 'P_TABLE_CLAUSE'].each do |clause|
+          default_clause = case clause
+          when 'R_TABLE_CLAUSE'; 'LOB(DATA) STORE AS (CACHE) '
+          when 'I_INDEX_CLAUSE'; 'COMPRESS 2 '
+          else ''
+          end
+          sql << "CTX_DDL.SET_ATTRIBUTE('#{storage_name}', '#{clause}', '#{default_clause}TABLESPACE #{tablespace}');\n"
+        end
+        sql << "END;\n"
+        execute sql
+      end
+
+      def create_lexer_preference(lexer_name, lexer_type, options)
+        drop_ctx_preference(lexer_name)
+        sql = "BEGIN\nCTX_DDL.CREATE_PREFERENCE('#{lexer_name}', '#{lexer_type}');\n"
+        options.each do |key, value|
+          plsql_value = case value
+          when String; "'#{value}'"
+          when true; "'YES'"
+          when false; "'NO'"
+          when nil; 'NULL'
+          else value
+          end
+          sql << "CTX_DDL.SET_ATTRIBUTE('#{lexer_name}', '#{key}', #{plsql_value});\n"
+        end
+        sql << "END;\n"
+        execute sql
+      end
+
+      def create_wordlist_preference(wordlist_name, wordlist_type, options)
+        drop_ctx_preference(wordlist_name)
+        sql = "BEGIN\nCTX_DDL.CREATE_PREFERENCE('#{wordlist_name}', '#{wordlist_type}');\n"
+        options.each do |key, value|
+          plsql_value = case value
+          when String; "'#{value}'"
+          when true; "'YES'"
+          when false; "'NO'"
+          when nil; 'NULL'
+          else value
+          end
+          sql << "CTX_DDL.SET_ATTRIBUTE('#{wordlist_name}', '#{key}', #{plsql_value});\n"
+        end
+        sql << "END;\n"
+        execute sql
+      end
+
+      def drop_ctx_preference(preference_name)
+        execute "BEGIN CTX_DDL.DROP_PREFERENCE('#{preference_name}'); END;" rescue nil
+      end
+
+      def create_index_column_trigger(table_name, index_name, index_column, index_column_source)
+        trigger_name = default_index_column_trigger_name(index_name)
+        columns = Array(index_column_source)
+        quoted_column_names = columns.map{|col| quote_column_name(col)}.join(', ')
+        execute compress_lines(<<-SQL)
+          CREATE OR REPLACE TRIGGER #{quote_table_name(trigger_name)}
+          BEFORE UPDATE OF #{quoted_column_names} ON #{quote_table_name(table_name)} FOR EACH ROW
+          BEGIN
+            :new.#{quote_column_name(index_column)} := '1';
+          END;
+        SQL
+      end
+
+      def drop_index_column_trigger(index_name)
+        trigger_name = default_index_column_trigger_name(index_name)
+        execute "DROP TRIGGER #{quote_table_name(trigger_name)}" rescue nil
+      end
+
+      def default_datastore_procedure(index_name)
+        "#{index_name}_prc"
+      end
+
+      def default_datastore_name(index_name)
+        "#{index_name}_dst"
+      end
+
+      def default_storage_name(index_name)
+        "#{index_name}_sto"
+      end
+
+      def default_index_column_trigger_name(index_name)
+        "#{index_name}_trg"
+      end
+
+      def default_lexer_name(index_name)
+        "#{index_name}_lex"
+      end
+
+      def default_wordlist_name(index_name)
+        "#{index_name}_wl"
+      end
+
+      module BaseClassMethods
+        # Declare that model table has context index defined.
+        # As a result <tt>contains</tt> class scope method is defined.
+        def has_context_index
+          extend ContextIndexClassMethods
+        end
+      end
+
+      module ContextIndexClassMethods
+        # Add context index condition.
+        case ::ActiveRecord::VERSION::MAJOR
+        when 3
+          def contains(column, query, options ={})
+            score_label = options[:label].to_i || 1
+            where("CONTAINS(#{connection.quote_column_name(column)}, ?, #{score_label}) > 0", query).
+              order("SCORE(#{score_label}) DESC")
+          end
+        when 2
+          def contains(column, query, options ={})
+            score_label = options[:label].to_i || 1
+            scoped(:conditions => ["CONTAINS(#{connection.quote_column_name(column)}, ?, #{score_label}) > 0", query],
+              :order => "SCORE(#{score_label}) DESC")
+          end
+        end
+      end
+
+    end
+    
+  end
+end
+
+ActiveRecord::ConnectionAdapters::OracleEnhancedAdapter.class_eval do
+  include ActiveRecord::ConnectionAdapters::OracleEnhancedContextIndex
+end
+
+ActiveRecord::Base.class_eval do
+  extend ActiveRecord::ConnectionAdapters::OracleEnhancedContextIndex::BaseClassMethods
+end