mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-12-21 08:29:39 +08:00
458857cc9d
We have seen one too many reports of people trying to use 9.1 extension files in the old-fashioned way of sourcing them in psql. Not only does that usually not work (due to failure to substitute for MODULE_PATHNAME and/or @extschema@), but if it did work they'd get a collection of loose objects not an extension. To prevent this, insert an \echo ... \quit line that prints a suitable error message into each extension script file, and teach commands/extension.c to ignore lines starting with \echo. That should not only prevent any adverse consequences of loading a script file the wrong way, but make it crystal clear to users that they need to do it differently now. Tom Lane, following an idea of Andrew Dunstan's. Back-patch into 9.1 ... there is not going to be much value in this if we wait till 9.2.
490 lines
12 KiB
PL/PgSQL
490 lines
12 KiB
PL/PgSQL
/* contrib/citext/citext--1.0.sql */
|
|
|
|
-- complain if script is sourced in psql, rather than via CREATE EXTENSION
|
|
\echo Use "CREATE EXTENSION citext" to load this file. \quit
|
|
|
|
--
|
|
-- PostgreSQL code for CITEXT.
|
|
--
|
|
-- Most I/O functions, and a few others, piggyback on the "text" type
|
|
-- functions via the implicit cast to text.
|
|
--
|
|
|
|
--
|
|
-- Shell type to keep things a bit quieter.
|
|
--
|
|
|
|
CREATE TYPE citext;
|
|
|
|
--
|
|
-- Input and output functions.
|
|
--
|
|
CREATE FUNCTION citextin(cstring)
|
|
RETURNS citext
|
|
AS 'textin'
|
|
LANGUAGE internal IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION citextout(citext)
|
|
RETURNS cstring
|
|
AS 'textout'
|
|
LANGUAGE internal IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION citextrecv(internal)
|
|
RETURNS citext
|
|
AS 'textrecv'
|
|
LANGUAGE internal STABLE STRICT;
|
|
|
|
CREATE FUNCTION citextsend(citext)
|
|
RETURNS bytea
|
|
AS 'textsend'
|
|
LANGUAGE internal STABLE STRICT;
|
|
|
|
--
|
|
-- The type itself.
|
|
--
|
|
|
|
CREATE TYPE citext (
|
|
INPUT = citextin,
|
|
OUTPUT = citextout,
|
|
RECEIVE = citextrecv,
|
|
SEND = citextsend,
|
|
INTERNALLENGTH = VARIABLE,
|
|
STORAGE = extended,
|
|
-- make it a non-preferred member of string type category
|
|
CATEGORY = 'S',
|
|
PREFERRED = false,
|
|
COLLATABLE = true
|
|
);
|
|
|
|
--
|
|
-- Type casting functions for those situations where the I/O casts don't
|
|
-- automatically kick in.
|
|
--
|
|
|
|
CREATE FUNCTION citext(bpchar)
|
|
RETURNS citext
|
|
AS 'rtrim1'
|
|
LANGUAGE internal IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION citext(boolean)
|
|
RETURNS citext
|
|
AS 'booltext'
|
|
LANGUAGE internal IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION citext(inet)
|
|
RETURNS citext
|
|
AS 'network_show'
|
|
LANGUAGE internal IMMUTABLE STRICT;
|
|
|
|
--
|
|
-- Implicit and assignment type casts.
|
|
--
|
|
|
|
CREATE CAST (citext AS text) WITHOUT FUNCTION AS IMPLICIT;
|
|
CREATE CAST (citext AS varchar) WITHOUT FUNCTION AS IMPLICIT;
|
|
CREATE CAST (citext AS bpchar) WITHOUT FUNCTION AS ASSIGNMENT;
|
|
CREATE CAST (text AS citext) WITHOUT FUNCTION AS ASSIGNMENT;
|
|
CREATE CAST (varchar AS citext) WITHOUT FUNCTION AS ASSIGNMENT;
|
|
CREATE CAST (bpchar AS citext) WITH FUNCTION citext(bpchar) AS ASSIGNMENT;
|
|
CREATE CAST (boolean AS citext) WITH FUNCTION citext(boolean) AS ASSIGNMENT;
|
|
CREATE CAST (inet AS citext) WITH FUNCTION citext(inet) AS ASSIGNMENT;
|
|
|
|
--
|
|
-- Operator Functions.
|
|
--
|
|
|
|
CREATE FUNCTION citext_eq( citext, citext )
|
|
RETURNS bool
|
|
AS 'MODULE_PATHNAME'
|
|
LANGUAGE C IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION citext_ne( citext, citext )
|
|
RETURNS bool
|
|
AS 'MODULE_PATHNAME'
|
|
LANGUAGE C IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION citext_lt( citext, citext )
|
|
RETURNS bool
|
|
AS 'MODULE_PATHNAME'
|
|
LANGUAGE C IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION citext_le( citext, citext )
|
|
RETURNS bool
|
|
AS 'MODULE_PATHNAME'
|
|
LANGUAGE C IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION citext_gt( citext, citext )
|
|
RETURNS bool
|
|
AS 'MODULE_PATHNAME'
|
|
LANGUAGE C IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION citext_ge( citext, citext )
|
|
RETURNS bool
|
|
AS 'MODULE_PATHNAME'
|
|
LANGUAGE C IMMUTABLE STRICT;
|
|
|
|
--
|
|
-- Operators.
|
|
--
|
|
|
|
CREATE OPERATOR = (
|
|
LEFTARG = CITEXT,
|
|
RIGHTARG = CITEXT,
|
|
COMMUTATOR = =,
|
|
NEGATOR = <>,
|
|
PROCEDURE = citext_eq,
|
|
RESTRICT = eqsel,
|
|
JOIN = eqjoinsel,
|
|
HASHES,
|
|
MERGES
|
|
);
|
|
|
|
CREATE OPERATOR <> (
|
|
LEFTARG = CITEXT,
|
|
RIGHTARG = CITEXT,
|
|
NEGATOR = =,
|
|
COMMUTATOR = <>,
|
|
PROCEDURE = citext_ne,
|
|
RESTRICT = neqsel,
|
|
JOIN = neqjoinsel
|
|
);
|
|
|
|
CREATE OPERATOR < (
|
|
LEFTARG = CITEXT,
|
|
RIGHTARG = CITEXT,
|
|
NEGATOR = >=,
|
|
COMMUTATOR = >,
|
|
PROCEDURE = citext_lt,
|
|
RESTRICT = scalarltsel,
|
|
JOIN = scalarltjoinsel
|
|
);
|
|
|
|
CREATE OPERATOR <= (
|
|
LEFTARG = CITEXT,
|
|
RIGHTARG = CITEXT,
|
|
NEGATOR = >,
|
|
COMMUTATOR = >=,
|
|
PROCEDURE = citext_le,
|
|
RESTRICT = scalarltsel,
|
|
JOIN = scalarltjoinsel
|
|
);
|
|
|
|
CREATE OPERATOR >= (
|
|
LEFTARG = CITEXT,
|
|
RIGHTARG = CITEXT,
|
|
NEGATOR = <,
|
|
COMMUTATOR = <=,
|
|
PROCEDURE = citext_ge,
|
|
RESTRICT = scalargtsel,
|
|
JOIN = scalargtjoinsel
|
|
);
|
|
|
|
CREATE OPERATOR > (
|
|
LEFTARG = CITEXT,
|
|
RIGHTARG = CITEXT,
|
|
NEGATOR = <=,
|
|
COMMUTATOR = <,
|
|
PROCEDURE = citext_gt,
|
|
RESTRICT = scalargtsel,
|
|
JOIN = scalargtjoinsel
|
|
);
|
|
|
|
--
|
|
-- Support functions for indexing.
|
|
--
|
|
|
|
CREATE FUNCTION citext_cmp(citext, citext)
|
|
RETURNS int4
|
|
AS 'MODULE_PATHNAME'
|
|
LANGUAGE C STRICT IMMUTABLE;
|
|
|
|
CREATE FUNCTION citext_hash(citext)
|
|
RETURNS int4
|
|
AS 'MODULE_PATHNAME'
|
|
LANGUAGE C STRICT IMMUTABLE;
|
|
|
|
--
|
|
-- The btree indexing operator class.
|
|
--
|
|
|
|
CREATE OPERATOR CLASS citext_ops
|
|
DEFAULT FOR TYPE CITEXT USING btree AS
|
|
OPERATOR 1 < (citext, citext),
|
|
OPERATOR 2 <= (citext, citext),
|
|
OPERATOR 3 = (citext, citext),
|
|
OPERATOR 4 >= (citext, citext),
|
|
OPERATOR 5 > (citext, citext),
|
|
FUNCTION 1 citext_cmp(citext, citext);
|
|
|
|
--
|
|
-- The hash indexing operator class.
|
|
--
|
|
|
|
CREATE OPERATOR CLASS citext_ops
|
|
DEFAULT FOR TYPE citext USING hash AS
|
|
OPERATOR 1 = (citext, citext),
|
|
FUNCTION 1 citext_hash(citext);
|
|
|
|
--
|
|
-- Aggregates.
|
|
--
|
|
|
|
CREATE FUNCTION citext_smaller(citext, citext)
|
|
RETURNS citext
|
|
AS 'MODULE_PATHNAME'
|
|
LANGUAGE 'C' IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION citext_larger(citext, citext)
|
|
RETURNS citext
|
|
AS 'MODULE_PATHNAME'
|
|
LANGUAGE 'C' IMMUTABLE STRICT;
|
|
|
|
CREATE AGGREGATE min(citext) (
|
|
SFUNC = citext_smaller,
|
|
STYPE = citext,
|
|
SORTOP = <
|
|
);
|
|
|
|
CREATE AGGREGATE max(citext) (
|
|
SFUNC = citext_larger,
|
|
STYPE = citext,
|
|
SORTOP = >
|
|
);
|
|
|
|
--
|
|
-- CITEXT pattern matching.
|
|
--
|
|
|
|
CREATE FUNCTION texticlike(citext, citext)
|
|
RETURNS bool AS 'texticlike'
|
|
LANGUAGE internal IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION texticnlike(citext, citext)
|
|
RETURNS bool AS 'texticnlike'
|
|
LANGUAGE internal IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION texticregexeq(citext, citext)
|
|
RETURNS bool AS 'texticregexeq'
|
|
LANGUAGE internal IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION texticregexne(citext, citext)
|
|
RETURNS bool AS 'texticregexne'
|
|
LANGUAGE internal IMMUTABLE STRICT;
|
|
|
|
CREATE OPERATOR ~ (
|
|
PROCEDURE = texticregexeq,
|
|
LEFTARG = citext,
|
|
RIGHTARG = citext,
|
|
NEGATOR = !~,
|
|
RESTRICT = icregexeqsel,
|
|
JOIN = icregexeqjoinsel
|
|
);
|
|
|
|
CREATE OPERATOR ~* (
|
|
PROCEDURE = texticregexeq,
|
|
LEFTARG = citext,
|
|
RIGHTARG = citext,
|
|
NEGATOR = !~*,
|
|
RESTRICT = icregexeqsel,
|
|
JOIN = icregexeqjoinsel
|
|
);
|
|
|
|
CREATE OPERATOR !~ (
|
|
PROCEDURE = texticregexne,
|
|
LEFTARG = citext,
|
|
RIGHTARG = citext,
|
|
NEGATOR = ~,
|
|
RESTRICT = icregexnesel,
|
|
JOIN = icregexnejoinsel
|
|
);
|
|
|
|
CREATE OPERATOR !~* (
|
|
PROCEDURE = texticregexne,
|
|
LEFTARG = citext,
|
|
RIGHTARG = citext,
|
|
NEGATOR = ~*,
|
|
RESTRICT = icregexnesel,
|
|
JOIN = icregexnejoinsel
|
|
);
|
|
|
|
CREATE OPERATOR ~~ (
|
|
PROCEDURE = texticlike,
|
|
LEFTARG = citext,
|
|
RIGHTARG = citext,
|
|
NEGATOR = !~~,
|
|
RESTRICT = iclikesel,
|
|
JOIN = iclikejoinsel
|
|
);
|
|
|
|
CREATE OPERATOR ~~* (
|
|
PROCEDURE = texticlike,
|
|
LEFTARG = citext,
|
|
RIGHTARG = citext,
|
|
NEGATOR = !~~*,
|
|
RESTRICT = iclikesel,
|
|
JOIN = iclikejoinsel
|
|
);
|
|
|
|
CREATE OPERATOR !~~ (
|
|
PROCEDURE = texticnlike,
|
|
LEFTARG = citext,
|
|
RIGHTARG = citext,
|
|
NEGATOR = ~~,
|
|
RESTRICT = icnlikesel,
|
|
JOIN = icnlikejoinsel
|
|
);
|
|
|
|
CREATE OPERATOR !~~* (
|
|
PROCEDURE = texticnlike,
|
|
LEFTARG = citext,
|
|
RIGHTARG = citext,
|
|
NEGATOR = ~~*,
|
|
RESTRICT = icnlikesel,
|
|
JOIN = icnlikejoinsel
|
|
);
|
|
|
|
--
|
|
-- Matching citext to text.
|
|
--
|
|
|
|
CREATE FUNCTION texticlike(citext, text)
|
|
RETURNS bool AS 'texticlike'
|
|
LANGUAGE internal IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION texticnlike(citext, text)
|
|
RETURNS bool AS 'texticnlike'
|
|
LANGUAGE internal IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION texticregexeq(citext, text)
|
|
RETURNS bool AS 'texticregexeq'
|
|
LANGUAGE internal IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION texticregexne(citext, text)
|
|
RETURNS bool AS 'texticregexne'
|
|
LANGUAGE internal IMMUTABLE STRICT;
|
|
|
|
CREATE OPERATOR ~ (
|
|
PROCEDURE = texticregexeq,
|
|
LEFTARG = citext,
|
|
RIGHTARG = text,
|
|
NEGATOR = !~,
|
|
RESTRICT = icregexeqsel,
|
|
JOIN = icregexeqjoinsel
|
|
);
|
|
|
|
CREATE OPERATOR ~* (
|
|
PROCEDURE = texticregexeq,
|
|
LEFTARG = citext,
|
|
RIGHTARG = text,
|
|
NEGATOR = !~*,
|
|
RESTRICT = icregexeqsel,
|
|
JOIN = icregexeqjoinsel
|
|
);
|
|
|
|
CREATE OPERATOR !~ (
|
|
PROCEDURE = texticregexne,
|
|
LEFTARG = citext,
|
|
RIGHTARG = text,
|
|
NEGATOR = ~,
|
|
RESTRICT = icregexnesel,
|
|
JOIN = icregexnejoinsel
|
|
);
|
|
|
|
CREATE OPERATOR !~* (
|
|
PROCEDURE = texticregexne,
|
|
LEFTARG = citext,
|
|
RIGHTARG = text,
|
|
NEGATOR = ~*,
|
|
RESTRICT = icregexnesel,
|
|
JOIN = icregexnejoinsel
|
|
);
|
|
|
|
CREATE OPERATOR ~~ (
|
|
PROCEDURE = texticlike,
|
|
LEFTARG = citext,
|
|
RIGHTARG = text,
|
|
NEGATOR = !~~,
|
|
RESTRICT = iclikesel,
|
|
JOIN = iclikejoinsel
|
|
);
|
|
|
|
CREATE OPERATOR ~~* (
|
|
PROCEDURE = texticlike,
|
|
LEFTARG = citext,
|
|
RIGHTARG = text,
|
|
NEGATOR = !~~*,
|
|
RESTRICT = iclikesel,
|
|
JOIN = iclikejoinsel
|
|
);
|
|
|
|
CREATE OPERATOR !~~ (
|
|
PROCEDURE = texticnlike,
|
|
LEFTARG = citext,
|
|
RIGHTARG = text,
|
|
NEGATOR = ~~,
|
|
RESTRICT = icnlikesel,
|
|
JOIN = icnlikejoinsel
|
|
);
|
|
|
|
CREATE OPERATOR !~~* (
|
|
PROCEDURE = texticnlike,
|
|
LEFTARG = citext,
|
|
RIGHTARG = text,
|
|
NEGATOR = ~~*,
|
|
RESTRICT = icnlikesel,
|
|
JOIN = icnlikejoinsel
|
|
);
|
|
|
|
--
|
|
-- Matching citext in string comparison functions.
|
|
-- XXX TODO Ideally these would be implemented in C.
|
|
--
|
|
|
|
CREATE FUNCTION regexp_matches( citext, citext ) RETURNS TEXT[] AS $$
|
|
SELECT pg_catalog.regexp_matches( $1::pg_catalog.text, $2::pg_catalog.text, 'i' );
|
|
$$ LANGUAGE SQL IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION regexp_matches( citext, citext, text ) RETURNS TEXT[] AS $$
|
|
SELECT pg_catalog.regexp_matches( $1::pg_catalog.text, $2::pg_catalog.text, CASE WHEN pg_catalog.strpos($3, 'c') = 0 THEN $3 || 'i' ELSE $3 END );
|
|
$$ LANGUAGE SQL IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION regexp_replace( citext, citext, text ) returns TEXT AS $$
|
|
SELECT pg_catalog.regexp_replace( $1::pg_catalog.text, $2::pg_catalog.text, $3, 'i');
|
|
$$ LANGUAGE SQL IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION regexp_replace( citext, citext, text, text ) returns TEXT AS $$
|
|
SELECT pg_catalog.regexp_replace( $1::pg_catalog.text, $2::pg_catalog.text, $3, CASE WHEN pg_catalog.strpos($4, 'c') = 0 THEN $4 || 'i' ELSE $4 END);
|
|
$$ LANGUAGE SQL IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION regexp_split_to_array( citext, citext ) RETURNS TEXT[] AS $$
|
|
SELECT pg_catalog.regexp_split_to_array( $1::pg_catalog.text, $2::pg_catalog.text, 'i' );
|
|
$$ LANGUAGE SQL IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION regexp_split_to_array( citext, citext, text ) RETURNS TEXT[] AS $$
|
|
SELECT pg_catalog.regexp_split_to_array( $1::pg_catalog.text, $2::pg_catalog.text, CASE WHEN pg_catalog.strpos($3, 'c') = 0 THEN $3 || 'i' ELSE $3 END );
|
|
$$ LANGUAGE SQL IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION regexp_split_to_table( citext, citext ) RETURNS SETOF TEXT AS $$
|
|
SELECT pg_catalog.regexp_split_to_table( $1::pg_catalog.text, $2::pg_catalog.text, 'i' );
|
|
$$ LANGUAGE SQL IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION regexp_split_to_table( citext, citext, text ) RETURNS SETOF TEXT AS $$
|
|
SELECT pg_catalog.regexp_split_to_table( $1::pg_catalog.text, $2::pg_catalog.text, CASE WHEN pg_catalog.strpos($3, 'c') = 0 THEN $3 || 'i' ELSE $3 END );
|
|
$$ LANGUAGE SQL IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION strpos( citext, citext ) RETURNS INT AS $$
|
|
SELECT pg_catalog.strpos( pg_catalog.lower( $1::pg_catalog.text ), pg_catalog.lower( $2::pg_catalog.text ) );
|
|
$$ LANGUAGE SQL IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION replace( citext, citext, citext ) RETURNS TEXT AS $$
|
|
SELECT pg_catalog.regexp_replace( $1::pg_catalog.text, pg_catalog.regexp_replace($2::pg_catalog.text, '([^a-zA-Z_0-9])', E'\\\\\\1', 'g'), $3::pg_catalog.text, 'gi' );
|
|
$$ LANGUAGE SQL IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION split_part( citext, citext, int ) RETURNS TEXT AS $$
|
|
SELECT (pg_catalog.regexp_split_to_array( $1::pg_catalog.text, pg_catalog.regexp_replace($2::pg_catalog.text, '([^a-zA-Z_0-9])', E'\\\\\\1', 'g'), 'i'))[$3];
|
|
$$ LANGUAGE SQL IMMUTABLE STRICT;
|
|
|
|
CREATE FUNCTION translate( citext, citext, text ) RETURNS TEXT AS $$
|
|
SELECT pg_catalog.translate( pg_catalog.translate( $1::pg_catalog.text, pg_catalog.lower($2::pg_catalog.text), $3), pg_catalog.upper($2::pg_catalog.text), $3);
|
|
$$ LANGUAGE SQL IMMUTABLE STRICT;
|