--
--	PostgreSQL code for ISSNs.
--
--	$Id: isbn_issn.sql.in,v 1.4 2002/07/16 00:48:30 momjian Exp $
--


--
--	Input and output functions and the type itself:
--

create function issn_in(opaque)
	returns opaque
	as 'MODULE_PATHNAME'
	language 'c';

create function issn_out(opaque)
	returns opaque
	as 'MODULE_PATHNAME'
	language 'c';

create type issn (
	internallength = 16,
	externallength = 9,
	input = issn_in,
	output = issn_out
);

comment on type issn
  is 'International Standard Serial Number';


--
--	The various boolean tests:
--

create function issn_lt(issn, issn)
	returns bool
	as 'MODULE_PATHNAME'
	language 'c';

create function issn_le(issn, issn)
	returns bool
	as 'MODULE_PATHNAME'
	language 'c';

create function issn_eq(issn, issn)
	returns bool
	as 'MODULE_PATHNAME'
	language 'c';

create function issn_ge(issn, issn)
	returns bool
	as 'MODULE_PATHNAME'
	language 'c';

create function issn_gt(issn, issn)
	returns bool
	as 'MODULE_PATHNAME'
	language 'c';

create function issn_ne(issn, issn)
	returns bool
	as 'MODULE_PATHNAME'
	language 'c';

--
--	Now the operators.  Note how some of the parameters to some
--	of the 'create operator' commands are commented out.  This
--	is because they reference as yet undefined operators, and
--	will be implicitly defined when those are, further down.
--

create operator < (
	leftarg = issn,
	rightarg = issn,
--	negator = >=,
	procedure = issn_lt
);

create operator <= (
	leftarg = issn,
	rightarg = issn,
--	negator = >,
	procedure = issn_le
);

create operator = (
	leftarg = issn,
	rightarg = issn,
	commutator = =,
--	negator = <>,
	procedure = issn_eq
);

create operator >= (
	leftarg = issn,
	rightarg = issn,
	negator = <,
	procedure = issn_ge
);

create operator > (
	leftarg = issn,
	rightarg = issn,
	negator = <=,
	procedure = issn_gt
);

create operator <> (
	leftarg = issn,
	rightarg = issn,
	negator = =,
	procedure = issn_ne
);

--
--	eof
--
--
--	PostgreSQL code for ISBNs.
--
--	$Id: isbn_issn.sql.in,v 1.4 2002/07/16 00:48:30 momjian Exp $
--
--
--	Input and output functions and the type itself:
--

create function isbn_in(opaque)
	returns opaque
	as 'MODULE_PATHNAME'
	language 'c';

create function isbn_out(opaque)
	returns opaque
	as 'MODULE_PATHNAME'
	language 'c';

create type isbn (
	internallength = 16,
	externallength = 13,
	input = isbn_in,
	output = isbn_out
);

comment on type isbn
  is 'International Standard Book Number';


--
--	The various boolean tests:
--

create function isbn_lt(isbn, isbn)
	returns bool
	as 'MODULE_PATHNAME'
	language 'c';

create function isbn_le(isbn, isbn)
	returns bool
	as 'MODULE_PATHNAME'
	language 'c';

create function isbn_eq(isbn, isbn)
	returns bool
	as 'MODULE_PATHNAME'
	language 'c';

create function isbn_ge(isbn, isbn)
	returns bool
	as 'MODULE_PATHNAME'
	language 'c';

create function isbn_gt(isbn, isbn)
	returns bool
	as 'MODULE_PATHNAME'
	language 'c';

create function isbn_ne(isbn, isbn)
	returns bool
	as 'MODULE_PATHNAME'
	language 'c';

--
--	Now the operators.  Note how some of the parameters to some
--	of the 'create operator' commands are commented out.  This
--	is because they reference as yet undefined operators, and
--	will be implicitly defined when those are, further down.
--

create operator < (
	leftarg = isbn,
	rightarg = isbn,
--	negator = >=,
	procedure = isbn_lt
);

create operator <= (
	leftarg = isbn,
	rightarg = isbn,
--	negator = >,
	procedure = isbn_le
);

create operator = (
	leftarg = isbn,
	rightarg = isbn,
	commutator = =,
--	negator = <>,
	procedure = isbn_eq
);

create operator >= (
	leftarg = isbn,
	rightarg = isbn,
	negator = <,
	procedure = isbn_ge
);

create operator > (
	leftarg = isbn,
	rightarg = isbn,
	negator = <=,
	procedure = isbn_gt
);

create operator <> (
	leftarg = isbn,
	rightarg = isbn,
	negator = =,
	procedure = isbn_ne
);


-------------------------------------------------
-- Create default operator class for 'isbn'    --
-- Needed to create index or primary key       --
-------------------------------------------------

-- Register new operator class with system catalog pg_opclass
insert into pg_opclass
    (opcamid, opcname, opcintype, opcdefault, opckeytype)
    values ((select oid from pg_am where amname = 'btree'),
            'isbn_ops',
            (select oid from pg_type where typname = 'isbn'),
            true,
            0);

-- Verify that new operator class was added to pg_opclass
-- select oid,* from pg_opclass where opcname = 'isbn_ops';

-- Identify comparison operators for 'isbn' type
select o.oid as opoid, o.oprname
    into temp table isbn_ops_tmp
    from pg_operator o, pg_type t
    where o.oprleft  = t.oid
    and   o.oprright = t.oid
    and   t.typname  = 'isbn';

-- Make sure all 5 needed order ops are there (<, <=, =, >=, >)
-- Operator <> will be present but is not needed
-- select * from isbn_ops_tmp order by opoid;

-- Associate B-tree strategy 1 with <
insert into pg_amop
    (amopclaid, amopstrategy, amopreqcheck, amopopr)
    select opcl.oid, 1, false, c.opoid
    from pg_opclass opcl, isbn_ops_tmp c
    where opcamid = (select oid from pg_am where amname = 'btree')
    and   opcname = 'isbn_ops'
    and c.oprname = '<';

-- Associate B-tree strategy 2 with <=
insert into pg_amop
    (amopclaid, amopstrategy, amopreqcheck, amopopr)
    select opcl.oid, 2, false, c.opoid
    from pg_opclass opcl, isbn_ops_tmp c
    where opcamid = (select oid from pg_am where amname = 'btree')
    and   opcname = 'isbn_ops'
    and   c.oprname = '<=';

-- Associate B-tree strategy 3 with =
insert into pg_amop
    (amopclaid, amopstrategy, amopreqcheck, amopopr)
    select opcl.oid, 3, false, c.opoid
    from pg_opclass opcl, isbn_ops_tmp c
    where opcamid = (select oid from pg_am where amname = 'btree')
    and   opcname = 'isbn_ops'
    and c.oprname = '=';

-- Associate B-tree strategy 4 with >=
insert into pg_amop
    (amopclaid, amopstrategy, amopreqcheck, amopopr)
    select opcl.oid, 4, false, c.opoid
    from pg_opclass opcl, isbn_ops_tmp c
    where opcamid = (select oid from pg_am where amname = 'btree')
    and   opcname = 'isbn_ops'
    and c.oprname = '>=';

-- Associate B-tree strategy 5 with >
insert into pg_amop
    (amopclaid, amopstrategy, amopreqcheck, amopopr)
    select opcl.oid, 5, false, c.opoid
    from pg_opclass opcl, isbn_ops_tmp c
    where opcamid = (select oid from pg_am where amname = 'btree')
    and   opcname = 'isbn_ops'
    and c.oprname = '>';

-- Register 'isbn' comparison function
create function isbn_cmp(isbn, isbn)
    returns integer
    as '$libdir/isbn_issn'
    language c;

-- Make sure that function was correctly registered
-- select oid, proname from pg_proc where proname = 'isbn_cmp';

-- Associate default btree operator class with 'isbn' comparison function
insert into pg_amproc
    (amopclaid, amprocnum, amproc)
    select opcl.oid, 1, p.oid
    from pg_opclass opcl, pg_proc p
    where opcamid = (select oid from pg_am where amname = 'btree')
    and   opcname = 'isbn_ops'
    and p.proname = 'isbn_cmp';


-------------------------------------------------
-- Create default operator class for 'issn'    --
-- Needed to create index or primary key       --
-------------------------------------------------

-- Register new operator class with system catalog pg_opclass
insert into pg_opclass
    (opcamid, opcname, opcintype, opcdefault, opckeytype)
    values ((select oid from pg_am where amname = 'btree'),
            'issn_ops',
            (select oid from pg_type where typname = 'issn'),
            true,
            0);

-- Verify that new operator class was added to pg_opclass
-- select oid,* from pg_opclass where opcname = 'issn_ops';

-- Identify comparison operators for 'issn' type
select o.oid as opoid, o.oprname
    into temp table issn_ops_tmp
    from pg_operator o, pg_type t
    where o.oprleft  = t.oid
    and   o.oprright = t.oid
    and   t.typname  = 'issn';

-- Make sure all 5 needed order ops are there (<, <=, =, >=, >)
-- Operator <> will be present but is not needed
-- select * from issn_ops_tmp order by opoid;

-- Associate B-tree strategy 1 with <
insert into pg_amop
    (amopclaid, amopstrategy, amopreqcheck, amopopr)
    select opcl.oid, 1, false, c.opoid
    from pg_opclass opcl, issn_ops_tmp c
    where opcamid = (select oid from pg_am where amname = 'btree')
    and   opcname = 'issn_ops'
    and c.oprname = '<';

-- Associate B-tree strategy 2 with <=
insert into pg_amop
    (amopclaid, amopstrategy, amopreqcheck, amopopr)
    select opcl.oid, 2, false, c.opoid
    from pg_opclass opcl, issn_ops_tmp c
    where opcamid = (select oid from pg_am where amname = 'btree')
    and   opcname = 'issn_ops'
    and   c.oprname = '<=';

-- Associate B-tree strategy 3 with =
insert into pg_amop
    (amopclaid, amopstrategy, amopreqcheck, amopopr)
    select opcl.oid, 3, false, c.opoid
    from pg_opclass opcl, issn_ops_tmp c
    where opcamid = (select oid from pg_am where amname = 'btree')
    and   opcname = 'issn_ops'
    and c.oprname = '=';

-- Associate B-tree strategy 4 with >=
insert into pg_amop
    (amopclaid, amopstrategy, amopreqcheck, amopopr)
    select opcl.oid, 4, false, c.opoid
    from pg_opclass opcl, issn_ops_tmp c
    where opcamid = (select oid from pg_am where amname = 'btree')
    and   opcname = 'issn_ops'
    and c.oprname = '>=';

-- Associate B-tree strategy 5 with >
insert into pg_amop
    (amopclaid, amopstrategy, amopreqcheck, amopopr)
    select opcl.oid, 5, false, c.opoid
    from pg_opclass opcl, issn_ops_tmp c
    where opcamid = (select oid from pg_am where amname = 'btree')
    and   opcname = 'issn_ops'
    and c.oprname = '>';

-- Register 'issn' comparison function
create function issn_cmp(issn, issn)
    returns integer
    as '$libdir/issn_issn'
    language c;

-- Make sure that function was correctly registered
-- select oid, proname from pg_proc where proname = 'issn_cmp';

-- Associate default btree operator class with 'issn' comparison function
insert into pg_amproc
    (amopclaid, amprocnum, amproc)
    select opcl.oid, 1, p.oid
    from pg_opclass opcl, pg_proc p
    where opcamid = (select oid from pg_am where amname = 'btree')
    and   opcname = 'issn_ops'
    and p.proname = 'issn_cmp';

--
--	eof
--