50 lines
1.7 KiB
OCaml
50 lines
1.7 KiB
OCaml
|
(**************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Copyright (c) 2014 - 2018. *)
|
||
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
||
|
|
(* *)
|
||
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
||
|
|
(* *)
|
||
|
|
(**************************************************************************)
|
||
|
|
|
||
|
|
open Client_keys
|
||
|
|
|
||
|
|
let scheme = "https"
|
||
|
|
|
||
|
|
let title = "..."
|
||
|
|
|
||
|
|
let description = "..."
|
||
|
|
|
||
|
|
let parse uri =
|
||
|
|
let path = String.split '/' (Uri.path uri) in
|
||
|
|
match List.rev path with
|
||
|
|
| [] -> invalid_arg "..."
|
||
|
|
| key :: rev_path ->
|
||
|
|
Lwt.return (Signature.Public_key_hash.of_b58check key) >>=? fun key ->
|
||
|
|
return (Uri.with_path uri (String.concat "/" (List.rev rev_path)),
|
||
|
|
key)
|
||
|
|
|
||
|
|
let public_key uri =
|
||
|
|
parse (uri : pk_uri :> Uri.t) >>=? fun (base, pkh) ->
|
||
|
|
RPC_client.call_service
|
||
|
|
Media_type.all_media_types
|
||
|
|
~base Signer_services.public_key ((), pkh) () ()
|
||
|
|
|
||
|
|
let neuterize uri =
|
||
|
|
return (Client_keys.make_pk_uri (uri : sk_uri :> Uri.t))
|
||
|
|
|
||
|
|
let public_key_hash uri =
|
||
|
|
public_key uri >>=? fun pk ->
|
||
|
|
return (Signature.Public_key.hash pk)
|
||
|
|
|
||
|
|
let sign ?watermark uri msg =
|
||
|
|
parse (uri : sk_uri :> Uri.t) >>=? fun (base, pkh) ->
|
||
|
|
let msg =
|
||
|
|
match watermark with
|
||
|
|
| None -> msg
|
||
|
|
| Some watermark ->
|
||
|
|
MBytes.concat "" [ Signature.bytes_of_watermark watermark ; msg ] in
|
||
|
|
RPC_client.call_service
|
||
|
|
Media_type.all_media_types
|
||
|
|
~base Signer_services.sign ((), pkh) () msg
|