cp sql/ from GNU Taler exchange

include/sql/exchange_do_check_deposit_idempotent.sql

@@ -0,0 +1,122 @@
+--
+-- This file is part of TALER
+-- Copyright (C) 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_check_deposit_idempotent;
+CREATE FUNCTION exchange_do_check_deposit_idempotent(
+  -- For batch_deposits
+  IN in_shard INT8,
+  IN in_merchant_pub BYTEA,
+  IN in_wallet_timestamp INT8,
+  IN in_exchange_timestamp INT8,
+  IN in_refund_deadline INT8,
+  IN in_wire_deadline INT8,
+  IN in_h_contract_terms BYTEA,
+  IN in_wallet_data_hash BYTEA, -- can be NULL
+  IN in_wire_salt BYTEA,
+  IN in_wire_target_h_payto BYTEA,
+  IN in_policy_details_serial_id INT8, -- can be NULL
+  IN in_policy_blocked BOOLEAN,
+  -- For coin_deposits
+  IN ina_coin_pub BYTEA[],
+  IN ina_coin_sig BYTEA[],
+  IN ina_amount_with_fee taler_amount[],
+  OUT out_exchange_timestamp INT8,
+  OUT out_is_idempotent BOOL
+ )
+LANGUAGE plpgsql
+AS $$
+DECLARE
+  wtsi INT8; -- wire target serial id
+  bdsi INT8; -- batch_deposits serial id
+  i INT4;
+  ini_amount_with_fee taler_amount;
+  ini_coin_pub BYTEA;
+  ini_coin_sig BYTEA;
+BEGIN
+-- Shards:
+--         SELECT wire_targets (by h_payto);
+--         INSERT batch_deposits (by shard, merchant_pub), ON CONFLICT idempotency check;
+--         PERFORM[] coin_deposits (by coin_pub), ON CONFLICT idempotency check;
+
+out_exchange_timestamp = in_exchange_timestamp;
+
+-- First, get the 'wtsi'
+SELECT wire_target_serial_id
+  INTO wtsi
+  FROM wire_targets
+ WHERE wire_target_h_payto=in_wire_target_h_payto;
+
+IF NOT FOUND
+THEN
+  out_is_idempotent = FALSE;
+  RETURN;
+END IF;
+
+
+-- Idempotency check: see if an identical record exists.
+-- We do select over merchant_pub, h_contract_terms and wire_target_h_payto
+-- first to maximally increase the chance of using the existing index.
+SELECT
+    exchange_timestamp
+   ,batch_deposit_serial_id
+  INTO
+    out_exchange_timestamp
+   ,bdsi
+  FROM batch_deposits
+ WHERE shard=in_shard
+   AND merchant_pub=in_merchant_pub
+   AND h_contract_terms=in_h_contract_terms
+   AND wire_target_h_payto=in_wire_target_h_payto
+   -- now check the rest, too
+   AND ( (wallet_data_hash=in_wallet_data_hash) OR
+         (wallet_data_hash IS NULL AND in_wallet_data_hash IS NULL) )
+   AND wire_salt=in_wire_salt
+   AND wallet_timestamp=in_wallet_timestamp
+   AND refund_deadline=in_refund_deadline
+   AND wire_deadline=in_wire_deadline
+   AND ( (policy_details_serial_id=in_policy_details_serial_id) OR
+         (policy_details_serial_id IS NULL AND in_policy_details_serial_id IS NULL) );
+
+IF NOT FOUND
+THEN
+  out_is_idempotent=FALSE;
+  RETURN;
+END IF;
+
+
+-- Check each coin
+
+FOR i IN 1..array_length(ina_coin_pub,1)
+LOOP
+  ini_coin_pub = ina_coin_pub[i];
+  ini_coin_sig = ina_coin_sig[i];
+  ini_amount_with_fee = ina_amount_with_fee[i];
+
+  PERFORM FROM coin_deposits
+    WHERE batch_deposit_serial_id=bdsi
+      AND coin_pub=ini_coin_pub
+      AND coin_sig=ini_coin_sig
+      AND amount_with_fee=ini_amount_with_fee;
+  IF NOT FOUND
+  THEN
+    out_is_idempotent=FALSE;
+    RETURN;
+  END IF;
+END LOOP; -- end FOR all coins
+
+out_is_idempotent=TRUE;
+
+END $$;