/* orafce--3.25.sql */

-- complain if script is sourced in psql, rather than via CREATE EXTENSION

\echo Use "CREATE EXTENSION orafce" to load this file. \quit

CREATE SCHEMA oracle;

CREATE FUNCTION oracle.trunc(value date, fmt text)

RETURNS date

AS 'MODULE_PATHNAME','ora_date_trunc'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.trunc(date,text) IS 'truncate date according to the specified format';

CREATE FUNCTION oracle.round(value date, fmt text)

RETURNS date

AS 'MODULE_PATHNAME','ora_date_round'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.round(date, text) IS 'round dates according to the specified format';

CREATE FUNCTION oracle.next_day(value date, weekday text)

RETURNS date

AS 'MODULE_PATHNAME'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.next_day (date, text) IS 'returns the first weekday that is greater than a date value';

CREATE FUNCTION oracle.next_day(value date, weekday integer)

RETURNS date

AS 'MODULE_PATHNAME', 'next_day_by_index'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.next_day (date, integer) IS 'returns the first weekday that is greater than a date value';

CREATE FUNCTION oracle.last_day(value date)

RETURNS date

AS 'MODULE_PATHNAME'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.last_day(date) IS 'returns last day of the month based on a date value';

CREATE FUNCTION oracle.months_between(date1 date, date2 date)

RETURNS numeric

AS 'MODULE_PATHNAME'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.months_between(date, date) IS 'returns the number of months between date1 and date2';

CREATE FUNCTION oracle.add_months(day date, value int)

RETURNS date

AS 'MODULE_PATHNAME'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.add_months(date, int) IS 'returns date plus n months';

CREATE FUNCTION oracle.trunc(value timestamp with time zone, fmt text)

RETURNS timestamp with time zone

AS 'MODULE_PATHNAME', 'ora_timestamptz_trunc'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.trunc(timestamp with time zone, text) IS 'truncate date according to the specified format';

CREATE FUNCTION oracle.round(value timestamp with time zone, fmt text)

RETURNS timestamp with time zone

AS 'MODULE_PATHNAME','ora_timestamptz_round'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.round(timestamp with time zone, text) IS 'round dates according to the specified format';

CREATE FUNCTION oracle.round(value timestamp with time zone)

RETURNS timestamp with time zone

AS $$ SELECT oracle.round($1, 'DDD'); $$

LANGUAGE SQL IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.round(timestamp with time zone) IS 'will round dates according to the specified format';

CREATE FUNCTION oracle.round(value date)

RETURNS date

AS $$ SELECT $1; $$

LANGUAGE SQL IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.round(value date)IS 'will round dates according to the specified format';

CREATE FUNCTION oracle.trunc(value timestamp with time zone)

RETURNS timestamp with time zone

AS $$ SELECT oracle.trunc($1, 'DDD'); $$

LANGUAGE SQL IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.trunc(timestamp with time zone) IS 'truncate date according to the specified format';

CREATE FUNCTION oracle.trunc(value date)

RETURNS date

AS $$ SELECT $1; $$

LANGUAGE SQL IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.trunc(date) IS 'truncate date according to the specified format';

CREATE FUNCTION oracle.nlssort(text, text)

RETURNS bytea

AS 'MODULE_PATHNAME', 'ora_nlssort'

LANGUAGE C IMMUTABLE;

COMMENT ON FUNCTION oracle.nlssort(text, text) IS '';

CREATE FUNCTION oracle.nlssort(text)

RETURNS bytea

AS $$ SELECT oracle.nlssort($1, null); $$

LANGUAGE SQL IMMUTABLE STRICT;

COMMENT ON FUNCTION oracle.nlssort(text)IS '';

CREATE FUNCTION oracle.set_nls_sort(text)

RETURNS void

AS 'MODULE_PATHNAME', 'ora_set_nls_sort'

LANGUAGE C IMMUTABLE STRICT;

COMMENT ON FUNCTION oracle.set_nls_sort(text) IS '';

CREATE FUNCTION oracle.instr(str text, patt text, start int, nth int)

RETURNS int

AS 'MODULE_PATHNAME','plvstr_instr4'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.instr(text, text, int, int) IS 'Search pattern in string';

CREATE FUNCTION oracle.instr(str text, patt text, start int)

RETURNS int

AS 'MODULE_PATHNAME','plvstr_instr3'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.instr(text, text, int) IS 'Search pattern in string';

CREATE FUNCTION oracle.instr(str text, patt text)

RETURNS int

AS 'MODULE_PATHNAME','plvstr_instr2'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.instr(text, text) IS 'Search pattern in string';

CREATE FUNCTION oracle.to_char(num smallint)

RETURNS text

AS 'MODULE_PATHNAME','orafce_to_char_int4'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.to_char(smallint) IS 'Convert number to string';

CREATE FUNCTION oracle.to_char(num int)

RETURNS text

AS 'MODULE_PATHNAME','orafce_to_char_int4'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.to_char(int) IS 'Convert number to string';

CREATE FUNCTION oracle.to_char(num bigint)

RETURNS text

AS 'MODULE_PATHNAME','orafce_to_char_int8'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.to_char(bigint) IS 'Convert number to string';

CREATE FUNCTION oracle.to_char(num real)

RETURNS text

AS 'MODULE_PATHNAME','orafce_to_char_float4'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.to_char(real) IS 'Convert number to string';

CREATE FUNCTION oracle.to_char(num double precision)

RETURNS text

AS 'MODULE_PATHNAME','orafce_to_char_float8'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.to_char(double precision) IS 'Convert number to string';

CREATE FUNCTION oracle.to_char(num numeric)

RETURNS text

AS 'MODULE_PATHNAME','orafce_to_char_numeric'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.to_char(numeric) IS 'Convert number to string';

CREATE FUNCTION oracle.to_number(str text)

RETURNS numeric

AS 'MODULE_PATHNAME','orafce_to_number'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.to_number(text) IS 'Convert string to number';

CREATE OR REPLACE FUNCTION oracle.to_number(numeric)

RETURNS numeric AS $$

SELECT oracle.to_number($1::text);

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE OR REPLACE FUNCTION oracle.to_number(numeric,numeric)

RETURNS numeric AS $$

SELECT pg_catalog.to_number($1::text,$2::text);

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.orafce__obsolete_to_date(str text)

RETURNS timestamp

AS 'MODULE_PATHNAME','ora_to_date'

LANGUAGE C STABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.orafce__obsolete_to_date(str text, fmt text)

RETURNS timestamp

AS 'MODULE_PATHNAME','ora_to_date'

LANGUAGE C STABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.to_multi_byte(str text)

RETURNS text

AS 'MODULE_PATHNAME','orafce_to_multi_byte'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.to_multi_byte(text) IS 'Convert all single-byte characters to their corresponding multibyte characters';

CREATE FUNCTION oracle.to_single_byte(str text)

RETURNS text

AS 'MODULE_PATHNAME','orafce_to_single_byte'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.to_single_byte(text) IS 'Convert characters to their corresponding single-byte characters if possible';

CREATE FUNCTION oracle.bitand(bigint, bigint)

RETURNS bigint

AS $$ SELECT $1 & $2; $$

LANGUAGE sql IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.sinh(float8)

RETURNS float8 AS

$$ SELECT (exp($1) - exp(-$1)) / 2; $$

LANGUAGE sql IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.cosh(float8)

RETURNS float8 AS

$$ SELECT (exp($1) + exp(-$1)) / 2; $$

LANGUAGE sql IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.tanh(float8)

RETURNS float8 AS

$$ SELECT oracle.sinh($1) / oracle.cosh($1); $$

LANGUAGE sql IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.nanvl(float4, float4)

RETURNS float4 AS

$$ SELECT CASE WHEN $1 = 'NaN' THEN $2 ELSE $1 END; $$

LANGUAGE sql IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.nanvl(float8, float8)

RETURNS float8 AS

$$ SELECT CASE WHEN $1 = 'NaN' THEN $2 ELSE $1 END; $$

LANGUAGE sql IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.nanvl(numeric, numeric)

RETURNS numeric AS

$$ SELECT CASE WHEN $1 = 'NaN' THEN $2 ELSE $1 END; $$

LANGUAGE sql IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.nanvl(float4, varchar)

RETURNS float4 AS

$$ SELECT CASE WHEN $1 = 'NaN' THEN $2::float4 ELSE $1 END; $$

LANGUAGE sql IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.nanvl(float8, varchar)

RETURNS float8 AS

$$ SELECT CASE WHEN $1 = 'NaN' THEN $2::float8 ELSE $1 END; $$

LANGUAGE sql IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.nanvl(numeric, varchar)

RETURNS numeric AS

$$ SELECT CASE WHEN $1 = 'NaN' THEN $2::numeric ELSE $1 END; $$

LANGUAGE sql IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.dump("any")

RETURNS varchar

AS 'MODULE_PATHNAME', 'orafce_dump'

LANGUAGE C;

CREATE FUNCTION oracle.dump("any", integer)

RETURNS varchar

AS 'MODULE_PATHNAME', 'orafce_dump'

LANGUAGE C;

CREATE SCHEMA plvstr;

CREATE FUNCTION plvstr.rvrs(str text, start int, _end int)

RETURNS text

AS 'MODULE_PATHNAME','plvstr_rvrs'

LANGUAGE C IMMUTABLE;

COMMENT ON FUNCTION plvstr.rvrs(text, int, int) IS 'Reverse string or part of string';

CREATE FUNCTION plvstr.rvrs(str text, start int)

RETURNS text

AS $$ SELECT plvstr.rvrs($1,$2,NULL);$$

LANGUAGE SQL IMMUTABLE STRICT;

COMMENT ON FUNCTION plvstr.rvrs(text, int) IS 'Reverse string or part of string';

CREATE FUNCTION plvstr.rvrs(str text)

RETURNS text

AS $$ SELECT plvstr.rvrs($1,1,NULL);$$

LANGUAGE SQL IMMUTABLE STRICT;

COMMENT ON FUNCTION plvstr.rvrs(text) IS 'Reverse string or part of string';

CREATE FUNCTION oracle.lnnvl(bool)

RETURNS bool

AS 'MODULE_PATHNAME','ora_lnnvl'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

COMMENT ON FUNCTION oracle.lnnvl(bool) IS '';

-- can't overwrite PostgreSQL functions!!!!

CREATE FUNCTION oracle.substr(str text, start int)

RETURNS text

AS 'MODULE_PATHNAME','oracle_substr2'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.substr(text, int) IS 'Returns substring started on start_in to end';

CREATE FUNCTION oracle.substr(str text, start int, len int)

RETURNS text

AS 'MODULE_PATHNAME','oracle_substr3'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.substr(text, int, int) IS 'Returns substring started on start_in len chars';

CREATE OR REPLACE FUNCTION oracle.substr(numeric,numeric)

RETURNS text AS $$

SELECT oracle.substr($1::text,trunc($2)::int);

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE OR REPLACE FUNCTION oracle.substr(numeric,numeric,numeric)

RETURNS text AS $$

SELECT oracle.substr($1::text,trunc($2)::int,trunc($3)::int);

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE OR REPLACE FUNCTION oracle.substr(varchar,numeric)

RETURNS text AS $$

SELECT oracle.substr($1,trunc($2)::int);

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE OR REPLACE FUNCTION oracle.substr(varchar,numeric,numeric)

RETURNS text AS $$

SELECT oracle.substr($1,trunc($2)::int,trunc($3)::int);

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE OR REPLACE FUNCTION oracle.mod(smallint, smallint)

RETURNS SMALLINT AS $$

SELECT CASE $2 WHEN 0 THEN $1 ELSE pg_catalog.MOD($1, $2) END;

$$ LANGUAGE SQL IMMUTABLE;

CREATE OR REPLACE FUNCTION oracle.mod(int, int)

RETURNS INT AS $$

SELECT CASE $2 WHEN 0 THEN $1 ELSE pg_catalog.MOD($1, $2) END;

$$ LANGUAGE SQL IMMUTABLE;

CREATE OR REPLACE FUNCTION oracle.mod(bigint, bigint)

RETURNS BIGINT AS $$

SELECT CASE $2 WHEN 0 THEN $1 ELSE pg_catalog.MOD($1, $2) END;

$$ LANGUAGE sql IMMUTABLE;

CREATE OR REPLACE FUNCTION oracle.mod(numeric, numeric)

RETURNS NUMERIC AS $$

SELECT CASE $2 WHEN 0 THEN $1 ELSE pg_catalog.MOD($1, $2) END;

$$ LANGUAGE sql IMMUTABLE;

CREATE OR REPLACE FUNCTION oracle.remainder(smallint, smallint)

RETURNS smallint AS 'MODULE_PATHNAME','orafce_reminder_smallint'

LANGUAGE C IMMUTABLE STRICT;

CREATE OR REPLACE FUNCTION oracle.remainder(int, int)

RETURNS int AS 'MODULE_PATHNAME','orafce_reminder_int'

LANGUAGE C IMMUTABLE STRICT;

CREATE OR REPLACE FUNCTION oracle.remainder(bigint, bigint)

RETURNS bigint AS 'MODULE_PATHNAME','orafce_reminder_bigint'

LANGUAGE C IMMUTABLE STRICT;

CREATE OR REPLACE FUNCTION oracle.remainder(numeric, numeric)

RETURNS numeric AS 'MODULE_PATHNAME','orafce_reminder_numeric'

LANGUAGE C IMMUTABLE STRICT;

ALTER FUNCTION oracle.mod(smallint, smallint) PARALLEL SAFE;

ALTER FUNCTION oracle.mod(int, int) PARALLEL SAFE;

ALTER FUNCTION oracle.mod(bigint, bigint) PARALLEL SAFE;

ALTER FUNCTION oracle.mod(numeric, numeric) PARALLEL SAFE;

ALTER FUNCTION oracle.remainder(smallint, smallint) PARALLEL SAFE;

ALTER FUNCTION oracle.remainder(int, int) PARALLEL SAFE;

ALTER FUNCTION oracle.remainder(bigint, bigint) PARALLEL SAFE;

ALTER FUNCTION oracle.remainder(numeric, numeric) PARALLEL SAFE;

--can't overwrite PostgreSQL DATE data type!!!

CREATE DOMAIN oracle.date AS timestamp(0);

CREATE OR REPLACE FUNCTION oracle.add_days_to_timestamp(oracle.date,integer)

RETURNS timestamp AS $$

SELECT $1 + interval '1 day' * $2;

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE OR REPLACE FUNCTION oracle.subtract(oracle.date, integer)

RETURNS timestamp AS $$

SELECT $1 - interval '1 day' * $2;

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE OR REPLACE FUNCTION oracle.add_days_to_timestamp(oracle.date,bigint)

RETURNS timestamp AS $$

SELECT $1 + interval '1 day' * $2;

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE OR REPLACE FUNCTION oracle.subtract(oracle.date, bigint)

RETURNS timestamp AS $$

SELECT $1 - interval '1 day' * $2;

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE OR REPLACE FUNCTION oracle.add_days_to_timestamp(oracle.date,smallint)

RETURNS timestamp AS $$

SELECT $1 + interval '1 day' * $2;

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE OR REPLACE FUNCTION oracle.subtract(oracle.date, smallint)

RETURNS timestamp AS $$

SELECT $1 - interval '1 day' * $2;

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE OR REPLACE FUNCTION oracle.add_days_to_timestamp(oracle.date,numeric)

RETURNS timestamp AS $$

SELECT $1 + interval '1 day' * $2;

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE OR REPLACE FUNCTION oracle.subtract(oracle.date, numeric)

RETURNS timestamp AS $$

SELECT $1 - interval '1 day' * $2;

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE OR REPLACE FUNCTION oracle.subtract(oracle.date,oracle.date)

RETURNS double precision AS $$

SELECT date_part('epoch', ($1::timestamp - $2::timestamp)/3600/24);

$$ LANGUAGE SQL IMMUTABLE PARALLEL SAFE;

CREATE OPERATOR oracle.+ (

LEFTARG = oracle.date,

RIGHTARG = INTEGER,

PROCEDURE = oracle.add_days_to_timestamp

);

CREATE OPERATOR oracle.- (

LEFTARG = oracle.date,

RIGHTARG = INTEGER,

PROCEDURE = oracle.subtract

);

CREATE OPERATOR oracle.+ (

LEFTARG = oracle.date,

RIGHTARG = bigint,

PROCEDURE = oracle.add_days_to_timestamp

);

CREATE OPERATOR oracle.- (

LEFTARG = oracle.date,

RIGHTARG = bigint,

PROCEDURE = oracle.subtract

);

CREATE OPERATOR oracle.+ (

LEFTARG = oracle.date,

RIGHTARG = smallint,

PROCEDURE = oracle.add_days_to_timestamp

);

CREATE OPERATOR oracle.- (

LEFTARG = oracle.date,

RIGHTARG = smallint,

PROCEDURE = oracle.subtract

);

CREATE OPERATOR oracle.+ (

LEFTARG = oracle.date,

RIGHTARG = numeric,

PROCEDURE = oracle.add_days_to_timestamp

);

CREATE OPERATOR oracle.- (

LEFTARG = oracle.date,

RIGHTARG = numeric,

PROCEDURE = oracle.subtract

);

CREATE OPERATOR oracle.- (

LEFTARG = oracle.date,

RIGHTARG = oracle.date,

PROCEDURE = oracle.subtract

);

CREATE FUNCTION oracle.add_months(TIMESTAMP WITH TIME ZONE,INTEGER)

RETURNS TIMESTAMP

AS $$ SELECT (oracle.add_months($1::pg_catalog.date, $2) + $1::time)::oracle.date; $$

LANGUAGE SQL IMMUTABLE STRICT PARALLEL SAFE;

CREATE OR REPLACE FUNCTION oracle.last_day(TIMESTAMPTZ)

RETURNS TIMESTAMP

AS $$ SELECT (date_trunc('MONTH', $1) + INTERVAL '1 MONTH - 1 day' + $1::time)::oracle.date; $$

LANGUAGE SQL IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.months_between(TIMESTAMP WITH TIME ZONE,TIMESTAMP WITH TIME ZONE)

RETURNS NUMERIC

AS 'MODULE_PATHNAME', 'months_between_timestamptz'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.months_between(TIMESTAMP WITH TIME ZONE, TIMESTAMP WITH TIME ZONE) IS 'returns the number of months between date1 and date2';

CREATE FUNCTION oracle.next_day(TIMESTAMP WITH TIME ZONE,INTEGER)

RETURNS TIMESTAMP

AS $$ SELECT (oracle.next_day($1::pg_catalog.date,$2) + $1::time)::oracle.date; $$

LANGUAGE SQL IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.next_day(TIMESTAMP WITH TIME ZONE,TEXT)

RETURNS TIMESTAMP

AS $$ SELECT (oracle.next_day($1::pg_catalog.date,$2) + $1::time)::oracle.date; $$

LANGUAGE SQL IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.to_date(TEXT)

RETURNS oracle.date

AS $$ SELECT oracle.orafce__obsolete_to_date($1)::oracle.date; $$

LANGUAGE SQL STABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.to_date(TEXT, TEXT)

RETURNS oracle.date

AS $$ SELECT oracle.orafce__obsolete_to_date($1, $2)::oracle.date; $$

LANGUAGE SQL STABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.to_date(integer, TEXT)

RETURNS oracle.date

AS $$ SELECT oracle.orafce__obsolete_to_date($1::text, $2)::oracle.date; $$

LANGUAGE SQL STABLE STRICT PARALLEL SAFE;

CREATE FUNCTION oracle.to_char(timestamp)

RETURNS TEXT

AS 'MODULE_PATHNAME','orafce_to_char_timestamp'

LANGUAGE C STABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.to_char(timestamp) IS 'Convert timestamp to string';

CREATE FUNCTION oracle.sysdate()

RETURNS oracle.date

AS 'MODULE_PATHNAME','orafce_sysdate'

LANGUAGE C STABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.sysdate() IS 'Ruturns statement timestamp at server time zone';

CREATE FUNCTION oracle.sessiontimezone()

RETURNS text

AS 'MODULE_PATHNAME','orafce_sessiontimezone'

LANGUAGE C STABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.sessiontimezone() IS 'Ruturns session time zone';

CREATE FUNCTION oracle.dbtimezone()

RETURNS text

AS 'MODULE_PATHNAME','orafce_dbtimezone'

LANGUAGE C STABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.dbtimezone() IS 'Ruturns server time zone (orafce.timezone)';

CREATE FUNCTION oracle.sys_extract_utc(timestamp with time zone)

RETURNS timestamp without time zone

AS 'MODULE_PATHNAME','orafce_sys_extract_utc'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.sysdate() IS 'Extract timestamp at utc time zone';

CREATE FUNCTION oracle.sys_extract_utc(oracle.date)

RETURNS oracle.date

AS 'MODULE_PATHNAME','orafce_sys_extract_utc_oracle_date'

LANGUAGE C STABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.sysdate() IS 'Extract timestamp at utc time zone';

CREATE FUNCTION oracle.months_between(date1 oracle.date, date2 oracle.date)

RETURNS numeric

AS 'MODULE_PATHNAME', 'months_between_timestamp'

LANGUAGE C IMMUTABLE STRICT PARALLEL SAFE;

COMMENT ON FUNCTION oracle.months_between(oracle.date, oracle.date) IS 'returns the number of months between date1 and date2';

-- emulation of dual table

CREATE VIEW oracle.dual AS SELECT 'X'::varchar AS dummy;

REVOKE ALL ON oracle.dual FROM PUBLIC;

GRANT SELECT, REFERENCES ON oracle.dual TO PUBLIC;

-- this packege is emulation of dbms_output Oracle packege

--

CREATE SCHEMA dbms_output;

CREATE FUNCTION dbms_output.enable(IN buffer_size int4)

RETURNS void

AS 'MODULE_PATHNAME','dbms_output_enable'

LANGUAGE C VOLATILE;

COMMENT ON FUNCTION dbms_output.enable(IN int4) IS 'Enable package functionality';

CREATE FUNCTION dbms_output.enable()

RETURNS void

AS 'MODULE_PATHNAME','dbms_output_enable_default'

LANGUAGE C VOLATILE STRICT;

COMMENT ON FUNCTION dbms_output.enable() IS 'Enable package functionality';

CREATE FUNCTION dbms_output.disable()

RETURNS void

AS 'MODULE_PATHNAME','dbms_output_disable'

LANGUAGE C VOLATILE STRICT;

COMMENT ON FUNCTION dbms_output.disable() IS 'Disable package functionality';

CREATE FUNCTION dbms_output.serveroutput(IN bool)

RETURNS void

AS 'MODULE_PATHNAME','dbms_output_serveroutput'

LANGUAGE C VOLATILE STRICT;

COMMENT ON FUNCTION dbms_output.serveroutput(IN bool) IS 'Set drowing output';

CREATE FUNCTION dbms_output.put(IN a text)

RETURNS void

AS 'MODULE_PATHNAME','dbms_output_put'

LANGUAGE C VOLATILE STRICT;

COMMENT ON FUNCTION dbms_output.put(IN text) IS 'Put some text to output';

CREATE FUNCTION dbms_output.put_line(IN a text)

RETURNS void

AS 'MODULE_PATHNAME','dbms_output_put_line'

LANGUAGE C VOLATILE STRICT;

COMMENT ON FUNCTION dbms_output.put_line(IN text) IS 'Put line to output';

CREATE FUNCTION dbms_output.new_line()

RETURNS void

AS 'MODULE_PATHNAME','dbms_output_new_line'

LANGUAGE C VOLATILE STRICT;

COMMENT ON FUNCTION dbms_output.new_line() IS 'Put new line char to output';

CREATE FUNCTION dbms_output.get_line(OUT line text, OUT status int4)

AS 'MODULE_PATHNAME','dbms_output_get_line'

LANGUAGE C VOLATILE STRICT;

COMMENT ON FUNCTION dbms_output.get_line(OUT text, OUT int4) IS 'Get line from output buffer';

CREATE FUNCTION dbms_output.get_lines(OUT lines text[], INOUT numlines int4)

AS 'MODULE_PATHNAME','dbms_output_get_lines'

LANGUAGE C VOLATILE STRICT;

COMMENT ON FUNCTION dbms_output.get_lines(OUT text[], INOUT int4) IS 'Get lines from output buffer';

-- others functions

CREATE FUNCTION oracle.nvl(anyelement, anyelement)

RETURNS anyelement

AS 'MODULE_PATHNAME','ora_nvl'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.nvl2("any", anyelement, anyelement)

RETURNS anyelement

AS 'MODULE_PATHNAME','ora_nvl2'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.nvl2("any", text, text)

RETURNS text

AS 'MODULE_PATHNAME','ora_nvl2'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, text)

RETURNS text

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, text, text)

RETURNS text

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, text, anyelement, text)

RETURNS text

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, text, anyelement, text, text)

RETURNS text

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, text, anyelement, text, anyelement, text)

RETURNS text

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, text, anyelement, text, anyelement, text, text)

RETURNS text

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, bpchar)

RETURNS bpchar

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, bpchar, bpchar)

RETURNS bpchar

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, bpchar, anyelement, bpchar)

RETURNS bpchar

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, bpchar, anyelement, bpchar, bpchar)

RETURNS bpchar

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, bpchar, anyelement, bpchar, anyelement, bpchar)

RETURNS bpchar

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, bpchar, anyelement, bpchar, anyelement, bpchar, bpchar)

RETURNS bpchar

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, integer)

RETURNS integer

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, integer, integer)

RETURNS integer

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, integer, anyelement, integer)

RETURNS integer

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, integer, anyelement, integer, integer)

RETURNS integer

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, integer, anyelement, integer, anyelement, integer)

RETURNS integer

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, integer, anyelement, integer, anyelement, integer, integer)

RETURNS integer

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, bigint)

RETURNS bigint

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, bigint, bigint)

RETURNS bigint

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, bigint, anyelement, bigint)

RETURNS bigint

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, bigint, anyelement, bigint, bigint)

RETURNS bigint

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, bigint, anyelement, bigint, anyelement, bigint)

RETURNS bigint

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, bigint, anyelement, bigint, anyelement, bigint, bigint)

RETURNS bigint

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, numeric)

RETURNS numeric

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, numeric, numeric)

RETURNS numeric

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, numeric, anyelement, numeric)

RETURNS numeric

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, numeric, anyelement, numeric, numeric)

RETURNS numeric

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, numeric, anyelement, numeric, anyelement, numeric)

RETURNS numeric

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, numeric, anyelement, numeric, anyelement, numeric, numeric)

RETURNS numeric

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, date)

RETURNS date

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, date, date)

RETURNS date

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, date, anyelement, date)

RETURNS date

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, date, anyelement, date, date)

RETURNS date

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, date, anyelement, date, anyelement, date)

RETURNS date

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, date, anyelement, date, anyelement, date, date)

RETURNS date

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, time)

RETURNS time

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, time, time)

RETURNS time

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, time, anyelement, time)

RETURNS time

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, time, anyelement, time, time)

RETURNS time

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, time, anyelement, time, anyelement, time)

RETURNS time

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, time, anyelement, time, anyelement, time, time)

RETURNS time

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, timestamp)

RETURNS timestamp

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, timestamp, timestamp)

RETURNS timestamp

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, timestamp, anyelement, timestamp)

RETURNS timestamp

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, timestamp, anyelement, timestamp, timestamp)

RETURNS timestamp

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, timestamp, anyelement, timestamp, anyelement, timestamp)

RETURNS timestamp

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, timestamp, anyelement, timestamp, anyelement, timestamp, timestamp)

RETURNS timestamp

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, timestamptz)

RETURNS timestamptz

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, timestamptz, timestamptz)

RETURNS timestamptz

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, timestamptz, anyelement, timestamptz)

RETURNS timestamptz

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, timestamptz, anyelement, timestamptz, timestamptz)

RETURNS timestamptz

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, timestamptz, anyelement, timestamptz, anyelement, timestamptz)

RETURNS timestamptz

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE FUNCTION oracle.decode(anyelement, anyelement, timestamptz, anyelement, timestamptz, anyelement, timestamptz, timestamptz)

RETURNS timestamptz

AS 'MODULE_PATHNAME', 'ora_decode'

LANGUAGE C IMMUTABLE PARALLEL SAFE;

CREATE SCHEMA dbms_pipe;

CREATE FUNCTION dbms_pipe.pack_message(text)

RETURNS void

AS 'MODULE_PATHNAME','dbms_pipe_pack_message_text'

LANGUAGE C VOLATILE STRICT;

COMMENT ON FUNCTION dbms_pipe.pack_message(text) IS 'Add text field to message';

CREATE FUNCTION dbms_pipe.unpack_message_text()

RETURNS text

AS 'MODULE_PATHNAME','dbms_pipe_unpack_message_text'

LANGUAGE C VOLATILE;

COMMENT ON FUNCTION dbms_pipe.unpack_message_text() IS 'Get text fiedl from message';

CREATE FUNCTION dbms_pipe.receive_message(text, int)

RETURNS int

AS 'MODULE_PATHNAME','dbms_pipe_receive_message'

LANGUAGE C VOLATILE;

COMMENT ON FUNCTION dbms_pipe.receive_message(text, int) IS 'Receive message from pipe';

CREATE FUNCTION dbms_pipe.receive_message(text)

RETURNS int

AS $$SELECT dbms_pipe.receive_message($1,NULL::int);$$

LANGUAGE SQL VOLATILE;

COMMENT ON FUNCTION dbms_pipe.receive_message(text) IS 'Receive message from pipe';

CREATE FUNCTION dbms_pipe.send_message(text, int, int)

RETURNS int

AS 'MODULE_PATHNAME','dbms_pipe_send_message'

LANGUAGE C VOLATILE;

COMMENT ON FUNCTION dbms_pipe.send_message(text, int, int) IS 'Send message to pipe';

CREATE FUNCTION dbms_pipe.send_message(text, int)

RETURNS int

AS $$SELECT dbms_pipe.send_message($1,$2,NULL);$$

LANGUAGE SQL VOLATILE;

COMMENT ON FUNCTION dbms_pipe.send_message(text, int) IS 'Send message to pipe';

CREATE FUNCTION dbms_pipe.send_message(text)

RETURNS int

AS $$SELECT dbms_pipe.send_message($1,NULL,NULL);$$

LANGUAGE SQL VOLATILE;

COMMENT ON FUNCTION dbms_pipe.send_message(text) IS 'Send message to pipe';

CREATE FUNCTION dbms_pipe.unique_session_name()

RETURNS varchar

AS 'MODULE_PATHNAME','dbms_pipe_unique_session_name'

LANGUAGE C VOLATILE STRICT;

COMMENT ON FUNCTION dbms_pipe.unique_session_name() IS 'Returns unique session name';

CREATE FUNCTION dbms_pipe.__list_pipes()

RETURNS SETOF RECORD

AS 'MODULE_PATHNAME','dbms_pipe_list_pipes'

LANGUAGE C VOLATILE STRICT;

COMMENT ON FUNCTION dbms_pipe.__list_pipes() IS '';

CREATE VIEW dbms_pipe.db_pipes

AS SELECT * FROM dbms_pipe.__list_pipes() AS (Name varchar, Items int, Size int, "limit" int, "private" bool, "owner" varchar);

CREATE FUNCTION dbms_pipe.next_item_type()

RETURNS int

AS 'MODULE_PATHNAME','dbms_pipe_next_item_type'

LANGUAGE C VOLATILE STRICT;

COMMENT ON FUNCTION dbms_pipe.next_item_type() IS 'Returns type of next field in message';

CREATE FUNCTION dbms_pipe.create_pipe(text, int, bool)

RETURNS void

AS 'MODULE_PATHNAME','dbms_pipe_create_pipe'

LANGUAGE C VOLATILE;

COMMENT ON FUNCTION dbms_pipe.create_pipe(text, int, bool) IS 'Create named pipe';

CREATE FUNCTION dbms_pipe.create_pipe(text, int)

RETURNS void

AS 'MODULE_PATHNAME','dbms_pipe_create_pipe_2'

LANGUAGE C VOLATILE;

COMMENT ON FUNCTION dbms_pipe.create_pipe(text, int) IS 'Create named pipe';

CREATE FUNCTION dbms_pipe.create_pipe(text)

RETURNS void

AS 'MODULE_PATHNAME','dbms_pipe_create_pipe_1'

LANGUAGE C VOLATILE;

COMMENT ON FUNCTION dbms_pipe.create_pipe(text) IS 'Create named pipe';

CREATE FUNCTION dbms_pipe.reset_buffer()

RETURNS void

AS 'MODULE_PATHNAME','dbms_pipe_reset_buffer'

LANGUAGE C VOLATILE;

COMMENT ON FUNCTION dbms_pipe.reset_buffer() IS 'Clean input buffer';

CREATE FUNCTION dbms_pipe.purge(text)

RETURNS void

AS 'MODULE_PATHNAME','dbms_pipe_purge'

LANGUAGE C VOLATILE STRICT;

COMMENT ON FUNCTION dbms_pipe.purge(text) IS 'Clean pipe';

CREATE FUNCTION dbms_pipe.remove_pipe(text)

RETURNS void

AS 'MODULE_PATHNAME','dbms_pipe_remove_pipe'

LANGUAGE C VOLATILE STRICT;

COMMENT ON FUNCTION dbms_pipe.remove_pipe(text) IS 'Destroy pipe';

CREATE FUNCTION dbms_pipe.pack_message(date)