Initial commit

[postgresql/pg_jsonb_delete_op] / pg_jsonb_delete_op.sql

diff --git a/pg_jsonb_delete_op.sql b/pg_jsonb_delete_op.sql
new file mode 100755 (executable)
index 0000000..7a8ee28
--- /dev/null
+++ b/pg_jsonb_delete_op.sql
@@ -0,0 +1,61 @@
+-- 
+-- Glyn Astill 16/01/2015
+-- Attempt at hstore style delete operator for jsonb
+--
+
+SET search_path = 'public';
+
+CREATE OR REPLACE FUNCTION jsonb_delete_left(a jsonb, b text) 
+RETURNS jsonb AS 
+$BODY$
+    SELECT COALESCE(           
+        (
+            SELECT ('{' || string_agg(to_json(key) || ':' || value, ',') || '}')
+            FROM jsonb_each(a)
+            WHERE NOT ('{"' || key || '":' || value || '}')::jsonb ? b
+        )
+    , '{}')::jsonb;
+$BODY$
+LANGUAGE sql IMMUTABLE STRICT;
+COMMENT ON FUNCTION jsonb_delete_left(jsonb, text[]) IS 'delete key in second argument from first argument';
+
+CREATE OPERATOR - ( PROCEDURE = jsonb_delete_left, LEFTARG = jsonb, RIGHTARG = text);
+COMMENT ON OPERATOR - (jsonb, text[]) IS 'delete key from left operand';
+
+--
+
+CREATE OR REPLACE FUNCTION jsonb_delete_left(a jsonb, b text[]) 
+RETURNS jsonb AS 
+$BODY$
+    SELECT COALESCE(           
+        (
+            SELECT ('{' || string_agg(to_json(key) || ':' || value, ',') || '}')
+            FROM jsonb_each(a)
+            WHERE NOT ('{"' || key || '":' || value || '}')::jsonb ?| b
+        )
+    , '{}')::jsonb;
+$BODY$
+LANGUAGE sql IMMUTABLE STRICT;
+COMMENT ON FUNCTION jsonb_delete_left(jsonb, text[]) IS 'delete keys in second argument from first argument';
+
+CREATE OPERATOR - ( PROCEDURE = jsonb_delete_left, LEFTARG = jsonb, RIGHTARG = text[]);
+COMMENT ON OPERATOR - (jsonb, text[]) IS 'delete keys from left operand';
+
+--
+
+CREATE OR REPLACE FUNCTION jsonb_delete_left(a jsonb, b jsonb) 
+RETURNS jsonb AS 
+$BODY$
+    SELECT COALESCE(           
+        (
+            SELECT ('{' || string_agg(to_json(key) || ':' || value, ',') || '}')
+            FROM jsonb_each(a)
+            WHERE NOT ('{"' || key || '":' || value || '}')::jsonb <@ b
+        )
+    , '{}')::jsonb;
+$BODY$
+LANGUAGE sql IMMUTABLE STRICT;
+COMMENT ON FUNCTION jsonb_delete_left(jsonb, jsonb) IS 'delete matching pairs in second argument from first argument';
+
+CREATE OPERATOR - ( PROCEDURE = jsonb_delete_left, LEFTARG = jsonb, RIGHTARG = jsonb);
+COMMENT ON OPERATOR - (jsonb, jsonb) IS 'delete matching pairs from left operand';