package octez-shell-libs
Octez shell libraries
Install
Dune Dependency
Authors
Maintainers
Sources
tezos-octez-v20.1.tag.bz2
sha256=ddfb5076eeb0b32ac21c1eed44e8fc86a6743ef18ab23fff02d36e365bb73d61
sha512=d22a827df5146e0aa274df48bc2150b098177ff7e5eab52c6109e867eb0a1f0ec63e6bfbb0e3645a6c2112de3877c91a17df32ccbff301891ce4ba630c997a65
doc/src/octez-shell-libs.client-commands/client_helpers_commands.ml.html
Source file client_helpers_commands.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 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91(*****************************************************************************) (* *) (* Open Source License *) (* Copyright (c) 2018 Dynamic Ledger Solutions, Inc. <contact@tezos.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. *) (* *) (*****************************************************************************) let unique_switch = Tezos_clic.switch ~long:"unique" ~short:'u' ~doc:"Fail when there is more than one possible completion." () let commands () = let open Lwt_result_syntax in let open Tezos_clic in [ command ~desc: "Autocomplete a prefix of Base58Check-encoded hash.\n\ This actually works only for blocks, operations, public key and \ contract identifiers." (args1 unique_switch) (prefixes ["complete"] @@ string ~name:"prefix" ~desc:"the prefix of the hash to complete" @@ stop) (fun unique prefix (cctxt : #Client_context.full) -> let* completions = Shell_services.Blocks.Helpers.complete cctxt ~chain:cctxt#chain ~block:cctxt#block prefix in match completions with | [] -> Stdlib.exit 3 | _ :: _ :: _ when unique -> Stdlib.exit 3 | completions -> List.iter print_endline completions ; return_unit); command ~desc:"Wait for the node to be bootstrapped." no_options (prefixes ["bootstrapped"] @@ stop) (fun () (cctxt : #Client_context.full) -> Client_confirmations.wait_for_bootstrapped cctxt); command ~desc:"Computes the chain id corresponding to a block hash." no_options (prefixes ["compute"; "chain"; "id"; "from"; "block"; "hash"] @@ string ~name:"hash" ~desc:"the block hash from which to compute the chain id" @@ stop) (fun () block_hash_str (cctxt : #Client_context.full) -> let* block_hash = Lwt.return (Block_hash.of_b58check block_hash_str) in let chain_id = Chain_id.of_block_hash block_hash in let*! () = cctxt#message "%a" Chain_id.pp chain_id in return_unit); command ~desc:"Computes a chain id from a seed" no_options (prefixes ["compute"; "chain"; "id"; "from"; "seed"] @@ string ~name:"string" ~desc:"the seed from which to compute the chain id" @@ stop) (fun () seed_str (cctxt : #Client_context.full) -> let chain_id = Chain_id.hash_string [seed_str] in let*! () = cctxt#message "%a" Chain_id.pp chain_id in return_unit); ]