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

rename crockford

Browse source
This commit is contained in:
swrup 2026-03-31 13:28:40 +02:00 • committed by Swrup
parent 34b979a9bc
commit 10df5181a0
14 changed files with 80 additions and 70 deletions
Download patch file Download diff file Expand all files Collapse all files

21
tools/offline.ml
View file

@ -47,25 +47,26 @@ module Arg = struct
Arg.Conv.make ~docv:"amount argument" ~parser:Amount.of_string ~pp:Amount.pp
()
let b32 =
let pp fmt v = Fmt.pf fmt "%s" (B32.encode v) in
Arg.Conv.make ~docv:"Crockford's Base32 encoded argument" ~parser:B32.decode
~pp ()
let crockford =
let pp fmt v = Fmt.pf fmt "%s" (Crockford.encode v) in
Arg.Conv.make ~docv:"Crockford's Base32 encoded argument"
~parser:Crockford.decode ~pp ()
let eddsa_pub =
let pp fmt key =
let s = Eddsa.pub_to_b32 key in
let s = Eddsa.pub_to_crockford key in
Fmt.pf fmt "%s" s
in
Arg.Conv.make ~docv:"eddsa public key argument" ~parser:Eddsa.pub_of_b32 ~pp
()
Arg.Conv.make ~docv:"eddsa public key argument"
~parser:Eddsa.pub_of_crockford ~pp ()
let rsa_pub =
let pp fmt key =
let s = Rsa.pub_to_b32 key in
let s = Rsa.pub_to_crockford key in
Fmt.pf fmt "%s" s
in
Arg.Conv.make ~docv:"rsa public key argument" ~parser:Rsa.pub_of_b32 ~pp ()
Arg.Conv.make ~docv:"rsa public key argument" ~parser:Rsa.pub_of_crockford
~pp ()
end
let master_key =
@ -310,7 +311,7 @@ let drain_cmd =
let credit_payto_uri =
Arg.(required & opt (some string) None & info [ "credit_payto_uri" ])
in
let wtid = Arg.(required & opt (some b32) None & info [ "wtid" ]) in
let wtid = Arg.(required & opt (some crockford) None & info [ "wtid" ]) in
let date = Arg.(required & opt (some timestamp) None & info [ "date" ]) in
let amount = Arg.(required & opt (some amount) None & info [ "amount" ]) in
Cmd.make (Cmd.info "drain" ~doc)