Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion Makefile
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
MODULES = pg_rational
EXTENSION = pg_rational
DATA = pg_rational--0.0.1.sql pg_rational--0.0.1--0.0.2.sql pg_rational--0.0.2.sql
DATA = pg_rational--0.0.1.sql pg_rational--0.0.1--0.0.2.sql pg_rational--0.0.2.sql pg_rational--0.0.2--0.0.3.sql pg_rational--0.0.3.sql
REGRESS = pg_rational_test
PG_CPPFLAGS = -std=c11 -Wextra -Wpedantic

Expand Down
1 change: 1 addition & 0 deletions pg_rational--0.0.2--0.0.3.sql
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
-- there are no sql changes between these versions
354 changes: 354 additions & 0 deletions pg_rational--0.0.3.sql
Original file line number Diff line number Diff line change
@@ -0,0 +1,354 @@
\echo Use "CREATE EXTENSION pg_rational" to load this file. \quit

CREATE FUNCTION rational_in(cstring)
RETURNS rational
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE FUNCTION rational_in_float(float8)
RETURNS rational
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE FUNCTION rational_out(rational)
RETURNS cstring
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE FUNCTION rational_out_float(rational)
RETURNS float8
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE FUNCTION rational_recv(internal)
RETURNS rational
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE FUNCTION rational_send(rational)
RETURNS bytea
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE TYPE rational (
INPUT = rational_in,
OUTPUT = rational_out,
RECEIVE = rational_recv,
SEND = rational_send,
INTERNALLENGTH = 8
);

CREATE FUNCTION rational_create(integer, integer)
RETURNS rational
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE TYPE ratt AS (n integer, d integer);
CREATE FUNCTION tuple_to_rational(ratt)
RETURNS rational AS $$
SELECT rational_create($1.n,$1.d);
$$ LANGUAGE SQL;

CREATE CAST (ratt AS rational)
WITH FUNCTION tuple_to_rational(ratt)
AS IMPLICIT;

CREATE CAST (float8 AS rational)
WITH FUNCTION rational_in_float(float8)
AS IMPLICIT;

CREATE CAST (rational as float8)
WITH FUNCTION rational_out_float(rational)
AS IMPLICIT;

CREATE FUNCTION rational_embed(integer)
RETURNS rational
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE CAST (integer AS rational)
WITH FUNCTION rational_embed(integer)
AS IMPLICIT;

CREATE FUNCTION rational_add(rational, rational)
RETURNS rational
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE OPERATOR + (
leftarg = rational,
rightarg = rational,
procedure = rational_add,
commutator = +
);

CREATE FUNCTION rational_sub(rational, rational)
RETURNS rational
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE OPERATOR - (
leftarg = rational,
rightarg = rational,
procedure = rational_sub
);

CREATE FUNCTION rational_mul(rational, rational)
RETURNS rational
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE OPERATOR * (
leftarg = rational,
rightarg = rational,
procedure = rational_mul,
commutator = *
);

CREATE FUNCTION rational_div(rational, rational)
RETURNS rational
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE OPERATOR / (
leftarg = rational,
rightarg = rational,
procedure = rational_div
);

CREATE FUNCTION rational_neg(rational)
RETURNS rational
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE OPERATOR - (
rightarg = rational,
procedure = rational_neg
);

CREATE FUNCTION rational_simplify(rational)
RETURNS rational
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE FUNCTION rational_intermediate(rational, rational)
RETURNS rational
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE;

------------- Comparison -------------

CREATE FUNCTION rational_eq(rational, rational)
RETURNS boolean
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE OPERATOR = (
LEFTARG = rational,
RIGHTARG = rational,
PROCEDURE = rational_eq,
COMMUTATOR = '=',
NEGATOR = '<>',
RESTRICT = eqsel,
JOIN = eqjoinsel,
HASHES, MERGES
);

CREATE FUNCTION rational_ne(rational, rational)
RETURNS boolean
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE OPERATOR <> (
LEFTARG = rational,
RIGHTARG = rational,
PROCEDURE = rational_ne,
COMMUTATOR = '<>',
NEGATOR = '=',
RESTRICT = neqsel,
JOIN = neqjoinsel
);

CREATE FUNCTION rational_lt(rational, rational)
RETURNS boolean
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE OPERATOR < (
LEFTARG = rational,
RIGHTARG = rational,
PROCEDURE = rational_lt,
COMMUTATOR = > ,
NEGATOR = >= ,
RESTRICT = scalarltsel,
JOIN = scalarltjoinsel
);

CREATE FUNCTION rational_le(rational, rational)
RETURNS boolean
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE OPERATOR <= (
LEFTARG = rational,
RIGHTARG = rational,
PROCEDURE = rational_le,
COMMUTATOR = >= ,
NEGATOR = > ,
RESTRICT = scalarltsel,
JOIN = scalarltjoinsel
);

CREATE FUNCTION rational_gt(rational, rational)
RETURNS boolean
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE OPERATOR > (
LEFTARG = rational,
RIGHTARG = rational,
PROCEDURE = rational_gt,
COMMUTATOR = < ,
NEGATOR = <= ,
RESTRICT = scalargtsel,
JOIN = scalargtjoinsel
);

CREATE FUNCTION rational_ge(rational, rational)
RETURNS boolean
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE OPERATOR >= (
LEFTARG = rational,
RIGHTARG = rational,
PROCEDURE = rational_ge,
COMMUTATOR = <= ,
NEGATOR = < ,
RESTRICT = scalargtsel,
JOIN = scalargtjoinsel
);

CREATE FUNCTION rational_cmp(rational, rational)
RETURNS integer
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE OPERATOR CLASS btree_rational_ops
DEFAULT FOR TYPE rational USING btree
AS
OPERATOR 1 < ,
OPERATOR 2 <= ,
OPERATOR 3 = ,
OPERATOR 4 >= ,
OPERATOR 5 > ,
FUNCTION 1 rational_cmp(rational, rational);

CREATE FUNCTION rational_hash(rational)
RETURNS integer
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE OPERATOR CLASS hash_rational_ops
DEFAULT FOR TYPE rational USING hash AS
OPERATOR 1 = ,
FUNCTION 1 rational_hash(rational);


------------- Aggregates -------------

CREATE FUNCTION rational_smaller(rational, rational)
RETURNS rational
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

CREATE FUNCTION rational_larger(rational, rational)
RETURNS rational
AS '$libdir/pg_rational'
LANGUAGE C IMMUTABLE STRICT;

------- Parallel-safe optimization --------

DO LANGUAGE plpgsql $$
BEGIN
IF current_setting('server_version_num')::int >= 90600
THEN
-- newish pg

EXECUTE $alter$
ALTER FUNCTION rational_in(cstring) PARALLEL SAFE;
ALTER FUNCTION rational_in_float(float8) PARALLEL SAFE;
ALTER FUNCTION rational_out(rational) PARALLEL SAFE;
ALTER FUNCTION rational_out_float(rational) PARALLEL SAFE;
ALTER FUNCTION rational_recv(internal) PARALLEL SAFE;
ALTER FUNCTION rational_send(rational) PARALLEL SAFE;
ALTER FUNCTION rational_create(integer, integer) PARALLEL SAFE;
ALTER FUNCTION rational_embed(integer) PARALLEL SAFE;
ALTER FUNCTION rational_add(rational, rational) PARALLEL SAFE;
ALTER FUNCTION rational_sub(rational, rational) PARALLEL SAFE;
ALTER FUNCTION rational_mul(rational, rational) PARALLEL SAFE;
ALTER FUNCTION rational_div(rational, rational) PARALLEL SAFE;
ALTER FUNCTION rational_neg(rational) PARALLEL SAFE;
ALTER FUNCTION rational_simplify(rational) PARALLEL SAFE;
ALTER FUNCTION rational_eq(rational, rational) PARALLEL SAFE;
ALTER FUNCTION rational_ne(rational, rational) PARALLEL SAFE;
ALTER FUNCTION rational_lt(rational, rational) PARALLEL SAFE;
ALTER FUNCTION rational_le(rational, rational) PARALLEL SAFE;
ALTER FUNCTION rational_gt(rational, rational) PARALLEL SAFE;
ALTER FUNCTION rational_ge(rational, rational) PARALLEL SAFE;
ALTER FUNCTION rational_cmp(rational, rational) PARALLEL SAFE;
ALTER FUNCTION rational_smaller(rational, rational) PARALLEL SAFE;
ALTER FUNCTION rational_larger(rational, rational) PARALLEL SAFE;
$alter$;

EXECUTE $agg$
CREATE AGGREGATE min(rational) (
SFUNC = rational_smaller,
STYPE = rational,
SORTOP = <,
COMBINEFUNC = rational_smaller,
PARALLEL = SAFE
);

CREATE AGGREGATE max(rational) (
SFUNC = rational_larger,
STYPE = rational,
SORTOP = >,
COMBINEFUNC = rational_larger,
PARALLEL = SAFE
);

CREATE AGGREGATE sum (rational)
(
SFUNC = rational_add,
STYPE = rational,
COMBINEFUNC = rational_add,
PARALLEL = SAFE
);
$agg$;

ELSE
-- old pg

EXECUTE $agg$
CREATE AGGREGATE min(rational) (
SFUNC = rational_smaller,
STYPE = rational,
SORTOP = <
);

CREATE AGGREGATE max(rational) (
SFUNC = rational_larger,
STYPE = rational,
SORTOP = >
);

CREATE AGGREGATE sum (rational)
(
SFUNC = rational_add,
STYPE = rational
);
$agg$;
END IF;
END
$$;
2 changes: 1 addition & 1 deletion pg_rational.control
Original file line number Diff line number Diff line change
@@ -1,2 +1,2 @@
comment = 'integer fractions'
default_version = '0.0.2'
default_version = '0.0.3'