dm-hibernate-migrations 1.0.0

data/lib/dm-migrations.rb

@@ -0,0 +1,3 @@
+require 'dm-core'
+require 'dm-migrations/migration'
+require 'dm-migrations/auto_migration'

data/lib/dm-migrations/adapters/dm-do-adapter.rb

@@ -0,0 +1,284 @@
+require 'dm-migrations/auto_migration'
+
+module DataMapper
+  module Migrations
+
+    module DataObjectsAdapter
+
+      def dialect
+        self.class.to_s.sub(/.*::/, '').sub(/Adapter$/,'')
+      end
+
+      # Returns whether the storage_name exists.
+      #
+      # @param [String] storage_name
+      #   a String defining the name of a storage, for example a table name.
+      #
+      # @return [Boolean]
+      #   true if the storage exists
+      #
+      # @api semipublic
+      def storage_exists?(storage_name)
+        statement = <<-SQL.compress_lines
+          SELECT COUNT(*)
+          FROM "information_schema"."tables"
+          WHERE "table_type" = 'BASE TABLE'
+          AND "table_schema" = ?
+          AND "table_name" = ?
+        SQL
+
+        select(statement, schema_name, storage_name).first > 0
+      end
+
+      # Returns whether the field exists.
+      #
+      # @param [String] storage_name
+      #   a String defining the name of a storage, for example a table name.
+      # @param [String] field
+      #   a String defining the name of a field, for example a column name.
+      #
+      # @return [Boolean]
+      #   true if the field exists.
+      #
+      # @api semipublic
+      def field_exists?(storage_name, column_name)
+        statement = <<-SQL.compress_lines
+          SELECT COUNT(*)
+          FROM "information_schema"."columns"
+          WHERE "table_schema" = ?
+          AND "table_name" = ?
+          AND "column_name" = ?
+        SQL
+
+        select(statement, schema_name, storage_name, column_name).first > 0
+      end
+
+      # @api semipublic
+      def upgrade_model_storage(model)
+        name       = self.name
+        properties = model.properties_with_subclasses(name)
+
+        if success = create_model_storage(model)
+          return properties
+        end
+
+        table_name = model.storage_name(name)
+
+        with_connection do |connection|
+          properties.map do |property|
+            schema_hash = property_schema_hash(property)
+            next if field_exists?(table_name, schema_hash[:name])
+
+            statement = alter_table_add_column_statement(connection, table_name, schema_hash)
+            command   = connection.create_command(statement)
+            command.execute_non_query
+
+            property
+          end.compact
+        end
+      end
+
+      # @api semipublic
+      def create_model_storage(model)
+        name       = self.name
+        properties = model.properties_with_subclasses(name)
+
+        return false if storage_exists?(model.storage_name(name))
+        return false if properties.empty?
+
+        with_connection do |connection|
+          statements = [ create_table_statement(connection, model, properties) ]
+          statements.concat(create_index_statements(model))
+          statements.concat(create_unique_index_statements(model))
+
+          statements.each do |statement|
+            command   = connection.create_command(statement)
+            command.execute_non_query
+          end
+        end
+
+        true
+      end
+
+      # @api semipublic
+      def destroy_model_storage(model)
+        return true unless supports_drop_table_if_exists? || storage_exists?(model.storage_name(name))
+        execute(drop_table_statement(model))
+        true
+      end
+
+      module SQL #:nodoc:
+#        private  ## This cannot be private for current migrations
+
+        # Adapters that support AUTO INCREMENT fields for CREATE TABLE
+        # statements should overwrite this to return true
+        #
+        # @api private
+        def supports_serial?
+          false
+        end
+
+        # @api private
+        def supports_drop_table_if_exists?
+          false
+        end
+
+        # @api private
+        def schema_name
+          raise NotImplementedError, "#{self.class}#schema_name not implemented"
+        end
+
+        # @api private
+        def alter_table_add_column_statement(connection, table_name, schema_hash)
+          "ALTER TABLE #{quote_name(table_name)} ADD COLUMN #{property_schema_statement(connection, schema_hash)}"
+        end
+
+        # @api private
+        def create_table_statement(connection, model, properties)
+          statement = <<-SQL.compress_lines
+            CREATE TABLE #{quote_name(model.storage_name(name))}
+            (#{properties.map { |property| property_schema_statement(connection, property_schema_hash(property)) }.join(', ')},
+            PRIMARY KEY(#{ properties.key.map { |property| quote_name(property.field) }.join(', ')}))
+          SQL
+
+          statement
+        end
+
+        # @api private
+        def drop_table_statement(model)
+          table_name = quote_name(model.storage_name(name))
+          if supports_drop_table_if_exists?
+            "DROP TABLE IF EXISTS #{table_name}"
+          else
+            "DROP TABLE #{table_name}"
+          end
+        end
+
+        # @api private
+        def create_index_statements(model)
+          name       = self.name
+          table_name = model.storage_name(name)
+
+          indexes(model).map do |index_name, fields|
+            <<-SQL.compress_lines
+              CREATE INDEX #{quote_name("index_#{table_name}_#{index_name}")} ON
+              #{quote_name(table_name)} (#{fields.map { |field| quote_name(field) }.join(', ')})
+            SQL
+          end
+        end
+
+        # @api private
+        def create_unique_index_statements(model)
+          name           = self.name
+          table_name     = model.storage_name(name)
+          key            = model.key(name).map { |property| property.field }
+          unique_indexes = unique_indexes(model).reject { |index_name, fields| fields == key }
+
+          unique_indexes.map do |index_name, fields|
+            <<-SQL.compress_lines
+              CREATE UNIQUE INDEX #{quote_name("unique_#{table_name}_#{index_name}")} ON
+              #{quote_name(table_name)} (#{fields.map { |field| quote_name(field) }.join(', ')})
+            SQL
+          end
+        end
+
+        # @api private
+        def property_schema_hash(property)
+          primitive = property.primitive
+          type      = property.type
+          type_map  = self.class.type_map
+
+          schema = (type_map[property.class] || type_map[primitive] || type_map[type]).merge(:name => property.field)
+
+          schema_primitive = schema[:primitive]
+
+          if primitive == String && schema_primitive != 'TEXT' && schema_primitive != 'CLOB' && schema_primitive != 'NVARCHAR'
+            schema[:length] = property.length
+          elsif primitive == BigDecimal || primitive == Float
+            schema[:precision] = property.precision
+            schema[:scale]     = property.scale
+          end
+
+          schema[:allow_nil] = property.allow_nil?
+          schema[:serial]    = property.serial?
+
+          default = property.default
+
+          if default.nil? || default.respond_to?(:call)
+            # remove the default if the property does not allow nil
+            schema.delete(:default) unless schema[:allow_nil]
+          else
+            schema[:default] = if type.respond_to?(:dump)
+              type.dump(default, property)
+            else
+              default
+            end
+          end
+
+          schema
+        end
+
+        # @api private
+        def property_schema_statement(connection, schema)
+          statement = quote_name(schema[:name])
+          statement << " #{schema[:primitive]}"
+
+          length = schema[:length]
+
+          if schema[:precision] && schema[:scale]
+            statement << "(#{[ :precision, :scale ].map { |key| connection.quote_value(schema[key]) }.join(', ')})"
+          elsif length == 'max'
+            statement << '(max)'
+          elsif length
+            statement << "(#{connection.quote_value(length)})"
+          end
+
+          statement << " DEFAULT #{connection.quote_value(schema[:default])}" if schema.key?(:default)
+          statement << ' NOT NULL' unless schema[:allow_nil]
+          statement
+        end
+
+        # @api private
+        def indexes(model)
+          model.properties(name).indexes
+        end
+
+        # @api private
+        def unique_indexes(model)
+          model.properties(name).unique_indexes
+        end
+      end # module SQL
+
+      include SQL
+
+      module ClassMethods
+        # Default types for all data object based adapters.
+        #
+        # @return [Hash] default types for data objects adapters.
+        #
+        # @api private
+        def type_map
+          length    = Property::String::DEFAULT_LENGTH
+          precision = Property::Numeric::DEFAULT_PRECISION
+          scale     = Property::Decimal::DEFAULT_SCALE
+
+          @type_map ||= {
+            Property::Binary => { :primitive => 'BLOB'                                              },
+            Object           => { :primitive => 'TEXT'                                              },
+            Integer          => { :primitive => 'INTEGER'                                           },
+            String           => { :primitive => 'VARCHAR', :length => length                        },
+            Class            => { :primitive => 'VARCHAR', :length => length                        },
+            BigDecimal       => { :primitive => 'DECIMAL', :precision => precision, :scale => scale },
+            Float            => { :primitive => 'FLOAT',   :precision => precision                  },
+            DateTime         => { :primitive => 'TIMESTAMP'                                         },
+            Date             => { :primitive => 'DATE'                                              },
+            Time             => { :primitive => 'TIMESTAMP'                                         },
+            TrueClass        => { :primitive => 'BOOLEAN'                                           },
+            Property::Text   => { :primitive => 'TEXT'                                              },
+          }.freeze
+        end
+      end
+    end
+
+  end
+end

data/lib/dm-migrations/adapters/dm-mysql-adapter.rb

@@ -0,0 +1,283 @@
+require 'dm-migrations/auto_migration'
+require 'dm-migrations/adapters/dm-do-adapter'
+
+module DataMapper
+  module Migrations
+    module MysqlAdapter
+
+      DEFAULT_ENGINE        = 'InnoDB'.freeze
+      DEFAULT_CHARACTER_SET = 'utf8'.freeze
+      DEFAULT_COLLATION     = 'utf8_unicode_ci'.freeze
+
+      include DataObjectsAdapter
+
+      # @api private
+      def self.included(base)
+        base.extend DataObjectsAdapter::ClassMethods
+        base.extend ClassMethods
+      end
+
+      # @api semipublic
+      def storage_exists?(storage_name)
+        select('SHOW TABLES LIKE ?', storage_name).first == storage_name
+      end
+
+      # @api semipublic
+      def field_exists?(storage_name, field)
+        result = select("SHOW COLUMNS FROM #{quote_name(storage_name)} LIKE ?", field).first
+        result ? result.field == field : false
+      end
+
+      module SQL #:nodoc:
+#        private  ## This cannot be private for current migrations
+
+        # @api private
+        def supports_serial?
+          true
+        end
+
+        # @api private
+        def supports_drop_table_if_exists?
+          true
+        end
+
+        # @api private
+        def schema_name
+          # TODO: is there a cleaner way to find out the current DB we are connected to?
+          normalized_uri.path.split('/').last
+        end
+
+        # @api private
+        def create_table_statement(connection, model, properties)
+          "#{super} ENGINE = #{DEFAULT_ENGINE} CHARACTER SET #{character_set} COLLATE #{collation}"
+        end
+
+        # @api private
+        def property_schema_hash(property)
+          schema = super
+
+          if property.kind_of?(Property::Text)
+            schema[:primitive] = text_column_statement(property.length)
+            schema.delete(:default)
+          end
+
+          if property.kind_of?(Property::Integer)
+            min = property.min
+            max = property.max
+
+            schema[:primitive] = integer_column_statement(min..max) if min && max
+          end
+
+          schema
+        end
+
+        # @api private
+        def property_schema_statement(connection, schema)
+          statement = super
+
+          if supports_serial? && schema[:serial]
+            statement << ' AUTO_INCREMENT'
+          end
+
+          statement
+        end
+
+        # @api private
+        def character_set
+          @character_set ||= show_variable('character_set_connection') || DEFAULT_CHARACTER_SET
+        end
+
+        # @api private
+        def collation
+          @collation ||= show_variable('collation_connection') || DEFAULT_COLLATION
+        end
+
+        # @api private
+        def show_variable(name)
+          result = select('SHOW VARIABLES LIKE ?', name).first
+          result ? result.value.freeze : nil
+        end
+
+        private
+
+        # Return SQL statement for the text column
+        #
+        # @param [Integer] length
+        #   the max allowed length
+        #
+        # @return [String]
+        #   the statement to create the text column
+        #
+        # @api private
+        def text_column_statement(length)
+          if    length < 2**8  then 'TINYTEXT'
+          elsif length < 2**16 then 'TEXT'
+          elsif length < 2**24 then 'MEDIUMTEXT'
+          elsif length < 2**32 then 'LONGTEXT'
+
+          # http://www.postgresql.org/files/documentation/books/aw_pgsql/node90.html
+          # Implies that PostgreSQL doesn't have a size limit on text
+          # fields, so this param validation happens here instead of
+          # DM::Property#initialize.
+          else
+            raise ArgumentError, "length of #{length} exceeds maximum size supported"
+          end
+        end
+
+        # Return SQL statement for the integer column
+        #
+        # @param [Range] range
+        #   the min/max allowed integers
+        #
+        # @return [String]
+        #   the statement to create the integer column
+        #
+        # @api private
+        def integer_column_statement(range)
+          '%s(%d)%s' % [
+            integer_column_type(range),
+            integer_display_size(range),
+            integer_statement_sign(range),
+          ]
+        end
+
+        # Return the integer column type
+        #
+        # Use the smallest available column type that will satisfy the
+        # allowable range of numbers
+        #
+        # @param [Range] range
+        #   the min/max allowed integers
+        #
+        # @return [String]
+        #   the column type
+        #
+        # @api private
+        def integer_column_type(range)
+          if range.first < 0
+            signed_integer_column_type(range)
+          else
+            unsigned_integer_column_type(range)
+          end
+        end
+
+        # Return the signed integer column type
+        #
+        # @param [Range] range
+        #   the min/max allowed integers
+        #
+        # @return [String]
+        #
+        # @api private
+        def signed_integer_column_type(range)
+          min = range.first
+          max = range.last
+
+          tinyint   = 2**7
+          smallint  = 2**15
+          integer   = 2**31
+          mediumint = 2**23
+          bigint    = 2**63
+
+          if    min >= -tinyint   && max < tinyint   then 'TINYINT'
+          elsif min >= -smallint  && max < smallint  then 'SMALLINT'
+          elsif min >= -mediumint && max < mediumint then 'MEDIUMINT'
+          elsif min >= -integer   && max < integer   then 'INT'
+          elsif min >= -bigint    && max < bigint    then 'BIGINT'
+          else
+            raise ArgumentError, "min #{min} and max #{max} exceeds supported range"
+          end
+        end
+
+        # Return the unsigned integer column type
+        #
+        # @param [Range] range
+        #   the min/max allowed integers
+        #
+        # @return [String]
+        #
+        # @api private
+        def unsigned_integer_column_type(range)
+          max = range.last
+
+          if    max < 2**8  then 'TINYINT'
+          elsif max < 2**16 then 'SMALLINT'
+          elsif max < 2**24 then 'MEDIUMINT'
+          elsif max < 2**32 then 'INT'
+          elsif max < 2**64 then 'BIGINT'
+          else
+            raise ArgumentError, "min #{range.first} and max #{max} exceeds supported range"
+          end
+        end
+
+        # Return the integer column display size
+        #
+        # Adjust the display size to match the maximum number of
+        # expected digits. This is more for documentation purposes
+        # and does not affect what can actually be stored in a
+        # specific column
+        #
+        # @param [Range] range
+        #   the min/max allowed integers
+        #
+        # @return [Integer]
+        #   the display size for the integer
+        #
+        # @api private
+        def integer_display_size(range)
+          [ range.first.to_s.length, range.last.to_s.length ].max
+        end
+
+        # Return the integer sign statement
+        #
+        # @param [Range] range
+        #   the min/max allowed integers
+        #
+        # @return [String, nil]
+        #   statement if unsigned, nil if signed
+        #
+        # @api private
+        def integer_statement_sign(range)
+          ' UNSIGNED' unless range.first < 0
+        end
+
+        # @api private
+        def indexes(model)
+          filter_indexes(model, super)
+        end
+
+        # @api private
+        def unique_indexes(model)
+          filter_indexes(model, super)
+        end
+
+        # Filter out any indexes with an unindexable column in MySQL
+        #
+        # @api private
+        def filter_indexes(model, indexes)
+          field_map = model.properties(name).field_map
+          indexes.select do |index_name, fields|
+            fields.all? { |field| !field_map[field].kind_of?(Property::Text) }
+          end
+        end
+      end # module SQL
+
+      include SQL
+
+      module ClassMethods
+        # Types for MySQL databases.
+        #
+        # @return [Hash] types for MySQL databases.
+        #
+        # @api private
+        def type_map
+          @type_map ||= super.merge(
+            DateTime => { :primitive => 'DATETIME' },
+            Time     => { :primitive => 'DATETIME' }
+          ).freeze
+        end
+      end
+
+    end
+  end
+end