package octez-protocol-007-PsDELPH1-libs
Octez protocol 007-PsDELPH1 libraries
Install
Dune Dependency
Authors
Maintainers
Sources
tezos-octez-v20.1.tag.bz2
sha256=ddfb5076eeb0b32ac21c1eed44e8fc86a6743ef18ab23fff02d36e365bb73d61
sha512=d22a827df5146e0aa274df48bc2150b098177ff7e5eab52c6109e867eb0a1f0ec63e6bfbb0e3645a6c2112de3877c91a17df32ccbff301891ce4ba630c997a65
doc/src/octez-protocol-007-PsDELPH1-libs.client/managed_contract.ml.html
Source file managed_contract.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73(*****************************************************************************) (* *) (* Open Source License *) (* Copyright (c) 2019 Nomadic Labs <contact@nomadic-labs.com> *) (* *) (* Permission is hereby granted, free of charge, to any person obtaining a *) (* copy of this software and associated documentation files (the "Software"),*) (* to deal in the Software without restriction, including without limitation *) (* the rights to use, copy, modify, merge, publish, distribute, sublicense, *) (* and/or sell copies of the Software, and to permit persons to whom the *) (* Software is furnished to do so, subject to the following conditions: *) (* *) (* The above copyright notice and this permission notice shall be included *) (* in all copies or substantial portions of the Software. *) (* *) (* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR*) (* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, *) (* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL *) (* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER*) (* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING *) (* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER *) (* DEALINGS IN THE SOFTWARE. *) (* *) (*****************************************************************************) open Protocol open Protocol_client_context open Tezos_micheline let get_contract_manager (cctxt : #full) contract = let open Micheline in let open Michelson_v1_primitives in Client_proto_context.get_storage cctxt ~chain:cctxt#chain ~block:cctxt#block contract >>=? function | None -> cctxt#error "This is not a smart contract." | Some storage -> ( match root storage with | Prim (_, D_Pair, [Bytes (_, bytes); _], _) | Bytes (_, bytes) -> ( match Data_encoding.Binary.of_bytes_opt Tezos_crypto.Signature.V0.Public_key_hash.encoding bytes with | Some k -> return k | None -> cctxt#error "Cannot find a manager key in contracts storage (decoding \ bytes failed).\n\ Transfer from scripted contract are currently only supported \ for \"manager\" contract.") | Prim (_, D_Pair, [String (_, value); _], _) | String (_, value) -> ( match Tezos_crypto.Signature.V0.Public_key_hash.of_b58check_opt value with | Some k -> return k | None -> cctxt#error "Cannot find a manager key in contracts storage (\"%s\" is not \ a valid key).\n\ Transfer from scripted contract are currently only supported \ for \"manager\" contract." value) | _raw_storage -> cctxt#error "Cannot find a manager key in contracts storage (wrong storage \ format : @[%a@]).\n\ Transfer from scripted contract are currently only supported for \ \"manager\" contract." Michelson_v1_printer.print_expr storage)