OSDN Git Service

Restructure operator classes to allow improved handling of cross-data-type
[pg-rex/syncrep.git] / contrib / intarray / _int.sql.in
index 2214bef..44efc85 100644 (file)
@@ -1,6 +1,69 @@
+--
 -- Create the user-defined type for the 1-D integer arrays (_int4)
--- 
-BEGIN TRANSACTION;
+--
+
+-- Adjust this setting to control where the operators, functions, and
+-- opclasses get created.
+SET search_path = public;
+
+BEGIN;
+
+-- Query type
+CREATE FUNCTION bqarr_in(cstring)
+RETURNS query_int
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE FUNCTION bqarr_out(query_int)
+RETURNS cstring
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE TYPE query_int (
+       INTERNALLENGTH = -1,
+       INPUT = bqarr_in,
+       OUTPUT = bqarr_out
+);
+
+--only for debug
+CREATE FUNCTION querytree(query_int)
+RETURNS text
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+
+CREATE FUNCTION boolop(_int4, query_int)
+RETURNS bool
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+COMMENT ON FUNCTION boolop(_int4, query_int) IS 'boolean operation with array';
+
+CREATE FUNCTION rboolop(query_int, _int4)
+RETURNS bool
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+COMMENT ON FUNCTION rboolop(query_int, _int4) IS 'boolean operation with array';
+
+CREATE OPERATOR @@ (
+       LEFTARG = _int4,
+       RIGHTARG = query_int,
+       PROCEDURE = boolop,
+       COMMUTATOR = '~~',
+       RESTRICT = contsel,
+       JOIN = contjoinsel
+);
+
+CREATE OPERATOR ~~ (
+       LEFTARG = query_int,
+       RIGHTARG = _int4,
+       PROCEDURE = rboolop,
+       COMMUTATOR = '@@',
+       RESTRICT = contsel,
+       JOIN = contjoinsel
+);
+
 
 --
 -- External C-functions for R-tree methods
@@ -8,316 +71,422 @@ BEGIN TRANSACTION;
 
 -- Comparison methods
 
-CREATE FUNCTION _int_contains(_int4, _int4) RETURNS bool
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
+CREATE FUNCTION _int_contains(_int4, _int4)
+RETURNS bool
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
 
-INSERT INTO pg_description (objoid, description)
-   SELECT oid, 'contains'::text
-   FROM pg_proc
-   WHERE proname = '_int_contains'::name;
+COMMENT ON FUNCTION _int_contains(_int4, _int4) IS 'contains';
 
-CREATE FUNCTION _int_contained(_int4, _int4) RETURNS bool
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
+CREATE FUNCTION _int_contained(_int4, _int4)
+RETURNS bool
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
 
-INSERT INTO pg_description (objoid, description)
-   SELECT oid, 'contained in'::text
-   FROM pg_proc
-   WHERE proname = '_int_contained'::name;
+COMMENT ON FUNCTION _int_contained(_int4, _int4) IS 'contained in';
 
-CREATE FUNCTION _int_overlap(_int4, _int4) RETURNS bool
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
+CREATE FUNCTION _int_overlap(_int4, _int4)
+RETURNS bool
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
 
-INSERT INTO pg_description (objoid, description)
-   SELECT oid, 'overlaps'::text
-   FROM pg_proc
-   WHERE proname = '_int_overlap'::name;
+COMMENT ON FUNCTION _int_overlap(_int4, _int4) IS 'overlaps';
 
-CREATE FUNCTION _int_same(_int4, _int4) RETURNS bool
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
+CREATE FUNCTION _int_same(_int4, _int4)
+RETURNS bool
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
 
-INSERT INTO pg_description (objoid, description)
-   SELECT oid, 'same as'::text
-   FROM pg_proc
-   WHERE proname = '_int_same'::name;
+COMMENT ON FUNCTION _int_same(_int4, _int4) IS 'same as';
 
-CREATE FUNCTION _int_different(_int4, _int4) RETURNS bool
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
+CREATE FUNCTION _int_different(_int4, _int4)
+RETURNS bool
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
 
-INSERT INTO pg_description (objoid, description)
-   SELECT oid, 'different'::text
-   FROM pg_proc
-   WHERE proname = '_int_different'::name;
+COMMENT ON FUNCTION _int_different(_int4, _int4) IS 'different';
 
 -- support routines for indexing
 
-CREATE FUNCTION _int_union(_int4, _int4) RETURNS _int4
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
+CREATE FUNCTION _int_union(_int4, _int4)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
 
-CREATE FUNCTION _int_inter(_int4, _int4) RETURNS _int4
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
+CREATE FUNCTION _int_inter(_int4, _int4)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
 
 --
 -- OPERATORS
 --
 
 CREATE OPERATOR && (
-   LEFTARG = _int4, RIGHTARG = _int4, PROCEDURE = _int_overlap,
-   COMMUTATOR = '&&',
-   RESTRICT = contsel, JOIN = contjoinsel
+       LEFTARG = _int4,
+       RIGHTARG = _int4,
+       PROCEDURE = _int_overlap,
+       COMMUTATOR = '&&',
+       RESTRICT = contsel,
+       JOIN = contjoinsel
 );
 
 --CREATE OPERATOR = (
---   LEFTARG = _int4, RIGHTARG = _int4, PROCEDURE = _int_same,
---   COMMUTATOR = '=', NEGATOR = '<>',
---   RESTRICT = eqsel, JOIN = eqjoinsel,
---   SORT1 = '<', SORT2 = '<'
+--     LEFTARG = _int4,
+--     RIGHTARG = _int4,
+--     PROCEDURE = _int_same,
+--     COMMUTATOR = '=',
+--     NEGATOR = '<>',
+--     RESTRICT = eqsel,
+--     JOIN = eqjoinsel,
+--     SORT1 = '<',
+--     SORT2 = '<'
 --);
 
-CREATE OPERATOR <> (
-   LEFTARG = _int4, RIGHTARG = _int4, PROCEDURE = _int_different,
-   COMMUTATOR = '<>', NEGATOR = '=',
-   RESTRICT = neqsel, JOIN = neqjoinsel
+--CREATE OPERATOR <> (
+--     LEFTARG = _int4,
+--     RIGHTARG = _int4,
+--     PROCEDURE = _int_different,
+--     COMMUTATOR = '<>',
+--     NEGATOR = '=',
+--     RESTRICT = neqsel,
+--     JOIN = neqjoinsel
+--);
+
+CREATE OPERATOR @> (
+       LEFTARG = _int4,
+       RIGHTARG = _int4,
+       PROCEDURE = _int_contains,
+       COMMUTATOR = '<@',
+       RESTRICT = contsel,
+       JOIN = contjoinsel
+);
+
+CREATE OPERATOR <@ (
+       LEFTARG = _int4,
+       RIGHTARG = _int4,
+       PROCEDURE = _int_contained,
+       COMMUTATOR = '@>',
+       RESTRICT = contsel,
+       JOIN = contjoinsel
 );
 
+-- obsolete:
 CREATE OPERATOR @ (
-   LEFTARG = _int4, RIGHTARG = _int4, PROCEDURE = _int_contains,
-   COMMUTATOR = '~', RESTRICT = contsel, JOIN = contjoinsel
+       LEFTARG = _int4,
+       RIGHTARG = _int4,
+       PROCEDURE = _int_contains,
+       COMMUTATOR = '~',
+       RESTRICT = contsel,
+       JOIN = contjoinsel
 );
 
 CREATE OPERATOR ~ (
-   LEFTARG = _int4, RIGHTARG = _int4, PROCEDURE = _int_contained,
-   COMMUTATOR = '@', RESTRICT = contsel, JOIN = contjoinsel
+       LEFTARG = _int4,
+       RIGHTARG = _int4,
+       PROCEDURE = _int_contained,
+       COMMUTATOR = '@',
+       RESTRICT = contsel,
+       JOIN = contjoinsel
 );
 
+--------------
+CREATE FUNCTION intset(int4)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE FUNCTION icount(_int4)
+RETURNS int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE OPERATOR # (
+       RIGHTARG = _int4,
+       PROCEDURE = icount
+);
+
+CREATE FUNCTION sort(_int4, text)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE FUNCTION sort(_int4)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE FUNCTION sort_asc(_int4)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE FUNCTION sort_desc(_int4)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE FUNCTION uniq(_int4)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE FUNCTION idx(_int4, int4)
+RETURNS int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE OPERATOR # (
+       LEFTARG = _int4,
+       RIGHTARG = int4,
+       PROCEDURE = idx
+);
+
+CREATE FUNCTION subarray(_int4, int4, int4)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE FUNCTION subarray(_int4, int4)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE FUNCTION intarray_push_elem(_int4, int4)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE OPERATOR + (
+       LEFTARG = _int4,
+       RIGHTARG = int4,
+       PROCEDURE = intarray_push_elem
+);
+
+CREATE FUNCTION intarray_push_array(_int4, _int4)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE OPERATOR + (
+       LEFTARG = _int4,
+       RIGHTARG = _int4,
+       COMMUTATOR = +,
+       PROCEDURE = intarray_push_array
+);
+
+CREATE FUNCTION intarray_del_elem(_int4, int4)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE OPERATOR - (
+       LEFTARG = _int4,
+       RIGHTARG = int4,
+       PROCEDURE = intarray_del_elem
+);
+
+CREATE FUNCTION intset_union_elem(_int4, int4)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE OPERATOR | (
+       LEFTARG = _int4,
+       RIGHTARG = int4,
+       PROCEDURE = intset_union_elem
+);
+
+CREATE OPERATOR | (
+       LEFTARG = _int4,
+       RIGHTARG = _int4,
+       COMMUTATOR = |,
+       PROCEDURE = _int_union
+);
+
+CREATE FUNCTION intset_subtract(_int4, _int4)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE OPERATOR - (
+       LEFTARG = _int4,
+       RIGHTARG = _int4,
+       PROCEDURE = intset_subtract
+);
+
+CREATE OPERATOR & (
+       LEFTARG = _int4,
+       RIGHTARG = _int4,
+       COMMUTATOR = &,
+       PROCEDURE = _int_inter
+);
+--------------
 
 -- define the GiST support methods
-CREATE FUNCTION g_int_consistent(opaque,_int4,int4) RETURNS bool
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
-
-CREATE FUNCTION g_int_compress(opaque) RETURNS opaque 
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
-
-CREATE FUNCTION g_int_decompress(opaque) RETURNS opaque 
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
-
-CREATE FUNCTION g_int_penalty(opaque,opaque,opaque) RETURNS opaque
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
-
-CREATE FUNCTION g_int_picksplit(opaque, opaque) RETURNS opaque
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
-
-CREATE FUNCTION g_int_union(bytea, opaque) RETURNS _int4 
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
-
-CREATE FUNCTION g_int_same(_int4, _int4, opaque) RETURNS opaque 
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
-
-
--- register the default opclass for indexing
-INSERT INTO pg_opclass (opcname, opcdeftype)
-   SELECT 'gist__int_ops', oid
-   FROM pg_type
-   WHERE typname = '_int4';
-
-
--- get the comparators for _intments and store them in a tmp table
-SELECT o.oid AS opoid, o.oprname
-INTO TABLE _int_ops_tmp
-FROM pg_operator o, pg_type t
-WHERE o.oprleft = t.oid and o.oprright = t.oid
-   and t.typname = '_int4';
-
--- make sure we have the right operators
--- SELECT * from _int_ops_tmp;
-
--- using the tmp table, generate the amop entries 
-
--- _int_overlap
-INSERT INTO pg_amop (amopid, amopclaid, amopopr, amopstrategy)
-   SELECT am.oid, opcl.oid, c.opoid, 3
-   FROM pg_am am, pg_opclass opcl, _int_ops_tmp c
-   WHERE amname = 'gist' and opcname = 'gist__int_ops' 
-      and c.oprname = '&&';
-
--- _int_same
-INSERT INTO pg_amop (amopid, amopclaid, amopopr, amopstrategy)
-   SELECT am.oid, opcl.oid, c.opoid, 6
-   FROM pg_am am, pg_opclass opcl, _int_ops_tmp c
-   WHERE amname = 'gist' and opcname = 'gist__int_ops' 
-      and c.oprname = '=';
-
--- _int_contains
-INSERT INTO pg_amop (amopid, amopclaid, amopopr, amopstrategy)
-   SELECT am.oid, opcl.oid, c.opoid, 7
-   FROM pg_am am, pg_opclass opcl, _int_ops_tmp c
-   WHERE amname = 'gist' and opcname = 'gist__int_ops' 
-      and c.oprname = '@';
-
--- _int_contained
-INSERT INTO pg_amop (amopid, amopclaid, amopopr, amopstrategy)
-   SELECT am.oid, opcl.oid, c.opoid, 8
-   FROM pg_am am, pg_opclass opcl, _int_ops_tmp c
-   WHERE amname = 'gist' and opcname = 'gist__int_ops' 
-      and c.oprname = '~';
-
-DROP TABLE _int_ops_tmp;
-
-
--- add the entries to amproc for the support methods
--- note the amprocnum numbers associated with each are specific!
-
-INSERT INTO pg_amproc (amid, amopclaid, amproc, amprocnum)
-   SELECT am.oid, opcl.oid, pro.oid, 1
-   FROM pg_am am, pg_opclass opcl, pg_proc pro
-   WHERE  amname = 'gist' and opcname = 'gist__int_ops'
-      and proname = 'g_int_consistent';
-
-INSERT INTO pg_amproc (amid, amopclaid, amproc, amprocnum)
-   SELECT am.oid, opcl.oid, pro.oid, 2
-   FROM pg_am am, pg_opclass opcl, pg_proc pro
-   WHERE  amname = 'gist' and opcname = 'gist__int_ops'
-      and proname = 'g_int_union';
-
-INSERT INTO pg_amproc (amid, amopclaid, amproc, amprocnum)
-   SELECT am.oid, opcl.oid, pro.oid, 3
-   FROM pg_am am, pg_opclass opcl, pg_proc pro
-   WHERE  amname = 'gist' and opcname = 'gist__int_ops'
-      and proname = 'g_int_compress';
-
-INSERT INTO pg_amproc (amid, amopclaid, amproc, amprocnum)
-   SELECT am.oid, opcl.oid, pro.oid, 4
-   FROM pg_am am, pg_opclass opcl, pg_proc pro
-   WHERE  amname = 'gist' and opcname = 'gist__int_ops'
-      and proname = 'g_int_decompress';
-
-INSERT INTO pg_amproc (amid, amopclaid, amproc, amprocnum)
-   SELECT am.oid, opcl.oid, pro.oid, 5
-   FROM pg_am am, pg_opclass opcl, pg_proc pro
-   WHERE  amname = 'gist' and opcname = 'gist__int_ops'
-      and proname = 'g_int_penalty';
-
-INSERT INTO pg_amproc (amid, amopclaid, amproc, amprocnum)
-   SELECT am.oid, opcl.oid, pro.oid, 6
-   FROM pg_am am, pg_opclass opcl, pg_proc pro
-   WHERE  amname = 'gist' and opcname = 'gist__int_ops'
-      and proname = 'g_int_picksplit';
-
-INSERT INTO pg_amproc (amid, amopclaid, amproc, amprocnum)
-   SELECT am.oid, opcl.oid, pro.oid, 7
-   FROM pg_am am, pg_opclass opcl, pg_proc pro
-   WHERE  amname = 'gist' and opcname = 'gist__int_ops'
-      and proname = 'g_int_same';
+CREATE FUNCTION g_int_consistent(internal,_int4,int4)
+RETURNS bool
+AS 'MODULE_PATHNAME'
+LANGUAGE C;
+
+CREATE FUNCTION g_int_compress(internal)
+RETURNS internal
+AS 'MODULE_PATHNAME'
+LANGUAGE C;
+
+CREATE FUNCTION g_int_decompress(internal)
+RETURNS internal
+AS 'MODULE_PATHNAME'
+LANGUAGE C;
+
+CREATE FUNCTION g_int_penalty(internal,internal,internal)
+RETURNS internal
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT;
+
+CREATE FUNCTION g_int_picksplit(internal, internal)
+RETURNS internal
+AS 'MODULE_PATHNAME'
+LANGUAGE C;
+
+CREATE FUNCTION g_int_union(internal, internal)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C;
+
+CREATE FUNCTION g_int_same(_int4, _int4, internal)
+RETURNS internal
+AS 'MODULE_PATHNAME'
+LANGUAGE C;
+
+
+-- Create the operator class for indexing
+
+CREATE OPERATOR CLASS gist__int_ops
+DEFAULT FOR TYPE _int4 USING gist AS
+       OPERATOR        3       &&,
+       OPERATOR        6       = (anyarray, anyarray)  RECHECK,
+       OPERATOR        7       @>,
+       OPERATOR        8       <@,
+       OPERATOR        13      @,
+       OPERATOR        14      ~,
+       OPERATOR        20      @@ (_int4, query_int),
+       FUNCTION        1       g_int_consistent (internal, _int4, int4),
+       FUNCTION        2       g_int_union (internal, internal),
+       FUNCTION        3       g_int_compress (internal),
+       FUNCTION        4       g_int_decompress (internal),
+       FUNCTION        5       g_int_penalty (internal, internal, internal),
+       FUNCTION        6       g_int_picksplit (internal, internal),
+       FUNCTION        7       g_int_same (_int4, _int4, internal);
 
 
 ---------------------------------------------
 -- intbig
 ---------------------------------------------
 -- define the GiST support methods
-CREATE FUNCTION g_intbig_consistent(opaque,_int4,int4) RETURNS bool
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
-
-CREATE FUNCTION g_intbig_compress(opaque) RETURNS opaque 
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
-
-CREATE FUNCTION g_intbig_decompress(opaque) RETURNS opaque 
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
-
-CREATE FUNCTION g_intbig_penalty(opaque,opaque,opaque) RETURNS opaque
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
-
-CREATE FUNCTION g_intbig_picksplit(opaque, opaque) RETURNS opaque
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
-
-CREATE FUNCTION g_intbig_union(bytea, opaque) RETURNS _int4 
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
-
-CREATE FUNCTION g_intbig_same(_int4, _int4, opaque) RETURNS opaque 
-       AS 'MODULE_PATHNAME' LANGUAGE 'c';
-
--- register the default opclass for indexing
-INSERT INTO pg_opclass (opcname, opcdeftype)
-   values ( 'gist__intbig_ops', 0 );
-
-
--- get the comparators for _intments and store them in a tmp table
-SELECT o.oid AS opoid, o.oprname
-INTO TABLE _int_ops_tmp
-FROM pg_operator o, pg_type t
-WHERE o.oprleft = t.oid and o.oprright = t.oid
-   and t.typname = '_int4';
-
--- make sure we have the right operators
--- SELECT * from _int_ops_tmp;
-
--- using the tmp table, generate the amop entries 
-
--- _int_overlap
-INSERT INTO pg_amop (amopid, amopclaid, amopopr, amopstrategy)
-   SELECT am.oid, opcl.oid, c.opoid, 3
-   FROM pg_am am, pg_opclass opcl, _int_ops_tmp c
-   WHERE amname = 'gist' and opcname = 'gist__intbig_ops' 
-      and c.oprname = '&&';
-
--- _int_contains
-INSERT INTO pg_amop (amopid, amopclaid, amopopr, amopstrategy)
-   SELECT am.oid, opcl.oid, c.opoid, 7
-   FROM pg_am am, pg_opclass opcl, _int_ops_tmp c
-   WHERE amname = 'gist' and opcname = 'gist__intbig_ops' 
-      and c.oprname = '@';
-
--- _int_contained
-INSERT INTO pg_amop (amopid, amopclaid, amopopr, amopstrategy)
-   SELECT am.oid, opcl.oid, c.opoid, 8
-   FROM pg_am am, pg_opclass opcl, _int_ops_tmp c
-   WHERE amname = 'gist' and opcname = 'gist__intbig_ops' 
-      and c.oprname = '~';
-
-DROP TABLE _int_ops_tmp;
-
-
--- add the entries to amproc for the support methods
--- note the amprocnum numbers associated with each are specific!
-
-INSERT INTO pg_amproc (amid, amopclaid, amproc, amprocnum)
-   SELECT am.oid, opcl.oid, pro.oid, 1
-   FROM pg_am am, pg_opclass opcl, pg_proc pro
-   WHERE  amname = 'gist' and opcname = 'gist__intbig_ops'
-      and proname = 'g_intbig_consistent';
-
-INSERT INTO pg_amproc (amid, amopclaid, amproc, amprocnum)
-   SELECT am.oid, opcl.oid, pro.oid, 2
-   FROM pg_am am, pg_opclass opcl, pg_proc pro
-   WHERE  amname = 'gist' and opcname = 'gist__intbig_ops'
-      and proname = 'g_intbig_union';
-
-INSERT INTO pg_amproc (amid, amopclaid, amproc, amprocnum)
-   SELECT am.oid, opcl.oid, pro.oid, 3
-   FROM pg_am am, pg_opclass opcl, pg_proc pro
-   WHERE  amname = 'gist' and opcname = 'gist__intbig_ops'
-      and proname = 'g_intbig_compress';
-
-INSERT INTO pg_amproc (amid, amopclaid, amproc, amprocnum)
-   SELECT am.oid, opcl.oid, pro.oid, 4
-   FROM pg_am am, pg_opclass opcl, pg_proc pro
-   WHERE  amname = 'gist' and opcname = 'gist__intbig_ops'
-      and proname = 'g_intbig_decompress';
-
-INSERT INTO pg_amproc (amid, amopclaid, amproc, amprocnum)
-   SELECT am.oid, opcl.oid, pro.oid, 5
-   FROM pg_am am, pg_opclass opcl, pg_proc pro
-   WHERE  amname = 'gist' and opcname = 'gist__intbig_ops'
-      and proname = 'g_intbig_penalty';
-
-INSERT INTO pg_amproc (amid, amopclaid, amproc, amprocnum)
-   SELECT am.oid, opcl.oid, pro.oid, 6
-   FROM pg_am am, pg_opclass opcl, pg_proc pro
-   WHERE  amname = 'gist' and opcname = 'gist__intbig_ops'
-      and proname = 'g_intbig_picksplit';
-
-INSERT INTO pg_amproc (amid, amopclaid, amproc, amprocnum)
-   SELECT am.oid, opcl.oid, pro.oid, 7
-   FROM pg_am am, pg_opclass opcl, pg_proc pro
-   WHERE  amname = 'gist' and opcname = 'gist__intbig_ops'
-      and proname = 'g_intbig_same';
-
-END TRANSACTION;
+
+CREATE FUNCTION _intbig_in(cstring)
+RETURNS intbig_gkey
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE FUNCTION _intbig_out(intbig_gkey)
+RETURNS cstring
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT IMMUTABLE;
+
+CREATE TYPE intbig_gkey (
+        INTERNALLENGTH = -1,
+        INPUT = _intbig_in,
+        OUTPUT = _intbig_out
+);
+
+CREATE FUNCTION g_intbig_consistent(internal,internal,int4)
+RETURNS bool
+AS 'MODULE_PATHNAME'
+LANGUAGE C;
+
+CREATE FUNCTION g_intbig_compress(internal)
+RETURNS internal
+AS 'MODULE_PATHNAME'
+LANGUAGE C;
+
+CREATE FUNCTION g_intbig_decompress(internal)
+RETURNS internal
+AS 'MODULE_PATHNAME'
+LANGUAGE C;
+
+CREATE FUNCTION g_intbig_penalty(internal,internal,internal)
+RETURNS internal
+AS 'MODULE_PATHNAME'
+LANGUAGE C RETURNS NULL ON NULL INPUT;
+
+CREATE FUNCTION g_intbig_picksplit(internal, internal)
+RETURNS internal
+AS 'MODULE_PATHNAME'
+LANGUAGE C;
+
+CREATE FUNCTION g_intbig_union(internal, internal)
+RETURNS _int4
+AS 'MODULE_PATHNAME'
+LANGUAGE C;
+
+CREATE FUNCTION g_intbig_same(internal, internal, internal)
+RETURNS internal
+AS 'MODULE_PATHNAME'
+LANGUAGE C;
+
+-- register the opclass for indexing (not as default)
+
+CREATE OPERATOR CLASS gist__intbig_ops
+FOR TYPE _int4 USING gist
+AS
+       OPERATOR        3       &&      RECHECK,
+       OPERATOR        6       = (anyarray, anyarray)  RECHECK,
+       OPERATOR        7       @>      RECHECK,
+       OPERATOR        8       <@      RECHECK,
+       OPERATOR        13      @       RECHECK,
+       OPERATOR        14      ~       RECHECK,
+       OPERATOR        20      @@ (_int4, query_int)   RECHECK,
+       FUNCTION        1       g_intbig_consistent (internal, internal, int4),
+       FUNCTION        2       g_intbig_union (internal, internal),
+       FUNCTION        3       g_intbig_compress (internal),
+       FUNCTION        4       g_intbig_decompress (internal),
+       FUNCTION        5       g_intbig_penalty (internal, internal, internal),
+       FUNCTION        6       g_intbig_picksplit (internal, internal),
+       FUNCTION        7       g_intbig_same (internal, internal, internal),
+       STORAGE         intbig_gkey;
+
+--GIN
+--mark built-in gin's _int4_ops as non default
+update pg_catalog.pg_opclass set opcdefault = 'f'
+where opcmethod = (select oid from pg_catalog.pg_am where amname='gin') and
+      opcname = '_int4_ops';
+
+CREATE FUNCTION ginint4_queryextract(internal, internal, int2)
+RETURNS internal
+AS 'MODULE_PATHNAME'
+LANGUAGE C;
+
+CREATE FUNCTION ginint4_consistent(internal, int2, internal)
+RETURNS internal
+AS 'MODULE_PATHNAME'
+LANGUAGE C;
+
+CREATE OPERATOR CLASS gin__int_ops
+DEFAULT FOR TYPE _int4 USING gin
+AS
+       OPERATOR        3       &&,
+       OPERATOR        6       = (anyarray, anyarray)  RECHECK,
+       OPERATOR        7       @>,
+       OPERATOR        8       <@      RECHECK,
+       OPERATOR        13      @,
+       OPERATOR        14      ~       RECHECK,
+       OPERATOR        20      @@ (_int4, query_int),
+       FUNCTION        1       btint4cmp (int4, int4),
+       FUNCTION        2       ginarrayextract (anyarray, internal),
+       FUNCTION        3       ginint4_queryextract (internal, internal, int2),
+       FUNCTION        4       ginint4_consistent (internal, int2, internal),
+       STORAGE         int4;
+
+COMMIT;