swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2026-02-17 12:48:11 +01:00
parent 73f64e77be
commit 85ac7d2a46
4 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/crypto.ml
View file

@ -269,7 +269,7 @@ type eddsa_sig = EddsaSignature.t
type rsa_priv = RsaPrivateKey.t type rsa_priv = RsaPrivateKey.t
type rsa_pub = RsaPublicKey.t type rsa_pub = RsaPublicKey.t
type rsa_sig = RsaSignature.t type rsa_sig = RsaSignature.t
type denomination_hash = Hash.DenominationHash.t type denom_hash = Hash.DenominationHash.t
(* WIP *) (* WIP *)
module FDH_RSA = struct module FDH_RSA = struct

2
src/denomination.ml
View file

@ -12,7 +12,7 @@ type t = {
fee_refresh: Amount.t; fee_refresh: Amount.t;
fee_refund: Amount.t; fee_refund: Amount.t;
age_mask: int; age_mask: int;
h_pub: denomination_hash; h_pub: denom_hash;
master_sig: Signatures.DenominationKeyValidity.t; master_sig: Signatures.DenominationKeyValidity.t;
revoked_sig: Signatures.MasterDenominationKeyRevocation.t option; revoked_sig: Signatures.MasterDenominationKeyRevocation.t option;
} }

9
src/pg.ml
View file

@ -67,7 +67,7 @@ let insert_signkey =
let find_denom = let find_denom =
let find_denom = let find_denom =
Caqti_type.(denomination_hash ->? denom_data) Caqti_type.(denom_hash ->? denom_data)
"SELECT dn.denom_pub, (dn.coin).*, dn.valid_from, dn.expire_withdraw, \ "SELECT dn.denom_pub, (dn.coin).*, dn.valid_from, dn.expire_withdraw, \
dn.expire_deposit, dn.expire_legal, (dn.fee_withdraw).*, \ dn.expire_deposit, dn.expire_legal, (dn.fee_withdraw).*, \
(dn.fee_deposit).*, (dn.fee_refresh).*, (dn.fee_refund).*, dn.age_mask, \ (dn.fee_deposit).*, (dn.fee_refresh).*, (dn.fee_refund).*, dn.age_mask, \
@ -104,7 +104,7 @@ let insert_denom =
let insert_denomination_revocation = let insert_denomination_revocation =
let denomination_revocation_insert = let denomination_revocation_insert =
let master_sig = Signatures.MasterDenominationKeyRevocation.caqti in let master_sig = Signatures.MasterDenominationKeyRevocation.caqti in
Caqti_type.(t2 denomination_hash master_sig ->. unit) Caqti_type.(t2 denom_hash master_sig ->. unit)
"INSERT INTO denomination_revocations (denominations_serial, master_sig) \ "INSERT INTO denomination_revocations (denominations_serial, master_sig) \
SELECT denominations_serial, $2 FROM denominations WHERE \ SELECT denominations_serial, $2 FROM denominations WHERE \
denom_pub_hash=$1" denom_pub_hash=$1"
@ -168,7 +168,7 @@ let disable_auditor =
let insert_auditor_denom_sig = let insert_auditor_denom_sig =
let insert_auditor_denom_sig = let insert_auditor_denom_sig =
let auditor_sig = Signatures.ExchangeKeyValidity.caqti in let auditor_sig = Signatures.ExchangeKeyValidity.caqti in
Caqti_type.(t3 eddsa_pub denomination_hash auditor_sig ->. unit) Caqti_type.(t3 eddsa_pub denom_hash auditor_sig ->. unit)
"WITH ax AS (SELECT auditor_uuid FROM auditors WHERE auditor_pub=$1) \ "WITH ax AS (SELECT auditor_uuid FROM auditors WHERE auditor_pub=$1) \
INSERT INTO auditor_denom_sigs (auditor_uuid, denominations_serial, \ INSERT INTO auditor_denom_sigs (auditor_uuid, denominations_serial, \
auditor_sig) SELECT ax.auditor_uuid, denominations_serial, $3 FROM \ auditor_sig) SELECT ax.auditor_uuid, denominations_serial, $3 FROM \
@ -185,8 +185,7 @@ let insert_auditor_denom_sig =
let get_auditor_keys = let get_auditor_keys =
let get_auditor_keys = let get_auditor_keys =
let auditor_sig = Signatures.ExchangeKeyValidity.caqti in let auditor_sig = Signatures.ExchangeKeyValidity.caqti in
Caqti_type.( Caqti_type.(unit ->* t5 eddsa_pub string string denom_hash auditor_sig)
unit ->* t5 eddsa_pub string string denomination_hash auditor_sig)
"SELECT a.auditor_pub, a.auditor_url, a.auditor_name, dn.denom_pub_hash, \ "SELECT a.auditor_pub, a.auditor_url, a.auditor_name, dn.denom_pub_hash, \
ads.auditor_sig FROM auditor_denom_sigs AS ads JOIN auditors AS a USING \ ads.auditor_sig FROM auditor_denom_sigs AS ads JOIN auditors AS a USING \
(auditor_uuid) JOIN denominations AS dn USING (denominations_serial) \ (auditor_uuid) JOIN denominations AS dn USING (denominations_serial) \

4
src/pg_type.ml
View file

@ -32,7 +32,7 @@ include struct
let fullpayto_hash = FullPaytoHash.caqti let fullpayto_hash = FullPaytoHash.caqti
let nomalizaedpayto_hash = NormalizedPaytoHash.caqti let nomalizaedpayto_hash = NormalizedPaytoHash.caqti
let denomination_hash = DenominationHash.caqti let denom_hash = DenominationHash.caqti
let privatecontract_hash = PrivateContractHash.caqti let privatecontract_hash = PrivateContractHash.caqti
let extensionspolicy_hash = ExtensionsPolicyHash.caqti let extensionspolicy_hash = ExtensionsPolicyHash.caqti
let merchantwire_hash = MerchantWireHash.caqti let merchantwire_hash = MerchantWireHash.caqti
@ -125,7 +125,7 @@ let denom_data =
revoked_sig; revoked_sig;
}) })
(t12 rsa_pub amount time time time time amount amount amount amount int (t12 rsa_pub amount time time time time amount amount amount amount int
(t3 denomination_hash master_sig revoked_sig)) (t3 denom_hash master_sig revoked_sig))
let account_restrictions = let account_restrictions =
custom custom