File: json.sql

package info (click to toggle)
plv8 1.4.2.ds-2
  • links: PTS, VCS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 720 kB
  • sloc: cpp: 3,292; sql: 791; makefile: 122; sh: 37
file content (35 lines) | stat: -rw-r--r-- 725 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
CREATE SCHEMA plv8;
CREATE FUNCTION valid_json(json text) RETURNS boolean
LANGUAGE plv8 IMMUTABLE STRICT
AS $$
  try {
    JSON.parse(json);
    return true;
  } catch(e) {
    return false;
  }
$$;

CREATE DOMAIN plv8.json AS text
        CONSTRAINT json_check CHECK (valid_json(VALUE));

CREATE FUNCTION get_key(key text, json_raw text) RETURNS plv8.json
LANGUAGE plv8 IMMUTABLE STRICT
AS $$
  var val = JSON.parse(json_raw)[key];
  var ret = {};
  ret[key] = val;
  return JSON.stringify(ret);
$$;

CREATE TABLE jsononly (
    data plv8.json
);

COPY jsononly (data) FROM stdin;
{"ok": true}
\.

-- Call twice to test the function cache.
SELECT get_key('ok', data) FROM jsononly;
SELECT get_key('ok', data) FROM jsononly;