# frozen_string_literal: true

module Gitlab
  module Database
    module SchemaHelpers
      def create_trigger_function(name, replace: true)
        replace_clause = optional_clause(replace, "OR REPLACE")
        execute(<<~SQL)
          CREATE #{replace_clause} FUNCTION #{name}()
          RETURNS TRIGGER AS
          $$
          BEGIN
          #{yield}
          END
          $$ LANGUAGE PLPGSQL
        SQL
      end

      def reset_trigger_function(function_name)
        execute("ALTER FUNCTION #{quote_table_name(function_name)} RESET ALL")
      end

      def reset_all_trigger_functions(table_name)
        triggers = find_table_triggers(table_name)

        triggers.each do |trigger|
          reset_trigger_function(trigger['function_name'])
        end
      end

      def function_exists?(name)
        !!connection.select_value("SELECT 1 FROM pg_proc WHERE proname = '#{name}'")
      end

      def create_trigger(table_name, name, function_name, fires:)
        execute(<<~SQL)
          CREATE TRIGGER #{name}
          #{fires} ON #{table_name}
          FOR EACH ROW
          #{yield if block_given?}
          EXECUTE FUNCTION #{function_name}()
        SQL
      end

      def trigger_exists?(table_name, name, schema = nil)
        result = connection.select_value(<<~SQL.squish)
          SELECT true
          FROM pg_catalog.pg_trigger trgr
            INNER JOIN pg_catalog.pg_class rel
              ON trgr.tgrelid = rel.oid
            INNER JOIN pg_catalog.pg_namespace nsp
              ON nsp.oid = rel.relnamespace
          WHERE nsp.nspname = #{connection.quote(schema || connection.current_schema)}
            AND rel.relname = #{connection.quote(table_name)}
            AND trgr.tgname = #{connection.quote(name)}
        SQL

        !!result
      end

      def drop_function(name, if_exists: true)
        exists_clause = optional_clause(if_exists, "IF EXISTS")
        execute("DROP FUNCTION #{exists_clause} #{name}()")
      end

      def drop_trigger(table_name, name, if_exists: true)
        exists_clause = optional_clause(if_exists, "IF EXISTS")
        execute("DROP TRIGGER #{exists_clause} #{name} ON #{table_name}")
      end

      def create_comment(type, name, text)
        execute("COMMENT ON #{type} #{name} IS '#{text}'")
      end

      def tmp_table_name(base)
        hashed_base = Digest::SHA256.hexdigest(base).first(10)

        "#{base}_#{hashed_base}"
      end

      def object_name(table, type)
        identifier = "#{table}_#{type}"
        hashed_identifier = Digest::SHA256.hexdigest(identifier).first(10)

        "#{type}_#{hashed_identifier}"
      end

      def assert_not_in_transaction_block(scope:)
        return unless transaction_open?

        raise "#{scope} operations can not be run inside a transaction block, " \
          "you can disable transaction blocks by calling disable_ddl_transaction! " \
          "in the body of your migration class"
      end

      def find_all_id_columns_sql
        <<~SQL.strip
          SELECT table_name, column_name, data_type, column_default FROM information_schema.columns a
          WHERE a.table_schema = 'public'
          AND (
            -- columns like "id" and "project_id"
            (a.data_type = 'integer' AND (a.column_name = 'id' OR a.column_name LIKE '%\\_id'))
            OR
            -- columns like "traversal_ids"
            (a.data_type = 'ARRAY' AND a.udt_name = '_int4' AND a.column_name LIKE '%\\_ids')
          )
          AND NOT EXISTS (
            -- skip columns when migration is in progress
            SELECT 1 FROM information_schema.columns b WHERE b.table_schema = a.table_schema AND b.table_name = a.table_name
            AND b.data_type = 'bigint' AND b.column_name = (a.column_name || '_convert_to_bigint')
          )
          AND NOT EXISTS (
            -- skip columns from partitioned tables
            SELECT 1 FROM postgres_partitions c WHERE c.schema = 'public' AND c.name = a.table_name
          )
          ORDER BY table_schema, table_name, column_name
        SQL
      end

      private

      def table_for_range_partition(partition_name)
        "#{Gitlab::Database::DYNAMIC_PARTITIONS_SCHEMA}.#{partition_name}"
      end

      def table_for_list_partition(partition_name)
        "#{current_schema}.#{partition_name}"
      end

      def create_range_partition(partition_name, table_name, lower_bound, upper_bound)
        execute(<<~SQL)
          CREATE TABLE #{table_for_range_partition(partition_name)} PARTITION OF #{table_name}
          FOR VALUES FROM (#{lower_bound}) TO (#{upper_bound})
        SQL
      end

      def create_list_partition(partition_name, table_name, partition_values)
        execute(<<~SQL)
          CREATE TABLE #{table_for_list_partition(partition_name)} PARTITION OF #{table_name}
          FOR VALUES IN (#{Array.wrap(partition_values).join(', ')})
        SQL
      end

      def optional_clause(flag, clause)
        flag ? clause : ""
      end

      def find_table_triggers(table_name)
        schema_qualified_table = "#{quote_table_name(current_schema)}.#{quote_table_name(table_name)}"

        triggers_query = <<~SQL
          SELECT DISTINCT
            p.proname AS function_name
          FROM pg_trigger tr
          JOIN pg_proc p ON tr.tgfoid = p.oid
          WHERE tr.tgisinternal IS FALSE
            AND tr.tgrelid = '#{schema_qualified_table}'::regclass
        SQL

        select_all(triggers_query).to_a
      end
    end
  end
end
