pgs_gist.sql.in


-- Spherical key definition'

CREATE FUNCTION spherekey_in(CSTRING)
   RETURNS spherekey
   AS 'MODULE_PATHNAME'
   LANGUAGE 'c'
   IMMUTABLE STRICT;


CREATE FUNCTION spherekey_out(spherekey)
   RETURNS CSTRING
   AS 'MODULE_PATHNAME'
   LANGUAGE 'c'
   IMMUTABLE STRICT;


CREATE TYPE spherekey (
   internallength = 24,
   input   = spherekey_in,
   output  = spherekey_out
);


CREATE FUNCTION pointkey_in(CSTRING)
   RETURNS pointkey
   AS 'MODULE_PATHNAME', 'pointkey_in'
   LANGUAGE 'c'
   IMMUTABLE STRICT;


CREATE FUNCTION pointkey_out(pointkey)
   RETURNS CSTRING
   AS 'MODULE_PATHNAME', 'pointkey_out'
   LANGUAGE 'c'
   IMMUTABLE STRICT;

CREATE FUNCTION pointkey_volume(pointkey)
   RETURNS float8
   AS 'MODULE_PATHNAME', 'pointkey_volume'
   LANGUAGE 'c'
   IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION pointkey_area(pointkey)
   RETURNS float8
   AS 'MODULE_PATHNAME', 'pointkey_area'
   LANGUAGE 'c'
   IMMUTABLE STRICT PARALLEL SAFE;

CREATE FUNCTION pointkey_perimeter(pointkey)
   RETURNS float8
   AS 'MODULE_PATHNAME', 'pointkey_perimeter'
   LANGUAGE 'c'
   IMMUTABLE STRICT PARALLEL SAFE;

CREATE TYPE pointkey (
   input = pointkey_in,
   output = pointkey_out,
   internallength = -1,
   ALIGNMENT = int4,
   STORAGE = PLAIN
);

-- GIST common

CREATE FUNCTION g_spherekey_decompress(internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_spherekey_decompress'
   LANGUAGE 'c';

CREATE FUNCTION g_spherekey_union(bytea, internal)
   RETURNS spherekey
   AS 'MODULE_PATHNAME', 'g_spherekey_union'
   LANGUAGE 'c';

CREATE FUNCTION g_spherekey_penalty (internal, internal, internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_spherekey_penalty'
   LANGUAGE 'c'
   STRICT;

CREATE FUNCTION g_spherekey_picksplit(internal, internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_spherekey_picksplit'
   LANGUAGE 'c';

CREATE FUNCTION g_spherekey_same (spherekey, spherekey, internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_spherekey_same'
   LANGUAGE 'c';


-- create the operator class for spherical points

CREATE FUNCTION g_spoint_compress(internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_spoint_compress'
   LANGUAGE 'c';


CREATE FUNCTION g_spoint_consistent(internal, internal, int4, oid, internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_spoint_consistent'
   LANGUAGE 'c';


CREATE OPERATOR CLASS spoint
   DEFAULT FOR TYPE spoint USING gist AS
   OPERATOR   1 = (spoint, spoint),
   OPERATOR  11 @ (spoint, scircle),
   OPERATOR  12 @ (spoint, sline),
   OPERATOR  13 @ (spoint, spath),
   OPERATOR  14 @ (spoint, spoly),
   OPERATOR  15 @ (spoint, sellipse),
   OPERATOR  16 @ (spoint, sbox),
   OPERATOR  37 <@ (spoint, scircle),
   OPERATOR  38 <@ (spoint, sline),
   OPERATOR  39 <@ (spoint, spath),
   OPERATOR  40 <@ (spoint, spoly),
   OPERATOR  41 <@ (spoint, sellipse),
   OPERATOR  42 <@ (spoint, sbox),
   FUNCTION  1 g_spoint_consistent (internal, internal, int4, oid, internal),
   FUNCTION  2 g_spherekey_union (bytea, internal),
   FUNCTION  3 g_spoint_compress (internal),
   FUNCTION  4 g_spherekey_decompress (internal),
   FUNCTION  5 g_spherekey_penalty (internal, internal, internal),
   FUNCTION  6 g_spherekey_picksplit (internal, internal),
   FUNCTION  7 g_spherekey_same (spherekey, spherekey, internal),
   STORAGE   spherekey;


-- create the operator class for spherical circle

CREATE FUNCTION g_scircle_compress(internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_scircle_compress'
   LANGUAGE 'c';


CREATE FUNCTION g_scircle_consistent(internal, internal, int4, oid, internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_scircle_consistent'
   LANGUAGE 'c';

CREATE OPERATOR CLASS scircle
   DEFAULT FOR TYPE scircle USING gist AS
   OPERATOR   1 =  (scircle, scircle),
   OPERATOR  11 @  (scircle, scircle),
   OPERATOR  12 @  (scircle, spoly),
   OPERATOR  13 @  (scircle, sellipse),
   OPERATOR  14 @  (scircle, sbox),
   OPERATOR  21 ~ (scircle, spoint),
   OPERATOR  22 ~ (scircle, scircle),
   OPERATOR  23 ~ (scircle, sline),
   OPERATOR  24 ~ (scircle, spath),
   OPERATOR  25 ~ (scircle, spoly),
   OPERATOR  26 ~ (scircle, sellipse),
   OPERATOR  27 ~ (scircle, sbox),
   OPERATOR  31 && (scircle, scircle),
   OPERATOR  32 && (scircle, sline),
   OPERATOR  33 && (scircle, spath),
   OPERATOR  34 && (scircle, spoly),
   OPERATOR  35 && (scircle, sellipse),
   OPERATOR  36 && (scircle, sbox),
   OPERATOR  37 <@  (scircle, scircle),
   OPERATOR  38 <@  (scircle, spoly),
   OPERATOR  39 <@  (scircle, sellipse),
   OPERATOR  40 <@  (scircle, sbox),
   OPERATOR  43 @> (scircle, spoint),
   OPERATOR  44 @> (scircle, scircle),
   OPERATOR  45 @> (scircle, sline),
   OPERATOR  46 @> (scircle, spath),
   OPERATOR  47 @> (scircle, spoly),
   OPERATOR  48 @> (scircle, sellipse),
   OPERATOR  49 @> (scircle, sbox),
   FUNCTION  1 g_scircle_consistent (internal, internal, int4, oid, internal),
   FUNCTION  2 g_spherekey_union (bytea, internal),
   FUNCTION  3 g_scircle_compress (internal),
   FUNCTION  4 g_spherekey_decompress  (internal),
   FUNCTION  5 g_spherekey_penalty   (internal, internal, internal),
   FUNCTION  6 g_spherekey_picksplit (internal, internal),
   FUNCTION  7 g_spherekey_same (spherekey, spherekey, internal),
   STORAGE   spherekey;


-- create the operator class for spherical line

CREATE FUNCTION g_sline_compress(internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_sline_compress'
   LANGUAGE 'c';

CREATE FUNCTION g_sline_consistent(internal, internal, int4, oid, internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_sline_consistent'
   LANGUAGE 'c';


CREATE OPERATOR CLASS sline
   DEFAULT FOR TYPE sline USING gist AS
   OPERATOR   1 =  (sline, sline),
   OPERATOR   2 #  (sline, sline),
   OPERATOR  11 @  (sline, scircle),
   OPERATOR  12 @  (sline, spoly),
   OPERATOR  13 @  (sline, sellipse),
   OPERATOR  14 @  (sline, sbox),
   OPERATOR  21 ~ (sline, spoint),
   OPERATOR  31 && (sline, scircle),
   OPERATOR  32 && (sline, sline),
   OPERATOR  33 && (sline, spath),
   OPERATOR  34 && (sline, spoly),
   OPERATOR  35 && (sline, sellipse),
   OPERATOR  36 && (sline, sbox),
   OPERATOR  37 <@  (sline, scircle),
   OPERATOR  38 <@  (sline, spoly),
   OPERATOR  39 <@  (sline, sellipse),
   OPERATOR  40 <@  (sline, sbox),
   OPERATOR  43 @> (sline, spoint),
   FUNCTION  1 g_sline_consistent (internal, internal, int4, oid, internal),
   FUNCTION  2 g_spherekey_union (bytea, internal),
   FUNCTION  3 g_sline_compress (internal),
   FUNCTION  4 g_spherekey_decompress  (internal),
   FUNCTION  5 g_spherekey_penalty   (internal, internal, internal),
   FUNCTION  6 g_spherekey_picksplit (internal, internal),
   FUNCTION  7 g_spherekey_same (spherekey, spherekey, internal),
   STORAGE   spherekey;

 -- create the operator class for spherical ellipse

CREATE FUNCTION g_sellipse_compress(internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_sellipse_compress'
   LANGUAGE 'c';

 CREATE FUNCTION g_sellipse_consistent(internal, internal, int4, oid, internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_sellipse_consistent'
   LANGUAGE 'c';

CREATE OPERATOR CLASS sellipse
   DEFAULT FOR TYPE sellipse USING gist AS
   OPERATOR   1 =  (sellipse, sellipse),
   OPERATOR  11 @  (sellipse, scircle),
   OPERATOR  12 @  (sellipse, spoly),
   OPERATOR  13 @  (sellipse, sellipse),
   OPERATOR  14 @  (sellipse, sbox),
   OPERATOR  21 ~ (sellipse, spoint),
   OPERATOR  22 ~ (sellipse, scircle),
   OPERATOR  23 ~ (sellipse, sline),
   OPERATOR  24 ~ (sellipse, spath),
   OPERATOR  25 ~ (sellipse, spoly),
   OPERATOR  26 ~ (sellipse, sellipse),
   OPERATOR  27 ~ (sellipse, sbox),
   OPERATOR  31 && (sellipse, scircle),
   OPERATOR  32 && (sellipse, sline),
   OPERATOR  33 && (sellipse, spath),
   OPERATOR  34 && (sellipse, spoly),
   OPERATOR  35 && (sellipse, sellipse),
   OPERATOR  36 && (sellipse, sbox),
   OPERATOR  37 <@  (sellipse, scircle),
   OPERATOR  38 <@  (sellipse, spoly),
   OPERATOR  39 <@  (sellipse, sellipse),
   OPERATOR  40 <@  (sellipse, sbox),
   OPERATOR  43 @> (sellipse, spoint),
   OPERATOR  44 @> (sellipse, scircle),
   OPERATOR  45 @> (sellipse, sline),
   OPERATOR  46 @> (sellipse, spath),
   OPERATOR  47 @> (sellipse, spoly),
   OPERATOR  48 @> (sellipse, sellipse),
   OPERATOR  49 @> (sellipse, sbox),
   FUNCTION  1 g_sellipse_consistent (internal, internal, int4, oid, internal),
   FUNCTION  2 g_spherekey_union (bytea, internal),
   FUNCTION  3 g_sellipse_compress (internal),
   FUNCTION  4 g_spherekey_decompress  (internal),
   FUNCTION  5 g_spherekey_penalty   (internal, internal, internal),
   FUNCTION  6 g_spherekey_picksplit (internal, internal),
   FUNCTION  7 g_spherekey_same (spherekey, spherekey, internal),
   STORAGE   spherekey;

 -- create the operator class for spherical polygon

CREATE FUNCTION g_spoly_compress(internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_spoly_compress'
   LANGUAGE 'c';

CREATE FUNCTION g_spoly_consistent(internal, internal, int4, oid, internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_spoly_consistent'
   LANGUAGE 'c';


CREATE OPERATOR CLASS spoly
   DEFAULT FOR TYPE spoly USING gist AS
   OPERATOR   1 =  (spoly, spoly),
   OPERATOR  11 @  (spoly, scircle),
   OPERATOR  12 @  (spoly, spoly),
   OPERATOR  13 @  (spoly, sellipse),
   OPERATOR  14 @  (spoly, sbox),
   OPERATOR  21 ~ (spoly, spoint),
   OPERATOR  22 ~ (spoly, scircle),
   OPERATOR  23 ~ (spoly, sline),
   OPERATOR  24 ~ (spoly, spath),
   OPERATOR  25 ~ (spoly, spoly),
   OPERATOR  26 ~ (spoly, sellipse),
   OPERATOR  27 ~ (spoly, sbox),
   OPERATOR  31 && (spoly, scircle),
   OPERATOR  32 && (spoly, sline),
   OPERATOR  33 && (spoly, spath),
   OPERATOR  34 && (spoly, spoly),
   OPERATOR  35 && (spoly, sellipse),
   OPERATOR  36 && (spoly, sbox),
   OPERATOR  37 <@  (spoly, scircle),
   OPERATOR  38 <@  (spoly, spoly),
   OPERATOR  39 <@  (spoly, sellipse),
   OPERATOR  40 <@  (spoly, sbox),
   OPERATOR  43 @> (spoly, spoint),
   OPERATOR  44 @> (spoly, scircle),
   OPERATOR  45 @> (spoly, sline),
   OPERATOR  46 @> (spoly, spath),
   OPERATOR  47 @> (spoly, spoly),
   OPERATOR  48 @> (spoly, sellipse),
   OPERATOR  49 @> (spoly, sbox),
   FUNCTION  1 g_spoly_consistent (internal, internal, int4, oid, internal),
   FUNCTION  2 g_spherekey_union (bytea, internal),
   FUNCTION  3 g_spoly_compress (internal),
   FUNCTION  4 g_spherekey_decompress  (internal),
   FUNCTION  5 g_spherekey_penalty   (internal, internal, internal),
   FUNCTION  6 g_spherekey_picksplit (internal, internal),
   FUNCTION  7 g_spherekey_same (spherekey, spherekey, internal),
   STORAGE   spherekey;


 -- create the operator class for spherical path

CREATE FUNCTION g_spath_compress(internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_spath_compress'
   LANGUAGE 'c';

CREATE FUNCTION g_spath_consistent(internal, internal, int4, oid, internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_spath_consistent'
   LANGUAGE 'c';


CREATE OPERATOR CLASS spath
   DEFAULT FOR TYPE spath USING gist AS
   OPERATOR   1 =  (spath, spath),
   OPERATOR  11 @  (spath, scircle),
   OPERATOR  12 @  (spath, spoly),
   OPERATOR  13 @  (spath, sellipse),
   OPERATOR  14 @  (spath, sbox),
   OPERATOR  21 ~ (spath, spoint),
   OPERATOR  31 && (spath, scircle),
   OPERATOR  32 && (spath, sline),
   OPERATOR  33 && (spath, spath),
   OPERATOR  34 && (spath, spoly),
   OPERATOR  35 && (spath, sellipse),
   OPERATOR  36 && (spath, sbox),
   OPERATOR  37 <@  (spath, scircle),
   OPERATOR  38 <@  (spath, spoly),
   OPERATOR  39 <@  (spath, sellipse),
   OPERATOR  40 <@  (spath, sbox),
   OPERATOR  43 @> (spath, spoint),
   FUNCTION  1 g_spath_consistent (internal, internal, int4, oid, internal),
   FUNCTION  2 g_spherekey_union (bytea, internal),
   FUNCTION  3 g_spath_compress (internal),
   FUNCTION  4 g_spherekey_decompress  (internal),
   FUNCTION  5 g_spherekey_penalty   (internal, internal, internal),
   FUNCTION  6 g_spherekey_picksplit (internal, internal),
   FUNCTION  7 g_spherekey_same (spherekey, spherekey, internal),
   STORAGE   spherekey;


 -- create the operator class for spherical box

CREATE FUNCTION g_sbox_compress(internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_sbox_compress'
   LANGUAGE 'c';

CREATE FUNCTION g_sbox_consistent(internal, internal, int4, oid, internal)
   RETURNS internal
   AS 'MODULE_PATHNAME', 'g_sbox_consistent'
   LANGUAGE 'c';

CREATE OPERATOR CLASS sbox
   DEFAULT FOR TYPE sbox USING gist AS
   OPERATOR   1 =  (sbox, sbox),
   OPERATOR  11 @  (sbox, scircle),
   OPERATOR  12 @  (sbox, spoly),
   OPERATOR  13 @  (sbox, sellipse),
   OPERATOR  14 @  (sbox, sbox),
   OPERATOR  21 ~ (sbox, spoint),
   OPERATOR  22 ~ (sbox, scircle),
   OPERATOR  23 ~ (sbox, sline),
   OPERATOR  24 ~ (sbox, spath),
   OPERATOR  25 ~ (sbox, spoly),
   OPERATOR  26 ~ (sbox, sellipse),
   OPERATOR  27 ~ (sbox, sbox),
   OPERATOR  31 && (sbox, scircle),
   OPERATOR  32 && (sbox, sline),
   OPERATOR  33 && (sbox, spath),
   OPERATOR  34 && (sbox, spoly),
   OPERATOR  35 && (sbox, sellipse),
   OPERATOR  36 && (sbox, sbox),
   OPERATOR  37 <@  (sbox, scircle),
   OPERATOR  38 <@  (sbox, spoly),
   OPERATOR  39 <@  (sbox, sellipse),
   OPERATOR  40 <@  (sbox, sbox),
   OPERATOR  43 @> (sbox, spoint),
   OPERATOR  44 @> (sbox, scircle),
   OPERATOR  45 @> (sbox, sline),
   OPERATOR  46 @> (sbox, spath),
   OPERATOR  47 @> (sbox, spoly),
   OPERATOR  48 @> (sbox, sellipse),
   OPERATOR  49 @> (sbox, sbox),
   FUNCTION  1 g_sbox_consistent (internal, internal, int4, oid, internal),
   FUNCTION  2 g_spherekey_union (bytea, internal),
   FUNCTION  3 g_sbox_compress (internal),
   FUNCTION  4 g_spherekey_decompress  (internal),
   FUNCTION  5 g_spherekey_penalty   (internal, internal, internal),
   FUNCTION  6 g_spherekey_picksplit (internal, internal),
   FUNCTION  7 g_spherekey_same (spherekey, spherekey, internal),
   STORAGE   spherekey;