Commit 97efb325 authored by Romain's avatar Romain Committed by Seb Mondet

Protocol: add PsCARTHAGaz

parent 7bd57863
wrap-fun-args=false
let-binding-spacing=compact
field-space=loose
break-separators=after-and-docked
sequence-style=separator
doc-comments=before
margin=80
module-item-spacing=sparse
parens-tuple=always
parens-tuple-patterns=always
break-string-literals=newlines-and-wrap
(executable
(name main_accuser_006_PsCARTHA)
(public_name tezos-accuser-006-PsCARTHA)
(libraries tezos-client-base-unix
tezos-client-commands
tezos-baking-006-PsCARTHA-commands)
(flags (:standard -open Tezos_base__TzPervasives
-open Tezos_protocol_006_PsCARTHA
-open Tezos_client_006_PsCARTHA
-open Tezos_client_commands
-open Tezos_baking_006_PsCARTHA_commands
-open Tezos_stdlib_unix
-open Tezos_client_base_unix)))
(alias
(name runtest_lint)
(deps (glob_files *.ml{,i}))
(action (run %{lib:tezos-tooling:lint.sh} %{deps})))
(*****************************************************************************)
(* *)
(* Open Source License *)
(* Copyright (c) 2018 Dynamic Ledger Solutions, Inc. <[email protected]> *)
(* Copyright (c) 2019 Nomadic Labs, <[email protected]> *)
(* *)
(* 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. *)
(* *)
(*****************************************************************************)
module Log = Internal_event.Legacy_logging.Make (struct
let name = "accuser.main"
end)
let () =
Client_commands.register Protocol.hash
@@ fun _network ->
List.map (Clic.map_command (new Protocol_client_context.wrap_full))
@@ Delegate_commands.accuser_commands ()
let select_commands _ _ =
return
(List.map
(Clic.map_command (new Protocol_client_context.wrap_full))
(Delegate_commands.accuser_commands ()))
let () =
Client_main_run.run
~log:(Log.fatal_error "%s")
(module Client_config)
~select_commands
opam-version: "2.0"
maintainer: "[email protected]"
authors: [ "Tezos devteam" ]
homepage: "https://www.tezos.com/"
bug-reports: "https://gitlab.com/tezos/tezos/issues"
dev-repo: "git+https://gitlab.com/tezos/tezos.git"
license: "MIT"
depends: [
"tezos-tooling" { with-test }
"ocamlfind" { build }
"dune" { >= "1.7" }
"tezos-base"
"tezos-client-006-PsCARTHA"
"tezos-client-commands"
"tezos-baking-006-PsCARTHA-commands"
"tezos-client-base-unix"
]
build: [
["dune" "build" "-p" name "-j" jobs]
["dune" "runtest" "-p" name "-j" jobs] {with-test}
]
synopsis: "Tezos/Protocol: accuser binary"
wrap-fun-args=false
let-binding-spacing=compact
field-space=loose
break-separators=after-and-docked
sequence-style=separator
doc-comments=before
margin=80
module-item-spacing=sparse
parens-tuple=always
parens-tuple-patterns=always
break-string-literals=newlines-and-wrap
(executable
(name main_baker_006_PsCARTHA)
(public_name tezos-baker-006-PsCARTHA)
(libraries tezos-client-base-unix
tezos-client-commands
tezos-baking-006-PsCARTHA-commands)
(flags (:standard -open Tezos_base__TzPervasives
-open Tezos_protocol_006_PsCARTHA
-open Tezos_client_006_PsCARTHA
-open Tezos_client_commands
-open Tezos_baking_006_PsCARTHA_commands
-open Tezos_stdlib_unix
-open Tezos_client_base_unix)))
(alias
(name runtest_lint)
(deps (glob_files *.ml{,i}))
(action (run %{lib:tezos-tooling:lint.sh} %{deps})))
(*****************************************************************************)
(* *)
(* Open Source License *)
(* Copyright (c) 2018 Dynamic Ledger Solutions, Inc. <[email protected]> *)
(* Copyright (c) 2019 Nomadic Labs, <[email protected]> *)
(* *)
(* 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. *)
(* *)
(*****************************************************************************)
module Log = Internal_event.Legacy_logging.Make (struct
let name = "baker.main"
end)
let () =
Client_commands.register Protocol.hash
@@ fun _network ->
List.map (Clic.map_command (new Protocol_client_context.wrap_full))
@@ Delegate_commands.delegate_commands ()
let select_commands _ _ =
return
(List.map
(Clic.map_command (new Protocol_client_context.wrap_full))
(Delegate_commands.baker_commands ()))
let () =
Client_main_run.run
~log:(Log.fatal_error "%s")
(module Client_config)
~select_commands
opam-version: "2.0"
maintainer: "[email protected]"
authors: [ "Tezos devteam" ]
homepage: "https://www.tezos.com/"
bug-reports: "https://gitlab.com/tezos/tezos/issues"
dev-repo: "git+https://gitlab.com/tezos/tezos.git"
license: "MIT"
depends: [
"tezos-tooling" { with-test }
"ocamlfind" { build }
"dune" { >= "1.7" }
"tezos-base"
"tezos-client-006-PsCARTHA"
"tezos-client-commands"
"tezos-baking-006-PsCARTHA-commands"
"tezos-client-base-unix"
]
build: [
["dune" "build" "-p" name "-j" jobs]
["dune" "runtest" "-p" name "-j" jobs] {with-test}
]
synopsis: "Tezos/Protocol: baker binary"
wrap-fun-args=false
let-binding-spacing=compact
field-space=loose
break-separators=after-and-docked
sequence-style=separator
doc-comments=before
margin=80
module-item-spacing=sparse
parens-tuple=always
parens-tuple-patterns=always
break-string-literals=newlines-and-wrap
(executable
(name main_endorser_006_PsCARTHA)
(public_name tezos-endorser-006-PsCARTHA)
(libraries tezos-client-base-unix
tezos-client-commands
tezos-baking-006-PsCARTHA-commands)
(flags (:standard -open Tezos_base__TzPervasives
-open Tezos_protocol_006_PsCARTHA
-open Tezos_client_006_PsCARTHA
-open Tezos_client_commands
-open Tezos_baking_006_PsCARTHA_commands
-open Tezos_stdlib_unix
-open Tezos_client_base_unix)))
(alias
(name runtest_lint)
(deps (glob_files *.ml{,i}))
(action (run %{lib:tezos-tooling:lint.sh} %{deps})))
(*****************************************************************************)
(* *)
(* Open Source License *)
(* Copyright (c) 2018 Dynamic Ledger Solutions, Inc. <[email protected]> *)
(* Copyright (c) 2019 Nomadic Labs, <[email protected]> *)
(* *)
(* 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. *)
(* *)
(*****************************************************************************)
module Log = Internal_event.Legacy_logging.Make (struct
let name = "endorser.main"
end)
let () =
Client_commands.register Protocol.hash
@@ fun _network ->
List.map (Clic.map_command (new Protocol_client_context.wrap_full))
@@ Delegate_commands.delegate_commands ()
let select_commands _ _ =
return
(List.map
(Clic.map_command (new Protocol_client_context.wrap_full))
(Delegate_commands.endorser_commands ()))
let () =
Client_main_run.run
~log:(Log.fatal_error "%s")
(module Client_config)
~select_commands
opam-version: "2.0"
maintainer: "[email protected]"
authors: [ "Tezos devteam" ]
homepage: "https://www.tezos.com/"
bug-reports: "https://gitlab.com/tezos/tezos/issues"
dev-repo: "git+https://gitlab.com/tezos/tezos.git"
license: "MIT"
depends: [
"tezos-tooling" { with-test }
"ocamlfind" { build }
"dune" { >= "1.7" }
"tezos-base"
"tezos-client-006-PsCARTHA"
"tezos-client-commands"
"tezos-baking-006-PsCARTHA-commands"
"tezos-client-base-unix"
]
build: [
["dune" "build" "-p" name "-j" jobs]
["dune" "runtest" "-p" name "-j" jobs] {with-test}
]
synopsis: "Tezos/Protocol: endorser binary"
wrap-fun-args=false
let-binding-spacing=compact
field-space=loose
break-separators=after-and-docked
sequence-style=separator
doc-comments=before
margin=80
module-item-spacing=sparse
parens-tuple=always
parens-tuple-patterns=always
break-string-literals=newlines-and-wrap
This diff is collapsed.
(*****************************************************************************)
(* *)
(* Open Source License *)
(* Copyright (c) 2018 Dynamic Ledger Solutions, Inc. <[email protected]> *)
(* Copyright (c) 2019 Nomadic Labs <[email protected]> *)
(* *)
(* 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 Alpha_context
open Protocol_client_context
val tez_sym : string
val init_arg : (string, full) Clic.arg
val fee_arg : (Tez.t option, full) Clic.arg
val counter_arg : (Z.t option, full) Clic.arg
val gas_limit_arg : (Z.t option, full) Clic.arg
val storage_limit_arg : (Z.t option, full) Clic.arg
val arg_arg : (string option, full) Clic.arg
val source_arg : (string option, full) Clic.arg
val entrypoint_arg : (string option, full) Clic.arg
val delegate_arg : (Signature.Public_key_hash.t option, full) Clic.arg
val delegatable_switch : (bool, full) Clic.arg
val spendable_switch : (bool, full) Clic.arg
val max_priority_arg : (int option, full) Clic.arg
val minimal_fees_arg : (Tez.tez, full) Clic.arg
val minimal_nanotez_per_gas_unit_arg : (Z.t, full) Clic.arg
val minimal_nanotez_per_byte_arg : (Z.t, full) Clic.arg
val force_low_fee_arg : (bool, full) Clic.arg
val fee_cap_arg : (Tez.t, full) Clic.arg
val burn_cap_arg : (Tez.t, full) Clic.arg
val no_waiting_for_endorsements_arg : (bool, full) Clic.arg
val await_endorsements_arg : (bool, full) Clic.arg
val force_switch : (bool, full) Clic.arg
val minimal_timestamp_switch : (bool, full) Clic.arg
val endorsement_delay_arg : (int, full) Clic.arg
val preserved_levels_arg : (int, full) Clic.arg
val no_print_source_flag : (bool, full) Clic.arg
val no_confirmation : (bool, full) Clic.arg
val tez_arg :
default:string -> parameter:string -> doc:string -> (Tez.t, full) Clic.arg
val tez_param :
name:string ->
desc:string ->
('a, full) Clic.params ->
(Tez.t -> 'a, full) Clic.params
val signature_parameter : (Signature.t, full) Clic.parameter
module Daemon : sig
val baking_switch : (bool, full) Clic.arg
val endorsement_switch : (bool, full) Clic.arg
val denunciation_switch : (bool, full) Clic.arg
end
val int_parameter : (int, full) Clic.parameter
val string_parameter : (string, full) Clic.parameter
val bytes_parameter : (Bytes.t, full) Clic.parameter
This diff is collapsed.
(*****************************************************************************)
(* *)
(* Open Source License *)
(* Copyright (c) 2018 Dynamic Ledger Solutions, Inc. <[email protected]> *)
(* *)
(* 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 Alpha_context
val list_contract_labels :
#Protocol_client_context.full ->
chain:Shell_services.chain ->
block:Shell_services.block ->
(string * string * string) list tzresult Lwt.t
val get_storage :
#Protocol_client_context.rpc_context ->
chain:Shell_services.chain ->
block:Shell_services.block ->
Contract.t ->
Script.expr option tzresult Lwt.t
val get_contract_big_map_value :
#Protocol_client_context.rpc_context ->
chain:Shell_services.chain ->
block:Shell_services.block ->
Contract.t ->
Script.expr * Script.expr ->
Script.expr option tzresult Lwt.t
val get_big_map_value :
#Protocol_client_context.rpc_context ->
chain:Shell_services.chain ->
block:Shell_services.block ->
Z.t ->
Script_expr_hash.t ->
Script.expr tzresult Lwt.t
val get_script :
#Protocol_client_context.rpc_context ->
chain:Shell_services.chain ->
block:Shell_services.block ->
Contract.t ->
Script.t option tzresult Lwt.t
val get_balance :
#Protocol_client_context.rpc_context ->
chain:Shell_services.chain ->
block:Shell_services.block ->
Contract.t ->
Tez.t tzresult Lwt.t
val set_delegate :
#Protocol_client_context.full ->
chain:Shell_services.chain ->
block:Shell_services.block ->
?confirmations:int ->
?dry_run:bool ->
?verbose_signing:bool ->
?fee:Tez.tez ->
public_key_hash ->
src_pk:public_key ->
manager_sk:Client_keys.sk_uri ->
fee_parameter:Injection.fee_parameter ->
public_key_hash option ->
Kind.delegation Kind.manager Injection.result tzresult Lwt.t
val register_as_delegate :
#Protocol_client_context.full ->
chain:Shell_services.chain ->
block:Shell_services.block ->
?confirmations:int ->
?dry_run:bool ->
?verbose_signing:bool ->
?fee:Tez.tez ->