Project

General

Profile

1 2094 aaronmk
--
2
-- PostgreSQL database dump
3
--
4
5
SET statement_timeout = 0;
6 11667 aaronmk
SET lock_timeout = 0;
7 2094 aaronmk
SET client_encoding = 'UTF8';
8 6213 aaronmk
SET standard_conforming_strings = on;
9 2094 aaronmk
SET check_function_bodies = false;
10
SET client_min_messages = warning;
11
12
--
13 8183 aaronmk
-- Name: util; Type: SCHEMA; Schema: -; Owner: -
14 2094 aaronmk
--
15
16 8183 aaronmk
CREATE SCHEMA util;
17 2094 aaronmk
18
19 4982 aaronmk
--
20 8183 aaronmk
-- Name: SCHEMA util; Type: COMMENT; Schema: -; Owner: -
21 4982 aaronmk
--
22
23 12235 aaronmk
COMMENT ON SCHEMA util IS '
24
IMPORTANT: Functions must always return NULL in place of '''' (the empty string). This ensures that empty strings do not find their way into VegBIEN.
25 4982 aaronmk
26 12447 aaronmk
NOTE: SQL-language functions should never be declared STRICT, because this prevents them from being inlined. inlining can create a significant speed improvement (7x+), by avoiding function calls and enabling additional constant folding. avoiding use of STRICT also makes functions *much* easier to troubleshoot, because they won''t mysteriously do nothing if called with only NULL arguments, even when you have added debug-print statements.
27 12235 aaronmk
';
28 4982 aaronmk
29 10378 aaronmk
30 8183 aaronmk
SET search_path = util, pg_catalog;
31 2107 aaronmk
32 2094 aaronmk
--
33 8183 aaronmk
-- Name: col_cast; Type: TYPE; Schema: util; Owner: -
34 8107 aaronmk
--
35
36
CREATE TYPE col_cast AS (
37
	col_name text,
38
	type regtype
39
);
40
41
42
--
43 8183 aaronmk
-- Name: col_ref; Type: TYPE; Schema: util; Owner: -
44 8106 aaronmk
--
45
46
CREATE TYPE col_ref AS (
47
	table_ regclass,
48
	name text
49
);
50
51
52
--
53 8183 aaronmk
-- Name: compass_dir; Type: TYPE; Schema: util; Owner: -
54 7673 aaronmk
--
55
56
CREATE TYPE compass_dir AS ENUM (
57
    'N',
58
    'E',
59
    'S',
60
    'W'
61
);
62
63
64
--
65 8183 aaronmk
-- Name: datatype; Type: TYPE; Schema: util; Owner: -
66 2610 aaronmk
--
67
68
CREATE TYPE datatype AS ENUM (
69
    'str',
70
    'float'
71
);
72
73
74
--
75 12423 aaronmk
-- Name: %==(anyelement, anyelement); Type: FUNCTION; Schema: util; Owner: -
76
--
77
78
CREATE FUNCTION "%=="(left_ anyelement, right_ anyelement) RETURNS boolean
79 12443 aaronmk
    LANGUAGE sql STABLE
80 12423 aaronmk
    AS $_$
81 12436 aaronmk
SELECT keys($1) = keys($2)
82 12423 aaronmk
$_$;
83
84
85
--
86 12443 aaronmk
-- Name: FUNCTION "%=="(left_ anyelement, right_ anyelement); Type: COMMENT; Schema: util; Owner: -
87
--
88
89
COMMENT ON FUNCTION "%=="(left_ anyelement, right_ anyelement) IS '
90
needs to be declared STABLE instead of IMMUTABLE because it depends on the search_path (as described at http://vegpath.org/links/#PostgreSQL:%20Documentation:%209.3:%20Function%20Volatility%20Categories%20**)
91
';
92
93
94
--
95 8183 aaronmk
-- Name: _alt(anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement); Type: FUNCTION; Schema: util; Owner: -
96 2596 aaronmk
--
97
98 4501 aaronmk
CREATE FUNCTION _alt("0" anyelement DEFAULT NULL::unknown, "1" anyelement DEFAULT NULL::unknown, "2" anyelement DEFAULT NULL::unknown, "3" anyelement DEFAULT NULL::unknown, "4" anyelement DEFAULT NULL::unknown, "5" anyelement DEFAULT NULL::unknown, "6" anyelement DEFAULT NULL::unknown, "7" anyelement DEFAULT NULL::unknown, "8" anyelement DEFAULT NULL::unknown, "9" anyelement DEFAULT NULL::unknown, "10" anyelement DEFAULT NULL::unknown, "11" anyelement DEFAULT NULL::unknown, "12" anyelement DEFAULT NULL::unknown) RETURNS anyelement
99 3422 aaronmk
    LANGUAGE sql IMMUTABLE
100
    AS $_$
101 4501 aaronmk
SELECT coalesce($1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11, $12, $13)
102 3422 aaronmk
$_$;
103
104
105
--
106 8183 aaronmk
-- Name: _and(boolean, boolean, boolean, boolean, boolean); Type: FUNCTION; Schema: util; Owner: -
107 5937 aaronmk
--
108
109 5956 aaronmk
CREATE FUNCTION _and("0" boolean DEFAULT NULL::boolean, "1" boolean DEFAULT NULL::boolean, "2" boolean DEFAULT NULL::boolean, "3" boolean DEFAULT NULL::boolean, "4" boolean DEFAULT NULL::boolean) RETURNS boolean
110 5937 aaronmk
    LANGUAGE sql IMMUTABLE
111
    AS $_$
112
SELECT bool_and(value)
113
FROM
114
(VALUES
115
      ($1)
116
    , ($2)
117 5956 aaronmk
    , ($3)
118
    , ($4)
119
    , ($5)
120 5937 aaronmk
)
121
AS v (value)
122
$_$;
123
124
125
--
126 8183 aaronmk
-- Name: FUNCTION _and("0" boolean, "1" boolean, "2" boolean, "3" boolean, "4" boolean); Type: COMMENT; Schema: util; Owner: -
127 5937 aaronmk
--
128
129 12235 aaronmk
COMMENT ON FUNCTION _and("0" boolean, "1" boolean, "2" boolean, "3" boolean, "4" boolean) IS '
130
_and() ignores NULL values, while AND combines them with the other values to potentially convert true to NULL. AND should be used with required fields, and _and() with optional fields.
131
';
132 5937 aaronmk
133
134
--
135 8183 aaronmk
-- Name: _avg(double precision, double precision, double precision, double precision, double precision); Type: FUNCTION; Schema: util; Owner: -
136 7704 aaronmk
--
137
138
CREATE FUNCTION _avg("0" double precision DEFAULT NULL::double precision, "1" double precision DEFAULT NULL::double precision, "2" double precision DEFAULT NULL::double precision, "3" double precision DEFAULT NULL::double precision, "4" double precision DEFAULT NULL::double precision) RETURNS double precision
139
    LANGUAGE sql IMMUTABLE
140
    AS $_$
141
SELECT avg(value)
142
FROM
143
(VALUES
144
      ($1)
145
    , ($2)
146
    , ($3)
147
    , ($4)
148
    , ($5)
149
)
150
AS v (value)
151
$_$;
152
153
154
--
155 8183 aaronmk
-- Name: _dms_to_dd(text); Type: FUNCTION; Schema: util; Owner: -
156 7679 aaronmk
--
157
158
CREATE FUNCTION _dms_to_dd(value text DEFAULT NULL::text) RETURNS double precision
159 12441 aaronmk
    LANGUAGE sql IMMUTABLE
160 7679 aaronmk
    AS $_$
161 8183 aaronmk
SELECT (g[1]||'1')::integer*util._dms_to_dd(deg := g[2]::double precision, min := g[3]::double precision, sec := g[4]::double precision, dir := g[5]::util.compass_dir)
162 7698 aaronmk
FROM
163
(
164
    SELECT regexp_matches($1, '^ *(-?)(\d{1,3}(?:\.\d*)?)(?:(?:deg|[°º])(?: *([\d.]+)(?:min|[''’]))?(?: *([\d.]+)(?:sec|["”]))?)? *([NESW])? *$')
165
    UNION ALL
166 7702 aaronmk
    SELECT ARRAY[g[1], g[2], g[3]||'.'||g[4], NULL, g[5]]
167
    FROM regexp_matches($1, '^ *(-?)(\d{2,3})(\d{2})(\d{3}) *([NESW])? *$') matches (g) -- [D]DDMMmmm, where MMmmm = MM.mmm
168 7698 aaronmk
)
169
matches (g)
170 7679 aaronmk
$_$;
171
172
173
--
174 8183 aaronmk
-- Name: _dms_to_dd(double precision, double precision, double precision, compass_dir); Type: FUNCTION; Schema: util; Owner: -
175 7672 aaronmk
--
176
177 7674 aaronmk
CREATE FUNCTION _dms_to_dd(deg double precision DEFAULT NULL::double precision, min double precision DEFAULT NULL::double precision, sec double precision DEFAULT NULL::double precision, dir compass_dir DEFAULT NULL::compass_dir) RETURNS double precision
178 7672 aaronmk
    LANGUAGE sql IMMUTABLE
179
    AS $_$
180 8183 aaronmk
SELECT sum(value)*COALESCE(util._map('N=>1,E=>1,S=>-1,W=>-1', $4::text)::integer, 1)
181 7672 aaronmk
FROM
182
(VALUES
183 7677 aaronmk
      ($1)
184 7672 aaronmk
    , ($2/60)
185
    , ($3/60/60)
186
)
187
AS v (value)
188
$_$;
189
190
191
--
192 8183 aaronmk
-- Name: _dms_to_dd(text, text, text, text); Type: FUNCTION; Schema: util; Owner: -
193 7723 aaronmk
--
194
195
CREATE FUNCTION _dms_to_dd(deg text DEFAULT NULL::text, min text DEFAULT NULL::text, sec text DEFAULT NULL::text, dir text DEFAULT NULL::text) RETURNS double precision
196
    LANGUAGE sql IMMUTABLE
197
    AS $_$
198 8183 aaronmk
SELECT util._dms_to_dd($1::double precision, $2::double precision, $3::double precision, $4::util.compass_dir)
199 7723 aaronmk
$_$;
200
201
202
--
203 8183 aaronmk
-- Name: _eq(anyelement, anyelement); Type: FUNCTION; Schema: util; Owner: -
204 4142 aaronmk
--
205
206
CREATE FUNCTION _eq("left" anyelement DEFAULT NULL::unknown, "right" anyelement DEFAULT NULL::unknown) RETURNS boolean
207
    LANGUAGE sql IMMUTABLE
208
    AS $_$
209
SELECT $1 = $2
210
$_$;
211
212
213
--
214 8183 aaronmk
-- Name: _fix_date(date, date); Type: FUNCTION; Schema: util; Owner: -
215 7396 aaronmk
--
216
217
CREATE FUNCTION _fix_date(value date DEFAULT NULL::date, threshold date DEFAULT NULL::date) RETURNS date
218
    LANGUAGE sql IMMUTABLE
219
    AS $_$
220
-- Fix dates after threshold date
221
-- This fixes e.g. 2-digit years before 1970 misinterpreted as 20xx
222
SELECT (CASE WHEN $1 > COALESCE($2, now()) THEN ($1 - '100 years'::interval)::date ELSE $1 END)
223
$_$;
224
225
226
--
227 8183 aaronmk
-- Name: _if(boolean, anyelement, anyelement); Type: FUNCTION; Schema: util; Owner: -
228 4147 aaronmk
--
229
230
CREATE FUNCTION _if(cond boolean DEFAULT NULL::boolean, "then" anyelement DEFAULT NULL::unknown, "else" anyelement DEFAULT NULL::unknown) RETURNS anyelement
231
    LANGUAGE sql IMMUTABLE
232
    AS $_$
233
SELECT (CASE WHEN $1 THEN $2 ELSE $3 END)
234
$_$;
235
236
237
--
238 8183 aaronmk
-- Name: _if(text, anyelement, anyelement); Type: FUNCTION; Schema: util; Owner: -
239 4147 aaronmk
--
240
241
CREATE FUNCTION _if(cond text DEFAULT NULL::text, "then" anyelement DEFAULT NULL::unknown, "else" anyelement DEFAULT NULL::unknown) RETURNS anyelement
242
    LANGUAGE sql IMMUTABLE
243
    AS $_$
244 8183 aaronmk
SELECT util._if($1 != '', $2, $3)
245 4147 aaronmk
$_$;
246
247
248
--
249 10699 aaronmk
-- Name: _join(text, text, text, text, text, text, text, text, text, text); Type: FUNCTION; Schema: util; Owner: -
250 4325 aaronmk
--
251
252 10699 aaronmk
CREATE FUNCTION _join("0" text DEFAULT NULL::text, "1" text DEFAULT NULL::text, "2" text DEFAULT NULL::text, "3" text DEFAULT NULL::text, "4" text DEFAULT NULL::text, "5" text DEFAULT NULL::text, "6" text DEFAULT NULL::text, "7" text DEFAULT NULL::text, "8" text DEFAULT NULL::text, "9" text DEFAULT NULL::text) RETURNS text
253 4325 aaronmk
    LANGUAGE sql IMMUTABLE
254
    AS $_$
255 7848 aaronmk
SELECT NULLIF(concat_ws('; ', $1, $2, $3, $4, $5, $6, $7, $8, $9, $10), '')
256 4325 aaronmk
$_$;
257
258
259
--
260 10699 aaronmk
-- Name: _join_words(text, text, text, text, text, text, text, text, text, text); Type: FUNCTION; Schema: util; Owner: -
261 5009 aaronmk
--
262
263 10699 aaronmk
CREATE FUNCTION _join_words("0" text DEFAULT NULL::text, "1" text DEFAULT NULL::text, "2" text DEFAULT NULL::text, "3" text DEFAULT NULL::text, "4" text DEFAULT NULL::text, "5" text DEFAULT NULL::text, "6" text DEFAULT NULL::text, "7" text DEFAULT NULL::text, "8" text DEFAULT NULL::text, "9" text DEFAULT NULL::text) RETURNS text
264 5009 aaronmk
    LANGUAGE sql IMMUTABLE
265
    AS $_$
266 7848 aaronmk
SELECT NULLIF(concat_ws(' ', $1, $2, $3, $4, $5, $6, $7, $8, $9, $10), '')
267 5009 aaronmk
$_$;
268
269
270
--
271 10699 aaronmk
-- Name: _label(text, text); Type: FUNCTION; Schema: util; Owner: -
272 3422 aaronmk
--
273
274 10699 aaronmk
CREATE FUNCTION _label(label text, value text) RETURNS text
275 4682 aaronmk
    LANGUAGE sql IMMUTABLE
276
    AS $_$
277
SELECT coalesce($1 || ': ', '') || $2
278
$_$;
279 2596 aaronmk
280
281
--
282 8825 aaronmk
-- Name: _lowercase(text); Type: FUNCTION; Schema: util; Owner: -
283
--
284
285
CREATE FUNCTION _lowercase(value text) RETURNS text
286 10388 aaronmk
    LANGUAGE sql IMMUTABLE
287 8825 aaronmk
    AS $_$
288
SELECT lower($1)
289
$_$;
290
291
292
--
293 11667 aaronmk
-- Name: _map(hstore, anyelement); Type: FUNCTION; Schema: util; Owner: -
294
--
295
296
CREATE FUNCTION _map(map hstore, value anyelement) RETURNS anyelement
297
    LANGUAGE plpgsql IMMUTABLE STRICT
298
    AS $$
299
DECLARE
300
    result value%TYPE := util._map(map, value::text)::unknown;
301
BEGIN
302
    RETURN result;
303
END;
304
$$;
305
306
307
--
308 8183 aaronmk
-- Name: _map(hstore, text); Type: FUNCTION; Schema: util; Owner: -
309 6222 aaronmk
--
310
311
CREATE FUNCTION _map(map hstore, value text) RETURNS text
312 7820 aaronmk
    LANGUAGE plpgsql IMMUTABLE STRICT
313 6222 aaronmk
    AS $$
314
DECLARE
315 6271 aaronmk
    match text := map -> value;
316 6222 aaronmk
BEGIN
317 6271 aaronmk
    IF match IS NULL AND NOT map ? value THEN -- no match rather than NULL match
318
        match := map -> '*'; -- use default entry
319
        IF match IS NULL AND NOT map ? '*' THEN match := '!'; -- no default
320
        END IF;
321
    END IF;
322
323
    -- Interpret result
324 6243 aaronmk
    IF match = '!' THEN RAISE 'Value not in map: %', value USING ERRCODE = 'data_exception';
325
    ELSIF match = '*' THEN RETURN value;
326
    ELSE RETURN match;
327 6222 aaronmk
    END IF;
328
END;
329
$$;
330
331
332
--
333 8183 aaronmk
-- Name: _max(anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement); Type: FUNCTION; Schema: util; Owner: -
334 5408 aaronmk
--
335
336
CREATE FUNCTION _max("0" anyelement DEFAULT NULL::unknown, "1" anyelement DEFAULT NULL::unknown, "2" anyelement DEFAULT NULL::unknown, "3" anyelement DEFAULT NULL::unknown, "4" anyelement DEFAULT NULL::unknown, "5" anyelement DEFAULT NULL::unknown, "6" anyelement DEFAULT NULL::unknown, "7" anyelement DEFAULT NULL::unknown, "8" anyelement DEFAULT NULL::unknown, "9" anyelement DEFAULT NULL::unknown) RETURNS anyelement
337
    LANGUAGE sql IMMUTABLE
338
    AS $_$
339 7289 aaronmk
SELECT GREATEST($1, $2, $3, $4, $5, $6, $7, $8, $9, $10)
340 5408 aaronmk
$_$;
341
342
343
--
344 8183 aaronmk
-- Name: _merge(anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement); Type: FUNCTION; Schema: util; Owner: -
345 2940 aaronmk
--
346
347 4150 aaronmk
CREATE FUNCTION _merge("0" anyelement DEFAULT NULL::unknown, "1" anyelement DEFAULT NULL::unknown, "2" anyelement DEFAULT NULL::unknown, "3" anyelement DEFAULT NULL::unknown, "4" anyelement DEFAULT NULL::unknown, "5" anyelement DEFAULT NULL::unknown, "6" anyelement DEFAULT NULL::unknown, "7" anyelement DEFAULT NULL::unknown, "8" anyelement DEFAULT NULL::unknown, "9" anyelement DEFAULT NULL::unknown) RETURNS anyelement
348 2940 aaronmk
    LANGUAGE sql IMMUTABLE
349
    AS $_$
350 8183 aaronmk
SELECT util.join_strs(value, '; ')
351 2940 aaronmk
FROM
352
(
353
    SELECT *
354
    FROM
355
    (
356
        SELECT
357
        DISTINCT ON (value)
358
        *
359
        FROM
360
        (VALUES
361 4012 aaronmk
              (1, $1)
362
            , (2, $2)
363
            , (3, $3)
364
            , (4, $4)
365
            , (5, $5)
366
            , (6, $6)
367
            , (7, $7)
368
            , (8, $8)
369
            , (9, $9)
370
            , (10, $10)
371 2940 aaronmk
        )
372
        AS v (sort_order, value)
373 4011 aaronmk
        WHERE value IS NOT NULL
374 2940 aaronmk
    )
375
    AS v
376
    ORDER BY sort_order
377
)
378
AS v
379
$_$;
380
381
382
--
383 8183 aaronmk
-- Name: _merge_prefix(text, text); Type: FUNCTION; Schema: util; Owner: -
384 7140 aaronmk
--
385
386
CREATE FUNCTION _merge_prefix(prefix text DEFAULT NULL::text, value text DEFAULT NULL::text) RETURNS text
387
    LANGUAGE sql IMMUTABLE
388
    AS $_$
389
SELECT _join_words((CASE WHEN $2 ~ ('^'||$1||E'\\y') THEN NULL ELSE $1 END), $2)
390
$_$;
391
392
393
--
394 8183 aaronmk
-- Name: _merge_words(anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement); Type: FUNCTION; Schema: util; Owner: -
395 6354 aaronmk
--
396
397
CREATE FUNCTION _merge_words("0" anyelement DEFAULT NULL::unknown, "1" anyelement DEFAULT NULL::unknown, "2" anyelement DEFAULT NULL::unknown, "3" anyelement DEFAULT NULL::unknown, "4" anyelement DEFAULT NULL::unknown, "5" anyelement DEFAULT NULL::unknown, "6" anyelement DEFAULT NULL::unknown, "7" anyelement DEFAULT NULL::unknown, "8" anyelement DEFAULT NULL::unknown, "9" anyelement DEFAULT NULL::unknown) RETURNS anyelement
398
    LANGUAGE sql IMMUTABLE
399
    AS $_$
400 8183 aaronmk
SELECT util.join_strs(value, ' ')
401 6354 aaronmk
FROM
402
(
403
    SELECT *
404
    FROM
405
    (
406
        SELECT
407
        DISTINCT ON (value)
408
        *
409
        FROM
410
        (VALUES
411
              (1, $1)
412
            , (2, $2)
413
            , (3, $3)
414
            , (4, $4)
415
            , (5, $5)
416
            , (6, $6)
417
            , (7, $7)
418
            , (8, $8)
419
            , (9, $9)
420
            , (10, $10)
421
        )
422
        AS v (sort_order, value)
423
        WHERE value IS NOT NULL
424
    )
425
    AS v
426
    ORDER BY sort_order
427
)
428
AS v
429
$_$;
430
431
432
--
433 8183 aaronmk
-- Name: _min(anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement, anyelement); Type: FUNCTION; Schema: util; Owner: -
434 5408 aaronmk
--
435
436
CREATE FUNCTION _min("0" anyelement DEFAULT NULL::unknown, "1" anyelement DEFAULT NULL::unknown, "2" anyelement DEFAULT NULL::unknown, "3" anyelement DEFAULT NULL::unknown, "4" anyelement DEFAULT NULL::unknown, "5" anyelement DEFAULT NULL::unknown, "6" anyelement DEFAULT NULL::unknown, "7" anyelement DEFAULT NULL::unknown, "8" anyelement DEFAULT NULL::unknown, "9" anyelement DEFAULT NULL::unknown) RETURNS anyelement
437
    LANGUAGE sql IMMUTABLE
438
    AS $_$
439 7289 aaronmk
SELECT LEAST($1, $2, $3, $4, $5, $6, $7, $8, $9, $10)
440 5408 aaronmk
$_$;
441
442
443
--
444 8183 aaronmk
-- Name: _not(boolean); Type: FUNCTION; Schema: util; Owner: -
445 6316 aaronmk
--
446
447
CREATE FUNCTION _not(value boolean) RETURNS boolean
448 10388 aaronmk
    LANGUAGE sql IMMUTABLE
449 6316 aaronmk
    AS $_$
450
SELECT NOT $1
451
$_$;
452
453
454
--
455 8183 aaronmk
-- Name: _now(); Type: FUNCTION; Schema: util; Owner: -
456 7104 aaronmk
--
457
458
CREATE FUNCTION _now() RETURNS timestamp with time zone
459
    LANGUAGE sql STABLE
460
    AS $$
461
SELECT now()
462
$$;
463
464
465
--
466 11667 aaronmk
-- Name: _nullIf(anyelement, text, text); Type: FUNCTION; Schema: util; Owner: -
467
--
468
469
CREATE FUNCTION "_nullIf"(value anyelement, "null" text, type text) RETURNS anyelement
470
    LANGUAGE sql IMMUTABLE
471
    AS $_$
472
SELECT util."_nullIf"($1, $2, $3::util.datatype)
473
$_$;
474
475
476
--
477 8183 aaronmk
-- Name: _nullIf(anyelement, text, datatype); Type: FUNCTION; Schema: util; Owner: -
478 2949 aaronmk
--
479
480 4475 aaronmk
CREATE FUNCTION "_nullIf"(value anyelement, "null" text, type datatype DEFAULT 'str'::datatype) RETURNS anyelement
481 2949 aaronmk
    LANGUAGE plpgsql IMMUTABLE
482
    AS $$
483
DECLARE
484 8183 aaronmk
    type util.datatype NOT NULL := type; -- add NOT NULL
485 2949 aaronmk
BEGIN
486 4475 aaronmk
    IF type = 'str' THEN RETURN nullif(value::text, "null");
487 2722 aaronmk
    -- Invalid value is ignored, but invalid null value generates error
488 2949 aaronmk
    ELSIF type = 'float' THEN
489 2722 aaronmk
        DECLARE
490
            -- Outside the try block so that invalid null value generates error
491 2949 aaronmk
            "null" double precision := "null"::double precision;
492 2722 aaronmk
        BEGIN
493 2949 aaronmk
            RETURN nullif(value::double precision, "null");
494 2722 aaronmk
        EXCEPTION
495 2949 aaronmk
            WHEN data_exception THEN RETURN value; -- ignore invalid value
496 2722 aaronmk
        END;
497 2610 aaronmk
    END IF;
498
END;
499
$$;
500
501
502
--
503 8183 aaronmk
-- Name: _or(boolean, boolean, boolean, boolean, boolean); Type: FUNCTION; Schema: util; Owner: -
504 6355 aaronmk
--
505
506
CREATE FUNCTION _or("0" boolean DEFAULT NULL::boolean, "1" boolean DEFAULT NULL::boolean, "2" boolean DEFAULT NULL::boolean, "3" boolean DEFAULT NULL::boolean, "4" boolean DEFAULT NULL::boolean) RETURNS boolean
507
    LANGUAGE sql IMMUTABLE
508
    AS $_$
509
SELECT bool_or(value)
510
FROM
511
(VALUES
512
      ($1)
513
    , ($2)
514
    , ($3)
515
    , ($4)
516
    , ($5)
517
)
518
AS v (value)
519
$_$;
520
521
522
--
523 8183 aaronmk
-- Name: FUNCTION _or("0" boolean, "1" boolean, "2" boolean, "3" boolean, "4" boolean); Type: COMMENT; Schema: util; Owner: -
524 6437 aaronmk
--
525
526 12235 aaronmk
COMMENT ON FUNCTION _or("0" boolean, "1" boolean, "2" boolean, "3" boolean, "4" boolean) IS '
527
_or() ignores NULL values, while OR combines them with the other values to potentially convert false to NULL. OR should be used with required fields, and _or() with optional fields.
528
';
529 6437 aaronmk
530
531
--
532 8183 aaronmk
-- Name: _range(double precision, double precision); Type: FUNCTION; Schema: util; Owner: -
533 7706 aaronmk
--
534
535
CREATE FUNCTION _range("from" double precision DEFAULT NULL::double precision, "to" double precision DEFAULT NULL::double precision) RETURNS double precision
536
    LANGUAGE sql IMMUTABLE
537
    AS $_$
538
SELECT $2 - $1
539
$_$;
540
541
542
--
543 8183 aaronmk
-- Name: _split(text, text); Type: FUNCTION; Schema: util; Owner: -
544 6793 aaronmk
--
545
546
CREATE FUNCTION _split(value text DEFAULT NULL::text, separator text DEFAULT '; '::text) RETURNS SETOF text
547 10388 aaronmk
    LANGUAGE sql IMMUTABLE
548 6793 aaronmk
    AS $_$
549
SELECT regexp_split_to_table($1, $2)
550
$_$;
551
552
553
--
554 10594 aaronmk
-- Name: added_cols(regclass, regclass); Type: FUNCTION; Schema: util; Owner: -
555
--
556
557
CREATE FUNCTION added_cols(table_ regclass, names regclass) RETURNS SETOF text
558 12446 aaronmk
    LANGUAGE sql STABLE
559 10594 aaronmk
    AS $_$
560
SELECT util.derived_cols($1, $2)
561
UNION
562
SELECT util.eval2set($$
563
SELECT col
564
FROM util.col_names($$||quote_nullable($1)||$$::regclass) f (col)
565
JOIN $$||$2||$$ ON "to" = col
566
WHERE "from" LIKE ':%'
567
$$, NULL::text)
568
$_$;
569
570
571
--
572
-- Name: FUNCTION added_cols(table_ regclass, names regclass); Type: COMMENT; Schema: util; Owner: -
573
--
574
575 12235 aaronmk
COMMENT ON FUNCTION added_cols(table_ regclass, names regclass) IS '
576
gets table_''s added columns (all the columns not in the original data)
577
';
578 10594 aaronmk
579
580
--
581 9959 aaronmk
-- Name: all_same_final(anyarray); Type: FUNCTION; Schema: util; Owner: -
582
--
583
584
CREATE FUNCTION all_same_final(state anyarray) RETURNS boolean
585
    LANGUAGE sql IMMUTABLE
586
    AS $_$
587
SELECT $1 IS NULL/*no rows*/ OR util.not_empty($1)/*not no_match_sentinel*/
588
$_$;
589
590
591
--
592
-- Name: all_same_transform(anyarray, anyelement); Type: FUNCTION; Schema: util; Owner: -
593
--
594
595
CREATE FUNCTION all_same_transform(state anyarray, value anyelement) RETURNS anyarray
596
    LANGUAGE plpgsql IMMUTABLE
597
    AS $$
598
DECLARE
599
	value_cmp         state%TYPE = ARRAY[value];
600
	state             state%TYPE = COALESCE(state, value_cmp);
601
	no_match_sentinel state%TYPE = value_cmp[1:0]/*=ARRAY[]::state%TYPE*/;
602
BEGIN
603
	RETURN (CASE WHEN value_cmp IS NOT DISTINCT FROM state THEN state ELSE no_match_sentinel END);
604
END;
605
$$;
606
607
608
--
609 12320 aaronmk
-- Name: analyze_(regclass); Type: FUNCTION; Schema: util; Owner: -
610
--
611
612
CREATE FUNCTION analyze_(table_ regclass) RETURNS void
613
    LANGUAGE sql
614
    AS $_$
615
SELECT util.eval($$ANALYZE VERBOSE $$||$1)
616
$_$;
617
618
619
--
620 12369 aaronmk
-- Name: append_comment(regclass, text); Type: FUNCTION; Schema: util; Owner: -
621
--
622
623
CREATE FUNCTION append_comment(table_ regclass, comment text) RETURNS void
624 12446 aaronmk
    LANGUAGE sql
625 12369 aaronmk
    AS $_$
626
SELECT util.set_comment($1, concat(util.comment($1), $2))
627
$_$;
628
629
630
--
631
-- Name: FUNCTION append_comment(table_ regclass, comment text); Type: COMMENT; Schema: util; Owner: -
632
--
633
634
COMMENT ON FUNCTION append_comment(table_ regclass, comment text) IS '
635
comment: must start and end with a newline
636
';
637
638
639
--
640 10305 aaronmk
-- Name: array_fill(anyelement, integer); Type: FUNCTION; Schema: util; Owner: -
641
--
642
643
CREATE FUNCTION array_fill(value anyelement, length integer) RETURNS anyarray
644
    LANGUAGE sql IMMUTABLE
645
    AS $_$
646
SELECT pg_catalog.array_fill($1, ARRAY[$2])
647
$_$;
648
649
650
--
651 10303 aaronmk
-- Name: array_length(anyarray); Type: FUNCTION; Schema: util; Owner: -
652
--
653
654
CREATE FUNCTION array_length("array" anyarray) RETURNS integer
655 10354 aaronmk
    LANGUAGE sql IMMUTABLE
656 10303 aaronmk
    AS $_$
657 10321 aaronmk
SELECT util.array_length($1, 1)
658 10303 aaronmk
$_$;
659
660
661
--
662 10304 aaronmk
-- Name: array_length(anyarray, integer); Type: FUNCTION; Schema: util; Owner: -
663
--
664
665
CREATE FUNCTION array_length("array" anyarray, dimension integer) RETURNS integer
666 10354 aaronmk
    LANGUAGE sql IMMUTABLE
667 10304 aaronmk
    AS $_$
668 10354 aaronmk
SELECT CASE WHEN $1 IS NULL THEN NULL ELSE COALESCE(pg_catalog.array_length($1, $2), 0) END
669 10304 aaronmk
$_$;
670
671
672
--
673
-- Name: FUNCTION array_length("array" anyarray, dimension integer); Type: COMMENT; Schema: util; Owner: -
674
--
675
676 12235 aaronmk
COMMENT ON FUNCTION array_length("array" anyarray, dimension integer) IS '
677
returns 0 instead of NULL for empty arrays
678
';
679 10304 aaronmk
680
681
--
682 8183 aaronmk
-- Name: cluster_index(regclass); Type: FUNCTION; Schema: util; Owner: -
683 8104 aaronmk
--
684
685
CREATE FUNCTION cluster_index(table_ regclass) RETURNS regclass
686 12446 aaronmk
    LANGUAGE sql STABLE
687 8104 aaronmk
    AS $_$
688
SELECT indexrelid FROM pg_index WHERE indrelid = $1 AND indisclustered
689
$_$;
690
691
692
--
693 8183 aaronmk
-- Name: cluster_once(regclass, regclass); Type: FUNCTION; Schema: util; Owner: -
694 8105 aaronmk
--
695
696
CREATE FUNCTION cluster_once(table_ regclass, index regclass) RETURNS void
697
    LANGUAGE plpgsql STRICT
698
    AS $_$
699
BEGIN
700
    -- not yet clustered (ARRAY[] compares NULLs literally)
701 8183 aaronmk
    IF ARRAY[util.cluster_index(table_)] != ARRAY[index] THEN
702 8105 aaronmk
        EXECUTE $$CLUSTER $$||table_||$$ USING $$||index;
703
    END IF;
704
END;
705
$_$;
706
707
708
--
709 8183 aaronmk
-- Name: FUNCTION cluster_once(table_ regclass, index regclass); Type: COMMENT; Schema: util; Owner: -
710 8105 aaronmk
--
711
712 12235 aaronmk
COMMENT ON FUNCTION cluster_once(table_ regclass, index regclass) IS '
713
idempotent
714
';
715 8105 aaronmk
716
717
--
718 10986 aaronmk
-- Name: col__min(col_ref); Type: FUNCTION; Schema: util; Owner: -
719
--
720
721
CREATE FUNCTION col__min(col col_ref) RETURNS integer
722
    LANGUAGE sql STABLE
723
    AS $_$
724
SELECT util.eval2val($$
725
SELECT $$||quote_ident($1.name)||$$
726
FROM $$||$1.table_||$$
727
ORDER BY $$||quote_ident($1.name)||$$ ASC
728
LIMIT 1
729
$$, NULL::integer)
730
$_$;
731
732
733
--
734 10136 aaronmk
-- Name: col_comment(col_ref); Type: FUNCTION; Schema: util; Owner: -
735
--
736
737
CREATE FUNCTION col_comment(col col_ref) RETURNS text
738
    LANGUAGE plpgsql STABLE STRICT
739
    AS $$
740
DECLARE
741
	comment text;
742
BEGIN
743
	SELECT description
744
	FROM pg_attribute
745
	LEFT JOIN pg_description ON objoid = attrelid
746
		AND classoid = 'pg_class'::regclass AND objsubid = attnum
747
	WHERE attrelid = col.table_ AND attname = col.name
748
	INTO STRICT comment
749
	;
750
	RETURN comment;
751
EXCEPTION
752
	WHEN no_data_found THEN PERFORM util.raise_undefined_column(col);
753
END;
754
$$;
755
756
757
--
758 10130 aaronmk
-- Name: col_default_sql(col_ref); Type: FUNCTION; Schema: util; Owner: -
759
--
760
761
CREATE FUNCTION col_default_sql(col col_ref) RETURNS text
762
    LANGUAGE plpgsql STABLE STRICT
763
    AS $$
764
DECLARE
765
	default_sql text;
766
BEGIN
767
	SELECT adsrc
768
	FROM pg_attribute
769
	LEFT JOIN pg_attrdef ON adrelid = attrelid AND adnum = attnum
770
	WHERE attrelid = col.table_ AND attname = col.name
771
	INTO STRICT default_sql
772
	;
773
	RETURN default_sql;
774
EXCEPTION
775
	WHEN no_data_found THEN PERFORM util.raise_undefined_column(col);
776
END;
777
$$;
778
779
780
--
781 10134 aaronmk
-- Name: col_default_value(col_ref, anyelement); Type: FUNCTION; Schema: util; Owner: -
782
--
783
784
CREATE FUNCTION col_default_value(col col_ref, ret_type_null anyelement DEFAULT NULL::text) RETURNS anyelement
785
    LANGUAGE sql STABLE
786
    AS $_$
787
SELECT util.eval_expr_passthru(util.col_default_sql($1), $2)
788
$_$;
789
790
791
--
792
-- Name: FUNCTION col_default_value(col col_ref, ret_type_null anyelement); Type: COMMENT; Schema: util; Owner: -
793
--
794
795 12235 aaronmk
COMMENT ON FUNCTION col_default_value(col col_ref, ret_type_null anyelement) IS '
796
ret_type_null: NULL::ret_type
797
';
798 10134 aaronmk
799
800
--
801 8183 aaronmk
-- Name: col_exists(col_ref); Type: FUNCTION; Schema: util; Owner: -
802 8180 aaronmk
--
803
804
CREATE FUNCTION col_exists(col col_ref) RETURNS boolean
805
    LANGUAGE plpgsql STRICT
806
    AS $$
807
BEGIN
808 8183 aaronmk
    PERFORM util.col_type(col);
809 8180 aaronmk
    RETURN true;
810
EXCEPTION
811
    WHEN undefined_column THEN RETURN false;
812
END;
813
$$;
814
815
816
--
817 8183 aaronmk
-- Name: col_global_names(regtype); Type: FUNCTION; Schema: util; Owner: -
818 8084 aaronmk
--
819
820
CREATE FUNCTION col_global_names(type regtype, OUT name text, OUT global_name text) RETURNS SETOF record
821 8097 aaronmk
    LANGUAGE plpgsql STABLE STRICT
822 8084 aaronmk
    AS $$
823
DECLARE
824 8183 aaronmk
    prefix text := util.name(type)||'.';
825 8084 aaronmk
BEGIN
826
    RETURN QUERY
827 8183 aaronmk
        SELECT name_, (CASE WHEN util.contains(search_for:='.', in_str:=name_) THEN '' ELSE prefix END)||name_
828
        FROM util.col_names(type) f (name_);
829 8084 aaronmk
END;
830
$$;
831
832
833
--
834 8183 aaronmk
-- Name: col_names(regclass); Type: FUNCTION; Schema: util; Owner: -
835 8151 aaronmk
--
836
837
CREATE FUNCTION col_names(table_ regclass) RETURNS SETOF text
838 12446 aaronmk
    LANGUAGE sql STABLE
839 8151 aaronmk
    AS $_$
840
SELECT attname::text
841
FROM pg_attribute
842 10158 aaronmk
WHERE attrelid = $1 AND attnum >= 1 AND NOT attisdropped
843 8151 aaronmk
ORDER BY attnum
844
$_$;
845
846
847
--
848 11667 aaronmk
-- Name: col_names(regtype); Type: FUNCTION; Schema: util; Owner: -
849
--
850
851
CREATE FUNCTION col_names(type regtype) RETURNS SETOF text
852
    LANGUAGE plpgsql STABLE STRICT
853
    AS $_$
854
BEGIN
855
    RETURN QUERY EXECUTE $$SELECT skeys(hstore(NULL::$$||type||$$))$$;
856
END;
857
$_$;
858
859
860
--
861 8183 aaronmk
-- Name: col_type(col_ref); Type: FUNCTION; Schema: util; Owner: -
862 8106 aaronmk
--
863
864
CREATE FUNCTION col_type(col col_ref) RETURNS regtype
865 8169 aaronmk
    LANGUAGE plpgsql STABLE STRICT
866
    AS $$
867
DECLARE
868
    type regtype;
869
BEGIN
870
    SELECT atttypid FROM pg_attribute
871
    WHERE attrelid = col.table_ AND attname = col.name
872
    INTO STRICT type
873
    ;
874
    RETURN type;
875
EXCEPTION
876 8171 aaronmk
    WHEN no_data_found THEN
877 8181 aaronmk
        RAISE undefined_column USING MESSAGE =
878
            concat('undefined column: ', col.name);
879 8169 aaronmk
END;
880
$$;
881 8106 aaronmk
882
883
--
884 12368 aaronmk
-- Name: comment(oid); Type: FUNCTION; Schema: util; Owner: -
885
--
886
887
CREATE FUNCTION comment(element oid) RETURNS text
888 12446 aaronmk
    LANGUAGE sql STABLE
889 12368 aaronmk
    AS $_$
890
SELECT description FROM pg_description WHERE objoid = $1
891
$_$;
892
893
894
--
895 11005 aaronmk
-- Name: concat_esc(text, text); Type: FUNCTION; Schema: util; Owner: -
896
--
897
898
CREATE FUNCTION concat_esc("left" text, "right" text) RETURNS text
899
    LANGUAGE sql IMMUTABLE
900
    AS $_$
901
SELECT util.esc_name__append($2, $1)
902
$_$;
903
904
905
--
906 8183 aaronmk
-- Name: contains(text, text); Type: FUNCTION; Schema: util; Owner: -
907 8095 aaronmk
--
908
909
CREATE FUNCTION contains(search_for text, in_str text) RETURNS boolean
910 10388 aaronmk
    LANGUAGE sql IMMUTABLE
911 8095 aaronmk
    AS $_$
912
SELECT position($1 in $2) > 0 /*1-based offset*/
913
$_$;
914
915
916
--
917 12288 aaronmk
-- Name: copy_struct(regclass, text); Type: FUNCTION; Schema: util; Owner: -
918
--
919
920
CREATE FUNCTION copy_struct(from_ regclass, to_ text) RETURNS void
921
    LANGUAGE sql
922
    AS $_$
923
SELECT util.eval($$CREATE TABLE $$||$2||$$ (LIKE $$||$1||$$ INCLUDING ALL)$$)
924
$_$;
925
926
927
--
928 12649 aaronmk
-- Name: copy_types_and_data(regclass, text); Type: FUNCTION; Schema: util; Owner: -
929
--
930
931
CREATE FUNCTION copy_types_and_data(from_ regclass, to_ text) RETURNS void
932
    LANGUAGE sql
933
    AS $_$
934
SELECT util.materialize_view($2, $1)
935
$_$;
936
937
938
--
939 8183 aaronmk
-- Name: create_if_not_exists(text); Type: FUNCTION; Schema: util; Owner: -
940 8094 aaronmk
--
941
942
CREATE FUNCTION create_if_not_exists(sql text) RETURNS void
943
    LANGUAGE plpgsql STRICT
944
    AS $$
945
BEGIN
946 12595 aaronmk
	PERFORM util.eval(sql);
947 8094 aaronmk
EXCEPTION
948 12595 aaronmk
WHEN duplicate_table THEN NULL;
949
WHEN duplicate_object THEN NULL; -- e.g. constraint
950
WHEN duplicate_column THEN NULL;
951
WHEN duplicate_function THEN NULL;
952
WHEN invalid_table_definition THEN
953
	IF SQLERRM LIKE 'multiple primary keys for table % are not allowed' THEN NULL;
954
	ELSE RAISE;
955
	END IF;
956 8094 aaronmk
END;
957
$$;
958
959
960
--
961 8183 aaronmk
-- Name: FUNCTION create_if_not_exists(sql text); Type: COMMENT; Schema: util; Owner: -
962 8094 aaronmk
--
963
964 12235 aaronmk
COMMENT ON FUNCTION create_if_not_exists(sql text) IS '
965
idempotent
966
';
967 8094 aaronmk
968
969
--
970 12378 aaronmk
-- Name: curr_func(text, anyelement); Type: FUNCTION; Schema: util; Owner: -
971
--
972
973
CREATE FUNCTION curr_func(func text, schema_anchor anyelement) RETURNS text
974 12590 aaronmk
    LANGUAGE sql STABLE
975 12378 aaronmk
    AS $$
976
SELECT util.schema_esc(schema_anchor)||'.'||quote_ident(func)
977
$$;
978
979
980
--
981 12433 aaronmk
-- Name: debug_print_return_value(anyelement, boolean); Type: FUNCTION; Schema: util; Owner: -
982 12430 aaronmk
--
983
984 12433 aaronmk
CREATE FUNCTION debug_print_return_value(value anyelement, encode boolean DEFAULT false) RETURNS anyelement
985 12430 aaronmk
    LANGUAGE sql IMMUTABLE
986
    AS $_$
987 12534 aaronmk
SELECT util.raise('NOTICE', 'returns: '
988 12433 aaronmk
||(CASE WHEN $2 THEN util.quote_typed($1) ELSE $1::text END));
989 12430 aaronmk
SELECT $1;
990
$_$;
991
992
993
--
994 12250 aaronmk
-- Name: debug_print_sql(text); Type: FUNCTION; Schema: util; Owner: -
995
--
996
997
CREATE FUNCTION debug_print_sql(sql text) RETURNS void
998
    LANGUAGE sql IMMUTABLE
999
    AS $_$
1000
/* newline before so the query starts at the beginning of the line.
1001
newline after to visually separate queries from one another. */
1002 12534 aaronmk
SELECT util.raise('NOTICE', $$
1003 12474 aaronmk
$$||util.runnable_sql($1)||$$
1004 12464 aaronmk
$$||COALESCE(util.explain2notice_msg_if_can($1), ''))
1005 12250 aaronmk
$_$;
1006
1007
1008
--
1009 10364 aaronmk
-- Name: derived_cols(regclass, regclass); Type: FUNCTION; Schema: util; Owner: -
1010
--
1011
1012
CREATE FUNCTION derived_cols(table_ regclass, names regclass) RETURNS SETOF text
1013 12446 aaronmk
    LANGUAGE sql STABLE
1014 10364 aaronmk
    AS $_$
1015
SELECT util.eval2set($$
1016
SELECT col
1017
FROM util.col_names($$||quote_nullable($1)||$$::regclass) f (col)
1018
LEFT JOIN $$||$2||$$ ON "to" = col
1019
WHERE "from" IS NULL
1020
$$, NULL::text)
1021
$_$;
1022
1023
1024
--
1025
-- Name: FUNCTION derived_cols(table_ regclass, names regclass); Type: COMMENT; Schema: util; Owner: -
1026
--
1027
1028 12235 aaronmk
COMMENT ON FUNCTION derived_cols(table_ regclass, names regclass) IS '
1029
gets table_''s derived columns (all the columns not in the names table)
1030
';
1031 10364 aaronmk
1032
1033
--
1034 12298 aaronmk
-- Name: diff(regclass, regclass, anyelement); Type: FUNCTION; Schema: util; Owner: -
1035 12044 aaronmk
--
1036
1037 12298 aaronmk
CREATE FUNCTION diff(left_table regclass, right_table regclass, col_type_null anyelement, OUT left_ anyelement, OUT right_ anyelement) RETURNS SETOF record
1038 12427 aaronmk
    LANGUAGE sql
1039 12044 aaronmk
    AS $_$
1040 12300 aaronmk
SELECT * FROM util.diff($1::text, $2::text, $3,
1041 12491 aaronmk
	single_row := util.has_single_row($1) AND util.has_single_row($2))
1042 12298 aaronmk
$_$;
1043
1044
1045
--
1046
-- Name: FUNCTION diff(left_table regclass, right_table regclass, col_type_null anyelement, OUT left_ anyelement, OUT right_ anyelement); Type: COMMENT; Schema: util; Owner: -
1047
--
1048
1049
COMMENT ON FUNCTION diff(left_table regclass, right_table regclass, col_type_null anyelement, OUT left_ anyelement, OUT right_ anyelement) IS '
1050
col_type_null (*required*): NULL::shared_base_type
1051
usage:
1052
SELECT * FROM util.diff(''"left_table"''::regclass, ''"right_table"''::regclass, NULL::shared_base_type)
1053
';
1054
1055
1056
--
1057 12491 aaronmk
-- Name: diff(text, text, anyelement, boolean); Type: FUNCTION; Schema: util; Owner: -
1058 12298 aaronmk
--
1059
1060 12491 aaronmk
CREATE FUNCTION diff(left__ text, right__ text, col_type_null anyelement, single_row boolean DEFAULT false, OUT left_ anyelement, OUT right_ anyelement) RETURNS SETOF record
1061 12429 aaronmk
    LANGUAGE plpgsql
1062
    SET search_path TO pg_temp
1063 12298 aaronmk
    AS $_$
1064 12429 aaronmk
/* must use LANGUAGE plpgsql because LANGUAGE sql does not support runtime
1065
changes of search_path (schema elements are bound at inline time rather than
1066
runtime) */
1067
/* function option search_path is needed to limit the effects of
1068 12492 aaronmk
`SET LOCAL search_path` to the current function */
1069 12429 aaronmk
BEGIN
1070 12491 aaronmk
	PERFORM util.use_schema($3); -- includes util.%== as default/fallback
1071 12429 aaronmk
1072 12565 aaronmk
	PERFORM util.mk_keys_func(pg_typeof($3));
1073 12429 aaronmk
	RETURN QUERY
1074 12554 aaronmk
		SELECT * FROM util.eval2col_pair(util.mk_diff_query($1, $2,
1075 12479 aaronmk
$$/* need to explicitly cast each side to the return type because this does not
1076 12284 aaronmk
happen automatically even when an implicit cast is available */
1077 12479 aaronmk
  left_::$$||util.typeof($3)||$$
1078
, right_::$$||util.typeof($3)
1079 12496 aaronmk
/* when using the util.%==(anyelement, anyelement) operator, you must cast to
1080
the *same* base type, *even though* this is optional when using a custom %== */
1081 12553 aaronmk
, util._if($4, $$true/*= CROSS JOIN*/$$,
1082
$$ left_::$$||util.typeof($3)||$$
1083 12496 aaronmk
%== right_::$$||util.typeof($3)||$$
1084
	-- refer to EXPLAIN output for expansion of %==$$
1085 12553 aaronmk
)), $3)
1086 12429 aaronmk
	;
1087
END;
1088 12044 aaronmk
$_$;
1089
1090
1091
--
1092 12491 aaronmk
-- Name: FUNCTION diff(left__ text, right__ text, col_type_null anyelement, single_row boolean, OUT left_ anyelement, OUT right_ anyelement); Type: COMMENT; Schema: util; Owner: -
1093 12280 aaronmk
--
1094
1095 12491 aaronmk
COMMENT ON FUNCTION diff(left__ text, right__ text, col_type_null anyelement, single_row boolean, OUT left_ anyelement, OUT right_ anyelement) IS '
1096 12280 aaronmk
col_type_null (*required*): NULL::col_type
1097 12299 aaronmk
single_row: whether the tables consist of a single row, which should be
1098
	displayed side-by-side
1099 12282 aaronmk
1100 12498 aaronmk
to match up rows using a subset of the columns, create a custom keys() function
1101
which returns this subset as a record:
1102
-- note that OUT parameters for the returned fields are *not* needed
1103
CREATE OR REPLACE FUNCTION [schema].keys(value [schema].[base_type])
1104
  RETURNS record AS
1105
$BODY$
1106
SELECT ($1.key_field_0, $1.key_field_1)
1107
$BODY$
1108
  LANGUAGE sql IMMUTABLE
1109
  COST 100;
1110
1111
1112 12282 aaronmk
to run EXPLAIN on the FULL JOIN query:
1113
# run this function
1114
# look for a NOTICE containing the expanded query that it ran
1115
# run EXPLAIN on this expanded query
1116 12280 aaronmk
';
1117
1118
1119
--
1120 8200 aaronmk
-- Name: do_optionally_ignore(text, boolean); Type: FUNCTION; Schema: util; Owner: -
1121
--
1122
1123
CREATE FUNCTION do_optionally_ignore(sql text, ignore boolean) RETURNS void
1124 12446 aaronmk
    LANGUAGE sql
1125 8200 aaronmk
    AS $_$
1126
SELECT CASE WHEN $2 THEN util.try_create($1) ELSE util.create_if_not_exists($1) END
1127
$_$;
1128
1129
1130
--
1131
-- Name: FUNCTION do_optionally_ignore(sql text, ignore boolean); Type: COMMENT; Schema: util; Owner: -
1132
--
1133
1134 12235 aaronmk
COMMENT ON FUNCTION do_optionally_ignore(sql text, ignore boolean) IS '
1135
idempotent
1136
';
1137 8200 aaronmk
1138
1139
--
1140 12292 aaronmk
-- Name: drop_column(col_ref, boolean); Type: FUNCTION; Schema: util; Owner: -
1141 10362 aaronmk
--
1142
1143 12292 aaronmk
CREATE FUNCTION drop_column(col col_ref, force boolean DEFAULT false) RETURNS void
1144 12446 aaronmk
    LANGUAGE sql
1145 10362 aaronmk
    AS $_$
1146
SELECT util.eval($$ALTER TABLE $$||$1.table_||$$ DROP COLUMN IF EXISTS $$||
1147 12292 aaronmk
quote_ident($1.name)||util._if($2, $$ CASCADE$$, ''::text))
1148 10362 aaronmk
$_$;
1149
1150
1151
--
1152 12292 aaronmk
-- Name: FUNCTION drop_column(col col_ref, force boolean); Type: COMMENT; Schema: util; Owner: -
1153 10362 aaronmk
--
1154
1155 12292 aaronmk
COMMENT ON FUNCTION drop_column(col col_ref, force boolean) IS '
1156 12235 aaronmk
idempotent
1157
';
1158 10362 aaronmk
1159
1160
--
1161 12587 aaronmk
-- Name: drop_relation(anyelement, boolean); Type: FUNCTION; Schema: util; Owner: -
1162 12331 aaronmk
--
1163
1164 12587 aaronmk
CREATE FUNCTION drop_relation(relation anyelement, force boolean DEFAULT false) RETURNS void
1165 12331 aaronmk
    LANGUAGE sql
1166
    AS $_$
1167 12353 aaronmk
/* use util.qual_name() instead of ::text so that the schema qualifier is always
1168
included in the debug SQL */
1169
SELECT util.drop_relation(util.relation_type($1), util.qual_name($1), $2)
1170 12331 aaronmk
$_$;
1171
1172
1173
--
1174 12343 aaronmk
-- Name: drop_relation(text, text, boolean); Type: FUNCTION; Schema: util; Owner: -
1175
--
1176
1177 12364 aaronmk
CREATE FUNCTION drop_relation(type text, relation_esc text, force boolean DEFAULT false) RETURNS void
1178 12343 aaronmk
    LANGUAGE sql
1179
    AS $_$
1180 12347 aaronmk
SELECT util.eval($$DROP $$||$1||$$ IF EXISTS $$||$2
1181 12343 aaronmk
||util._if($3, $$ CASCADE$$, ''::text))
1182
$_$;
1183
1184
1185
--
1186 12364 aaronmk
-- Name: FUNCTION drop_relation(type text, relation_esc text, force boolean); Type: COMMENT; Schema: util; Owner: -
1187 12343 aaronmk
--
1188
1189 12364 aaronmk
COMMENT ON FUNCTION drop_relation(type text, relation_esc text, force boolean) IS '
1190 12343 aaronmk
idempotent
1191
';
1192
1193
1194
--
1195 12413 aaronmk
-- Name: drop_relations_like(text, anyelement, boolean); Type: FUNCTION; Schema: util; Owner: -
1196
--
1197
1198
CREATE FUNCTION drop_relations_like(name_regexp text, schema_anchor anyelement, force boolean DEFAULT false) RETURNS void
1199
    LANGUAGE sql
1200
    AS $_$
1201 12502 aaronmk
SELECT util.drop_relations_like($1, util.schema_regexp($2), $3)
1202 12413 aaronmk
$_$;
1203
1204
1205
--
1206
-- Name: drop_relations_like(text, text, boolean); Type: FUNCTION; Schema: util; Owner: -
1207
--
1208
1209
CREATE FUNCTION drop_relations_like(name_regexp text, schema_regexp text DEFAULT ''::text, force boolean DEFAULT false) RETURNS void
1210
    LANGUAGE sql
1211
    AS $_$
1212
SELECT util.drop_relation(relation, $3)
1213
FROM util.show_relations_like($1, $2) relation
1214
;
1215
SELECT NULL::void; -- don't fold away functions called in previous query
1216
$_$;
1217
1218
1219
--
1220 12292 aaronmk
-- Name: drop_table(text, boolean); Type: FUNCTION; Schema: util; Owner: -
1221 10150 aaronmk
--
1222
1223 12292 aaronmk
CREATE FUNCTION drop_table(table_ text, force boolean DEFAULT false) RETURNS void
1224 12446 aaronmk
    LANGUAGE sql
1225 10150 aaronmk
    AS $_$
1226 12347 aaronmk
SELECT util.drop_relation('TABLE', $1, $2)
1227 10150 aaronmk
$_$;
1228
1229
1230
--
1231 12292 aaronmk
-- Name: FUNCTION drop_table(table_ text, force boolean); Type: COMMENT; Schema: util; Owner: -
1232 10150 aaronmk
--
1233
1234 12292 aaronmk
COMMENT ON FUNCTION drop_table(table_ text, force boolean) IS '
1235 12235 aaronmk
idempotent
1236
';
1237 10150 aaronmk
1238
1239
--
1240 12292 aaronmk
-- Name: drop_view(text, boolean); Type: FUNCTION; Schema: util; Owner: -
1241 12229 aaronmk
--
1242
1243 12292 aaronmk
CREATE FUNCTION drop_view(view_ text, force boolean DEFAULT false) RETURNS void
1244 12446 aaronmk
    LANGUAGE sql
1245 12229 aaronmk
    AS $_$
1246 12347 aaronmk
SELECT util.drop_relation('VIEW', $1, $2)
1247 12229 aaronmk
$_$;
1248
1249
1250
--
1251 12292 aaronmk
-- Name: FUNCTION drop_view(view_ text, force boolean); Type: COMMENT; Schema: util; Owner: -
1252 12229 aaronmk
--
1253
1254 12292 aaronmk
COMMENT ON FUNCTION drop_view(view_ text, force boolean) IS '
1255 12235 aaronmk
idempotent
1256
';
1257 12229 aaronmk
1258
1259
--
1260 10322 aaronmk
-- Name: empty_array(anyelement); Type: FUNCTION; Schema: util; Owner: -
1261
--
1262
1263
CREATE FUNCTION empty_array(elem_type_null anyelement DEFAULT NULL::text) RETURNS anyarray
1264
    LANGUAGE sql IMMUTABLE
1265
    AS $_$
1266
SELECT util.array_fill($1, 0)
1267
$_$;
1268
1269
1270
--
1271
-- Name: FUNCTION empty_array(elem_type_null anyelement); Type: COMMENT; Schema: util; Owner: -
1272
--
1273
1274 12235 aaronmk
COMMENT ON FUNCTION empty_array(elem_type_null anyelement) IS '
1275
constructs proper empty 1-dimensional array whose dimensions are not NULL ( ''{}''::text[] does not do this)
1276
';
1277 10322 aaronmk
1278
1279
--
1280 8183 aaronmk
-- Name: ensure_prefix(text, text); Type: FUNCTION; Schema: util; Owner: -
1281 8086 aaronmk
--
1282
1283
CREATE FUNCTION ensure_prefix(prefix text, str text) RETURNS text
1284 10388 aaronmk
    LANGUAGE sql IMMUTABLE
1285 8086 aaronmk
    AS $_$
1286 8183 aaronmk
SELECT (CASE WHEN util.has_prefix($1, $2) THEN $2 ELSE $1||$2 END)
1287 8086 aaronmk
$_$;
1288
1289
1290
--
1291 10987 aaronmk
-- Name: esc_name__append(text, text); Type: FUNCTION; Schema: util; Owner: -
1292
--
1293
1294
CREATE FUNCTION esc_name__append(suffix text, esc_name text) RETURNS text
1295
    LANGUAGE sql IMMUTABLE
1296
    AS $_$
1297
SELECT regexp_replace($2, '("?)$', $1||'\1')
1298
$_$;
1299
1300
1301
--
1302 12531 aaronmk
-- Name: eval(text, boolean); Type: FUNCTION; Schema: util; Owner: -
1303 9824 aaronmk
--
1304
1305 12531 aaronmk
CREATE FUNCTION eval(sql text, verbose_ boolean DEFAULT true) RETURNS void
1306 12558 aaronmk
    LANGUAGE plpgsql
1307 9824 aaronmk
    AS $$
1308
BEGIN
1309 12531 aaronmk
	IF verbose_ THEN PERFORM util.debug_print_sql(sql); END IF;
1310 12251 aaronmk
	EXECUTE sql;
1311 9824 aaronmk
END;
1312
$$;
1313
1314
1315
--
1316 12181 aaronmk
-- Name: eval2col_pair(text, anyelement); Type: FUNCTION; Schema: util; Owner: -
1317
--
1318
1319
CREATE FUNCTION eval2col_pair(sql text, col_type_null anyelement, OUT left_ anyelement, OUT right_ anyelement) RETURNS SETOF record
1320
    LANGUAGE plpgsql
1321
    AS $$
1322
BEGIN
1323 12251 aaronmk
	PERFORM util.debug_print_sql(sql);
1324 12181 aaronmk
	RETURN QUERY EXECUTE sql;
1325
END;
1326
$$;
1327
1328
1329
--
1330
-- Name: FUNCTION eval2col_pair(sql text, col_type_null anyelement, OUT left_ anyelement, OUT right_ anyelement); Type: COMMENT; Schema: util; Owner: -
1331
--
1332
1333 12235 aaronmk
COMMENT ON FUNCTION eval2col_pair(sql text, col_type_null anyelement, OUT left_ anyelement, OUT right_ anyelement) IS '
1334
col_type_null (*required*): NULL::col_type
1335
';
1336 12181 aaronmk
1337
1338
--
1339 12301 aaronmk
-- Name: eval2records(text); Type: FUNCTION; Schema: util; Owner: -
1340
--
1341
1342
CREATE FUNCTION eval2records(sql text) RETURNS SETOF record
1343
    LANGUAGE plpgsql
1344
    AS $$
1345
BEGIN
1346
	PERFORM util.debug_print_sql(sql);
1347
	RETURN QUERY EXECUTE sql;
1348
END;
1349
$$;
1350
1351
1352
--
1353 12458 aaronmk
-- Name: eval2set(text, anyelement, boolean); Type: FUNCTION; Schema: util; Owner: -
1354 10363 aaronmk
--
1355
1356 12458 aaronmk
CREATE FUNCTION eval2set(sql text, ret_type_null anyelement DEFAULT NULL::text, verbose_ boolean DEFAULT true) RETURNS SETOF anyelement
1357 10363 aaronmk
    LANGUAGE plpgsql
1358
    AS $$
1359
BEGIN
1360 12458 aaronmk
	IF verbose_ THEN PERFORM util.debug_print_sql(sql); END IF;
1361 10363 aaronmk
	RETURN QUERY EXECUTE sql;
1362
END;
1363
$$;
1364
1365
1366
--
1367 10129 aaronmk
-- Name: eval2val(text, anyelement); Type: FUNCTION; Schema: util; Owner: -
1368 10128 aaronmk
--
1369
1370 10129 aaronmk
CREATE FUNCTION eval2val(sql text, ret_type_null anyelement DEFAULT NULL::text) RETURNS anyelement
1371 12514 aaronmk
    LANGUAGE plpgsql STABLE
1372 10128 aaronmk
    AS $$
1373
DECLARE
1374
	ret_val ret_type_null%TYPE;
1375
BEGIN
1376 12251 aaronmk
	PERFORM util.debug_print_sql(sql);
1377 10128 aaronmk
	EXECUTE sql INTO STRICT ret_val;
1378
	RETURN ret_val;
1379
END;
1380
$$;
1381
1382
1383
--
1384 10129 aaronmk
-- Name: FUNCTION eval2val(sql text, ret_type_null anyelement); Type: COMMENT; Schema: util; Owner: -
1385 10128 aaronmk
--
1386
1387 12235 aaronmk
COMMENT ON FUNCTION eval2val(sql text, ret_type_null anyelement) IS '
1388
ret_type_null: NULL::ret_type
1389
';
1390 10128 aaronmk
1391
1392
--
1393 10131 aaronmk
-- Name: eval_expr(text, anyelement); Type: FUNCTION; Schema: util; Owner: -
1394
--
1395
1396
CREATE FUNCTION eval_expr(sql text, ret_type_null anyelement DEFAULT NULL::text) RETURNS anyelement
1397
    LANGUAGE sql
1398
    AS $_$
1399 10132 aaronmk
SELECT util.eval2val($$SELECT $$||$1, $2)
1400 10131 aaronmk
$_$;
1401
1402
1403
--
1404
-- Name: FUNCTION eval_expr(sql text, ret_type_null anyelement); Type: COMMENT; Schema: util; Owner: -
1405
--
1406
1407 12235 aaronmk
COMMENT ON FUNCTION eval_expr(sql text, ret_type_null anyelement) IS '
1408
ret_type_null: NULL::ret_type
1409
';
1410 10131 aaronmk
1411
1412
--
1413 10133 aaronmk
-- Name: eval_expr_passthru(text, anyelement); Type: FUNCTION; Schema: util; Owner: -
1414
--
1415
1416
CREATE FUNCTION eval_expr_passthru(sql text, ret_type_null anyelement DEFAULT NULL::text) RETURNS anyelement
1417
    LANGUAGE sql
1418
    AS $_$
1419
SELECT CASE WHEN $1 IS NULL THEN NULL ELSE util.eval_expr($1, $2) END
1420
$_$;
1421
1422
1423
--
1424
-- Name: FUNCTION eval_expr_passthru(sql text, ret_type_null anyelement); Type: COMMENT; Schema: util; Owner: -
1425
--
1426
1427 12235 aaronmk
COMMENT ON FUNCTION eval_expr_passthru(sql text, ret_type_null anyelement) IS '
1428
sql: can be NULL, which will be passed through
1429
ret_type_null: NULL::ret_type
1430
';
1431 10133 aaronmk
1432
1433
--
1434 8183 aaronmk
-- Name: existing_cols(regclass, text[]); Type: FUNCTION; Schema: util; Owner: -
1435 8182 aaronmk
--
1436
1437
CREATE FUNCTION existing_cols(table_ regclass, VARIADIC col_names text[]) RETURNS SETOF text
1438 12446 aaronmk
    LANGUAGE sql STABLE
1439 8182 aaronmk
    AS $_$
1440
SELECT col_name
1441
FROM unnest($2) s (col_name)
1442 8183 aaronmk
WHERE util.col_exists(($1, col_name))
1443 8182 aaronmk
$_$;
1444
1445
1446
--
1447 11830 aaronmk
-- Name: explain(text); Type: FUNCTION; Schema: util; Owner: -
1448
--
1449
1450
CREATE FUNCTION explain(sql text) RETURNS SETOF text
1451
    LANGUAGE sql
1452
    AS $_$
1453 12459 aaronmk
SELECT util.eval2set($$EXPLAIN $$||$1, verbose_ := false)
1454 11830 aaronmk
$_$;
1455
1456
1457
--
1458 11833 aaronmk
-- Name: explain2notice(text); Type: FUNCTION; Schema: util; Owner: -
1459
--
1460
1461
CREATE FUNCTION explain2notice(sql text) RETURNS void
1462 12449 aaronmk
    LANGUAGE sql
1463
    AS $_$
1464 12534 aaronmk
SELECT util.raise('NOTICE', util.explain2notice_msg($1))
1465 12449 aaronmk
$_$;
1466 12448 aaronmk
1467
1468
--
1469
-- Name: explain2notice_msg(text); Type: FUNCTION; Schema: util; Owner: -
1470
--
1471
1472
CREATE FUNCTION explain2notice_msg(sql text) RETURNS text
1473
    LANGUAGE sql
1474
    AS $_$
1475 12464 aaronmk
-- newline before and after to visually separate it from other debug info
1476
SELECT $$
1477
EXPLAIN:
1478
$$||util.explain2str($1)||$$
1479
$$
1480 11833 aaronmk
$_$;
1481
1482
1483
--
1484 12452 aaronmk
-- Name: explain2notice_msg_if_can(text); Type: FUNCTION; Schema: util; Owner: -
1485
--
1486
1487
CREATE FUNCTION explain2notice_msg_if_can(sql text) RETURNS text
1488
    LANGUAGE sql
1489
    AS $_$
1490
SELECT (CASE WHEN util.is_explainable($1) THEN util.explain2notice_msg($1) END)
1491
$_$;
1492
1493
1494
--
1495 11832 aaronmk
-- Name: explain2str(text); Type: FUNCTION; Schema: util; Owner: -
1496
--
1497
1498
CREATE FUNCTION explain2str(sql text) RETURNS text
1499
    LANGUAGE sql
1500
    AS $_$
1501
SELECT util.join_strs(explain, $$
1502
$$) FROM util.explain($1)
1503
$_$;
1504
1505
1506 11835 aaronmk
SET default_tablespace = '';
1507
1508
SET default_with_oids = false;
1509
1510 11832 aaronmk
--
1511 11835 aaronmk
-- Name: explain; Type: TABLE; Schema: util; Owner: -; Tablespace:
1512 11831 aaronmk
--
1513
1514 11835 aaronmk
CREATE TABLE explain (
1515
    line text NOT NULL
1516
);
1517
1518
1519
--
1520
-- Name: explain2table(text, regclass); Type: FUNCTION; Schema: util; Owner: -
1521
--
1522
1523
CREATE FUNCTION explain2table(sql text, table_ regclass DEFAULT 'explain'::regclass) RETURNS void
1524 11831 aaronmk
    LANGUAGE sql
1525
    AS $_$
1526 11835 aaronmk
SELECT util.eval($$INSERT INTO $$||$2||$$ SELECT util.explain(
1527
$$||quote_nullable($1)||$$
1528 11831 aaronmk
)$$)
1529
$_$;
1530
1531
1532
--
1533 11836 aaronmk
-- Name: FUNCTION explain2table(sql text, table_ regclass); Type: COMMENT; Schema: util; Owner: -
1534
--
1535
1536 12235 aaronmk
COMMENT ON FUNCTION explain2table(sql text, table_ regclass) IS '
1537
usage:
1538 11836 aaronmk
PERFORM util.explain2table($$
1539
query
1540 12235 aaronmk
$$);
1541
';
1542 11836 aaronmk
1543
1544
--
1545 12450 aaronmk
-- Name: first_word(text); Type: FUNCTION; Schema: util; Owner: -
1546
--
1547
1548
CREATE FUNCTION first_word(str text) RETURNS text
1549
    LANGUAGE sql IMMUTABLE
1550
    AS $_$
1551 12461 aaronmk
SELECT match[1] FROM regexp_matches(util.ltrim_nl($1), '^(\S*)') match
1552 12450 aaronmk
$_$;
1553
1554
1555
--
1556 10323 aaronmk
-- Name: fix_array(anyarray); Type: FUNCTION; Schema: util; Owner: -
1557
--
1558
1559
CREATE FUNCTION fix_array("array" anyarray) RETURNS anyarray
1560 10355 aaronmk
    LANGUAGE sql IMMUTABLE
1561 10323 aaronmk
    AS $_$
1562 10355 aaronmk
SELECT CASE WHEN $1 IS NULL THEN NULL ELSE (
1563
	CASE WHEN pg_catalog.array_ndims($1) IS NULL THEN util.empty_array($1[1]) ELSE $1 END
1564
) END
1565 10323 aaronmk
$_$;
1566
1567
1568
--
1569
-- Name: FUNCTION fix_array("array" anyarray); Type: COMMENT; Schema: util; Owner: -
1570
--
1571
1572 12235 aaronmk
COMMENT ON FUNCTION fix_array("array" anyarray) IS '
1573
ensures that an array will always have proper non-NULL dimensions
1574
';
1575 10323 aaronmk
1576
1577
--
1578 11695 aaronmk
-- Name: force_recreate(text, text[]); Type: FUNCTION; Schema: util; Owner: -
1579
--
1580
1581
CREATE FUNCTION force_recreate(cmd text, users text[] DEFAULT NULL::text[]) RETURNS void
1582
    LANGUAGE plpgsql
1583
    AS $_$
1584
DECLARE
1585
	PG_EXCEPTION_DETAIL text;
1586
	recreate_users_cmd text = util.save_drop_views(users);
1587
BEGIN
1588
	PERFORM util.eval(cmd);
1589
	PERFORM util.eval(recreate_users_cmd);
1590
EXCEPTION
1591
WHEN dependent_objects_still_exist THEN
1592
	IF users IS NOT NULL THEN RAISE; END IF; -- save_drop_views() didn't fix it
1593
	GET STACKED DIAGNOSTICS PG_EXCEPTION_DETAIL = PG_EXCEPTION_DETAIL;
1594
	users = array(SELECT * FROM util.regexp_matches_group(
1595
		PG_EXCEPTION_DETAIL, '(?m)^view (.*) depends on table .*$'));
1596
	IF util.is_empty(users) THEN RAISE; END IF;
1597
	PERFORM util.force_recreate(cmd, users);
1598
END;
1599
$_$;
1600
1601
1602
--
1603
-- Name: FUNCTION force_recreate(cmd text, users text[]); Type: COMMENT; Schema: util; Owner: -
1604
--
1605
1606 12235 aaronmk
COMMENT ON FUNCTION force_recreate(cmd text, users text[]) IS '
1607
idempotent
1608 11695 aaronmk
1609 12235 aaronmk
users: not necessary to provide this because it will be autopopulated
1610
';
1611 11695 aaronmk
1612
1613
--
1614 8321 aaronmk
-- Name: force_update_view(text, text); Type: FUNCTION; Schema: util; Owner: -
1615
--
1616
1617
CREATE FUNCTION force_update_view(view_ text, query text) RETURNS void
1618
    LANGUAGE plpgsql STRICT
1619
    AS $_$
1620
DECLARE
1621
	mk_view text = $$CREATE OR REPLACE VIEW $$||view_||$$ AS
1622
$$||query;
1623
BEGIN
1624
	EXECUTE mk_view;
1625
EXCEPTION
1626
WHEN invalid_table_definition THEN
1627 8323 aaronmk
	IF SQLERRM = 'cannot drop columns from view'
1628
	OR SQLERRM LIKE 'cannot change name of view column "%" to "%"'
1629
	THEN
1630 8321 aaronmk
		EXECUTE $$DROP VIEW $$||view_||$$ CASCADE$$;
1631
		EXECUTE mk_view;
1632
	ELSE RAISE USING ERRCODE = SQLSTATE, MESSAGE = SQLERRM;
1633
	END IF;
1634
END;
1635
$_$;
1636
1637
1638
--
1639
-- Name: FUNCTION force_update_view(view_ text, query text); Type: COMMENT; Schema: util; Owner: -
1640
--
1641
1642 12235 aaronmk
COMMENT ON FUNCTION force_update_view(view_ text, query text) IS '
1643
idempotent
1644
';
1645 8321 aaronmk
1646
1647
--
1648 11655 aaronmk
-- Name: grants_users(); Type: FUNCTION; Schema: util; Owner: -
1649
--
1650
1651
CREATE FUNCTION grants_users() RETURNS SETOF text
1652
    LANGUAGE sql IMMUTABLE
1653
    AS $$
1654
VALUES ('bien_read'), ('public_')
1655
$$;
1656
1657
1658
--
1659 8183 aaronmk
-- Name: has_prefix(text, text); Type: FUNCTION; Schema: util; Owner: -
1660 8085 aaronmk
--
1661
1662
CREATE FUNCTION has_prefix(prefix text, str text) RETURNS boolean
1663 10388 aaronmk
    LANGUAGE sql IMMUTABLE
1664 8085 aaronmk
    AS $_$
1665
SELECT substring($2 for length($1)) = $1
1666
$_$;
1667
1668
1669
--
1670 12296 aaronmk
-- Name: has_single_row(regclass); Type: FUNCTION; Schema: util; Owner: -
1671
--
1672
1673
CREATE FUNCTION has_single_row(table_ regclass) RETURNS boolean
1674
    LANGUAGE sql STABLE
1675
    AS $_$
1676
SELECT util.eval2val($$SELECT COUNT(*) = 1 FROM $$||$1, NULL::boolean)
1677
$_$;
1678
1679
1680
--
1681 10307 aaronmk
-- Name: hstore(text[], text); Type: FUNCTION; Schema: util; Owner: -
1682
--
1683
1684
CREATE FUNCTION hstore(keys text[], value text) RETURNS hstore
1685
    LANGUAGE sql IMMUTABLE
1686
    AS $_$
1687 10324 aaronmk
SELECT hstore(util.fix_array($1), util.array_fill($2, util.array_length($1)))
1688 10307 aaronmk
$_$;
1689
1690
1691
--
1692
-- Name: FUNCTION hstore(keys text[], value text); Type: COMMENT; Schema: util; Owner: -
1693
--
1694
1695 12235 aaronmk
COMMENT ON FUNCTION hstore(keys text[], value text) IS '
1696
avoids repeating the same value for each key
1697
';
1698 10307 aaronmk
1699
1700
--
1701 12218 aaronmk
-- Name: ifnull(anyelement, anyelement); Type: FUNCTION; Schema: util; Owner: -
1702
--
1703
1704
CREATE FUNCTION ifnull(value anyelement, null_ anyelement) RETURNS anyelement
1705
    LANGUAGE sql IMMUTABLE
1706
    AS $_$
1707 12222 aaronmk
SELECT COALESCE($1, $2)
1708 12218 aaronmk
$_$;
1709
1710
1711
--
1712
-- Name: FUNCTION ifnull(value anyelement, null_ anyelement); Type: COMMENT; Schema: util; Owner: -
1713
--
1714
1715 12235 aaronmk
COMMENT ON FUNCTION ifnull(value anyelement, null_ anyelement) IS '
1716
equivalent to MySQL''s IFNULL() (Postgres auto-lowercases the name)
1717
';
1718 12218 aaronmk
1719
1720
--
1721 12285 aaronmk
-- Name: inherit(regclass, regclass); Type: FUNCTION; Schema: util; Owner: -
1722
--
1723
1724
CREATE FUNCTION inherit(derived regclass, base regclass) RETURNS void
1725
    LANGUAGE sql
1726
    AS $_$
1727
SELECT util.eval($$ALTER TABLE $$||$1||$$ INHERIT $$||$2)
1728
$_$;
1729
1730
1731
--
1732 10137 aaronmk
-- Name: is_constant(col_ref); Type: FUNCTION; Schema: util; Owner: -
1733
--
1734
1735
CREATE FUNCTION is_constant(col col_ref) RETURNS boolean
1736 12446 aaronmk
    LANGUAGE sql STABLE
1737 10137 aaronmk
    AS $_$
1738
SELECT COALESCE(util.col_comment($1) LIKE 'constant%', false)
1739
$_$;
1740
1741
1742
--
1743 11659 aaronmk
-- Name: is_empty(anyarray); Type: FUNCTION; Schema: util; Owner: -
1744
--
1745
1746
CREATE FUNCTION is_empty("array" anyarray) RETURNS boolean
1747
    LANGUAGE sql IMMUTABLE
1748
    AS $_$
1749
SELECT util.array_length($1) = 0
1750
$_$;
1751
1752
1753
--
1754 12457 aaronmk
-- Name: is_explain(text); Type: FUNCTION; Schema: util; Owner: -
1755
--
1756
1757
CREATE FUNCTION is_explain(sql text) RETURNS boolean
1758
    LANGUAGE sql IMMUTABLE
1759
    AS $_$
1760
SELECT upper(util.first_word($1)) = 'EXPLAIN'
1761
$_$;
1762
1763
1764
--
1765 12451 aaronmk
-- Name: is_explainable(text); Type: FUNCTION; Schema: util; Owner: -
1766
--
1767
1768
CREATE FUNCTION is_explainable(sql text) RETURNS boolean
1769
    LANGUAGE sql IMMUTABLE
1770
    AS $_$
1771
SELECT upper(util.first_word($1)) = ANY(
1772
'{SELECT,INSERT,UPDATE,DELETE,VALUES,EXECUTE,DECLARE}'::text[]
1773
/*from http://www.postgresql.org/docs/9.3/static/sql-explain.html#AEN77691*/
1774
)
1775
$_$;
1776
1777
1778
--
1779 10391 aaronmk
-- Name: is_more_complete_than(anyelement, anyelement); Type: FUNCTION; Schema: util; Owner: -
1780
--
1781
1782
CREATE FUNCTION is_more_complete_than("left" anyelement, "right" anyelement) RETURNS boolean
1783
    LANGUAGE sql IMMUTABLE
1784
    AS $_$
1785
SELECT $1 IS NOT DISTINCT FROM $2 OR ($1 IS NOT NULL AND $2 IS NULL)
1786
$_$;
1787
1788
1789
--
1790 10613 aaronmk
-- Name: is_populated_more_often_than(anyelement, anyelement); Type: FUNCTION; Schema: util; Owner: -
1791
--
1792
1793
CREATE FUNCTION is_populated_more_often_than("left" anyelement, "right" anyelement) RETURNS boolean
1794
    LANGUAGE sql IMMUTABLE
1795
    AS $_$
1796
SELECT $1 IS NOT NULL >= $2 IS NOT NULL -- true > false
1797
$_$;
1798
1799
1800
--
1801 12480 aaronmk
-- Name: is_set_stmt(text); Type: FUNCTION; Schema: util; Owner: -
1802
--
1803
1804
CREATE FUNCTION is_set_stmt(sql text) RETURNS boolean
1805
    LANGUAGE sql IMMUTABLE
1806
    AS $_$
1807
SELECT upper(util.first_word($1)) = 'SET'
1808
$_$;
1809
1810
1811
--
1812 12330 aaronmk
-- Name: is_table(regclass); Type: FUNCTION; Schema: util; Owner: -
1813
--
1814
1815
CREATE FUNCTION is_table(relation regclass) RETURNS boolean
1816 12332 aaronmk
    LANGUAGE sql STABLE
1817 12330 aaronmk
    AS $_$
1818
SELECT relkind = 'r' FROM pg_class WHERE oid = $1
1819
$_$;
1820
1821
1822
--
1823 12329 aaronmk
-- Name: is_view(regclass); Type: FUNCTION; Schema: util; Owner: -
1824
--
1825
1826
CREATE FUNCTION is_view(relation regclass) RETURNS boolean
1827 12332 aaronmk
    LANGUAGE sql STABLE
1828 12329 aaronmk
    AS $_$
1829
SELECT relkind = 'v' FROM pg_class WHERE oid = $1
1830
$_$;
1831
1832
1833
--
1834 8183 aaronmk
-- Name: join_strs_transform(text, text, text); Type: FUNCTION; Schema: util; Owner: -
1835 4009 aaronmk
--
1836
1837 4053 aaronmk
CREATE FUNCTION join_strs_transform(state text, value text, delim text) RETURNS text
1838 12444 aaronmk
    LANGUAGE sql IMMUTABLE STRICT
1839 4009 aaronmk
    AS $_$
1840 4054 aaronmk
SELECT $1 || $3 || $2
1841 2595 aaronmk
$_$;
1842
1843
1844
--
1845 12444 aaronmk
-- Name: FUNCTION join_strs_transform(state text, value text, delim text); Type: COMMENT; Schema: util; Owner: -
1846
--
1847
1848
COMMENT ON FUNCTION join_strs_transform(state text, value text, delim text) IS '
1849
must be declared STRICT to use the special handling of STRICT aggregating functions
1850
';
1851
1852
1853
--
1854 12436 aaronmk
-- Name: keys(anyelement); Type: FUNCTION; Schema: util; Owner: -
1855
--
1856
1857
CREATE FUNCTION keys(value anyelement) RETURNS anyelement
1858
    LANGUAGE sql IMMUTABLE
1859
    AS $_$
1860
SELECT $1 -- compare on the entire value
1861
$_$;
1862
1863
1864
--
1865 10989 aaronmk
-- Name: limit2row_num(integer, integer, integer); Type: FUNCTION; Schema: util; Owner: -
1866 10985 aaronmk
--
1867
1868 10989 aaronmk
CREATE FUNCTION limit2row_num(limit_ integer, offset_ integer DEFAULT NULL::integer, min_row_num integer DEFAULT 1) RETURNS integer
1869 10985 aaronmk
    LANGUAGE sql IMMUTABLE
1870
    AS $_$
1871 10989 aaronmk
SELECT COALESCE(util.offset2row_num($2, $3) + $1 - 1, 2147483647)
1872 10985 aaronmk
$_$;
1873
1874
1875
--
1876 12275 aaronmk
-- Name: ltrim_nl(text); Type: FUNCTION; Schema: util; Owner: -
1877
--
1878
1879
CREATE FUNCTION ltrim_nl(str text) RETURNS text
1880
    LANGUAGE sql IMMUTABLE
1881
    AS $_$
1882
SELECT ltrim($1, $$
1883
$$)
1884
$_$;
1885
1886
1887
--
1888 10110 aaronmk
-- Name: map_filter_insert(); Type: FUNCTION; Schema: util; Owner: -
1889
--
1890
1891
CREATE FUNCTION map_filter_insert() RETURNS trigger
1892
    LANGUAGE plpgsql
1893
    AS $$
1894
BEGIN
1895
	IF new."from" LIKE ':%' THEN RETURN NULL; END IF; -- exclude metadata values
1896
	RETURN new;
1897
END;
1898
$$;
1899
1900
1901
--
1902 8183 aaronmk
-- Name: map_get(regclass, text); Type: FUNCTION; Schema: util; Owner: -
1903 8146 aaronmk
--
1904
1905
CREATE FUNCTION map_get(map regclass, key text) RETURNS text
1906
    LANGUAGE plpgsql STABLE STRICT
1907
    AS $_$
1908
DECLARE
1909
    value text;
1910
BEGIN
1911
    EXECUTE $$SELECT "to" FROM $$||map||$$ WHERE "from" = $1$$
1912 8149 aaronmk
        INTO value USING key;
1913 8146 aaronmk
    RETURN value;
1914
END;
1915
$_$;
1916
1917
1918
--
1919 10358 aaronmk
-- Name: map_nulls(text[], anyelement); Type: FUNCTION; Schema: util; Owner: -
1920 10325 aaronmk
--
1921
1922 10358 aaronmk
CREATE FUNCTION map_nulls(nulls text[], value anyelement) RETURNS anyelement
1923 10353 aaronmk
    LANGUAGE sql IMMUTABLE
1924 10325 aaronmk
    AS $_$
1925 10374 aaronmk
SELECT util._map(util.nulls_map($1), $2)
1926 10325 aaronmk
$_$;
1927
1928
1929
--
1930 10359 aaronmk
-- Name: FUNCTION map_nulls(nulls text[], value anyelement); Type: COMMENT; Schema: util; Owner: -
1931
--
1932
1933 12235 aaronmk
COMMENT ON FUNCTION map_nulls(nulls text[], value anyelement) IS '
1934
due to dynamic inlining[1], this is just as fast as util._map() which it wraps[2].
1935 10359 aaronmk
1936
[1] inlining of function calls, which is different from constant folding
1937
[2] _map()''s profiling query
1938
SELECT util._map(''"1"=>NULL, "2"=>NULL, "3"=>NULL, *=>*'', v) FROM unnest(array_fill(1, array[100000])) f (v)
1939
and map_nulls()''s profiling query
1940
SELECT util.map_nulls(array[1, 2, 3]::text[], v) FROM unnest(array_fill(1, array[100000])) f (v)
1941 10375 aaronmk
both take ~920 ms.
1942 12235 aaronmk
also, /inputs/REMIB/Specimen/postprocess.sql > country takes the same amount of time (56000 ms) to build with map_nulls() as with a literal hstore.
1943
';
1944 10359 aaronmk
1945
1946
--
1947 8183 aaronmk
-- Name: map_values(regclass); Type: FUNCTION; Schema: util; Owner: -
1948 8150 aaronmk
--
1949
1950
CREATE FUNCTION map_values(map regclass) RETURNS SETOF text
1951
    LANGUAGE plpgsql STABLE STRICT
1952
    AS $_$
1953
BEGIN
1954
    RETURN QUERY EXECUTE $$SELECT "to" FROM $$||map;
1955
END;
1956
$_$;
1957
1958
1959
--
1960 12228 aaronmk
-- Name: materialize_query(text, text); Type: FUNCTION; Schema: util; Owner: -
1961
--
1962
1963 12262 aaronmk
CREATE FUNCTION materialize_query(table_esc text, sql text) RETURNS void
1964 12228 aaronmk
    LANGUAGE sql
1965
    AS $_$
1966 12262 aaronmk
SELECT util.create_if_not_exists($$CREATE TABLE $$||$1||$$ AS
1967 12321 aaronmk
$$||util.ltrim_nl($2));
1968
-- make sure the created table has the correct estimated row count
1969
SELECT util.analyze_($1);
1970 12470 aaronmk
1971
SELECT util.append_comment($1, '
1972
contents generated from:
1973
'||util.ltrim_nl($2)||';
1974
');
1975 12228 aaronmk
$_$;
1976
1977
1978
--
1979 12262 aaronmk
-- Name: FUNCTION materialize_query(table_esc text, sql text); Type: COMMENT; Schema: util; Owner: -
1980 12228 aaronmk
--
1981
1982 12262 aaronmk
COMMENT ON FUNCTION materialize_query(table_esc text, sql text) IS '
1983 12235 aaronmk
idempotent
1984
';
1985 12228 aaronmk
1986
1987
--
1988 12234 aaronmk
-- Name: materialize_view(text, regclass); Type: FUNCTION; Schema: util; Owner: -
1989
--
1990
1991 12262 aaronmk
CREATE FUNCTION materialize_view(table_esc text, view_ regclass) RETURNS void
1992 12234 aaronmk
    LANGUAGE sql
1993
    AS $_$
1994
SELECT util.materialize_query($1, $$SELECT * FROM $$||$2)
1995
$_$;
1996
1997
1998
--
1999 12262 aaronmk
-- Name: FUNCTION materialize_view(table_esc text, view_ regclass); Type: COMMENT; Schema: util; Owner: -
2000 12234 aaronmk
--
2001
2002 12262 aaronmk
COMMENT ON FUNCTION materialize_view(table_esc text, view_ regclass) IS '
2003 12235 aaronmk
idempotent
2004
';
2005 12234 aaronmk
2006
2007
--
2008 8190 aaronmk
-- Name: mk_const_col(col_ref, anyelement); Type: FUNCTION; Schema: util; Owner: -
2009
--
2010
2011
CREATE FUNCTION mk_const_col(col col_ref, value anyelement) RETURNS void
2012 12446 aaronmk
    LANGUAGE sql
2013 8190 aaronmk
    AS $_$
2014 10135 aaronmk
SELECT util.create_if_not_exists($$
2015
ALTER TABLE $$||$1.table_||$$ ADD COLUMN $$
2016 8190 aaronmk
||quote_ident($1.name)||$$ $$||pg_typeof($2)||util.type_qual($2)||$$ DEFAULT $$
2017 10135 aaronmk
||quote_literal($2)||$$;
2018 12235 aaronmk
COMMENT ON COLUMN $$||$1.table_||$$.$$||quote_ident($1.name)||$$ IS '
2019
constant
2020
';
2021 10135 aaronmk
$$)
2022 8190 aaronmk
$_$;
2023
2024
2025
--
2026
-- Name: FUNCTION mk_const_col(col col_ref, value anyelement); Type: COMMENT; Schema: util; Owner: -
2027
--
2028
2029 12235 aaronmk
COMMENT ON FUNCTION mk_const_col(col col_ref, value anyelement) IS '
2030
idempotent
2031
';
2032 8190 aaronmk
2033
2034
--
2035 10296 aaronmk
-- Name: mk_derived_col(col_ref, text, boolean); Type: FUNCTION; Schema: util; Owner: -
2036 8187 aaronmk
--
2037
2038 10296 aaronmk
CREATE FUNCTION mk_derived_col(col col_ref, expr text, overwrite boolean DEFAULT false) RETURNS void
2039 8187 aaronmk
    LANGUAGE plpgsql STRICT
2040
    AS $_$
2041
DECLARE
2042
    type regtype = util.typeof(expr, col.table_::text::regtype);
2043
    col_name_sql text = quote_ident(col.name);
2044
BEGIN
2045 10296 aaronmk
    PERFORM util.create_if_not_exists((CASE WHEN overwrite THEN '' ELSE $$
2046
ALTER TABLE $$||col.table_||$$ ADD   COLUMN $$||col_name_sql||$$      $$||type||$$;$$ END)||$$
2047 8187 aaronmk
ALTER TABLE $$||col.table_||$$ ALTER COLUMN $$||col_name_sql||$$ TYPE $$||type||$$ USING
2048
$$||expr||$$;
2049
$$);
2050
END;
2051
$_$;
2052
2053
2054
--
2055 10296 aaronmk
-- Name: FUNCTION mk_derived_col(col col_ref, expr text, overwrite boolean); Type: COMMENT; Schema: util; Owner: -
2056 8188 aaronmk
--
2057
2058 12235 aaronmk
COMMENT ON FUNCTION mk_derived_col(col col_ref, expr text, overwrite boolean) IS '
2059
idempotent
2060
';
2061 8188 aaronmk
2062
2063
--
2064 12554 aaronmk
-- Name: mk_diff_query(text, text, text, text, text); Type: FUNCTION; Schema: util; Owner: -
2065 12475 aaronmk
--
2066
2067 12554 aaronmk
CREATE FUNCTION mk_diff_query(left_ text, right_ text, cols text DEFAULT 'left_, right_'::text, join_cond text DEFAULT 'left_ %== right_ -- refer to EXPLAIN output for expansion of %=='::text, filter text DEFAULT 'left_ IS DISTINCT FROM right_'::text) RETURNS text
2068 12475 aaronmk
    LANGUAGE sql IMMUTABLE
2069
    AS $_$
2070
SELECT
2071 12478 aaronmk
$$SELECT
2072 12554 aaronmk
$$||$3||$$
2073 12555 aaronmk
FROM      $$||$1||$$ left_
2074 12554 aaronmk
FULL JOIN $$||$2||$$ right_
2075
ON $$||$4||$$
2076
WHERE $$||$5||$$
2077 12475 aaronmk
ORDER BY left_, right_
2078
$$
2079
$_$;
2080
2081
2082
--
2083 12564 aaronmk
-- Name: mk_keys_func(regtype); Type: FUNCTION; Schema: util; Owner: -
2084
--
2085
2086
CREATE FUNCTION mk_keys_func(type regtype) RETURNS void
2087 12591 aaronmk
    LANGUAGE sql
2088 12564 aaronmk
    AS $_$
2089 12570 aaronmk
-- keys()
2090 12564 aaronmk
SELECT util.mk_keys_func($1, ARRAY(
2091
SELECT col FROM util.typed_cols($1) col
2092
WHERE (col).type != ANY('{bigint}'::regtype[]) -- not a count col
2093 12570 aaronmk
));
2094
2095 12571 aaronmk
-- values_()
2096 12570 aaronmk
SELECT util.mk_keys_func($1, COALESCE(
2097
	NULLIF(ARRAY(
2098
	SELECT col FROM util.typed_cols($1) col
2099
	WHERE (col).type = ANY('{bigint}'::regtype[]) -- is a count col
2100
	), ARRAY[]::util.col_cast[])
2101
, ARRAY(SELECT util.typed_cols($1))) -- no count cols, so use all cols
2102 12571 aaronmk
, 'values_');
2103 12564 aaronmk
$_$;
2104
2105
2106
--
2107 12569 aaronmk
-- Name: mk_keys_func(regtype, col_cast[], text); Type: FUNCTION; Schema: util; Owner: -
2108 12561 aaronmk
--
2109
2110 12569 aaronmk
CREATE FUNCTION mk_keys_func(type regtype, cols col_cast[], name text DEFAULT 'keys'::text) RETURNS void
2111 12591 aaronmk
    LANGUAGE sql
2112 12561 aaronmk
    AS $_$
2113 12567 aaronmk
SELECT util.create_if_not_exists($$
2114 12577 aaronmk
CREATE TYPE $$||util.prefixed_name($3||'_', $1)||$$ AS
2115
($$||util.mk_typed_cols_list($2)||$$);
2116 12594 aaronmk
$$);
2117 12577 aaronmk
2118 12594 aaronmk
SELECT util.mk_keys_func($1, util.prefixed_name($3||'_', $1)::regtype, $3);
2119
$_$;
2120
2121
2122
--
2123
-- Name: mk_keys_func(regtype, regtype, text); Type: FUNCTION; Schema: util; Owner: -
2124
--
2125
2126
CREATE FUNCTION mk_keys_func(type regtype, return_type regtype, name text DEFAULT 'keys'::text) RETURNS void
2127
    LANGUAGE sql
2128
    AS $_$
2129
SELECT util.create_if_not_exists($$
2130 12581 aaronmk
CREATE FUNCTION $$||util.qual_name(util.schema($1), $3)||$$(value $$
2131 12577 aaronmk
||util.qual_name($1)||$$)
2132 12594 aaronmk
  RETURNS $$||util.qual_name($2)||$$ AS
2133 12561 aaronmk
$BODY1$
2134 12577 aaronmk
SELECT ROW($$||
2135 12594 aaronmk
(SELECT COALESCE(string_agg($$$1.$$||quote_ident((col).col_name), ', '), '')
2136
FROM util.typed_cols($2) col) ||$$)::$$||util.qual_name($2)||$$
2137 12561 aaronmk
$BODY1$
2138
  LANGUAGE sql IMMUTABLE
2139
  COST 100;
2140 12594 aaronmk
$$);
2141 12561 aaronmk
$_$;
2142
2143
2144
--
2145 8183 aaronmk
-- Name: mk_map_table(text); Type: FUNCTION; Schema: util; Owner: -
2146 8139 aaronmk
--
2147
2148
CREATE FUNCTION mk_map_table(table_ text) RETURNS void
2149 12446 aaronmk
    LANGUAGE sql
2150 8139 aaronmk
    AS $_$
2151 8183 aaronmk
SELECT util.create_if_not_exists($$
2152 8141 aaronmk
CREATE TABLE $$||$1||$$
2153 8139 aaronmk
(
2154 8183 aaronmk
    LIKE util.map INCLUDING ALL
2155 10110 aaronmk
);
2156
2157
CREATE TRIGGER map_filter_insert
2158
  BEFORE INSERT
2159
  ON $$||$1||$$
2160
  FOR EACH ROW
2161
  EXECUTE PROCEDURE util.map_filter_insert();
2162 8141 aaronmk
$$)
2163 8139 aaronmk
$_$;
2164
2165
2166
--
2167 12556 aaronmk
-- Name: mk_out_params(col_cast[]); Type: FUNCTION; Schema: util; Owner: -
2168
--
2169
2170
CREATE FUNCTION mk_out_params(cols col_cast[]) RETURNS text
2171
    LANGUAGE sql IMMUTABLE
2172
    AS $_$
2173 12559 aaronmk
SELECT COALESCE(string_agg($$, OUT $$||(unnest).col_name||$$ $$||
2174
util.qual_name((unnest).type), ''), '')
2175 12556 aaronmk
FROM unnest($1)
2176
$_$;
2177
2178
2179
--
2180 12236 aaronmk
-- Name: mk_search_path(text[]); Type: FUNCTION; Schema: util; Owner: -
2181
--
2182
2183
CREATE FUNCTION mk_search_path(VARIADIC schemas text[]) RETURNS text
2184
    LANGUAGE sql IMMUTABLE
2185
    AS $_$
2186 12486 aaronmk
SELECT string_agg(quote_ident(unnest), ', ') FROM unnest($1||'util'::text)
2187 12236 aaronmk
$_$;
2188
2189
2190
--
2191 12486 aaronmk
-- Name: FUNCTION mk_search_path(VARIADIC schemas text[]); Type: COMMENT; Schema: util; Owner: -
2192
--
2193
2194
COMMENT ON FUNCTION mk_search_path(VARIADIC schemas text[]) IS '
2195
auto-appends util to the search_path to enable use of util operators
2196
';
2197
2198
2199
--
2200 12467 aaronmk
-- Name: mk_set_search_path(boolean); Type: FUNCTION; Schema: util; Owner: -
2201
--
2202
2203
CREATE FUNCTION mk_set_search_path(for_printing boolean DEFAULT false) RETURNS text
2204
    LANGUAGE sql IMMUTABLE
2205
    AS $_$
2206
SELECT util.mk_set_search_path(current_setting('search_path'), $1)
2207
$_$;
2208
2209
2210
--
2211 12466 aaronmk
-- Name: mk_set_search_path(text, boolean); Type: FUNCTION; Schema: util; Owner: -
2212 12270 aaronmk
--
2213
2214 12466 aaronmk
CREATE FUNCTION mk_set_search_path(search_path text, for_printing boolean DEFAULT false) RETURNS text
2215 12270 aaronmk
    LANGUAGE sql IMMUTABLE
2216
    AS $_$
2217 12432 aaronmk
/* debug_print_return_value() needed because this function is used with EXECUTE
2218
rather than util.eval() (in order to affect the calling function), so the
2219
search_path would not otherwise be printed */
2220 12487 aaronmk
SELECT $$SET$$||util._if($2, $$ /*LOCAL*/$$::text, $$ LOCAL$$)
2221
||$$ search_path TO $$||$1
2222 12270 aaronmk
$_$;
2223
2224
2225
--
2226 10113 aaronmk
-- Name: mk_source_col(regclass); Type: FUNCTION; Schema: util; Owner: -
2227
--
2228
2229
CREATE FUNCTION mk_source_col(table_ regclass) RETURNS void
2230 12446 aaronmk
    LANGUAGE sql
2231 10113 aaronmk
    AS $_$
2232 12240 aaronmk
SELECT util.mk_const_col(($1, 'source'), util.schema($1))
2233 10113 aaronmk
$_$;
2234
2235
2236
--
2237
-- Name: FUNCTION mk_source_col(table_ regclass); Type: COMMENT; Schema: util; Owner: -
2238
--
2239
2240 12235 aaronmk
COMMENT ON FUNCTION mk_source_col(table_ regclass) IS '
2241
idempotent
2242
';
2243 10113 aaronmk
2244
2245
--
2246 11011 aaronmk
-- Name: mk_subset_by_row_num_func(regclass); Type: FUNCTION; Schema: util; Owner: -
2247
--
2248
2249
CREATE FUNCTION mk_subset_by_row_num_func(view_ regclass) RETURNS void
2250
    LANGUAGE plpgsql STRICT
2251
    AS $_$
2252
DECLARE
2253
	view_qual_name text = util.qual_name(view_);
2254
BEGIN
2255
	EXECUTE $$
2256
CREATE OR REPLACE FUNCTION $$||view_||$$(limit_ integer DEFAULT NULL::integer, offset_ integer DEFAULT NULL)
2257
  RETURNS SETOF $$||view_||$$ AS
2258
$BODY1$
2259
SELECT * FROM $$||view_qual_name||$$
2260
ORDER BY sort_col
2261
LIMIT $1 OFFSET $2
2262
$BODY1$
2263
  LANGUAGE sql STABLE
2264
  COST 100
2265
  ROWS 1000
2266
$$;
2267
2268
	PERFORM util.mk_subset_by_row_num_no_sort_func(view_);
2269
END;
2270
$_$;
2271
2272
2273
--
2274 8325 aaronmk
-- Name: mk_subset_by_row_num_func(regclass, text); Type: FUNCTION; Schema: util; Owner: -
2275
--
2276
2277
CREATE FUNCTION mk_subset_by_row_num_func(view_ regclass, row_num_col text) RETURNS void
2278
    LANGUAGE plpgsql STRICT
2279
    AS $_$
2280 10990 aaronmk
DECLARE
2281
	view_qual_name text = util.qual_name(view_);
2282
	row_num__min__fn text = util.esc_name__append('__row_num__min', view_qual_name);
2283 8325 aaronmk
BEGIN
2284
	EXECUTE $$
2285 10990 aaronmk
CREATE OR REPLACE FUNCTION $$||row_num__min__fn||$$()
2286
  RETURNS integer AS
2287
$BODY1$
2288
SELECT $$||quote_ident(row_num_col)||$$
2289
FROM $$||view_qual_name||$$
2290
ORDER BY $$||quote_ident(row_num_col)||$$ ASC
2291
LIMIT 1
2292
$BODY1$
2293
  LANGUAGE sql STABLE
2294
  COST 100;
2295
$$;
2296
2297
	EXECUTE $$
2298 8325 aaronmk
CREATE OR REPLACE FUNCTION $$||view_||$$(limit_ integer DEFAULT NULL::integer, offset_ integer DEFAULT NULL)
2299
  RETURNS SETOF $$||view_||$$ AS
2300
$BODY1$
2301 10990 aaronmk
SELECT * FROM $$||view_qual_name||$$
2302
WHERE $$||quote_ident(row_num_col)||$$ BETWEEN
2303
	util.offset2row_num(    $2, $$||row_num__min__fn||$$())
2304
AND util.limit2row_num ($1, $2, $$||row_num__min__fn||$$())
2305 10991 aaronmk
ORDER BY $$||quote_ident(row_num_col)||$$
2306 8325 aaronmk
$BODY1$
2307
  LANGUAGE sql STABLE
2308
  COST 100
2309
  ROWS 1000
2310
$$;
2311 11010 aaronmk
2312
	PERFORM util.mk_subset_by_row_num_no_sort_func(view_);
2313
END;
2314
$_$;
2315
2316
2317
--
2318
-- Name: mk_subset_by_row_num_no_sort_func(regclass); Type: FUNCTION; Schema: util; Owner: -
2319
--
2320
2321
CREATE FUNCTION mk_subset_by_row_num_no_sort_func(view_ regclass) RETURNS void
2322
    LANGUAGE plpgsql STRICT
2323
    AS $_$
2324
DECLARE
2325
	view_qual_name text = util.qual_name(view_);
2326
BEGIN
2327 8326 aaronmk
	EXECUTE $$
2328
CREATE OR REPLACE FUNCTION $$||view_||$$(no_sort boolean, limit_ integer DEFAULT NULL::integer, offset_ integer DEFAULT NULL)
2329
  RETURNS SETOF $$||view_||$$
2330
  SET enable_sort TO 'off'
2331
  AS
2332
$BODY1$
2333 10990 aaronmk
SELECT * FROM $$||view_qual_name||$$($2, $3)
2334 8326 aaronmk
$BODY1$
2335
  LANGUAGE sql STABLE
2336
  COST 100
2337
  ROWS 1000
2338
;
2339
COMMENT ON FUNCTION $$||view_||$$(no_sort boolean, limit_ integer, offset_ integer) IS '
2340
Use this for limit values greater than ~100,000 to avoid unwanted slow sorts.
2341
If you want to run EXPLAIN and get expanded output, use the regular subset
2342
function instead. (When a config param is set on a function, EXPLAIN produces
2343
just a function scan.)
2344
';
2345
$$;
2346 8325 aaronmk
END;
2347
$_$;
2348
2349
2350
--
2351 11010 aaronmk
-- Name: FUNCTION mk_subset_by_row_num_no_sort_func(view_ regclass); Type: COMMENT; Schema: util; Owner: -
2352
--
2353
2354 12235 aaronmk
COMMENT ON FUNCTION mk_subset_by_row_num_no_sort_func(view_ regclass) IS '
2355
creates subset function which turns off enable_sort
2356
';
2357 11010 aaronmk
2358
2359
--
2360 12576 aaronmk
-- Name: mk_typed_cols_list(col_cast[]); Type: FUNCTION; Schema: util; Owner: -
2361
--
2362
2363
CREATE FUNCTION mk_typed_cols_list(cols col_cast[]) RETURNS text
2364
    LANGUAGE sql IMMUTABLE
2365
    AS $_$
2366 12579 aaronmk
SELECT COALESCE(string_agg(quote_ident((unnest).col_name)||$$ $$||
2367 12576 aaronmk
util.qual_name((unnest).type), ', '), '')
2368
FROM unnest($1)
2369
$_$;
2370
2371
2372
--
2373 12242 aaronmk
-- Name: name(regclass); Type: FUNCTION; Schema: util; Owner: -
2374
--
2375
2376
CREATE FUNCTION name(table_ regclass) RETURNS text
2377
    LANGUAGE sql STABLE
2378
    AS $_$
2379
SELECT relname::text FROM pg_class WHERE oid = $1
2380
$_$;
2381
2382
2383
--
2384 8183 aaronmk
-- Name: name(regtype); Type: FUNCTION; Schema: util; Owner: -
2385 8083 aaronmk
--
2386
2387
CREATE FUNCTION name(type regtype) RETURNS text
2388 12446 aaronmk
    LANGUAGE sql STABLE
2389 8083 aaronmk
    AS $_$
2390
SELECT typname::text FROM pg_type WHERE oid = $1
2391
$_$;
2392
2393
2394
--
2395 12360 aaronmk
-- Name: name_was_truncated(text, integer); Type: FUNCTION; Schema: util; Owner: -
2396 12355 aaronmk
--
2397
2398 12360 aaronmk
CREATE FUNCTION name_was_truncated(name_ text, max_prefix_len integer DEFAULT 0) RETURNS boolean
2399 12355 aaronmk
    LANGUAGE sql IMMUTABLE
2400
    AS $_$
2401 12360 aaronmk
SELECT octet_length($1) >= util.namedatalen() - $2
2402 12355 aaronmk
$_$;
2403
2404
2405
--
2406 12354 aaronmk
-- Name: namedatalen(); Type: FUNCTION; Schema: util; Owner: -
2407
--
2408
2409
CREATE FUNCTION namedatalen() RETURNS integer
2410
    LANGUAGE sql IMMUTABLE
2411
    AS $$
2412
SELECT octet_length(repeat('_', 1024/*>63*/)::name::text)
2413
$$;
2414
2415
2416
--
2417 9958 aaronmk
-- Name: not_empty(anyarray); Type: FUNCTION; Schema: util; Owner: -
2418
--
2419
2420
CREATE FUNCTION not_empty(value anyarray) RETURNS boolean
2421
    LANGUAGE sql IMMUTABLE
2422
    AS $_$
2423 10329 aaronmk
SELECT $1 IS NOT NULL AND util.array_length($1) > 0
2424 9958 aaronmk
$_$;
2425
2426
2427
--
2428 9956 aaronmk
-- Name: not_null(anyelement); Type: FUNCTION; Schema: util; Owner: -
2429
--
2430
2431
CREATE FUNCTION not_null(value anyelement) RETURNS boolean
2432 9957 aaronmk
    LANGUAGE sql IMMUTABLE
2433 9956 aaronmk
    AS $_$
2434
SELECT $1 IS NOT NULL
2435
$_$;
2436
2437
2438
--
2439 10373 aaronmk
-- Name: nulls_map(text[]); Type: FUNCTION; Schema: util; Owner: -
2440
--
2441
2442
CREATE FUNCTION nulls_map(nulls text[]) RETURNS hstore
2443
    LANGUAGE sql IMMUTABLE
2444
    AS $_$
2445
SELECT util.hstore($1, NULL) || '*=>*'
2446
$_$;
2447
2448
2449
--
2450
-- Name: FUNCTION nulls_map(nulls text[]); Type: COMMENT; Schema: util; Owner: -
2451
--
2452
2453 12235 aaronmk
COMMENT ON FUNCTION nulls_map(nulls text[]) IS '
2454
for use with _map()
2455
';
2456 10373 aaronmk
2457
2458
--
2459 10989 aaronmk
-- Name: offset2row_num(integer, integer); Type: FUNCTION; Schema: util; Owner: -
2460 10984 aaronmk
--
2461
2462 10989 aaronmk
CREATE FUNCTION offset2row_num(offset_ integer, min_row_num integer DEFAULT 1) RETURNS integer
2463 10984 aaronmk
    LANGUAGE sql IMMUTABLE
2464
    AS $_$
2465 10989 aaronmk
SELECT $2 + COALESCE($1, 0)
2466 10984 aaronmk
$_$;
2467
2468
2469
--
2470 12651 aaronmk
-- Name: populate_table(regclass, text); Type: FUNCTION; Schema: util; Owner: -
2471
--
2472
2473
CREATE FUNCTION populate_table(table_ regclass, sql text) RETURNS void
2474
    LANGUAGE sql
2475
    AS $_$
2476
SELECT util.eval($$INSERT INTO $$||$1||$$
2477
$$||util.ltrim_nl($2));
2478
-- make sure the created table has the correct estimated row count
2479
SELECT util.analyze_($1);
2480
$_$;
2481
2482
2483
--
2484 12575 aaronmk
-- Name: prefixed_name(text, anyelement); Type: FUNCTION; Schema: util; Owner: -
2485
--
2486
2487
CREATE FUNCTION prefixed_name(prefix text, type anyelement) RETURNS text
2488
    LANGUAGE sql IMMUTABLE
2489
    AS $_$
2490
SELECT util.qual_name(util.schema($2), $1||util.name($2))
2491
$_$;
2492
2493
2494
--
2495 12494 aaronmk
-- Name: prepend_comment(regclass, text); Type: FUNCTION; Schema: util; Owner: -
2496
--
2497
2498
CREATE FUNCTION prepend_comment(table_ regclass, comment text) RETURNS void
2499
    LANGUAGE sql
2500
    AS $_$
2501
SELECT util.set_comment($1, concat($2, util.comment($1)))
2502
$_$;
2503
2504
2505
--
2506
-- Name: FUNCTION prepend_comment(table_ regclass, comment text); Type: COMMENT; Schema: util; Owner: -
2507
--
2508
2509
COMMENT ON FUNCTION prepend_comment(table_ regclass, comment text) IS '
2510
comment: must start and end with a newline
2511
';
2512
2513
2514
--
2515 12260 aaronmk
-- Name: qual_name(text[]); Type: FUNCTION; Schema: util; Owner: -
2516
--
2517
2518
CREATE FUNCTION qual_name(VARIADIC elems text[]) RETURNS text
2519
    LANGUAGE sql IMMUTABLE
2520
    AS $_$
2521
SELECT string_agg(quote_ident(unnest), '.') FROM unnest($1)
2522
$_$;
2523
2524
2525
--
2526 10988 aaronmk
-- Name: qual_name(regclass); Type: FUNCTION; Schema: util; Owner: -
2527
--
2528
2529
CREATE FUNCTION qual_name(table_ regclass) RETURNS text
2530 12446 aaronmk
    LANGUAGE sql STABLE
2531 12267 aaronmk
    SET search_path TO pg_temp
2532 10988 aaronmk
    AS $_$
2533 12267 aaronmk
SELECT $1::text
2534 10988 aaronmk
$_$;
2535
2536
2537
--
2538 12267 aaronmk
-- Name: qual_name(regtype); Type: FUNCTION; Schema: util; Owner: -
2539
--
2540
2541
CREATE FUNCTION qual_name(type regtype) RETURNS text
2542 12446 aaronmk
    LANGUAGE sql STABLE
2543 12267 aaronmk
    SET search_path TO pg_temp
2544
    AS $_$
2545
SELECT $1::text
2546
$_$;
2547
2548
2549
--
2550
-- Name: FUNCTION qual_name(type regtype); Type: COMMENT; Schema: util; Owner: -
2551
--
2552
2553
COMMENT ON FUNCTION qual_name(type regtype) IS '
2554
a type''s schema-qualified name
2555
';
2556
2557
2558
--
2559 12268 aaronmk
-- Name: qual_name(unknown); Type: FUNCTION; Schema: util; Owner: -
2560
--
2561
2562
CREATE FUNCTION qual_name(type unknown) RETURNS text
2563 12446 aaronmk
    LANGUAGE sql STABLE
2564 12268 aaronmk
    AS $_$
2565
SELECT util.qual_name($1::text::regtype)
2566
$_$;
2567
2568
2569
--
2570 12376 aaronmk
-- Name: quote_func_call(regprocedure, text[]); Type: FUNCTION; Schema: util; Owner: -
2571
--
2572
2573
CREATE FUNCTION quote_func_call(func regprocedure, VARIADIC args_esc text[]) RETURNS text
2574
    LANGUAGE sql IMMUTABLE
2575
    AS $_$
2576
SELECT util.quote_func_call($1::regproc::text, VARIADIC $2)
2577
$_$;
2578
2579
2580
--
2581
-- Name: quote_func_call(text, text[]); Type: FUNCTION; Schema: util; Owner: -
2582
--
2583
2584
CREATE FUNCTION quote_func_call(func_esc text, VARIADIC args_esc text[]) RETURNS text
2585
    LANGUAGE sql IMMUTABLE
2586
    AS $_$
2587
SELECT $1||'('||concat_ws(', ', VARIADIC $2)||')'
2588
$_$;
2589
2590
2591
--
2592 12371 aaronmk
-- Name: quote_typed(anyelement); Type: FUNCTION; Schema: util; Owner: -
2593
--
2594
2595
CREATE FUNCTION quote_typed(value anyelement) RETURNS text
2596
    LANGUAGE sql IMMUTABLE
2597
    AS $_$
2598 12437 aaronmk
SELECT quote_nullable($1)||$$::$$||util.qual_name(pg_typeof($1))
2599 12371 aaronmk
$_$;
2600
2601
2602
--
2603 12530 aaronmk
-- Name: raise(text, text); Type: FUNCTION; Schema: util; Owner: -
2604
--
2605
2606
CREATE FUNCTION raise(type text, msg text) RETURNS void
2607
    LANGUAGE sql IMMUTABLE
2608 12560 aaronmk
    AS $_X$
2609 12530 aaronmk
SELECT util.eval($$
2610
CREATE OR REPLACE FUNCTION pg_temp.__raise()
2611
  RETURNS void AS
2612 12560 aaronmk
-- $__BODY1$ in case msg contains $BODY1$ (in SQL)
2613
$__BODY1$
2614 12530 aaronmk
BEGIN
2615
	RAISE $$||$1||$$ USING MESSAGE = $$||quote_nullable($2)||$$;
2616
END;
2617 12560 aaronmk
$__BODY1$
2618 12530 aaronmk
  LANGUAGE plpgsql IMMUTABLE
2619
  COST 100;
2620 12532 aaronmk
$$, verbose_ := false);
2621 12530 aaronmk
2622 12532 aaronmk
SELECT util.eval($$SELECT pg_temp.__raise()$$, verbose_ := false);
2623 12560 aaronmk
$_X$;
2624 12530 aaronmk
2625
2626
--
2627 12533 aaronmk
-- Name: FUNCTION raise(type text, msg text); Type: COMMENT; Schema: util; Owner: -
2628
--
2629
2630
COMMENT ON FUNCTION raise(type text, msg text) IS '
2631
type: a log level from
2632
http://www.postgresql.org/docs/9.3/static/plpgsql-errors-and-messages.html
2633
or a condition name from
2634
http://www.postgresql.org/docs/9.3/static/errcodes-appendix.html
2635
';
2636
2637
2638
--
2639 12536 aaronmk
-- Name: raise_error_warning(text); Type: FUNCTION; Schema: util; Owner: -
2640 12311 aaronmk
--
2641
2642 12536 aaronmk
CREATE FUNCTION raise_error_warning(msg text) RETURNS void
2643 12441 aaronmk
    LANGUAGE sql IMMUTABLE
2644 12311 aaronmk
    AS $_$
2645 12536 aaronmk
SELECT util.raise('WARNING', 'ERROR:  '||$1)
2646 12311 aaronmk
$_$;
2647
2648
2649
--
2650 10116 aaronmk
-- Name: raise_undefined_column(col_ref); Type: FUNCTION; Schema: util; Owner: -
2651
--
2652
2653
CREATE FUNCTION raise_undefined_column(col col_ref) RETURNS text
2654
    LANGUAGE plpgsql IMMUTABLE STRICT
2655
    AS $$
2656
BEGIN
2657
	RAISE undefined_column USING MESSAGE = concat('undefined column: ', col.name);
2658
END;
2659
$$;
2660
2661
2662
--
2663 11657 aaronmk
-- Name: regexp_matches_group(text, text, integer); Type: FUNCTION; Schema: util; Owner: -
2664
--
2665
2666
CREATE FUNCTION regexp_matches_group(str text, re text, group_ integer DEFAULT 1) RETURNS SETOF text
2667
    LANGUAGE sql IMMUTABLE
2668
    AS $_$
2669
SELECT regexp_matches[$3] FROM regexp_matches($1, $2, 'g')
2670
$_$;
2671
2672
2673
--
2674 12333 aaronmk
-- Name: regexp_quote(text); Type: FUNCTION; Schema: util; Owner: -
2675
--
2676
2677
CREATE FUNCTION regexp_quote(str text) RETURNS text
2678
    LANGUAGE sql IMMUTABLE
2679
    AS $_$
2680
SELECT regexp_replace($1, '\W', /*\char*/'\\\&', 'g')
2681
$_$;
2682
2683
2684
--
2685 12375 aaronmk
-- Name: regprocedure(text); Type: FUNCTION; Schema: util; Owner: -
2686
--
2687
2688
CREATE FUNCTION regprocedure(func text) RETURNS regprocedure
2689
    LANGUAGE sql IMMUTABLE
2690
    AS $_$
2691
SELECT (CASE WHEN right($1, 1) = ')'
2692 12377 aaronmk
THEN $1::regprocedure ELSE $1::regproc::regprocedure END)
2693 12375 aaronmk
$_$;
2694
2695
2696
--
2697 12344 aaronmk
-- Name: relation_type(regclass); Type: FUNCTION; Schema: util; Owner: -
2698
--
2699
2700
CREATE FUNCTION relation_type(relation regclass) RETURNS text
2701
    LANGUAGE sql STABLE
2702
    AS $_$
2703
SELECT util.relation_type(util.relation_type_char($1))
2704
$_$;
2705
2706
2707
--
2708 12340 aaronmk
-- Name: relation_type("char"); Type: FUNCTION; Schema: util; Owner: -
2709 12339 aaronmk
--
2710
2711 12340 aaronmk
CREATE FUNCTION relation_type(relation_type_char "char") RETURNS text
2712 12339 aaronmk
    LANGUAGE sql IMMUTABLE
2713
    AS $_$
2714 12593 aaronmk
SELECT 'c=>TYPE, r=>TABLE, v=>VIEW'::hstore -> $1
2715 12339 aaronmk
$_$;
2716
2717
2718
--
2719 12588 aaronmk
-- Name: relation_type(regtype); Type: FUNCTION; Schema: util; Owner: -
2720
--
2721
2722
CREATE FUNCTION relation_type(type regtype) RETURNS text
2723
    LANGUAGE sql IMMUTABLE
2724
    AS $$
2725
SELECT 'TYPE'::text
2726
$$;
2727
2728
2729
--
2730 12341 aaronmk
-- Name: relation_type_char(regclass); Type: FUNCTION; Schema: util; Owner: -
2731
--
2732
2733
CREATE FUNCTION relation_type_char(relation regclass) RETURNS "char"
2734
    LANGUAGE sql STABLE
2735
    AS $_$
2736
SELECT relkind FROM pg_class WHERE oid = $1
2737
$_$;
2738
2739
2740
--
2741 12293 aaronmk
-- Name: remake_diff_table(text, regclass, regclass, text); Type: FUNCTION; Schema: util; Owner: -
2742
--
2743
2744
CREATE FUNCTION remake_diff_table(diff_table text, left_table regclass, right_table regclass, type_table text) RETURNS void
2745
    LANGUAGE sql
2746
    AS $_$
2747
/* can't have in_table/out_table inherit from *each other*, because inheritance
2748
also causes the rows of the parent table to be included in the child table.
2749
instead, they need to inherit from a common, empty table. */
2750 12382 aaronmk
SELECT util.create_if_not_exists($$SELECT $$||util.quote_func_call(
2751
'util.copy_struct', util.quote_typed($2), util.quote_typed($4)));
2752 12293 aaronmk
SELECT util.inherit($2, $4);
2753
SELECT util.inherit($3, $4);
2754
2755
SELECT util.rematerialize_query($1, $$
2756
SELECT * FROM util.diff(
2757 12419 aaronmk
  $$||util.quote_typed($2)||$$
2758
, $$||util.quote_typed($3)||$$
2759 12293 aaronmk
, NULL::$$||$4||$$)
2760
$$);
2761 12303 aaronmk
2762
/* the table unfortunately cannot be *materialized* in human-readable form,
2763
because this would create column name collisions between the two sides */
2764 12495 aaronmk
SELECT util.prepend_comment($1, '
2765 12303 aaronmk
to view this table in human-readable form (with each side''s tuple column
2766
expanded to its component fields):
2767 12572 aaronmk
SELECT (left_).*, ('||util.schema($4::regclass)||'.values_(right_)).* FROM '||$1||';
2768 12303 aaronmk
');
2769 12293 aaronmk
$_$;
2770
2771
2772
--
2773
-- Name: FUNCTION remake_diff_table(diff_table text, left_table regclass, right_table regclass, type_table text); Type: COMMENT; Schema: util; Owner: -
2774
--
2775
2776
COMMENT ON FUNCTION remake_diff_table(diff_table text, left_table regclass, right_table regclass, type_table text) IS '
2777
type_table (*required*): table to create as the shared base type
2778
';
2779
2780
2781
--
2782 12265 aaronmk
-- Name: rematerialize_query(text, text); Type: FUNCTION; Schema: util; Owner: -
2783
--
2784
2785
CREATE FUNCTION rematerialize_query(table_esc text, sql text) RETURNS void
2786
    LANGUAGE sql
2787
    AS $_$
2788
SELECT util.drop_table($1);
2789
SELECT util.materialize_query($1, $2);
2790
$_$;
2791
2792
2793
--
2794
-- Name: FUNCTION rematerialize_query(table_esc text, sql text); Type: COMMENT; Schema: util; Owner: -
2795
--
2796
2797
COMMENT ON FUNCTION rematerialize_query(table_esc text, sql text) IS '
2798
idempotent, but repeats action each time
2799
';
2800
2801
2802
--
2803 12247 aaronmk
-- Name: rematerialize_view(text, regclass); Type: FUNCTION; Schema: util; Owner: -
2804
--
2805
2806 12262 aaronmk
CREATE FUNCTION rematerialize_view(table_esc text, view_ regclass) RETURNS void
2807 12247 aaronmk
    LANGUAGE sql
2808
    AS $_$
2809
SELECT util.drop_table($1);
2810
SELECT util.materialize_view($1, $2);
2811
$_$;
2812
2813
2814
--
2815 12262 aaronmk
-- Name: FUNCTION rematerialize_view(table_esc text, view_ regclass); Type: COMMENT; Schema: util; Owner: -
2816 12247 aaronmk
--
2817
2818 12262 aaronmk
COMMENT ON FUNCTION rematerialize_view(table_esc text, view_ regclass) IS '
2819 12247 aaronmk
idempotent, but repeats action each time
2820
';
2821
2822
2823
--
2824 8183 aaronmk
-- Name: rename_cols(regclass, anyelement); Type: FUNCTION; Schema: util; Owner: -
2825 8137 aaronmk
--
2826
2827 8148 aaronmk
CREATE FUNCTION rename_cols(table_ regclass, renames anyelement) RETURNS void
2828 12446 aaronmk
    LANGUAGE sql
2829 8137 aaronmk
    AS $_$
2830 8212 aaronmk
SELECT util.try_create($$ALTER TABLE $$||$1||$$ RENAME $$
2831 8137 aaronmk
||quote_ident(name)||$$ TO $$||quote_ident($2 -> name))
2832 10309 aaronmk
FROM util.col_names($1::text::regtype) f (name);
2833
SELECT NULL::void; -- don't fold away functions called in previous query
2834 8137 aaronmk
$_$;
2835
2836
2837
--
2838 8183 aaronmk
-- Name: FUNCTION rename_cols(table_ regclass, renames anyelement); Type: COMMENT; Schema: util; Owner: -
2839 8137 aaronmk
--
2840
2841 12235 aaronmk
COMMENT ON FUNCTION rename_cols(table_ regclass, renames anyelement) IS '
2842
idempotent
2843
';
2844 8137 aaronmk
2845
2846
--
2847 12349 aaronmk
-- Name: rename_relation(regclass, text); Type: FUNCTION; Schema: util; Owner: -
2848
--
2849
2850
CREATE FUNCTION rename_relation(from_ regclass, to_ text) RETURNS void
2851
    LANGUAGE sql
2852
    AS $_$
2853 12353 aaronmk
/* use util.qual_name() instead of ::text so that the schema qualifier is always
2854
included in the debug SQL */
2855
SELECT util.rename_relation(util.qual_name($1), $2)
2856 12349 aaronmk
$_$;
2857
2858
2859
--
2860
-- Name: rename_relation(text, text); Type: FUNCTION; Schema: util; Owner: -
2861
--
2862
2863 12364 aaronmk
CREATE FUNCTION rename_relation(from_esc text, to_name text) RETURNS void
2864 12349 aaronmk
    LANGUAGE sql
2865
    AS $_$
2866
/* 'ALTER TABLE can be used with views too'
2867
(http://www.postgresql.org/docs/9.3/static/sql-alterview.html) */
2868 12363 aaronmk
SELECT util.eval($$ALTER TABLE IF EXISTS $$||$1||$$ RENAME TO $$
2869
||quote_ident($2))
2870 12349 aaronmk
$_$;
2871
2872
2873
--
2874 12364 aaronmk
-- Name: FUNCTION rename_relation(from_esc text, to_name text); Type: COMMENT; Schema: util; Owner: -
2875 12349 aaronmk
--
2876
2877 12364 aaronmk
COMMENT ON FUNCTION rename_relation(from_esc text, to_name text) IS '
2878 12349 aaronmk
idempotent
2879
';
2880
2881
2882
--
2883 12358 aaronmk
-- Name: replace_suffix(text, text, text, integer); Type: FUNCTION; Schema: util; Owner: -
2884 12350 aaronmk
--
2885
2886 12358 aaronmk
CREATE FUNCTION replace_suffix(str text, old_suffix text, new_suffix text, max_prefix_len integer DEFAULT 0) RETURNS text
2887 12350 aaronmk
    LANGUAGE sql IMMUTABLE
2888
    AS $_$
2889 12358 aaronmk
SELECT regexp_replace($1, util.truncated_prefixed_name_regexp($2, $4), '\1'||$3)
2890 12350 aaronmk
$_$;
2891
2892
2893
--
2894 12358 aaronmk
-- Name: FUNCTION replace_suffix(str text, old_suffix text, new_suffix text, max_prefix_len integer); Type: COMMENT; Schema: util; Owner: -
2895
--
2896
2897
COMMENT ON FUNCTION replace_suffix(str text, old_suffix text, new_suffix text, max_prefix_len integer) IS '
2898
max_prefix_len: when str may have been truncated (eg. as a table name) due to the prepending of a prefix, support prefixes up to this length
2899
';
2900
2901
2902
--
2903 10297 aaronmk
-- Name: reset_col_names(regclass, regclass); Type: FUNCTION; Schema: util; Owner: -
2904
--
2905
2906
CREATE FUNCTION reset_col_names(table_ regclass, names regclass) RETURNS void
2907 12446 aaronmk
    LANGUAGE sql
2908 10297 aaronmk
    AS $_$
2909 10596 aaronmk
SELECT util.eval($$DELETE FROM $$||$2||$$ WHERE "from" LIKE ':%'$$);
2910
SELECT util.mk_derived_col(($2, 'to'), $$"from"$$, overwrite := true);
2911 10297 aaronmk
SELECT util.set_col_names($1, $2);
2912
$_$;
2913
2914
2915
--
2916
-- Name: FUNCTION reset_col_names(table_ regclass, names regclass); Type: COMMENT; Schema: util; Owner: -
2917
--
2918
2919 12235 aaronmk
COMMENT ON FUNCTION reset_col_names(table_ regclass, names regclass) IS '
2920
idempotent.
2921
alters the names table, so it will need to be repopulated after running this function.
2922
';
2923 10297 aaronmk
2924
2925
--
2926 8183 aaronmk
-- Name: reset_map_table(text); Type: FUNCTION; Schema: util; Owner: -
2927 8143 aaronmk
--
2928
2929
CREATE FUNCTION reset_map_table(table_ text) RETURNS void
2930 12446 aaronmk
    LANGUAGE sql
2931 8143 aaronmk
    AS $_$
2932 10152 aaronmk
SELECT util.drop_table($1);
2933 8183 aaronmk
SELECT util.mk_map_table($1);
2934 8143 aaronmk
$_$;
2935
2936
2937
--
2938 12356 aaronmk
-- Name: rtrim_n(text, integer); Type: FUNCTION; Schema: util; Owner: -
2939
--
2940
2941
CREATE FUNCTION rtrim_n(str text, count integer) RETURNS text
2942
    LANGUAGE sql IMMUTABLE
2943
    AS $_$
2944
SELECT (CASE WHEN $2 <= 0 THEN $1 ELSE left($1, -$2) END)
2945
$_$;
2946
2947
2948
--
2949 12473 aaronmk
-- Name: runnable_sql(text); Type: FUNCTION; Schema: util; Owner: -
2950
--
2951
2952
CREATE FUNCTION runnable_sql(sql text) RETURNS text
2953
    LANGUAGE sql IMMUTABLE
2954
    AS $_$
2955 12481 aaronmk
SELECT (CASE WHEN util.is_set_stmt($1) THEN ''
2956
ELSE util.mk_set_search_path(for_printing := true)||$$;
2957
$$ END)||$1
2958 12473 aaronmk
$_$;
2959
2960
2961
--
2962 11652 aaronmk
-- Name: save_drop_view(text); Type: FUNCTION; Schema: util; Owner: -
2963
--
2964
2965
CREATE FUNCTION save_drop_view(view_ text) RETURNS text
2966
    LANGUAGE plpgsql STRICT
2967
    AS $_$
2968
DECLARE
2969
	result text = NULL;
2970
BEGIN
2971
	BEGIN
2972
		result = util.show_create_view(view_);
2973
		PERFORM util.eval($$DROP VIEW $$||view_);
2974
	EXCEPTION
2975
		WHEN undefined_table THEN NULL;
2976
	END;
2977
	RETURN result;
2978
END;
2979
$_$;
2980
2981
2982
--
2983 11660 aaronmk
-- Name: save_drop_views(text[]); Type: FUNCTION; Schema: util; Owner: -
2984
--
2985
2986
CREATE FUNCTION save_drop_views(views text[]) RETURNS text
2987
    LANGUAGE sql
2988
    AS $_$
2989 12269 aaronmk
SELECT string_agg(util.save_drop_view(unnest), '') FROM unnest($1)
2990 11660 aaronmk
$_$;
2991
2992
2993
--
2994 12244 aaronmk
-- Name: schema(oid); Type: FUNCTION; Schema: util; Owner: -
2995
--
2996
2997
CREATE FUNCTION schema(pg_namespace_oid oid) RETURNS text
2998
    LANGUAGE sql STABLE
2999
    AS $_$
3000
SELECT nspname::text FROM pg_namespace WHERE pg_namespace.oid = $1
3001
$_$;
3002
3003
3004
--
3005 12242 aaronmk
-- Name: schema(regclass); Type: FUNCTION; Schema: util; Owner: -
3006
--
3007
3008
CREATE FUNCTION schema(table_ regclass) RETURNS text
3009
    LANGUAGE sql STABLE
3010
    AS $_$
3011 12245 aaronmk
SELECT util.schema(relnamespace) FROM pg_class WHERE oid = $1
3012 12242 aaronmk
$_$;
3013
3014
3015
--
3016 10794 aaronmk
-- Name: schema(regtype); Type: FUNCTION; Schema: util; Owner: -
3017
--
3018
3019
CREATE FUNCTION schema(type regtype) RETURNS text
3020
    LANGUAGE sql STABLE
3021
    AS $_$
3022 12245 aaronmk
SELECT util.schema(typnamespace) FROM pg_type WHERE oid = $1
3023 10794 aaronmk
$_$;
3024
3025
3026
--
3027
-- Name: schema(anyelement); Type: FUNCTION; Schema: util; Owner: -
3028
--
3029
3030
CREATE FUNCTION schema(type_null anyelement) RETURNS text
3031
    LANGUAGE sql STABLE
3032
    AS $_$
3033
SELECT util.schema(pg_typeof($1))
3034
$_$;
3035
3036
3037
--
3038 12134 aaronmk
-- Name: schema_bundle_get_schemas(text); Type: FUNCTION; Schema: util; Owner: -
3039
--
3040
3041
CREATE FUNCTION schema_bundle_get_schemas(schema_bundle text) RETURNS SETOF text
3042
    LANGUAGE sql STABLE
3043
    AS $_$
3044
SELECT nspname::text FROM pg_namespace WHERE nspname ~ ('^'||$1||'(?=\y|_)')
3045
$_$;
3046
3047
3048
--
3049 12135 aaronmk
-- Name: FUNCTION schema_bundle_get_schemas(schema_bundle text); Type: COMMENT; Schema: util; Owner: -
3050
--
3051
3052 12235 aaronmk
COMMENT ON FUNCTION schema_bundle_get_schemas(schema_bundle text) IS '
3053
a schema bundle is a group of schemas with a common prefix
3054
';
3055 12135 aaronmk
3056
3057
--
3058
-- Name: schema_bundle_rename(text, text); Type: FUNCTION; Schema: util; Owner: -
3059
--
3060
3061
CREATE FUNCTION schema_bundle_rename(old text, new text) RETURNS void
3062
    LANGUAGE sql
3063
    AS $_$
3064
SELECT util.schema_rename(old_schema,
3065
	overlay(old_schema placing new from 1 for length(old))) -- replace prefix
3066
FROM util.schema_bundle_get_schemas($1) f (old_schema);
3067
SELECT NULL::void; -- don't fold away functions called in previous query
3068
$_$;
3069
3070
3071
--
3072
-- Name: schema_bundle_replace(text, text); Type: FUNCTION; Schema: util; Owner: -
3073
--
3074
3075
CREATE FUNCTION schema_bundle_replace(replace text, with_ text) RETURNS void
3076
    LANGUAGE plpgsql
3077
    AS $$
3078
BEGIN
3079
	-- don't schema_bundle_rm() the schema_bundle to keep!
3080
	IF replace = with_ THEN RETURN; END IF;
3081
3082
	PERFORM util.schema_bundle_rm(replace);
3083
	PERFORM util.schema_bundle_rename(with_, replace);
3084
END;
3085
$$;
3086
3087
3088
--
3089
-- Name: schema_bundle_rm(text); Type: FUNCTION; Schema: util; Owner: -
3090
--
3091
3092
CREATE FUNCTION schema_bundle_rm(schema_bundle text) RETURNS void
3093
    LANGUAGE sql
3094
    AS $_$
3095
SELECT util.schema_rm(schema)
3096
FROM util.schema_bundle_get_schemas($1) f (schema);
3097
SELECT NULL::void; -- don't fold away functions called in previous query
3098
$_$;
3099
3100
3101
--
3102 12238 aaronmk
-- Name: schema_esc(anyelement); Type: FUNCTION; Schema: util; Owner: -
3103 10795 aaronmk
--
3104
3105 12238 aaronmk
CREATE FUNCTION schema_esc(type_null anyelement) RETURNS text
3106 10795 aaronmk
    LANGUAGE sql STABLE
3107
    AS $_$
3108
SELECT quote_ident(util.schema($1))
3109
$_$;
3110
3111
3112
--
3113 12324 aaronmk
-- Name: schema_matches(text, text); Type: FUNCTION; Schema: util; Owner: -
3114
--
3115
3116
CREATE FUNCTION schema_matches(schema text, schema_regexp text) RETURNS boolean
3117 12334 aaronmk
    LANGUAGE sql IMMUTABLE
3118 12324 aaronmk
    AS $_$
3119
SELECT $1 ~ $2 AND /*in userspace*/$1 !~ '^(?:information_schema|pg_.*)$'
3120
$_$;
3121
3122
3123
--
3124 12304 aaronmk
-- Name: schema_oid(text); Type: FUNCTION; Schema: util; Owner: -
3125
--
3126
3127
CREATE FUNCTION schema_oid(schema text) RETURNS oid
3128
    LANGUAGE sql STABLE
3129
    AS $_$
3130
SELECT oid FROM pg_namespace WHERE nspname = $1
3131
$_$;
3132
3133
3134
--
3135 12504 aaronmk
-- Name: schema_regexp(regclass); Type: FUNCTION; Schema: util; Owner: -
3136
--
3137
3138
CREATE FUNCTION schema_regexp(relation regclass) RETURNS text
3139
    LANGUAGE sql IMMUTABLE
3140
    AS $_$
3141
SELECT util.schema_regexp(schema_anchor := $1)
3142
$_$;
3143
3144
3145
--
3146 12501 aaronmk
-- Name: schema_regexp(anyelement); Type: FUNCTION; Schema: util; Owner: -
3147
--
3148
3149
CREATE FUNCTION schema_regexp(schema_anchor anyelement) RETURNS text
3150
    LANGUAGE sql IMMUTABLE
3151
    AS $_$
3152
SELECT util.str_equality_regexp(util.schema($1))
3153
$_$;
3154
3155
3156
--
3157 12132 aaronmk
-- Name: schema_rename(text, text); Type: FUNCTION; Schema: util; Owner: -
3158
--
3159
3160
CREATE FUNCTION schema_rename(old text, new text) RETURNS void
3161
    LANGUAGE sql
3162
    AS $_$
3163
SELECT util.eval($$ALTER SCHEMA $$||quote_ident($1)||$$ RENAME TO $$||quote_ident($2));
3164
$_$;
3165
3166
3167
--
3168 12133 aaronmk
-- Name: schema_replace(text, text); Type: FUNCTION; Schema: util; Owner: -
3169
--
3170
3171
CREATE FUNCTION schema_replace(replace text, with_ text) RETURNS void
3172
    LANGUAGE plpgsql
3173
    AS $$
3174
BEGIN
3175
	-- don't schema_rm() the schema to keep!
3176
	IF replace = with_ THEN RETURN; END IF;
3177
3178
	PERFORM util.schema_rm(replace);
3179
	PERFORM util.schema_rename(with_, replace);
3180
END;
3181
$$;
3182
3183
3184
--
3185 12132 aaronmk
-- Name: schema_rm(text); Type: FUNCTION; Schema: util; Owner: -
3186
--
3187
3188
CREATE FUNCTION schema_rm(schema text) RETURNS void
3189
    LANGUAGE sql
3190
    AS $_$
3191
SELECT util.eval($$DROP SCHEMA IF EXISTS $$||quote_ident($1)||$$ CASCADE$$);
3192
$_$;
3193
3194
3195
--
3196 9825 aaronmk
-- Name: search_path_append(text); Type: FUNCTION; Schema: util; Owner: -
3197
--
3198
3199
CREATE FUNCTION search_path_append(schemas text) RETURNS void
3200 12446 aaronmk
    LANGUAGE sql
3201 9825 aaronmk
    AS $_$
3202
SELECT util.eval(
3203
$$SET search_path TO $$||current_setting('search_path')||$$, $$||$1);
3204
$_$;
3205
3206
3207
--
3208 8183 aaronmk
-- Name: set_col_names(regclass, regclass); Type: FUNCTION; Schema: util; Owner: -
3209 8153 aaronmk
--
3210
3211
CREATE FUNCTION set_col_names(table_ regclass, names regclass) RETURNS void
3212
    LANGUAGE plpgsql STRICT
3213
    AS $_$
3214
DECLARE
3215 8183 aaronmk
    old text[] = ARRAY(SELECT util.col_names(table_));
3216
    new text[] = ARRAY(SELECT util.map_values(names));
3217 8153 aaronmk
BEGIN
3218
    old = old[1:array_length(new, 1)]; -- truncate to same length
3219 10345 aaronmk
    PERFORM util.eval($$ALTER TABLE $$||$1||$$ RENAME $$||quote_ident(key)
3220
||$$ TO $$||quote_ident(value))
3221 10149 aaronmk
    FROM each(hstore(old, new))
3222
    WHERE value != key -- not same name
3223
    ;
3224 8153 aaronmk
END;
3225
$_$;
3226
3227
3228
--
3229 8183 aaronmk
-- Name: FUNCTION set_col_names(table_ regclass, names regclass); Type: COMMENT; Schema: util; Owner: -
3230 8153 aaronmk
--
3231
3232 12235 aaronmk
COMMENT ON FUNCTION set_col_names(table_ regclass, names regclass) IS '
3233
idempotent
3234
';
3235 8153 aaronmk
3236
3237
--
3238 10145 aaronmk
-- Name: set_col_names_with_metadata(regclass, regclass); Type: FUNCTION; Schema: util; Owner: -
3239
--
3240
3241
CREATE FUNCTION set_col_names_with_metadata(table_ regclass, names regclass) RETURNS void
3242
    LANGUAGE plpgsql STRICT
3243
    AS $_$
3244
DECLARE
3245
	row_ util.map;
3246
BEGIN
3247 10715 aaronmk
	-- rename any metadata cols rather than re-adding them with new names
3248
	BEGIN
3249
		PERFORM util.set_col_names(table_, names);
3250
	EXCEPTION
3251
		WHEN array_subscript_error THEN -- selective suppress
3252
			IF SQLERRM LIKE 'arrays must have same bounds' THEN NULL;
3253
				-- metadata cols not yet added
3254 12568 aaronmk
			ELSE RAISE;
3255 10715 aaronmk
			END IF;
3256
	END;
3257
3258 10157 aaronmk
	FOR row_ IN EXECUTE $$SELECT * FROM $$||names||$$ WHERE "from" LIKE ':%'$$
3259 10145 aaronmk
	LOOP
3260 10147 aaronmk
		PERFORM util.mk_const_col((table_, row_."to"),
3261
			substring(row_."from" from 2));
3262 10145 aaronmk
	END LOOP;
3263
3264
	PERFORM util.set_col_names(table_, names);
3265
END;
3266
$_$;
3267
3268
3269
--
3270
-- Name: FUNCTION set_col_names_with_metadata(table_ regclass, names regclass); Type: COMMENT; Schema: util; Owner: -
3271
--
3272
3273 12235 aaronmk
COMMENT ON FUNCTION set_col_names_with_metadata(table_ regclass, names regclass) IS '
3274
idempotent.
3275
the metadata mappings must be *last* in the names table.
3276
';
3277 10145 aaronmk
3278
3279
--
3280 8183 aaronmk
-- Name: set_col_types(regclass, col_cast[]); Type: FUNCTION; Schema: util; Owner: -
3281 8107 aaronmk
--
3282
3283
CREATE FUNCTION set_col_types(table_ regclass, col_casts col_cast[]) RETURNS void
3284
    LANGUAGE plpgsql STRICT
3285
    AS $_$
3286
DECLARE
3287
    sql text = $$ALTER TABLE $$||table_||$$
3288
$$||NULLIF(array_to_string(ARRAY(
3289
    SELECT
3290
    $$ALTER COLUMN $$||col_name_sql||$$ TYPE $$||target_type
3291
    ||$$ USING $$||col_name_sql||$$::$$||target_type
3292
    FROM
3293
    (
3294
        SELECT
3295
          quote_ident(col_name) AS col_name_sql
3296 8183 aaronmk
        , util.col_type((table_, col_name)) AS curr_type
3297 8107 aaronmk
        , type AS target_type
3298
        FROM unnest(col_casts)
3299
    ) s
3300
    WHERE curr_type != target_type
3301
), '
3302
, '), '');
3303
BEGIN
3304 12251 aaronmk
    PERFORM util.debug_print_sql(sql);
3305 8107 aaronmk
    EXECUTE COALESCE(sql, '');
3306
END;
3307
$_$;
3308
3309
3310
--
3311 8183 aaronmk
-- Name: FUNCTION set_col_types(table_ regclass, col_casts col_cast[]); Type: COMMENT; Schema: util; Owner: -
3312 8107 aaronmk
--
3313
3314 12235 aaronmk
COMMENT ON FUNCTION set_col_types(table_ regclass, col_casts col_cast[]) IS '
3315
idempotent
3316
';
3317 8107 aaronmk
3318
3319
--
3320 12302 aaronmk
-- Name: set_comment(regclass, text); Type: FUNCTION; Schema: util; Owner: -
3321
--
3322
3323
CREATE FUNCTION set_comment(table_ regclass, comment text) RETURNS void
3324 12446 aaronmk
    LANGUAGE sql
3325 12302 aaronmk
    AS $_$
3326
SELECT util.eval($$COMMENT ON TABLE $$||$1||$$ IS $$||quote_nullable($2))
3327
$_$;
3328
3329
3330
--
3331 12482 aaronmk
-- Name: set_search_path(text, boolean); Type: FUNCTION; Schema: util; Owner: -
3332
--
3333
3334
CREATE FUNCTION set_search_path(search_path text, for_session boolean DEFAULT false) RETURNS void
3335
    LANGUAGE sql
3336
    AS $_$
3337
SELECT util.eval(util.mk_set_search_path($1, $2))
3338
$_$;
3339
3340
3341
--
3342 11651 aaronmk
-- Name: show_create_view(regclass); Type: FUNCTION; Schema: util; Owner: -
3343
--
3344
3345
CREATE FUNCTION show_create_view(view_ regclass) RETURNS text
3346
    LANGUAGE sql STABLE
3347
    AS $_$
3348 11656 aaronmk
SELECT $$CREATE OR REPLACE VIEW $$||$1||$$ AS $$||pg_get_viewdef($1)||$$;
3349
$$||util.show_grants_for($1)
3350 11651 aaronmk
$_$;
3351
3352
3353
--
3354 11655 aaronmk
-- Name: show_grants_for(regclass); Type: FUNCTION; Schema: util; Owner: -
3355
--
3356
3357
CREATE FUNCTION show_grants_for(table_ regclass) RETURNS text
3358
    LANGUAGE sql STABLE
3359
    AS $_$
3360 12269 aaronmk
SELECT string_agg(cmd, '')
3361 11655 aaronmk
FROM
3362
(
3363
	SELECT (CASE WHEN has_table_privilege(user_, $1, 'SELECT') THEN
3364
$$GRANT SELECT ON TABLE $$||$1||$$ TO $$||quote_ident(user_)||$$;
3365
$$ ELSE '' END) AS cmd
3366
	FROM util.grants_users() f (user_)
3367
) s
3368
$_$;
3369
3370
3371
--
3372 12325 aaronmk
-- Name: show_relations_like(text, text, character[]); Type: FUNCTION; Schema: util; Owner: -
3373
--
3374
3375
CREATE FUNCTION show_relations_like(name_regexp text, schema_regexp text DEFAULT ''::text, types character[] DEFAULT ARRAY['r'::text, 'v'::text]) RETURNS SETOF regclass
3376
    LANGUAGE sql STABLE
3377
    AS $_$
3378
SELECT oid FROM pg_class
3379
WHERE relkind = ANY($3) AND relname ~ $1
3380
AND util.schema_matches(util.schema(relnamespace), $2)
3381
ORDER BY relname
3382
$_$;
3383
3384
3385
--
3386 12592 aaronmk
-- Name: show_types_like(text, text); Type: FUNCTION; Schema: util; Owner: -
3387
--
3388
3389
CREATE FUNCTION show_types_like(name_regexp text DEFAULT ''::text, schema_regexp text DEFAULT ''::text) RETURNS SETOF regtype
3390
    LANGUAGE sql STABLE
3391
    AS $_$
3392
SELECT oid
3393
FROM pg_type
3394
WHERE typname ~ $1 AND util.schema_matches(util.schema(typnamespace), $2)
3395
ORDER BY typname
3396
$_$;
3397
3398
3399
--
3400 12305 aaronmk
-- Name: show_views_like(text, text); Type: FUNCTION; Schema: util; Owner: -
3401
--
3402
3403 12385 aaronmk
CREATE FUNCTION show_views_like(name_regexp text, schema_regexp text DEFAULT ''::text) RETURNS SETOF regclass
3404 12305 aaronmk
    LANGUAGE sql STABLE
3405
    AS $_$
3406 12385 aaronmk
SELECT * FROM util.show_relations_like($1, $2, ARRAY['v'])
3407 12305 aaronmk
$_$;
3408
3409
3410
--
3411 12384 aaronmk
-- Name: str_equality_regexp(text); Type: FUNCTION; Schema: util; Owner: -
3412
--
3413
3414
CREATE FUNCTION str_equality_regexp(literal text) RETURNS text
3415
    LANGUAGE sql IMMUTABLE
3416
    AS $_$
3417
SELECT '^'||util.regexp_quote($1)||'$'
3418
$_$;
3419
3420
3421
--
3422 8183 aaronmk
-- Name: table2hstore(regclass); Type: FUNCTION; Schema: util; Owner: -
3423 8144 aaronmk
--
3424
3425
CREATE FUNCTION table2hstore(table_ regclass) RETURNS hstore
3426 8145 aaronmk
    LANGUAGE plpgsql STABLE STRICT
3427 8144 aaronmk
    AS $_$
3428
DECLARE
3429
    hstore hstore;
3430
BEGIN
3431
    EXECUTE $$SELECT hstore(ARRAY(SELECT unnest(ARRAY["from", "to"]) FROM $$||
3432
        table_||$$))$$ INTO STRICT hstore;
3433
    RETURN hstore;
3434
END;
3435
$_$;
3436
3437
3438
--
3439 10184 aaronmk
-- Name: table_flag__get(regclass, text); Type: FUNCTION; Schema: util; Owner: -
3440
--
3441
3442
CREATE FUNCTION table_flag__get(table_ regclass, flag text) RETURNS boolean
3443 12446 aaronmk
    LANGUAGE sql STABLE
3444 10184 aaronmk
    AS $_$
3445
SELECT COUNT(*) > 0 FROM pg_constraint
3446
WHERE conrelid = $1 AND contype = 'c' AND conname = $2
3447
$_$;
3448
3449
3450
--
3451
-- Name: FUNCTION table_flag__get(table_ regclass, flag text); Type: COMMENT; Schema: util; Owner: -
3452
--
3453
3454 12235 aaronmk
COMMENT ON FUNCTION table_flag__get(table_ regclass, flag text) IS '
3455
gets whether a status flag is set by the presence of a table constraint
3456
';
3457 10184 aaronmk
3458
3459
--
3460 10182 aaronmk
-- Name: table_flag__set(regclass, text); Type: FUNCTION; Schema: util; Owner: -
3461
--
3462
3463
CREATE FUNCTION table_flag__set(table_ regclass, flag text) RETURNS void
3464 12446 aaronmk
    LANGUAGE sql
3465 10182 aaronmk
    AS $_$
3466
SELECT util.create_if_not_exists($$ALTER TABLE $$||$1||$$ ADD CONSTRAINT $$
3467
||quote_ident($2)||$$ CHECK (true)$$)
3468
$_$;
3469
3470
3471
--
3472
-- Name: FUNCTION table_flag__set(table_ regclass, flag text); Type: COMMENT; Schema: util; Owner: -
3473
--
3474
3475 12235 aaronmk
COMMENT ON FUNCTION table_flag__set(table_ regclass, flag text) IS '
3476
stores a status flag by the presence of a table constraint.
3477
idempotent.
3478
';
3479 10182 aaronmk
3480
3481
--
3482 10185 aaronmk
-- Name: table_nulls_mapped__get(regclass); Type: FUNCTION; Schema: util; Owner: -
3483
--
3484
3485
CREATE FUNCTION table_nulls_mapped__get(table_ regclass) RETURNS boolean
3486 12446 aaronmk
    LANGUAGE sql STABLE
3487 10185 aaronmk
    AS $_$
3488
SELECT util.table_flag__get($1, 'nulls_mapped')
3489
$_$;
3490
3491
3492
--
3493
-- Name: FUNCTION table_nulls_mapped__get(table_ regclass); Type: COMMENT; Schema: util; Owner: -
3494
--
3495
3496 12235 aaronmk
COMMENT ON FUNCTION table_nulls_mapped__get(table_ regclass) IS '
3497
gets whether a table''s NULL-equivalent strings have been replaced with NULL
3498
';
3499 10185 aaronmk
3500
3501
--
3502 10183 aaronmk
-- Name: table_nulls_mapped__set(regclass); Type: FUNCTION; Schema: util; Owner: -
3503
--
3504
3505
CREATE FUNCTION table_nulls_mapped__set(table_ regclass) RETURNS void
3506 12446 aaronmk
    LANGUAGE sql
3507 10183 aaronmk
    AS $_$
3508
SELECT util.table_flag__set($1, 'nulls_mapped')
3509
$_$;
3510
3511
3512
--
3513
-- Name: FUNCTION table_nulls_mapped__set(table_ regclass); Type: COMMENT; Schema: util; Owner: -
3514
--
3515
3516 12235 aaronmk
COMMENT ON FUNCTION table_nulls_mapped__set(table_ regclass) IS '
3517
sets that a table''s NULL-equivalent strings have been replaced with NULL.
3518
idempotent.
3519
';
3520 10183 aaronmk
3521
3522
--
3523 12652 aaronmk
-- Name: to_freq(regclass); Type: FUNCTION; Schema: util; Owner: -
3524
--
3525
3526
CREATE FUNCTION to_freq(table_ regclass) RETURNS void
3527
    LANGUAGE sql
3528
    AS $_$
3529
-- save data before truncating main table
3530
SELECT util.copy_types_and_data($1, 'pg_temp.__copy');
3531
3532
-- repopulate main table w/ copies column
3533
SELECT util.truncate($1);
3534
SELECT util.eval($$ALTER TABLE $$||$1||$$ ADD COLUMN copies bigint NOT NULL$$);
3535
SELECT util.populate_table($1, $$
3536
SELECT (table_).*, copies
3537
FROM (
3538
	SELECT table_, COUNT(*) AS copies
3539
	FROM pg_temp.__copy table_
3540
	GROUP BY table_
3541
) s
3542
$$);
3543
3544
-- delete temp table so it doesn't stay around until end of connection
3545
SELECT util.drop_table('pg_temp.__copy');
3546
$_$;
3547
3548
3549
--
3550 8183 aaronmk
-- Name: to_global_col_names(regclass); Type: FUNCTION; Schema: util; Owner: -
3551 8088 aaronmk
--
3552
3553
CREATE FUNCTION to_global_col_names(table_ regclass) RETURNS void
3554
    LANGUAGE plpgsql STRICT
3555
    AS $_$
3556
DECLARE
3557
    row record;
3558
BEGIN
3559 8183 aaronmk
    FOR row IN SELECT * FROM util.col_global_names(table_::text::regtype)
3560 8088 aaronmk
    LOOP
3561
        IF row.global_name != row.name THEN
3562
            EXECUTE $$ALTER TABLE $$||table_||$$ RENAME $$
3563
                ||quote_ident(row.name)||$$ TO $$||quote_ident(row.global_name);
3564
        END IF;
3565
    END LOOP;
3566
END;
3567
$_$;
3568
3569
3570
--
3571 8183 aaronmk
-- Name: FUNCTION to_global_col_names(table_ regclass); Type: COMMENT; Schema: util; Owner: -
3572 8088 aaronmk
--
3573
3574 12235 aaronmk
COMMENT ON FUNCTION to_global_col_names(table_ regclass) IS '
3575
idempotent
3576
';
3577 8088 aaronmk
3578
3579
--
3580 10365 aaronmk
-- Name: trim(regclass, regclass); Type: FUNCTION; Schema: util; Owner: -
3581
--
3582
3583
CREATE FUNCTION "trim"(table_ regclass, names regclass) RETURNS void
3584 12446 aaronmk
    LANGUAGE sql
3585 10365 aaronmk
    AS $_$
3586 10595 aaronmk
SELECT util.drop_column(($1, col)) FROM util.added_cols($1, $2) f (col);
3587 10365 aaronmk
SELECT NULL::void; -- don't fold away functions called in previous query
3588
$_$;
3589
3590
3591
--
3592
-- Name: FUNCTION "trim"(table_ regclass, names regclass); Type: COMMENT; Schema: util; Owner: -
3593
--
3594
3595 12235 aaronmk
COMMENT ON FUNCTION "trim"(table_ regclass, names regclass) IS '
3596
trims table_ to include only columns in the original data.
3597
idempotent.
3598
';
3599 10365 aaronmk
3600
3601
--
3602 8183 aaronmk
-- Name: truncate(regclass); Type: FUNCTION; Schema: util; Owner: -
3603 8142 aaronmk
--
3604
3605
CREATE FUNCTION truncate(table_ regclass) RETURNS void
3606
    LANGUAGE plpgsql STRICT
3607
    AS $_$
3608
BEGIN
3609
    EXECUTE $$TRUNCATE $$||table_||$$ CASCADE$$;
3610
END;
3611
$_$;
3612
3613
3614
--
3615 8183 aaronmk
-- Name: FUNCTION truncate(table_ regclass); Type: COMMENT; Schema: util; Owner: -
3616 8142 aaronmk
--
3617
3618 12235 aaronmk
COMMENT ON FUNCTION truncate(table_ regclass) IS '
3619
idempotent
3620
';
3621 8142 aaronmk
3622
3623
--
3624 12357 aaronmk
-- Name: truncated_prefixed_name_regexp(text, integer); Type: FUNCTION; Schema: util; Owner: -
3625
--
3626
3627
CREATE FUNCTION truncated_prefixed_name_regexp(name text, max_prefix_len integer) RETURNS text
3628
    LANGUAGE sql IMMUTABLE
3629
    AS $_$
3630 12361 aaronmk
SELECT '^(.*)'||util._if(util.name_was_truncated($1, $2),
3631 12362 aaronmk
util.regexp_quote(util.rtrim_n($1, $2))||'.*', util.regexp_quote($1)) ||'$'
3632 12357 aaronmk
$_$;
3633
3634
3635
--
3636 8199 aaronmk
-- Name: try_create(text); Type: FUNCTION; Schema: util; Owner: -
3637
--
3638
3639
CREATE FUNCTION try_create(sql text) RETURNS void
3640
    LANGUAGE plpgsql STRICT
3641
    AS $$
3642
BEGIN
3643 10146 aaronmk
    PERFORM util.eval(sql);
3644 8199 aaronmk
EXCEPTION
3645 10071 aaronmk
    WHEN wrong_object_type THEN NULL; -- trying to alter a view's columns
3646 8199 aaronmk
    WHEN undefined_column THEN NULL;
3647
    WHEN duplicate_column THEN NULL;
3648
END;
3649
$$;
3650
3651
3652
--
3653
-- Name: FUNCTION try_create(sql text); Type: COMMENT; Schema: util; Owner: -
3654
--
3655
3656 12235 aaronmk
COMMENT ON FUNCTION try_create(sql text) IS '
3657
idempotent
3658
';
3659 8199 aaronmk
3660
3661
--
3662 8209 aaronmk
-- Name: try_mk_derived_col(col_ref, text); Type: FUNCTION; Schema: util; Owner: -
3663
--
3664
3665
CREATE FUNCTION try_mk_derived_col(col col_ref, expr text) RETURNS void
3666 12446 aaronmk
    LANGUAGE sql
3667 8209 aaronmk
    AS $_$
3668
SELECT util.try_create($$SELECT util.mk_derived_col($$||quote_literal($1)||$$, $$||quote_literal($2)||$$)$$)
3669
$_$;
3670
3671
3672
--
3673
-- Name: FUNCTION try_mk_derived_col(col col_ref, expr text); Type: COMMENT; Schema: util; Owner: -
3674
--
3675
3676 12235 aaronmk
COMMENT ON FUNCTION try_mk_derived_col(col col_ref, expr text) IS '
3677
idempotent
3678
';
3679 8209 aaronmk
3680
3681
--
3682 8189 aaronmk
-- Name: type_qual(anyelement); Type: FUNCTION; Schema: util; Owner: -
3683
--
3684
3685
CREATE FUNCTION type_qual(value anyelement) RETURNS text
3686
    LANGUAGE sql IMMUTABLE
3687
    AS $_$
3688
SELECT CASE WHEN $1 IS NULL THEN '' ELSE $$ NOT NULL$$ END
3689
$_$;
3690
3691
3692
--
3693 10161 aaronmk
-- Name: FUNCTION type_qual(value anyelement); Type: COMMENT; Schema: util; Owner: -
3694
--
3695
3696 12235 aaronmk
COMMENT ON FUNCTION type_qual(value anyelement) IS '
3697
a type''s NOT NULL qualifier
3698
';
3699 10161 aaronmk
3700
3701
--
3702 12562 aaronmk
-- Name: typed_cols(regtype); Type: FUNCTION; Schema: util; Owner: -
3703
--
3704
3705
CREATE FUNCTION typed_cols(type regtype) RETURNS SETOF col_cast
3706 12590 aaronmk
    LANGUAGE sql STABLE
3707 12562 aaronmk
    AS $_$
3708
SELECT (attname::text, atttypid)::util.col_cast
3709
FROM pg_attribute
3710
WHERE attrelid = $1::text::regclass AND attnum >= 1 AND NOT attisdropped
3711
ORDER BY attnum
3712
$_$;
3713
3714
3715
--
3716 12438 aaronmk
-- Name: typeof(anyelement); Type: FUNCTION; Schema: util; Owner: -
3717
--
3718
3719
CREATE FUNCTION typeof(value anyelement) RETURNS text
3720
    LANGUAGE sql IMMUTABLE
3721
    AS $_$
3722
SELECT util.qual_name(pg_typeof($1))
3723
$_$;
3724
3725
3726
--
3727 8185 aaronmk
-- Name: typeof(text, regtype); Type: FUNCTION; Schema: util; Owner: -
3728
--
3729
3730 10160 aaronmk
CREATE FUNCTION typeof(expr text, table_ regtype DEFAULT NULL::regtype) RETURNS regtype
3731
    LANGUAGE plpgsql STABLE
3732 8185 aaronmk
    AS $_$
3733
DECLARE
3734
    type regtype;
3735
BEGIN
3736 10160 aaronmk
    EXECUTE $$SELECT pg_typeof($$||expr||$$)$$||
3737
COALESCE($$ FROM (SELECT (NULL::$$||table_||$$).*) _s$$, '') INTO STRICT type;
3738 8185 aaronmk
    RETURN type;
3739
END;
3740
$_$;
3741
3742
3743
--
3744 12490 aaronmk
-- Name: use_schema(anyelement); Type: FUNCTION; Schema: util; Owner: -
3745 12483 aaronmk
--
3746
3747 12490 aaronmk
CREATE FUNCTION use_schema(schema_anchor anyelement) RETURNS void
3748 12483 aaronmk
    LANGUAGE sql
3749
    AS $_$
3750 12488 aaronmk
SELECT util.set_search_path(util.mk_search_path(util.schema($1)))
3751 12483 aaronmk
$_$;
3752
3753
3754
--
3755 12490 aaronmk
-- Name: FUNCTION use_schema(schema_anchor anyelement); Type: COMMENT; Schema: util; Owner: -
3756 12488 aaronmk
--
3757
3758 12490 aaronmk
COMMENT ON FUNCTION use_schema(schema_anchor anyelement) IS '
3759 12488 aaronmk
auto-appends util to the search_path to enable use of util operators
3760
';
3761
3762
3763
--
3764 9959 aaronmk
-- Name: all_same(anyelement); Type: AGGREGATE; Schema: util; Owner: -
3765
--
3766
3767
CREATE AGGREGATE all_same(anyelement) (
3768
    SFUNC = all_same_transform,
3769
    STYPE = anyarray,
3770
    FINALFUNC = all_same_final
3771
);
3772
3773
3774
--
3775
-- Name: AGGREGATE all_same(anyelement); Type: COMMENT; Schema: util; Owner: -
3776
--
3777
3778 12235 aaronmk
COMMENT ON AGGREGATE all_same(anyelement) IS '
3779
includes NULLs in comparison
3780
';
3781 9959 aaronmk
3782
3783
--
3784 8183 aaronmk
-- Name: join_strs(text, text); Type: AGGREGATE; Schema: util; Owner: -
3785 2595 aaronmk
--
3786
3787
CREATE AGGREGATE join_strs(text, text) (
3788 4052 aaronmk
    SFUNC = join_strs_transform,
3789 4010 aaronmk
    STYPE = text
3790 2595 aaronmk
);
3791
3792
3793 8147 aaronmk
--
3794 12423 aaronmk
-- Name: %==; Type: OPERATOR; Schema: util; Owner: -
3795
--
3796
3797
CREATE OPERATOR %== (
3798
    PROCEDURE = "%==",
3799
    LEFTARG = anyelement,
3800
    RIGHTARG = anyelement
3801
);
3802
3803
3804
--
3805
-- Name: OPERATOR %== (anyelement, anyelement); Type: COMMENT; Schema: util; Owner: -
3806
--
3807
3808
COMMENT ON OPERATOR %== (anyelement, anyelement) IS '
3809
returns whether the map-keys of the compared values are the same
3810
(mnemonic: % is the Perl symbol for a hash map)
3811
3812
should be overridden for types that store both keys and values
3813
3814
used in a FULL JOIN to select which columns to join on
3815
';
3816
3817
3818
--
3819 8183 aaronmk
-- Name: ->; Type: OPERATOR; Schema: util; Owner: -
3820 8147 aaronmk
--
3821
3822
CREATE OPERATOR -> (
3823
    PROCEDURE = map_get,
3824
    LEFTARG = regclass,
3825
    RIGHTARG = text
3826
);
3827
3828
3829 10308 aaronmk
--
3830
-- Name: =>; Type: OPERATOR; Schema: util; Owner: -
3831
--
3832
3833
CREATE OPERATOR => (
3834
    PROCEDURE = hstore,
3835 10357 aaronmk
    LEFTARG = text[],
3836 10608 aaronmk
    RIGHTARG = text
3837 10308 aaronmk
);
3838
3839
3840
--
3841 10608 aaronmk
-- Name: OPERATOR => (text[], text); Type: COMMENT; Schema: util; Owner: -
3842 10308 aaronmk
--
3843
3844 12235 aaronmk
COMMENT ON OPERATOR => (text[], text) IS '
3845
usage: array[''key1'', ...]::text[] => ''value''
3846
';
3847 10308 aaronmk
3848
3849 10391 aaronmk
--
3850 10613 aaronmk
-- Name: ?*>=; Type: OPERATOR; Schema: util; Owner: -
3851
--
3852
3853
CREATE OPERATOR ?*>= (
3854
    PROCEDURE = is_populated_more_often_than,
3855
    LEFTARG = anyelement,
3856
    RIGHTARG = anyelement
3857
);
3858
3859
3860
--
3861 10391 aaronmk
-- Name: ?>=; Type: OPERATOR; Schema: util; Owner: -
3862
--
3863
3864
CREATE OPERATOR ?>= (
3865
    PROCEDURE = is_more_complete_than,
3866
    LEFTARG = anyelement,
3867
    RIGHTARG = anyelement
3868
);
3869
3870
3871 11005 aaronmk
--
3872
-- Name: ||%; Type: OPERATOR; Schema: util; Owner: -
3873
--
3874
3875
CREATE OPERATOR ||% (
3876
    PROCEDURE = concat_esc,
3877
    LEFTARG = text,
3878
    RIGHTARG = text
3879
);
3880
3881
3882
--
3883
-- Name: OPERATOR ||% (text, text); Type: COMMENT; Schema: util; Owner: -
3884
--
3885
3886 12235 aaronmk
COMMENT ON OPERATOR ||% (text, text) IS '
3887
% indicates an identifier, as in Perl hashes and one of the x86 assembler syntaxes for registers
3888
';
3889 11005 aaronmk
3890
3891 2107 aaronmk
--
3892 8183 aaronmk
-- Name: map; Type: TABLE; Schema: util; Owner: -; Tablespace:
3893 8140 aaronmk
--
3894
3895
CREATE TABLE map (
3896
    "from" text NOT NULL,
3897 8158 aaronmk
    "to" text,
3898
    filter text,
3899
    notes text
3900 8140 aaronmk
);
3901
3902
3903
--
3904 11834 aaronmk
-- Data for Name: explain; Type: TABLE DATA; Schema: util; Owner: -
3905
--
3906
3907
3908
3909
--
3910 8183 aaronmk
-- Data for Name: map; Type: TABLE DATA; Schema: util; Owner: -
3911 8140 aaronmk
--
3912
3913
3914
3915
--
3916 10342 aaronmk
-- Name: map__unique__from; Type: CONSTRAINT; Schema: util; Owner: -; Tablespace:
3917 8140 aaronmk
--
3918
3919
ALTER TABLE ONLY map
3920 10342 aaronmk
    ADD CONSTRAINT map__unique__from UNIQUE ("from");
3921 8140 aaronmk
3922
3923
--
3924 10343 aaronmk
-- Name: map__unique__to; Type: CONSTRAINT; Schema: util; Owner: -; Tablespace:
3925
--
3926
3927
ALTER TABLE ONLY map
3928
    ADD CONSTRAINT map__unique__to UNIQUE ("to");
3929
3930
3931
--
3932 10110 aaronmk
-- Name: map_filter_insert; Type: TRIGGER; Schema: util; Owner: -
3933
--
3934
3935
CREATE TRIGGER map_filter_insert BEFORE INSERT ON map FOR EACH ROW EXECUTE PROCEDURE map_filter_insert();
3936
3937
3938
--
3939 2136 aaronmk
-- PostgreSQL database dump complete
3940
--