-- Name: FUNCTION schema_bundle_get_schemas(schema_bundle text); Type: COMMENT; Schema: util; Owner: -

--

COMMENT ON FUNCTION schema_bundle_get_schemas(schema_bundle text) IS 'a schema bundle is a group of schemas with a common prefix';

--

-- Name: schema_bundle_rename(text, text); Type: FUNCTION; Schema: util; Owner: -

--

CREATE FUNCTION schema_bundle_rename(old text, new text) RETURNS void

    LANGUAGE sql

    AS $_$

SELECT util.schema_rename(old_schema,

	overlay(old_schema placing new from 1 for length(old))) -- replace prefix

FROM util.schema_bundle_get_schemas($1) f (old_schema);

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

$_$;

--

-- Name: schema_bundle_replace(text, text); Type: FUNCTION; Schema: util; Owner: -

--

CREATE FUNCTION schema_bundle_replace(replace text, with_ text) RETURNS void

    LANGUAGE plpgsql

    AS $$

BEGIN

	-- don't schema_bundle_rm() the schema_bundle to keep!

	IF replace = with_ THEN RETURN; END IF;

	PERFORM util.schema_bundle_rm(replace);

	PERFORM util.schema_bundle_rename(with_, replace);

END;

$$;

--

-- Name: schema_bundle_rm(text); Type: FUNCTION; Schema: util; Owner: -

--

CREATE FUNCTION schema_bundle_rm(schema_bundle text) RETURNS void

    LANGUAGE sql

    AS $_$

SELECT util.schema_rm(schema)

FROM util.schema_bundle_get_schemas($1) f (schema);

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

$_$;

--