Open-ILS/src/sql/Pg/002.functions.aggregate.sql

   1 /*
   2  * Copyright (C) 2004-2008  Georgia Public Library Service
   3  * Copyright (C) 2008  Equinox Software, Inc.
   4  * Mike Rylander <miker@esilibrary.com>
   5  *
   6  * This program is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU General Public License
   8  * as published by the Free Software Foundation; either version 2
   9  * of the License, or (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  */
  17
  18 BEGIN;
  19
  20 DROP AGGREGATE IF EXISTS array_accum(anyelement) CASCADE;
  21
  22 CREATE AGGREGATE array_accum (
  23         sfunc = array_append,
  24         basetype = anyelement,
  25         stype = anyarray,
  26         initcond = '{}'
  27 );
  28
  29 CREATE OR REPLACE FUNCTION public.first_agg ( anyelement, anyelement ) RETURNS anyelement AS $$
  30         SELECT CASE WHEN $1 IS NULL THEN $2 ELSE $1 END;
  31 $$ LANGUAGE SQL STABLE;
  32
  33 DROP AGGREGATE IF EXISTS  public.first(anyelement) CASCADE;
  34
  35 CREATE AGGREGATE public.first (
  36         sfunc    = public.first_agg,
  37         basetype = anyelement,
  38         stype    = anyelement
  39 );
  40
  41 CREATE OR REPLACE FUNCTION public.last_agg ( anyelement, anyelement ) RETURNS anyelement AS $$
  42         SELECT $2;
  43 $$ LANGUAGE SQL STABLE;
  44
  45 DROP AGGREGATE IF EXISTS  public.last(anyelement) CASCADE;
  46
  47 CREATE AGGREGATE public.last (
  48         sfunc    = public.last_agg,
  49         basetype = anyelement,
  50         stype    = anyelement
  51 );
  52
  53 CREATE OR REPLACE FUNCTION public.text_concat ( TEXT, TEXT ) RETURNS TEXT AS $$
  54 SELECT
  55         CASE    WHEN $1 IS NULL
  56                         THEN $2
  57                 WHEN $2 IS NULL
  58                         THEN $1
  59                 ELSE $1 || ' ' || $2
  60         END;
  61 $$ LANGUAGE SQL STABLE;
  62
  63 DROP AGGREGATE IF EXISTS  public.agg_text(text) CASCADE;
  64
  65 CREATE AGGREGATE public.agg_text (
  66         sfunc    = public.text_concat,
  67         basetype = text,
  68         stype    = text
  69 );
  70
  71 CREATE OR REPLACE FUNCTION public.tsvector_concat ( tsvector, tsvector ) RETURNS tsvector AS $$
  72 SELECT
  73         CASE    WHEN $1 IS NULL
  74                         THEN $2
  75                 WHEN $2 IS NULL
  76                         THEN $1
  77                 ELSE $1 || ' ' || $2
  78         END;
  79 $$ LANGUAGE SQL STABLE;
  80
  81 DROP AGGREGATE IF EXISTS  public.agg_tsvector(tsvector) CASCADE;
  82
  83 CREATE AGGREGATE public.agg_tsvector (
  84         sfunc    = public.tsvector_concat,
  85         basetype = tsvector,
  86         stype    = tsvector
  87 );
  88
  89 COMMIT;