feat: compare_ore_cllw_var_8

Author: tobyhede

src/ore_cllw_var_8/compare.sql

@@ -0,0 +1,54 @@
+-- REQUIRE: src/schema.sql
+-- REQUIRE: src/ore_cllw_u64_8/types.sql
+-- REQUIRE: src/ore_cllw_u64_8/functions.sql
+
+
+CREATE FUNCTION eql_v2.compare_ore_cllw_var_8(a eql_v2_encrypted, b eql_v2_encrypted)
+  RETURNS integer
+  IMMUTABLE STRICT PARALLEL SAFE
+AS $$
+  DECLARE
+    a_term eql_v2.ore_cllw_var_8;
+    b_term eql_v2.ore_cllw_var_8;
+  BEGIN
+
+    -- PERFORM eql_v2.log('eql_v2.compare_ore_cllw_var_8');
+    -- PERFORM eql_v2.log('a', a::text);
+    -- PERFORM eql_v2.log('b', b::text);
+
+    IF a IS NULL AND b IS NULL THEN
+      RETURN 0;
+    END IF;
+
+    IF a IS NULL THEN
+      RETURN -1;
+    END IF;
+
+    IF b IS NULL THEN
+      RETURN 1;
+    END IF;
+
+    IF eql_v2.has_ore_cllw_var_8(a) THEN
+      a_term := eql_v2.ore_cllw_var_8(a);
+    END IF;
+
+    IF eql_v2.has_ore_cllw_var_8(a) THEN
+      b_term := eql_v2.ore_cllw_var_8(b);
+    END IF;
+
+    IF a_term IS NULL AND b_term IS NULL THEN
+      RETURN 0;
+    END IF;
+
+    IF a_term IS NULL THEN
+      RETURN -1;
+    END IF;
+
+    IF b_term IS NULL THEN
+      RETURN 1;
+    END IF;
+
+    RETURN eql_v2.compare_ore_cllw_var_8_term(a_term, b_term);
+  END;
+$$ LANGUAGE plpgsql;
+

src/ore_cllw_var_8/compare_test.sql

@@ -0,0 +1,29 @@
+\set ON_ERROR_STOP on
+
+DO $$
+  DECLARE
+   a eql_v2_encrypted;
+   b eql_v2_encrypted;
+   c eql_v2_encrypted;
+  BEGIN
+
+    -- {"hello": "world{N}"}
+    -- $.hello: d90b97b5207d30fe867ca816ed0fe4a7
+    a := eql_v2.jsonb_path_query(create_encrypted_ste_vec_json(1), 'd90b97b5207d30fe867ca816ed0fe4a7');
+    b := eql_v2.jsonb_path_query(create_encrypted_ste_vec_json(2), 'd90b97b5207d30fe867ca816ed0fe4a7');
+    c := eql_v2.jsonb_path_query(create_encrypted_ste_vec_json(3), 'd90b97b5207d30fe867ca816ed0fe4a7');
+
+    ASSERT eql_v2.compare_ore_cllw_var_8(a, a) = 0;
+    ASSERT eql_v2.compare_ore_cllw_var_8(a, b) = -1;
+    ASSERT eql_v2.compare_ore_cllw_var_8(a, c) = -1;
+
+    ASSERT eql_v2.compare_ore_cllw_var_8(b, b) = 0;
+    ASSERT eql_v2.compare_ore_cllw_var_8(b, a) = 1;
+    ASSERT eql_v2.compare_ore_cllw_var_8(b, c) = -1;
+
+    ASSERT eql_v2.compare_ore_cllw_var_8(c, c) = 0;
+    ASSERT eql_v2.compare_ore_cllw_var_8(c, b) = 1;
+    ASSERT eql_v2.compare_ore_cllw_var_8(c, a) = 1;
+  END;
+$$ LANGUAGE plpgsql;
+

src/ore_cllw_var_8/functions.sql

@@ -62,7 +62,7 @@ AS $$
 $$ LANGUAGE plpgsql;
 
 
-CREATE FUNCTION eql_v2.compare_ore_cllw_var_8(a eql_v2.ore_cllw_var_8, b eql_v2.ore_cllw_var_8)
+CREATE FUNCTION eql_v2.compare_ore_cllw_var_8_term(a eql_v2.ore_cllw_var_8, b eql_v2.ore_cllw_var_8)
 RETURNS int AS $$
 DECLARE
     len_a INT;
@@ -95,8 +95,8 @@ BEGIN
         common_len := len_b;
     END IF;
 
-    -- Use the compare_bytea function to compare byte by byte
-    cmp_result := eql_v2.compare_ore_cllw(
+    -- Use the compare_ore_cllw_term function to compare byte by byte
+    cmp_result := eql_v2.compare_ore_cllw_term_bytes(
       SUBSTRING(a.bytes FROM 1 FOR common_len),
       SUBSTRING(b.bytes FROM 1 FOR common_len)
     );