2 * Copyright (C) 2004-2008 Georgia Public Library Service
3 * Copyright (C) 2008 Equinox Software, Inc.
4 * Mike Rylander <miker@esilibrary.com>
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.
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.
20 DROP AGGREGATE IF EXISTS array_accum(anyelement) CASCADE;
21 DROP AGGREGATE IF EXISTS public.first(anyelement) CASCADE;
22 DROP AGGREGATE IF EXISTS public.last(anyelement) CASCADE;
23 DROP AGGREGATE IF EXISTS public.agg_text(text) CASCADE;
24 DROP AGGREGATE IF EXISTS public.agg_tsvector(tsvector) CASCADE;
26 CREATE AGGREGATE array_accum (
28 basetype = anyelement,
33 CREATE OR REPLACE FUNCTION public.first_agg ( anyelement, anyelement ) RETURNS anyelement AS $$
34 SELECT CASE WHEN $1 IS NULL THEN $2 ELSE $1 END;
35 $$ LANGUAGE SQL STABLE;
37 CREATE AGGREGATE public.first (
38 sfunc = public.first_agg,
39 basetype = anyelement,
43 CREATE OR REPLACE FUNCTION public.last_agg ( anyelement, anyelement ) RETURNS anyelement AS $$
45 $$ LANGUAGE SQL STABLE;
47 CREATE AGGREGATE public.last (
48 sfunc = public.last_agg,
49 basetype = anyelement,
53 CREATE OR REPLACE FUNCTION public.text_concat ( TEXT, TEXT ) RETURNS TEXT AS $$
61 $$ LANGUAGE SQL STABLE;
63 CREATE AGGREGATE public.agg_text (
64 sfunc = public.text_concat,
69 CREATE OR REPLACE FUNCTION public.tsvector_concat ( tsvector, tsvector ) RETURNS tsvector AS $$
77 $$ LANGUAGE SQL STABLE;
79 CREATE AGGREGATE public.agg_tsvector (
80 sfunc = public.tsvector_concat,
85 CREATE OR REPLACE FUNCTION public.explode_array(anyarray) RETURNS SETOF anyelement AS $BODY$
86 SELECT ($1)[s] FROM generate_series(1, array_upper($1, 1)) AS s;
88 LANGUAGE 'sql' IMMUTABLE;