-- Name: col_cast; Type: TYPE; Schema: functions; Owner: -

--

CREATE TYPE col_cast AS (

	col_name text,

	type regtype

);

--

-- Name: set_col_types(regclass, col_cast[]); Type: FUNCTION; Schema: functions; Owner: -

--

CREATE FUNCTION set_col_types(table_ regclass, col_casts col_cast[]) RETURNS void

    LANGUAGE plpgsql STRICT

    AS $_$

DECLARE

    sql text = $$ALTER TABLE $$||table_||$$

$$||NULLIF(array_to_string(ARRAY(

    SELECT

    $$ALTER COLUMN $$||col_name_sql||$$ TYPE $$||target_type

    ||$$ USING $$||col_name_sql||$$::$$||target_type

    FROM

    (

        SELECT

          quote_ident(col_name) AS col_name_sql

        , functions.col_type((table_, col_name)) AS curr_type

        , type AS target_type

        FROM unnest(col_casts)

    ) s

    WHERE curr_type != target_type

), '

, '), '');

BEGIN

    RAISE NOTICE '%', sql;

    EXECUTE COALESCE(sql, '');

END;

$_$;

--

-- Name: FUNCTION set_col_types(table_ regclass, col_casts col_cast[]); Type: COMMENT; Schema: functions; Owner: -

--

COMMENT ON FUNCTION set_col_types(table_ regclass, col_casts col_cast[]) IS 'idempotent';

--