redhillonrails_core 1.0.9.1 → 1.1.0

data/lib/red_hill_consulting/core/active_record/connection_adapters/mysql_adapter.rb

@@ -1,103 +0,0 @@
-module RedHillConsulting::Core::ActiveRecord::ConnectionAdapters
-  module MysqlAdapter
-    def self.included(base)
-      base.class_eval do
-        alias_method_chain :remove_column, :redhillonrails_core
-        alias_method_chain :connect, :redhillonrails_core
-      end
-    end
-
-    def connect_with_redhillonrails_core(*args)
-      result = connect_without_redhillonrails_core(*args)  
-      if version[0] < 5
-        self.class.send(:include, Mysql4Adapter) unless self.class.include?(Mysql4Adapter)
-      else
-        self.class.send(:include, Mysql5Adapter) unless self.class.include?(Mysql5Adapter)
-      end
-      result
-    end
-
-    def set_table_comment(table_name, comment)
-      execute "ALTER TABLE #{quote_table_name(table_name)} COMMENT='#{quote_string(comment)}'"
-    end
-    
-    def clear_table_comment(table_name)
-      execute "ALTER TABLE #{quote_table_name(table_name)} COMMENT=''"
-    end
-
-    def remove_foreign_key(table_name, foreign_key_name, options = {})
-      execute "ALTER TABLE #{quote_table_name(table_name)} DROP FOREIGN KEY #{foreign_key_name}"
-    end
-
-    def remove_column_with_redhillonrails_core(table_name, column_name)
-      foreign_keys(table_name).select { |foreign_key| foreign_key.column_names.include?(column_name.to_s) }.each do |foreign_key|
-        remove_foreign_key(table_name, foreign_key.name)
-      end
-      remove_column_without_redhillonrails_core(table_name, column_name)
-    end
-
-    def foreign_keys(table_name, name = nil)
-      results = execute("SHOW CREATE TABLE #{quote_table_name(table_name)}", name)
-
-      foreign_keys = []
-
-      results.each do |row|
-        row[1].lines.each do |line|
-          if line =~ /^  CONSTRAINT [`"](.+?)[`"] FOREIGN KEY \([`"](.+?)[`"]\) REFERENCES [`"](.+?)[`"] \((.+?)\)( ON DELETE (.+?))?( ON UPDATE (.+?))?,?$/
-            name = $1
-            column_names = $2
-            references_table_name = $3
-            references_column_names = $4
-            on_update = $8
-            on_delete = $6
-            on_update = on_update.downcase.gsub(' ', '_').to_sym if on_update
-            on_delete = on_delete.downcase.gsub(' ', '_').to_sym if on_delete
-
-            foreign_keys << ForeignKeyDefinition.new(name,
-                                           table_name, column_names.gsub('`', '').split(', '),
-                                           references_table_name, references_column_names.gsub('`', '').split(', '),
-                                           on_update, on_delete)
-         end
-       end
-      end
-
-      foreign_keys
-    end
-
-    def reverse_foreign_keys(table_name, name = nil)
-      @@schema ||= nil
-      @@schema_version ||= 0
-      current_version = ActiveRecord::Migrator.current_version
-      if @@schema.nil? || @@schema_version != current_version
-        @@schema_version = current_version
-        ans = execute(<<-SQL, name)
-        SELECT constraint_name, table_name, column_name, referenced_table_name, referenced_column_name
-          FROM information_schema.key_column_usage
-         WHERE table_schema = SCHEMA()
-           AND referenced_table_schema = table_schema
-         ORDER BY constraint_name, ordinal_position;
-        SQL
-        @@schema = []
-        ans.each do | row |
-          @@schema << [row[0], row[1], row[2], row[3], row[4]]
-        end
-      end
-      results = @@schema
-      current_foreign_key = nil
-      foreign_keys = []
-
-      results.each do |row|
-        next if row[3] != table_name
-        if current_foreign_key != row[0]
-          foreign_keys << ForeignKeyDefinition.new(row[0], row[1], [], row[3], [])
-          current_foreign_key = row[0]
-        end
-
-        foreign_keys.last.column_names << row[2]
-        foreign_keys.last.references_column_names << row[4]
-      end
-
-      foreign_keys
-    end
-  end
-end

data/lib/red_hill_consulting/core/active_record/connection_adapters/mysql_column.rb

@@ -1,8 +0,0 @@
-module RedHillConsulting::Core::ActiveRecord::ConnectionAdapters
-  module MysqlColumn
-    def initialize(name, default, sql_type = nil, null = true)
-      default = nil if !null && default.blank?
-      super
-    end
-  end
-end

data/lib/red_hill_consulting/core/active_record/connection_adapters/postgresql_adapter.rb

@@ -1,178 +0,0 @@
-module RedHillConsulting::Core::ActiveRecord::ConnectionAdapters
-  module PostgresqlAdapter
-    def self.included(base)
-      base.class_eval do
-        alias_method_chain :indexes, :redhillonrails_core
-      end
-    end
-
-    def set_table_comment(table_name, comment)
-      execute "COMMENT ON TABLE #{quote_table_name(table_name)} IS '#{quote_string(comment)}'"
-    end
-
-    def clear_table_comment(table_name)
-      execute "COMMENT ON TABLE #{quote_table_name(table_name)} IS NULL"
-    end
-
-    def add_index(table_name, column_name, options = {})
-      column_name, options = [], column_name if column_name.is_a?(Hash)
-      column_names = Array(column_name)
-      if column_names.empty?
-        raise ArgumentError, "No columns and :expression missing from options - cannot create index" if options[:expression].blank?
-        raise ArgumentError, "Index name not given. Pass :name option" if options[:name].blank?
-      end
-        
-      index_type = options[:unique] ? "UNIQUE" : ""
-      index_name = options[:name] || index_name(table_name, column_names)
-      conditions = options[:conditions]
-
-      if column_names.empty? then
-        sql = "CREATE #{index_type} INDEX #{quote_column_name(index_name)} ON #{quote_table_name(table_name)} #{options[:expression]}"
-      else
-        quoted_column_names = column_names.map { |e| options[:case_sensitive] == false && e.to_s !~ /_id$/ ? "LOWER(#{quote_column_name(e)})" : quote_column_name(e) }
-
-        sql = "CREATE #{index_type} INDEX #{quote_column_name(index_name)} ON #{quote_table_name(table_name)} (#{quoted_column_names.join(", ")})"
-        sql += " WHERE (#{ ActiveRecord::Base.send(:sanitize_sql, conditions, quote_table_name(table_name)) })" if conditions
-      end
-      execute sql
-    end
-
-    def supports_partial_indexes?
-      true
-    end
-      
-    INDEX_CASE_INSENSITIVE_REGEX = /\((.*LOWER\([^:]+(::text)?\).*)\)/i
-    INDEX_PARTIAL_REGEX = /\((.*)\)\s+WHERE (.*)$/i
-    INDEX_NON_BTREE_REGEX = /((?:gin|gist|hash).*)$/i
-
-    def indexes_with_redhillonrails_core(table_name, name = nil)
-      indexes = indexes_without_redhillonrails_core(table_name, name)
-      # Process indexes containg expressions and partial indexes
-      # Ie. consider 
-      result = query(<<-SQL, name)
-        SELECT c2.relname, i.indisunique, pg_catalog.pg_get_indexdef(i.indexrelid, 0, true)
-          FROM pg_catalog.pg_class c, pg_catalog.pg_class c2, pg_catalog.pg_index i
-         WHERE c.relname = '#{table_name}'
-           AND c.oid = i.indrelid AND i.indexrelid = c2.oid
-           AND i.indisprimary = 'f' 
-           AND (i.indexprs IS NOT NULL OR i.indpred IS NOT NULL)
-         ORDER BY 1
-      SQL
-
-
-      # Correctly process complex indexes, ie:
-      # CREATE INDEX test_index ON custom_pages USING btree (lower(title::text), created_at) WHERE kind = 1 AND author_id = 3
-      result.each do |(index_name, unique, index_def)|
-        case_sensitive_match = INDEX_CASE_INSENSITIVE_REGEX.match(index_def)
-        partial_index_match = INDEX_PARTIAL_REGEX.match(index_def)
-        if non_btree_match = INDEX_NON_BTREE_REGEX.match(index_def) || (case_sensitive_match && partial_index_match) then
-          # If we have both types of indexes simultaneously, we don't try to parse it all: simply assume it's an expression index
-          indexes.delete_if { |index| index.name == index_name } # prevent duplicated indexes
-
-          index = ActiveRecord::ConnectionAdapters::IndexDefinition.new(table_name, index_name, false, nil)
-          index.expression = if case_sensitive_match then
-                               index_def.split(/using/i, 2).last.strip
-                             else
-                               non_btree_match[1]
-                             end
-          indexes << index
-        elsif case_sensitive_match || partial_index_match then
-          # column_definitions may be ie. 'LOWER(lower)' or 'login, deleted_at' or LOWER(login), deleted_at
-          column_definitions = case_sensitive_match ? case_sensitive_match[1] : partial_index_match[1] 
-
-          indexes.delete_if { |index| index.name == index_name } # prevent duplicated indexes
-          column_names = determine_index_column_names(column_definitions)
-
-          index = ActiveRecord::ConnectionAdapters::IndexDefinition.new(table_name, index_name, unique == "t", column_names)
-          index.case_sensitive = !case_sensitive_match
-          # conditions may be ie. active = true AND deleted_at IS NULL. 
-          index.conditions = partial_index_match[2] if partial_index_match 
-          indexes << index
-
-        end
-      end
-
-      indexes
-    end
-
-    def foreign_keys(table_name, name = nil)
-      load_foreign_keys(<<-SQL, name)
-        SELECT f.conname, pg_get_constraintdef(f.oid), t.relname
-          FROM pg_class t, pg_constraint f
-         WHERE f.conrelid = t.oid
-           AND f.contype = 'f'
-           AND t.relname = '#{table_name}'
-      SQL
-    end
-
-    def reverse_foreign_keys(table_name, name = nil)
-      load_foreign_keys(<<-SQL, name)
-        SELECT f.conname, pg_get_constraintdef(f.oid), t2.relname
-          FROM pg_class t, pg_class t2, pg_constraint f
-         WHERE f.confrelid = t.oid
-           AND f.conrelid = t2.oid
-           AND f.contype = 'f'
-           AND t.relname = '#{table_name}'
-      SQL
-    end
-
-    def views(name = nil)
-      schemas = schema_search_path.split(/,/).map { |p| quote(p) }.join(',')
-      query(<<-SQL, name).map { |row| row[0] }
-        SELECT viewname
-          FROM pg_views
-         WHERE schemaname IN (#{schemas})
-      SQL
-    end
-    
-    def view_definition(view_name, name = nil)
-      result = query(<<-SQL, name)
-        SELECT pg_get_viewdef(oid)
-          FROM pg_class
-         WHERE relkind = 'v'
-           AND relname = '#{view_name}'
-      SQL
-      row = result.first
-      row.first unless row.nil?
-    end
-
-    private
-
-    def load_foreign_keys(sql, name = nil)
-      foreign_keys = []
-
-      query(sql, name).each do |row|
-          if row[1] =~ /^FOREIGN KEY \((.+?)\) REFERENCES (.+?)\((.+?)\)( ON UPDATE (.+?))?( ON DELETE (.+?))?( (DEFERRABLE|NOT DEFERRABLE))?$/
-              name = row[0]
-              from_table_name = row[2]
-              column_names = $1
-              references_table_name = $2
-              references_column_names = $3
-              on_update = $5
-              on_delete = $7
-              deferrable = $9 == "DEFERRABLE"
-              on_update = on_update.downcase.gsub(' ', '_').to_sym if on_update
-              on_delete = on_delete.downcase.gsub(' ', '_').to_sym if on_delete
-
-              foreign_keys << ForeignKeyDefinition.new(name,
-                                             from_table_name, column_names.split(', '),
-                                             references_table_name.sub(/^"(.*)"$/, '\1'), references_column_names.split(', '),
-                                             on_update, on_delete, deferrable)
-          end
-      end
-
-      foreign_keys
-    end
-
-    # Converts form like: column1, LOWER(column2)
-    # to: column1, column2
-    def determine_index_column_names(column_definitions)
-      column_definitions.split(", ").map do |name|
-        name = $1 if name =~ /^LOWER\(([^:]+)(::text)?\)$/i
-        name = $1 if name =~ /^"(.*)"$/
-          name
-      end
-    end
-
-  end
-end

data/lib/red_hill_consulting/core/active_record/connection_adapters/schema_statements.rb

@@ -1,23 +0,0 @@
-module RedHillConsulting::Core::ActiveRecord::ConnectionAdapters
-	module SchemaStatements
-		def self.included(base)
-			base.module_eval do
-				alias_method_chain :create_table, :redhillonrails_core
-			end
-		end
-
-		def create_table_with_redhillonrails_core(name, options = {})
-			if options.include?(:comment)
-				options = options.dup
-				comment = options.delete(:comment)
-			end
-
-			create_table_without_redhillonrails_core(name, options) do |table_defintion|
-				table_defintion.name = name
-				yield table_defintion if block_given?
-			end
-
-			set_table_comment(name, comment) if comment
-		end
-	end
-end

data/lib/red_hill_consulting/core/active_record/connection_adapters/sqlite3_adapter.rb

@@ -1,109 +0,0 @@
-module RedHillConsulting::Core::ActiveRecord::ConnectionAdapters
-  module Sqlite3Adapter
-    def self.included(base)
-      base.class_eval do
-        alias_method_chain :tables, :redhillonrails_core
-      end
-    end
-
-    def move_table(from, to, options = {}, &block) #:nodoc:
-      copy_table(from, to, options, &block)
-      drop_table(from, options)
-    end
-    
-    def add_foreign_key(from_table_name, from_column_names, to_table_name, to_column_names, options = {})
-      initialize_sqlite3_foreign_key_table
-      from_column_names = Array(from_column_names)
-      to_column_names = Array(to_column_names)
-      fk_name = options[:name] || ["fk", from_table_name, *to_column_names].join("_")
-
-      columns = %w(name from_table_name from_column_names to_table_name to_column_names)
-      values = [fk_name, from_table_name, from_column_names.join(","), to_table_name, to_column_names.join(",")]
-
-      quoted_values = values.map { |x| quote(x.to_s) }.join(",")
-
-      # TODO: support options
-
-      insert <<-SQL
-        INSERT INTO #{sqlite3_foreign_key_table}(#{quoted_columns(columns)})
-        VALUES (#{quoted_values})
-      SQL
-    end
-
-    def remove_foreign_key(table_name, foreign_key_name, options = {})
-      return if options[:temporary] == true
-      initialize_sqlite3_foreign_key_table
-
-      rows_deleted = delete <<-SQL
-        DELETE FROM #{sqlite3_foreign_key_table}
-         WHERE #{quote_column_name("name")} = #{quote(foreign_key_name.to_s)}
-           AND #{quote_column_name("from_table_name")} = #{quote(table_name.to_s)}
-      SQL
-      
-      if rows_deleted != 1
-        raise ActiveRecord::ActiveRecordError, "Foreign-key '#{foreign_key_name}' on table '#{table_name}' not found"
-      end
-    end
-
-    def tables_with_redhillonrails_core(name=nil)
-      tables_without_redhillonrails_core.reject{ |name| name == sqlite3_foreign_key_table }
-    end
-
-    def foreign_keys(table_name, name = nil)
-      load_foreign_keys("from_table_name", table_name, name)
-    end
-
-    def reverse_foreign_keys(table_name, name = nil)
-      load_foreign_keys("to_table_name", table_name, name)
-    end
-
-    # TODO: tests!
-    
-    private
-
-    def quoted_columns(columns)
-      columns.map { |x| quote_column_name(x) }.join(",")
-    end
-
-    def sqlite3_foreign_key_table
-      "sqlite3_foreign_keys"
-    end
-
-    def initialize_sqlite3_foreign_key_table
-      unless sqlite3_foreign_key_table_exists?
-        create_table(sqlite3_foreign_key_table, :id => false) do |t|
-          t.string "name",              :null => false
-          t.string "from_table_name",   :null => false
-          t.string "from_column_names", :null => false
-          t.string "to_table_name",     :null => false
-          t.string "to_column_names",   :null => false
-        end
-        add_index(sqlite3_foreign_key_table, "name",            :unique => true)
-        add_index(sqlite3_foreign_key_table, "from_table_name", :unique => false)
-        add_index(sqlite3_foreign_key_table, "to_table_name",   :unique => false)
-      end
-    end
-    
-    def sqlite3_foreign_key_table_exists?
-      tables_without_redhillonrails_core.detect { |name| name == sqlite3_foreign_key_table }
-    end
-
-    def load_foreign_keys(discriminating_column, table_name, name = nil)
-      rows = select_all(<<-SQL, name)
-        SELECT *
-          FROM #{sqlite3_foreign_key_table}
-         WHERE #{quote_column_name(discriminating_column)} = #{quote(table_name.to_s)}
-      SQL
-
-      rows.map do |row|
-        ForeignKeyDefinition.new(
-          row["name"],
-          row["from_table_name"], row["from_column_names"].split(","),
-          row["to_table_name"], row["to_column_names"].split(",")
-        )
-      end
-    end
-
-  end
-
-end

data/lib/red_hill_consulting/core/active_record/connection_adapters/table_definition.rb

@@ -1,27 +0,0 @@
-module RedHillConsulting::Core::ActiveRecord::ConnectionAdapters
-  module TableDefinition
-    def self.included(base)
-      base.class_eval do
-        attr_accessor :name
-        alias_method_chain :initialize, :redhillonrails_core
-        alias_method_chain :to_sql, :redhillonrails_core
-      end
-    end
-
-    def initialize_with_redhillonrails_core(*args)
-      initialize_without_redhillonrails_core(*args)
-      @foreign_keys = []
-    end
-
-    def foreign_key(column_names, references_table_name, references_column_names, options = {})
-      @foreign_keys << ForeignKeyDefinition.new(options[:name], nil, column_names, ActiveRecord::Migrator.proper_table_name(references_table_name), references_column_names, options[:on_update], options[:on_delete], options[:deferrable])
-      self
-    end
-
-    def to_sql_with_redhillonrails_core
-      sql = to_sql_without_redhillonrails_core
-      sql << ', ' << @foreign_keys * ', ' unless @foreign_keys.empty? || ActiveRecord::Schema.defining?
-      sql
-    end
-  end
-end

data/lib/red_hill_consulting/core/active_record/schema.rb

@@ -1,25 +0,0 @@
-module RedHillConsulting::Core::ActiveRecord
-  module Schema
-    def self.included(base)
-      base.extend(ClassMethods)
-    end
-
-    module ClassMethods
-      def self.extended(base)
-        class << base
-          attr_accessor :defining
-          alias :defining? :defining
-
-          alias_method_chain :define, :redhillonrails_core
-        end
-      end
-
-      def define_with_redhillonrails_core(info={}, &block)
-        self.defining = true
-        define_without_redhillonrails_core(info, &block)
-      ensure
-        self.defining = false
-      end
-    end
-  end
-end

data/lib/red_hill_consulting/core/active_record/schema_dumper.rb

@@ -1,66 +0,0 @@
-module RedHillConsulting::Core::ActiveRecord
-  module SchemaDumper
-    def self.included(base)
-      base.class_eval do
-        private
-        alias_method_chain :tables, :redhillonrails_core
-        alias_method_chain :indexes, :redhillonrails_core
-      end
-    end
-
-    private
-
-    def tables_with_redhillonrails_core(stream)
-      @foreign_keys = StringIO.new
-      begin
-        tables_without_redhillonrails_core(stream)
-        @foreign_keys.rewind
-        stream.print @foreign_keys.read
-        views(stream)
-      ensure
-        @foreign_keys = nil
-      end
-    end
-
-    def indexes_with_redhillonrails_core(table, stream)
-      indexes = @connection.indexes(table)
-      indexes.each do |index|
-        if index.expression.blank? then
-          stream.print "  add_index #{index.table.inspect}, #{index.columns.inspect}, :name => #{index.name.inspect}"
-          stream.print ", :unique => true" if index.unique
-          stream.print ", :case_sensitive => false" unless index.case_sensitive?
-          stream.print ", :conditions => #{index.conditions.inspect}" unless index.conditions.blank?
-        else
-          stream.print "  add_index #{index.table.inspect}"
-          stream.print ", :expression => #{index.expression.inspect}"
-          stream.print ", :name => #{index.name.inspect}"
-        end
-
-        stream.puts
-      end
-      stream.puts unless indexes.empty?
-
-      foreign_keys(table, @foreign_keys)
-    end
-
-    def foreign_keys(table, stream)
-      foreign_keys = @connection.foreign_keys(table)
-      foreign_keys.each do |foreign_key|
-        stream.print "  "
-        stream.print foreign_key.to_dump
-        stream.puts
-      end
-      stream.puts unless foreign_keys.empty?
-    end
-    
-    def views(stream)
-      views = @connection.views
-      views.each do |view_name|
-        definition = @connection.view_definition(view_name)
-        stream.print "  create_view #{view_name.inspect}, #{definition.inspect}"
-        stream.puts
-      end
-      stream.puts unless views.empty?
-    end
-  end
-end

data/lib/red_hill_consulting/core/active_record.rb

@@ -1,4 +0,0 @@
-module RedHillConsulting::Core
-  module ActiveRecord
-  end
-end

data/lib/red_hill_consulting/core.rb

@@ -1,4 +0,0 @@
-module RedHillConsulting
-  module Core
-  end
-end

data/tasks/db/comments.rake

@@ -1,9 +0,0 @@
-namespace :db do
-  desc "Describe all the tables in the database by reading the table comments"
-  task :comments => :environment do
-    ActiveRecord::Base.connection.tables.sort.each do |table_name|
-      comment = ActiveRecord::Base.connection.table_comment(table_name)
-      puts "#{table_name} - #{comment}"
-    end
-  end
-end