/* parray_gin.sql */

-- complain if script is sourced in psql, rather than via CREATE EXTENSION
\echo Use "CREATE EXTENSION parray_gin" to load this file. \quit

-- must be run as a normal user

-- GIN support

create or replace function parray_gin_compare(internal, internal) returns internal
 as 'MODULE_PATHNAME' language C immutable strict;

create or replace function parray_gin_extract_value(internal, internal, internal) returns internal
 as 'MODULE_PATHNAME' language C immutable strict;

create or replace function parray_gin_extract_query(internal, internal, internal, internal, internal, internal, internal) returns internal
 as 'MODULE_PATHNAME' language C immutable strict;

create or replace function parray_gin_consistent(internal, internal, internal, internal, internal, internal, internal, internal) returns internal
 as 'MODULE_PATHNAME' language C immutable strict;

create or replace function parray_gin_compare_partial(internal, internal, internal, internal) returns internal
 as 'MODULE_PATHNAME' language C immutable strict;



-- GIN operator class

-- partial operators <@@ and @@>
--   text[] op text[]
--   arr @> array['foo'] - strict contains
--   arr @@> array['ba'] - partial contains
--   arr @< array['all', 'your', 'base'] - NOT USED strict contained by

create or replace function parray_op_text_array_contains_partial(_text, _text) returns bool
 as 'MODULE_PATHNAME' language C immutable strict;

comment on function parray_op_text_array_contains_partial(_text,_text) is 'text array contains compared by partial';

create or replace function parray_op_text_array_contained_partial(_text, _text) returns bool
 as 'MODULE_PATHNAME' language C immutable strict;

comment on function parray_op_text_array_contained_partial(_text,_text) is 'text array contained compared by partial';

-- partial contains
create operator @@> (
  leftarg = _text,
  rightarg = _text,
  procedure = parray_op_text_array_contains_partial,
  commutator = '<@@',
  restrict = contsel,
  join = contjoinsel
);

-- partial contained by
create operator <@@ (
  leftarg = _text,
  rightarg = _text,
  procedure = parray_op_text_array_contained_partial,
  commutator = '@@>',
  restrict = contsel,
  join = contjoinsel
);

-- operator class

create operator class parray_gin_ops
for type _text using gin
as
	operator	7	@> (anyarray,anyarray),	-- strict text[], text[] 
	operator	8	@@> (_text,_text),			-- partial text[], text[] 
	operator	9	<@@ (_text,_text),			-- partial text[], text[] 
	function	1	parray_gin_compare(internal, internal),
	function	2	parray_gin_extract_value(internal, internal, internal),
	function	3	parray_gin_extract_query(internal, internal, internal, internal, internal, internal, internal),
	function	4	parray_gin_consistent(internal, internal, internal, internal, internal, internal, internal, internal),
	function	5	parray_gin_compare_partial(internal, internal, internal, internal),
	storage		text;