--

CREATE FUNCTION added_cols(table_ regclass, names regclass) RETURNS SETOF text

    AS $_$

SELECT util.derived_cols($1, $2)

UNION

--

CREATE FUNCTION append_comment(table_ regclass, comment text) RETURNS void

    AS $_$

SELECT util.set_comment($1, concat(util.comment($1), $2))

$_$;

--

CREATE FUNCTION cluster_index(table_ regclass) RETURNS regclass

    AS $_$

SELECT indexrelid FROM pg_index WHERE indrelid = $1 AND indisclustered

$_$;

--

CREATE FUNCTION col_names(table_ regclass) RETURNS SETOF text

    AS $_$

SELECT attname::text

FROM pg_attribute

--

CREATE FUNCTION comment(element oid) RETURNS text

    AS $_$

SELECT description FROM pg_description WHERE objoid = $1

$_$;

--

CREATE FUNCTION derived_cols(table_ regclass, names regclass) RETURNS SETOF text

    AS $_$

SELECT util.eval2set($$

SELECT col

--

CREATE FUNCTION do_optionally_ignore(sql text, ignore boolean) RETURNS void

    AS $_$

SELECT CASE WHEN $2 THEN util.try_create($1) ELSE util.create_if_not_exists($1) END

$_$;

--

CREATE FUNCTION drop_column(col col_ref, force boolean DEFAULT false) RETURNS void

    AS $_$

SELECT util.eval($$ALTER TABLE $$||$1.table_||$$ DROP COLUMN IF EXISTS $$||

quote_ident($1.name)||util._if($2, $$ CASCADE$$, ''::text))

--

CREATE FUNCTION drop_table(table_ text, force boolean DEFAULT false) RETURNS void

    AS $_$

SELECT util.drop_relation('TABLE', $1, $2)

$_$;

--

CREATE FUNCTION drop_view(view_ text, force boolean DEFAULT false) RETURNS void

    AS $_$

SELECT util.drop_relation('VIEW', $1, $2)

$_$;

--

CREATE FUNCTION existing_cols(table_ regclass, VARIADIC col_names text[]) RETURNS SETOF text

    AS $_$

SELECT col_name

FROM unnest($2) s (col_name)

--

CREATE FUNCTION is_constant(col col_ref) RETURNS boolean

    AS $_$

SELECT COALESCE(util.col_comment($1) LIKE 'constant%', false)

$_$;

--

CREATE FUNCTION mk_const_col(col col_ref, value anyelement) RETURNS void

    AS $_$

SELECT util.create_if_not_exists($$

ALTER TABLE $$||$1.table_||$$ ADD COLUMN $$

--

CREATE FUNCTION mk_map_table(table_ text) RETURNS void

    AS $_$

SELECT util.create_if_not_exists($$

CREATE TABLE $$||$1||$$

--

CREATE FUNCTION mk_source_col(table_ regclass) RETURNS void

    AS $_$

SELECT util.mk_const_col(($1, 'source'), util.schema($1))

$_$;

--

CREATE FUNCTION name(type regtype) RETURNS text

    AS $_$

SELECT typname::text FROM pg_type WHERE oid = $1

$_$;

--

CREATE FUNCTION qual_name(table_ regclass) RETURNS text

    SET search_path TO pg_temp

    AS $_$

SELECT $1::text

--

CREATE FUNCTION qual_name(type regtype) RETURNS text

    SET search_path TO pg_temp

    AS $_$

SELECT $1::text

--

CREATE FUNCTION qual_name(type unknown) RETURNS text

    AS $_$

SELECT util.qual_name($1::text::regtype)

$_$;

--

CREATE FUNCTION rename_cols(table_ regclass, renames anyelement) RETURNS void

    AS $_$

SELECT util.try_create($$ALTER TABLE $$||$1||$$ RENAME $$

||quote_ident(name)||$$ TO $$||quote_ident($2 -> name))

--

CREATE FUNCTION reset_col_names(table_ regclass, names regclass) RETURNS void

    AS $_$

SELECT util.eval($$DELETE FROM $$||$2||$$ WHERE "from" LIKE ':%'$$);

SELECT util.mk_derived_col(($2, 'to'), $$"from"$$, overwrite := true);

--

CREATE FUNCTION reset_map_table(table_ text) RETURNS void

    AS $_$

SELECT util.drop_table($1);

SELECT util.mk_map_table($1);

--

CREATE FUNCTION search_path_append(schemas text) RETURNS void

    AS $_$

SELECT util.eval(

$$SET search_path TO $$||current_setting('search_path')||$$, $$||$1);

--

CREATE FUNCTION set_comment(table_ regclass, comment text) RETURNS void

    AS $_$

SELECT util.eval($$COMMENT ON TABLE $$||$1||$$ IS $$||quote_nullable($2))

$_$;

--

CREATE FUNCTION table_flag__get(table_ regclass, flag text) RETURNS boolean

    AS $_$

SELECT COUNT(*) > 0 FROM pg_constraint

WHERE conrelid = $1 AND contype = 'c' AND conname = $2

--

CREATE FUNCTION table_flag__set(table_ regclass, flag text) RETURNS void

    AS $_$

SELECT util.create_if_not_exists($$ALTER TABLE $$||$1||$$ ADD CONSTRAINT $$

||quote_ident($2)||$$ CHECK (true)$$)

--

CREATE FUNCTION table_nulls_mapped__get(table_ regclass) RETURNS boolean

    AS $_$

SELECT util.table_flag__get($1, 'nulls_mapped')

$_$;

--

CREATE FUNCTION table_nulls_mapped__set(table_ regclass) RETURNS void

    AS $_$

SELECT util.table_flag__set($1, 'nulls_mapped')

$_$;

--

CREATE FUNCTION "trim"(table_ regclass, names regclass) RETURNS void

    AS $_$

SELECT util.drop_column(($1, col)) FROM util.added_cols($1, $2) f (col);

SELECT NULL::void; -- don't fold away functions called in previous query

--

CREATE FUNCTION try_mk_derived_col(col col_ref, expr text) RETURNS void

    AS $_$

SELECT util.try_create($$SELECT util.mk_derived_col($$||quote_literal($1)||$$, $$||quote_literal($2)||$$)$$)

$_$;