cp sql/ from GNU Taler exchange

include/sql/exchange_do_reserves_in_insert.sql

@@ -0,0 +1,142 @@
+--
+-- This file is part of TALER
+-- Copyright (C) 2014--2024 Taler Systems SA
+--
+-- TALER is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 3, or (at your option) any later version.
+--
+-- TALER is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+-- A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+--
+-- You should have received a copy of the GNU General Public License along with
+-- TALER; see the file COPYING.  If not, see <http://www.gnu.org/licenses/>
+--
+
+
+DROP FUNCTION IF EXISTS exchange_do_array_reserves_insert;
+CREATE FUNCTION exchange_do_array_reserves_insert(
+  IN in_gc_date INT8,
+  IN in_reserve_expiration INT8,
+  IN ina_reserve_pub BYTEA[],
+  IN ina_wire_ref INT8[],
+  IN ina_credit taler_amount[],
+  IN ina_exchange_account_name TEXT[],
+  IN ina_execution_date INT8[],
+  IN ina_wire_source_h_payto BYTEA[],
+  IN ina_h_normalized_payto BYTEA[],
+  IN ina_payto_uri TEXT[],
+  IN ina_notify TEXT[])
+RETURNS SETOF exchange_do_array_reserve_insert_return_type
+LANGUAGE plpgsql
+AS $$
+DECLARE
+  conflict BOOL;
+  dup BOOL;
+  uuid INT8;
+  i INT4;
+  my_is_wallet BOOL;
+  ini_reserve_pub BYTEA;
+  ini_wire_ref INT8;
+  ini_credit taler_amount;
+  ini_exchange_account_name TEXT;
+  ini_execution_date INT8;
+  ini_wire_source_h_payto BYTEA;
+  ini_h_normalized_payto BYTEA;
+  ini_payto_uri TEXT;
+  ini_notify TEXT;
+BEGIN
+
+  FOR i IN 1..array_length(ina_reserve_pub,1)
+  LOOP
+    ini_reserve_pub = ina_reserve_pub[i];
+    ini_wire_ref = ina_wire_ref[i];
+    ini_credit = ina_credit[i];
+    ini_exchange_account_name = ina_exchange_account_name[i];
+    ini_execution_date = ina_execution_date[i];
+    ini_wire_source_h_payto = ina_wire_source_h_payto[i];
+    ini_h_normalized_payto = ina_h_normalized_payto[i];
+    ini_payto_uri = ina_payto_uri[i];
+    ini_notify = ina_notify[i];
+
+--    RAISE WARNING 'Starting loop on %', ini_notify;
+
+    my_is_wallet
+      = (LOWER (SUBSTRING (ini_payto_uri, 22)) =
+         'payto://taler-reserve/') OR
+        (LOWER (SUBSTRING (ini_payto_uri, 27)) =
+         'payto://taler-reserve-http/');
+    INSERT INTO kyc_targets
+      (h_normalized_payto
+      ,is_wallet
+      ) VALUES (
+       ini_h_normalized_payto
+      ,my_is_wallet
+      )
+      ON CONFLICT DO NOTHING;
+    INSERT INTO wire_targets
+      (wire_target_h_payto
+      ,h_normalized_payto
+      ,payto_uri
+      ) VALUES (
+        ini_wire_source_h_payto
+       ,ini_h_normalized_payto
+       ,ini_payto_uri
+      )
+    ON CONFLICT DO NOTHING;
+
+    INSERT INTO reserves
+      (reserve_pub
+      ,current_balance
+      ,expiration_date
+      ,gc_date
+    ) VALUES (
+      ini_reserve_pub
+     ,ini_credit
+     ,in_reserve_expiration
+     ,in_gc_date
+    )
+    ON CONFLICT DO NOTHING
+    RETURNING reserve_uuid
+      INTO uuid;
+    conflict = NOT FOUND;
+
+    INSERT INTO reserves_in
+      (reserve_pub
+      ,wire_reference
+      ,credit
+      ,exchange_account_section
+      ,wire_source_h_payto
+      ,execution_date
+    ) VALUES (
+      ini_reserve_pub
+     ,ini_wire_ref
+     ,ini_credit
+     ,ini_exchange_account_name
+     ,ini_wire_source_h_payto
+     ,ini_execution_date
+    )
+    ON CONFLICT DO NOTHING;
+
+    IF NOT FOUND
+    THEN
+      IF conflict
+      THEN
+        dup = TRUE;
+      else
+        dup = FALSE;
+      END IF;
+    ELSE
+      IF NOT conflict
+      THEN
+        EXECUTE FORMAT (
+          'NOTIFY %s'
+          ,ini_notify);
+      END IF;
+      dup = FALSE;
+    END IF;
+    RETURN NEXT (dup,uuid);
+  END LOOP;
+  RETURN;
+END $$;