src/postrr.sql.in

   1 -- PostRR - src/postrr.sql
   2 -- Copyright (C) 2012 Sebastian 'tokkee' Harl <sh@tokkee.org>
   3 -- All rights reserved.
   4 --
   5 -- Redistribution and use in source and binary forms, with or without
   6 -- modification, are permitted provided that the following conditions
   7 -- are met:
   8 -- 1. Redistributions of source code must retain the above copyright
   9 --    notice, this list of conditions and the following disclaimer.
  10 -- 2. Redistributions in binary form must reproduce the above copyright
  11 --    notice, this list of conditions and the following disclaimer in the
  12 --    documentation and/or other materials provided with the distribution.
  13 --
  14 -- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  15 -- ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  16 -- TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  17 -- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
  18 -- CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
  19 -- EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
  20 -- PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
  21 -- OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  22 -- WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  23 -- OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
  24 -- ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  25
  26 --
  27 -- PostRR - PostgreSQL Round-Robin Extension
  28 --
  29
  30 -- suppress messages like 'return type foo is only a shell'
  31 SET client_min_messages TO WARNING;
  32
  33 BEGIN;
  34
  35 CREATE SCHEMA postrr;
  36
  37 CREATE SEQUENCE postrr.tsid INCREMENT BY 1
  38         MINVALUE 1 MAXVALUE 2147483647 START WITH 1 NO CYCLE;
  39
  40 CREATE TABLE postrr.rrtimeslices (
  41         tsid integer NOT NULL PRIMARY KEY
  42                 DEFAULT nextval('postrr.tsid'::regclass)
  43                 CHECK (0 < tsid),
  44         tslen integer NOT NULL,
  45         tsnum integer NOT NULL
  46 );
  47
  48 CREATE OR REPLACE FUNCTION PostRR_Version()
  49         RETURNS cstring
  50         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'postrr_version'
  51         LANGUAGE 'C' IMMUTABLE;
  52
  53 CREATE TYPE RRTimeslice;
  54
  55 CREATE OR REPLACE FUNCTION RRTimeslice_validate(integer)
  56         RETURNS cstring
  57         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_validate'
  58         LANGUAGE 'C' IMMUTABLE STRICT;
  59
  60 -- this will abort the transaction in case the expected internal length does
  61 -- not match the actual length
  62 SELECT RRTimeslice_validate(16);
  63
  64 CREATE OR REPLACE FUNCTION RRTimeslice_in(cstring, oid, integer)
  65         RETURNS RRTimeslice
  66         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_in'
  67         LANGUAGE 'C' IMMUTABLE STRICT;
  68
  69 CREATE OR REPLACE FUNCTION RRTimeslice_out(RRTimeslice)
  70         RETURNS cstring
  71         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_out'
  72         LANGUAGE 'C' IMMUTABLE STRICT;
  73
  74 CREATE OR REPLACE FUNCTION RRTimeslice_typmodin(cstring[])
  75         RETURNS integer
  76         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_typmodin'
  77         LANGUAGE 'C' IMMUTABLE STRICT;
  78
  79 CREATE OR REPLACE FUNCTION RRTimeslice_typmodout(integer)
  80         RETURNS cstring
  81         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_typmodout'
  82         LANGUAGE 'C' IMMUTABLE STRICT;
  83
  84 CREATE TYPE RRTimeslice (
  85         INTERNALLENGTH = 16,
  86         INPUT          = RRTimeslice_in,
  87         OUTPUT         = RRTimeslice_out,
  88         TYPMOD_IN      = RRTimeslice_typmodin,
  89         TYPMOD_OUT     = RRTimeslice_typmodout,
  90         ALIGNMENT      = double,
  91         STORAGE        = plain
  92 );
  93
  94 CREATE OR REPLACE FUNCTION RRTimeslice(rrtimeslice, integer, boolean)
  95         RETURNS rrtimeslice
  96         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_to_rrtimeslice'
  97         LANGUAGE 'C' IMMUTABLE STRICT;
  98
  99 CREATE CAST (rrtimeslice AS rrtimeslice)
 100         WITH FUNCTION RRTimeslice(rrtimeslice, integer, boolean)
 101         AS IMPLICIT;
 102
 103 CREATE OR REPLACE FUNCTION Tstamp(rrtimeslice)
 104         RETURNS timestamp
 105         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_to_timestamp'
 106         LANGUAGE 'C' IMMUTABLE STRICT;
 107
 108 CREATE CAST (rrtimeslice AS timestamp)
 109         WITH FUNCTION Tstamp(rrtimeslice);
 110         -- EXPLICIT
 111
 112 CREATE OR REPLACE FUNCTION rrtimeslice_seq_eq(rrtimeslice, rrtimeslice)
 113         RETURNS boolean
 114         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_seq_eq'
 115         LANGUAGE 'C' IMMUTABLE STRICT;
 116
 117 CREATE OR REPLACE FUNCTION rrtimeslice_seq_ne(rrtimeslice, rrtimeslice)
 118         RETURNS boolean
 119         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_seq_ne'
 120         LANGUAGE 'C' IMMUTABLE STRICT;
 121
 122 CREATE OR REPLACE FUNCTION rrtimeslice_seq_lt(rrtimeslice, rrtimeslice)
 123         RETURNS boolean
 124         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_seq_lt'
 125         LANGUAGE 'C' IMMUTABLE STRICT;
 126
 127 CREATE OR REPLACE FUNCTION rrtimeslice_seq_le(rrtimeslice, rrtimeslice)
 128         RETURNS boolean
 129         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_seq_le'
 130         LANGUAGE 'C' IMMUTABLE STRICT;
 131
 132 CREATE OR REPLACE FUNCTION rrtimeslice_seq_gt(rrtimeslice, rrtimeslice)
 133         RETURNS boolean
 134         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_seq_gt'
 135         LANGUAGE 'C' IMMUTABLE STRICT;
 136
 137 CREATE OR REPLACE FUNCTION rrtimeslice_seq_ge(rrtimeslice, rrtimeslice)
 138         RETURNS boolean
 139         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_seq_ge'
 140         LANGUAGE 'C' IMMUTABLE STRICT;
 141
 142 CREATE OR REPLACE FUNCTION rrtimeslice_seq_cmp(rrtimeslice, rrtimeslice)
 143         RETURNS integer
 144         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_seq_cmp'
 145         LANGUAGE 'C' IMMUTABLE STRICT;
 146
 147 CREATE OR REPLACE FUNCTION rrtimeslice_seq_hash(rrtimeslice)
 148         RETURNS integer
 149         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'rrtimeslice_seq_hash'
 150         LANGUAGE 'C' IMMUTABLE STRICT;
 151
 152 CREATE OPERATOR = (
 153         LEFTARG    = RRTimeslice,
 154         RIGHTARG   = RRTimeslice,
 155         PROCEDURE  = rrtimeslice_seq_eq,
 156         COMMUTATOR = =,
 157         NEGATOR    = <>,
 158         RESTRICT   = eqsel
 159 );
 160
 161 CREATE OPERATOR <> (
 162         LEFTARG    = RRTimeslice,
 163         RIGHTARG   = RRTimeslice,
 164         PROCEDURE  = rrtimeslice_seq_ne,
 165         COMMUTATOR = <>,
 166         NEGATOR    = =,
 167         RESTRICT   = neqsel
 168 );
 169
 170 CREATE OPERATOR < (
 171         LEFTARG    = RRTimeslice,
 172         RIGHTARG   = RRTimeslice,
 173         PROCEDURE  = rrtimeslice_seq_lt,
 174         COMMUTATOR = >,
 175         NEGATOR    = <=,
 176         RESTRICT   = scalarltsel
 177 );
 178
 179 CREATE OPERATOR <= (
 180         LEFTARG    = RRTimeslice,
 181         RIGHTARG   = RRTimeslice,
 182         PROCEDURE  = rrtimeslice_seq_le,
 183         COMMUTATOR = >=,
 184         NEGATOR    = <,
 185         RESTRICT   = scalarltsel
 186 );
 187
 188 CREATE OPERATOR > (
 189         LEFTARG    = RRTimeslice,
 190         RIGHTARG   = RRTimeslice,
 191         PROCEDURE  = rrtimeslice_seq_gt,
 192         COMMUTATOR = <,
 193         NEGATOR    = >=,
 194         RESTRICT   = scalargtsel
 195 );
 196
 197 CREATE OPERATOR >= (
 198         LEFTARG    = RRTimeslice,
 199         RIGHTARG   = RRTimeslice,
 200         PROCEDURE  = rrtimeslice_seq_ge,
 201         COMMUTATOR = <=,
 202         NEGATOR    = >,
 203         RESTRICT   = scalargtsel
 204 );
 205
 206 CREATE OPERATOR CLASS rrtimeslice_ops
 207         DEFAULT FOR TYPE RRTimeslice USING btree AS
 208                 OPERATOR 1 < ,
 209                 OPERATOR 2 <= ,
 210                 OPERATOR 3 = ,
 211                 OPERATOR 4 >= ,
 212                 OPERATOR 5 > ,
 213                 FUNCTION 1 rrtimeslice_seq_cmp(rrtimeslice, rrtimeslice);
 214
 215 CREATE OPERATOR CLASS rrtimeslice_hash_ops
 216         FOR TYPE RRTimeslice USING hash AS
 217                 OPERATOR 1 = ,
 218                 FUNCTION 1 rrtimeslice_seq_hash(rrtimeslice);
 219
 220 CREATE TYPE CData;
 221
 222 CREATE OR REPLACE FUNCTION CData_validate(integer)
 223         RETURNS cstring
 224         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'cdata_validate'
 225         LANGUAGE 'C' IMMUTABLE STRICT;
 226
 227 -- this will abort the transaction in case the expected internal length does
 228 -- not match the actual length
 229 SELECT CData_validate(24);
 230
 231 CREATE OR REPLACE FUNCTION CData_in(cstring, oid, integer)
 232         RETURNS CData
 233         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'cdata_in'
 234         LANGUAGE 'C' IMMUTABLE STRICT;
 235
 236 CREATE OR REPLACE FUNCTION CData_out(CData)
 237         RETURNS cstring
 238         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'cdata_out'
 239         LANGUAGE 'C' IMMUTABLE STRICT;
 240
 241 CREATE OR REPLACE FUNCTION CData_typmodin(cstring[])
 242         RETURNS integer
 243         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'cdata_typmodin'
 244         LANGUAGE 'C' IMMUTABLE STRICT;
 245
 246 CREATE OR REPLACE FUNCTION CData_typmodout(integer)
 247         RETURNS cstring
 248         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'cdata_typmodout'
 249         LANGUAGE 'C' IMMUTABLE STRICT;
 250
 251 CREATE TYPE CData (
 252         INTERNALLENGTH = 24,
 253         INPUT          = CData_in,
 254         OUTPUT         = CData_out,
 255         TYPMOD_IN      = CData_typmodin,
 256         TYPMOD_OUT     = CData_typmodout,
 257         ALIGNMENT      = double,
 258         STORAGE        = plain
 259 );
 260
 261 CREATE OR REPLACE FUNCTION CData(cdata, integer, boolean)
 262         RETURNS cdata
 263         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'cdata_to_cdata'
 264         LANGUAGE 'C' IMMUTABLE STRICT;
 265
 266 CREATE CAST (cdata AS cdata)
 267         WITH FUNCTION CData(cdata, integer, boolean)
 268         AS IMPLICIT;
 269
 270 CREATE CAST (numeric AS cdata)
 271         WITH INOUT
 272         AS ASSIGNMENT;
 273
 274 CREATE OR REPLACE FUNCTION CData(integer, integer, boolean)
 275         RETURNS cdata
 276         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'int32_to_cdata'
 277         LANGUAGE 'C' IMMUTABLE STRICT;
 278
 279 CREATE CAST (integer AS cdata)
 280         WITH FUNCTION CData(integer, integer, boolean)
 281         AS ASSIGNMENT;
 282
 283 CREATE OR REPLACE FUNCTION Float8(cdata)
 284         RETURNS double precision
 285         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'cdata_to_float8'
 286         LANGUAGE 'C' IMMUTABLE STRICT;
 287
 288 CREATE CAST (cdata AS double precision)
 289         WITH FUNCTION Float8(cdata);
 290         -- EXPLICIT
 291
 292 CREATE OR REPLACE FUNCTION CData_update(cdata, cdata)
 293         RETURNS cdata
 294         AS 'postrr-@POSTRR_MAJOR_VERSION@.@POSTRR_MINOR_VERSION@', 'cdata_update'
 295         LANGUAGE 'C' IMMUTABLE STRICT;
 296
 297 COMMIT;
 298
 299 SET client_min_messages TO DEFAULT;
 300
 301 -- vim: set tw=78 sw=4 ts=4 noexpandtab :
 302