-- Create the user-defined type for N-dimensional boxes-- -- Adjust this setting to control where the objects get created.SET search_path = public;CREATE OR REPLACE FUNCTION cube_in(cstring)RETURNS cubeAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;CREATE OR REPLACE FUNCTION cube(float8[], float8[]) RETURNS cubeAS '$libdir/cube', 'cube_a_f8_f8'LANGUAGE C IMMUTABLE STRICT;CREATE OR REPLACE FUNCTION cube(float8[]) RETURNS cubeAS '$libdir/cube', 'cube_a_f8'LANGUAGE C IMMUTABLE STRICT;CREATE OR REPLACE FUNCTION cube_out(cube)RETURNS cstringAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;CREATE TYPE cube (	INTERNALLENGTH = variable,	INPUT = cube_in,	OUTPUT = cube_out,	ALIGNMENT = double);COMMENT ON TYPE cube IS 'multi-dimensional cube ''(FLOAT-1, FLOAT-2, ..., FLOAT-N), (FLOAT-1, FLOAT-2, ..., FLOAT-N)''';-- Convert from text to cubeCREATE OR REPLACE FUNCTION cube(text) RETURNS cubeAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;COMMENT ON FUNCTION cube(text) IS 'convert text to cube';CREATE CAST (text AS cube) WITH FUNCTION cube(text) AS ASSIGNMENT;---- External C-functions for R-tree methods---- Comparison methodsCREATE OR REPLACE FUNCTION cube_eq(cube, cube)RETURNS boolAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;COMMENT ON FUNCTION cube_eq(cube, cube) IS 'same as';CREATE OR REPLACE FUNCTION cube_ne(cube, cube)RETURNS boolAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;COMMENT ON FUNCTION cube_ne(cube, cube) IS 'different';CREATE OR REPLACE FUNCTION cube_lt(cube, cube)RETURNS boolAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;COMMENT ON FUNCTION cube_lt(cube, cube) IS 'lower than';CREATE OR REPLACE FUNCTION cube_gt(cube, cube)RETURNS boolAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;COMMENT ON FUNCTION cube_gt(cube, cube) IS 'greater than';CREATE OR REPLACE FUNCTION cube_le(cube, cube)RETURNS boolAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;COMMENT ON FUNCTION cube_le(cube, cube) IS 'lower than or equal to';CREATE OR REPLACE FUNCTION cube_ge(cube, cube)RETURNS boolAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;COMMENT ON FUNCTION cube_ge(cube, cube) IS 'greater than or equal to';CREATE OR REPLACE FUNCTION cube_cmp(cube, cube)RETURNS int4AS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;COMMENT ON FUNCTION cube_cmp(cube, cube) IS 'btree comparison function';CREATE OR REPLACE FUNCTION cube_contains(cube, cube)RETURNS boolAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;COMMENT ON FUNCTION cube_contains(cube, cube) IS 'contains';CREATE OR REPLACE FUNCTION cube_contained(cube, cube)RETURNS boolAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;COMMENT ON FUNCTION cube_contained(cube, cube) IS 'contained in';CREATE OR REPLACE FUNCTION cube_overlap(cube, cube)RETURNS boolAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;COMMENT ON FUNCTION cube_overlap(cube, cube) IS 'overlaps';-- support routines for indexingCREATE OR REPLACE FUNCTION cube_union(cube, cube)RETURNS cubeAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;CREATE OR REPLACE FUNCTION cube_inter(cube, cube)RETURNS cubeAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;CREATE OR REPLACE FUNCTION cube_size(cube)RETURNS float8AS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;-- Misc N-dimensional functionsCREATE OR REPLACE FUNCTION cube_subset(cube, int4[])RETURNS cubeAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;-- proximity routinesCREATE OR REPLACE FUNCTION cube_distance(cube, cube)RETURNS float8AS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;-- Extracting elements functionsCREATE OR REPLACE FUNCTION cube_dim(cube)RETURNS int4AS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;CREATE OR REPLACE FUNCTION cube_ll_coord(cube, int4)RETURNS float8AS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;CREATE OR REPLACE FUNCTION cube_ur_coord(cube, int4)RETURNS float8AS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;CREATE OR REPLACE FUNCTION cube(float8) RETURNS cubeAS '$libdir/cube', 'cube_f8'LANGUAGE C IMMUTABLE STRICT;CREATE OR REPLACE FUNCTION cube(float8, float8) RETURNS cubeAS '$libdir/cube', 'cube_f8_f8'LANGUAGE C IMMUTABLE STRICT;CREATE OR REPLACE FUNCTION cube(cube, float8) RETURNS cubeAS '$libdir/cube', 'cube_c_f8'LANGUAGE C IMMUTABLE STRICT;CREATE OR REPLACE FUNCTION cube(cube, float8, float8) RETURNS cubeAS '$libdir/cube', 'cube_c_f8_f8'LANGUAGE C IMMUTABLE STRICT;-- Test if cube is also a pointCREATE OR REPLACE FUNCTION cube_is_point(cube)RETURNS boolAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;-- Increasing the size of a cube by a radius in at least n dimensionsCREATE OR REPLACE FUNCTION cube_enlarge(cube, float8, int4)RETURNS cubeAS '$libdir/cube'LANGUAGE C IMMUTABLE STRICT;---- OPERATORS--CREATE OPERATOR < (	LEFTARG = cube, RIGHTARG = cube, PROCEDURE = cube_lt,	COMMUTATOR = '>', NEGATOR = '>=',	RESTRICT = scalarltsel, JOIN = scalarltjoinsel);CREATE OPERATOR > (	LEFTARG = cube, RIGHTARG = cube, PROCEDURE = cube_gt,	COMMUTATOR = '<', NEGATOR = '<=',	RESTRICT = scalargtsel, JOIN = scalargtjoinsel);CREATE OPERATOR <= (	LEFTARG = cube, RIGHTARG = cube, PROCEDURE = cube_le,	COMMUTATOR = '>=', NEGATOR = '>',	RESTRICT = scalarltsel, JOIN = scalarltjoinsel);CREATE OPERATOR >= (	LEFTARG = cube, RIGHTARG = cube, PROCEDURE = cube_ge,	COMMUTATOR = '<=', NEGATOR = '<',	RESTRICT = scalargtsel, JOIN = scalargtjoinsel);CREATE OPERATOR && (	LEFTARG = cube, RIGHTARG = cube, PROCEDURE = cube_overlap,	COMMUTATOR = '&&',	RESTRICT = areasel, JOIN = areajoinsel);CREATE OPERATOR = (	LEFTARG = cube, RIGHTARG = cube, PROCEDURE = cube_eq,	COMMUTATOR = '=', NEGATOR = '<>',	RESTRICT = eqsel, JOIN = eqjoinsel,	MERGES);CREATE OPERATOR <> (	LEFTARG = cube, RIGHTARG = cube, PROCEDURE = cube_ne,	COMMUTATOR = '<>', NEGATOR = '=',	RESTRICT = neqsel, JOIN = neqjoinsel);CREATE OPERATOR @> (	LEFTARG = cube, RIGHTARG = cube, PROCEDURE = cube_contains,	COMMUTATOR = '<@',	RESTRICT = contsel, JOIN = contjoinsel);CREATE OPERATOR <@ (	LEFTARG = cube, RIGHTARG = cube, PROCEDURE = cube_contained,	COMMUTATOR = '@>',	RESTRICT = contsel, JOIN = contjoinsel);-- these are obsolete/deprecated:CREATE OPERATOR @ (	LEFTARG = cube, RIGHTARG = cube, PROCEDURE = cube_contains,	COMMUTATOR = '~',	RESTRICT = contsel, JOIN = contjoinsel);CREATE OPERATOR ~ (	LEFTARG = cube, RIGHTARG = cube, PROCEDURE = cube_contained,	COMMUTATOR = '@',	RESTRICT = contsel, JOIN = contjoinsel);-- define the GiST support methodsCREATE OR REPLACE FUNCTION g_cube_consistent(internal,cube,int4)RETURNS boolAS '$libdir/cube'LANGUAGE C;CREATE OR REPLACE FUNCTION g_cube_compress(internal)RETURNS internal AS '$libdir/cube'LANGUAGE C;CREATE OR REPLACE FUNCTION g_cube_decompress(internal)RETURNS internal AS '$libdir/cube'LANGUAGE C;CREATE OR REPLACE FUNCTION g_cube_penalty(internal,internal,internal)RETURNS internalAS '$libdir/cube'LANGUAGE C STRICT;CREATE OR REPLACE FUNCTION g_cube_picksplit(internal, internal)RETURNS internalAS '$libdir/cube'LANGUAGE C;CREATE OR REPLACE FUNCTION g_cube_union(internal, internal)RETURNS cube AS '$libdir/cube'LANGUAGE C;CREATE OR REPLACE FUNCTION g_cube_same(cube, cube, internal)RETURNS internal AS '$libdir/cube'LANGUAGE C;-- Create the operator classes for indexingCREATE OPERATOR CLASS cube_ops    DEFAULT FOR TYPE cube USING btree AS        OPERATOR        1       < ,        OPERATOR        2       <= ,        OPERATOR        3       = ,        OPERATOR        4       >= ,        OPERATOR        5       > ,        FUNCTION        1       cube_cmp(cube, cube);CREATE OPERATOR CLASS gist_cube_ops    DEFAULT FOR TYPE cube USING gist AS	OPERATOR	3	&& ,	OPERATOR	6	= ,	OPERATOR	7	@> ,	OPERATOR	8	<@ ,	OPERATOR	13	@ ,	OPERATOR	14	~ ,	FUNCTION	1	g_cube_consistent (internal, cube, int4),	FUNCTION	2	g_cube_union (internal, internal),	FUNCTION	3	g_cube_compress (internal),	FUNCTION	4	g_cube_decompress (internal),	FUNCTION	5	g_cube_penalty (internal, internal, internal),	FUNCTION	6	g_cube_picksplit (internal, internal),	FUNCTION	7	g_cube_same (cube, cube, internal);