70 lines
3.4 KiB
OCaml
70 lines
3.4 KiB
OCaml
(*****************************************************************************)
|
|
(* *)
|
|
(* 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 =
|
|
Clic.switch
|
|
~long:"unique"
|
|
~short:'u'
|
|
~doc:"Fail when there is more than one possible completion."
|
|
()
|
|
|
|
let commands () = Clic.[
|
|
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) ->
|
|
Shell_services.Blocks.Helpers.complete
|
|
cctxt ~block:cctxt#block prefix >>=? fun completions ->
|
|
match completions with
|
|
| [] -> Pervasives.exit 3
|
|
| _ :: _ :: _ when unique -> Pervasives.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) ->
|
|
Monitor_services.bootstrapped cctxt >>=? fun (stream, _) ->
|
|
Lwt_stream.iter_s
|
|
(fun (hash, time) ->
|
|
cctxt#message "Current head: %a (timestamp: %a, validation: %a)"
|
|
Block_hash.pp_short hash
|
|
Time.pp_hum time
|
|
Time.pp_hum (Time.now ())) stream >>= fun () ->
|
|
cctxt#answer "Bootstrapped." >>= fun () ->
|
|
return_unit
|
|
)
|
|
]
|