Client: split client-alpha into lib and commands and extract the baker
This commit is contained in:
parent
a55a60c59b
commit
e2be3360a9
@ -13,6 +13,7 @@ tezos-node
|
|||||||
tezos-protocol-compiler
|
tezos-protocol-compiler
|
||||||
tezos-client
|
tezos-client
|
||||||
tezos-admin-client
|
tezos-admin-client
|
||||||
|
tezos-alpha-baker
|
||||||
|
|
||||||
scripts/opam-test-all.sh.DONE
|
scripts/opam-test-all.sh.DONE
|
||||||
|
|
||||||
|
1
.gitignore
vendored
1
.gitignore
vendored
@ -15,6 +15,7 @@ __pycache__
|
|||||||
/tezos-protocol-compiler
|
/tezos-protocol-compiler
|
||||||
/tezos-client
|
/tezos-client
|
||||||
/tezos-admin-client
|
/tezos-admin-client
|
||||||
|
/tezos-alpha-baker
|
||||||
|
|
||||||
/scripts/opam-test-all.sh.DONE
|
/scripts/opam-test-all.sh.DONE
|
||||||
|
|
||||||
|
@ -151,22 +151,22 @@ test:proto_alpha:
|
|||||||
test:client_alpha:transaction:
|
test:client_alpha:transaction:
|
||||||
<<: *test_definition
|
<<: *test_definition
|
||||||
script:
|
script:
|
||||||
- jbuilder build @src/proto_alpha/lib_client/runtest_transaction
|
- jbuilder build @src/proto_alpha/lib_baking/runtest_transaction
|
||||||
|
|
||||||
test:client_alpha:origination:
|
test:client_alpha:origination:
|
||||||
<<: *test_definition
|
<<: *test_definition
|
||||||
script:
|
script:
|
||||||
- jbuilder build @src/proto_alpha/lib_client/runtest_origination
|
- jbuilder build @src/proto_alpha/lib_baking/runtest_origination
|
||||||
|
|
||||||
test:client_alpha:endorsement:
|
test:client_alpha:endorsement:
|
||||||
<<: *test_definition
|
<<: *test_definition
|
||||||
script:
|
script:
|
||||||
- jbuilder build @src/proto_alpha/lib_client/runtest_endorsement
|
- jbuilder build @src/proto_alpha/lib_baking/runtest_endorsement
|
||||||
|
|
||||||
test:client_alpha:vote:
|
test:client_alpha:vote:
|
||||||
<<: *test_definition
|
<<: *test_definition
|
||||||
script:
|
script:
|
||||||
- jbuilder build @src/proto_alpha/lib_client/runtest_vote
|
- jbuilder build @src/proto_alpha/lib_baking/runtest_vote
|
||||||
|
|
||||||
test:basic.sh:
|
test:basic.sh:
|
||||||
<<: *test_definition
|
<<: *test_definition
|
||||||
@ -336,75 +336,95 @@ opam:24:tezos-p2p:
|
|||||||
variables:
|
variables:
|
||||||
package: tezos-p2p
|
package: tezos-p2p
|
||||||
|
|
||||||
opam:25:ocplib-resto-json:
|
opam:25:tezos-client-alpha:
|
||||||
<<: *opam_definition
|
|
||||||
variables:
|
|
||||||
package: ocplib-resto-json
|
|
||||||
|
|
||||||
opam:26:tezos-client-alpha:
|
|
||||||
<<: *opam_definition
|
<<: *opam_definition
|
||||||
variables:
|
variables:
|
||||||
package: tezos-client-alpha
|
package: tezos-client-alpha
|
||||||
|
|
||||||
opam:27:tezos-client-genesis:
|
opam:26:tezos-client-commands:
|
||||||
|
<<: *opam_definition
|
||||||
|
variables:
|
||||||
|
package: tezos-client-commands
|
||||||
|
|
||||||
|
opam:27:ocplib-resto-json:
|
||||||
|
<<: *opam_definition
|
||||||
|
variables:
|
||||||
|
package: ocplib-resto-json
|
||||||
|
|
||||||
|
opam:28:tezos-client-genesis:
|
||||||
<<: *opam_definition
|
<<: *opam_definition
|
||||||
variables:
|
variables:
|
||||||
package: tezos-client-genesis
|
package: tezos-client-genesis
|
||||||
|
|
||||||
opam:28:tezos-embedded-protocol-alpha:
|
opam:29:tezos-embedded-protocol-alpha:
|
||||||
<<: *opam_definition
|
<<: *opam_definition
|
||||||
variables:
|
variables:
|
||||||
package: tezos-embedded-protocol-alpha
|
package: tezos-embedded-protocol-alpha
|
||||||
|
|
||||||
opam:29:tezos-embedded-protocol-demo:
|
opam:30:tezos-embedded-protocol-demo:
|
||||||
<<: *opam_definition
|
<<: *opam_definition
|
||||||
variables:
|
variables:
|
||||||
package: tezos-embedded-protocol-demo
|
package: tezos-embedded-protocol-demo
|
||||||
|
|
||||||
opam:30:tezos-embedded-protocol-genesis:
|
opam:31:tezos-embedded-protocol-genesis:
|
||||||
<<: *opam_definition
|
<<: *opam_definition
|
||||||
variables:
|
variables:
|
||||||
package: tezos-embedded-protocol-genesis
|
package: tezos-embedded-protocol-genesis
|
||||||
|
|
||||||
opam:31:tezos-shell:
|
opam:32:tezos-shell:
|
||||||
<<: *opam_definition
|
<<: *opam_definition
|
||||||
variables:
|
variables:
|
||||||
package: tezos-shell
|
package: tezos-shell
|
||||||
|
|
||||||
opam:32:ocplib-ezresto:
|
opam:33:tezos-baking-alpha:
|
||||||
|
<<: *opam_definition
|
||||||
|
variables:
|
||||||
|
package: tezos-baking-alpha
|
||||||
|
|
||||||
|
opam:34:ocplib-ezresto:
|
||||||
<<: *opam_definition
|
<<: *opam_definition
|
||||||
variables:
|
variables:
|
||||||
package: ocplib-ezresto
|
package: ocplib-ezresto
|
||||||
|
|
||||||
opam:33:tezos-client:
|
opam:35:tezos-client:
|
||||||
<<: *opam_definition
|
<<: *opam_definition
|
||||||
variables:
|
variables:
|
||||||
package: tezos-client
|
package: tezos-client
|
||||||
|
|
||||||
opam:34:tezos-node:
|
opam:36:tezos-node:
|
||||||
<<: *opam_definition
|
<<: *opam_definition
|
||||||
variables:
|
variables:
|
||||||
package: tezos-node
|
package: tezos-node
|
||||||
|
|
||||||
opam:35:ocplib-ezresto-directory:
|
opam:37:tezos-baking-alpha-commands:
|
||||||
|
<<: *opam_definition
|
||||||
|
variables:
|
||||||
|
package: tezos-baking-alpha-commands
|
||||||
|
|
||||||
|
opam:38:ocplib-ezresto-directory:
|
||||||
<<: *opam_definition
|
<<: *opam_definition
|
||||||
variables:
|
variables:
|
||||||
package: ocplib-ezresto-directory
|
package: ocplib-ezresto-directory
|
||||||
|
|
||||||
opam:36:tezos-protocol-demo:
|
opam:39:tezos-client-alpha-commands:
|
||||||
|
<<: *opam_definition
|
||||||
|
variables:
|
||||||
|
package: tezos-client-alpha-commands
|
||||||
|
|
||||||
|
opam:40:tezos-baker-alpha:
|
||||||
|
<<: *opam_definition
|
||||||
|
variables:
|
||||||
|
package: tezos-baker-alpha
|
||||||
|
|
||||||
|
opam:41:tezos-protocol-demo:
|
||||||
<<: *opam_definition
|
<<: *opam_definition
|
||||||
variables:
|
variables:
|
||||||
package: tezos-protocol-demo
|
package: tezos-protocol-demo
|
||||||
|
|
||||||
opam:37:tezos-unix-signers:
|
opam:42:tezos-client-base-unix:
|
||||||
<<: *opam_definition
|
<<: *opam_definition
|
||||||
variables:
|
variables:
|
||||||
package: tezos-unix-signers
|
package: tezos-client-base-unix
|
||||||
|
|
||||||
opam:38:tezos-client-commands:
|
|
||||||
<<: *opam_definition
|
|
||||||
variables:
|
|
||||||
package: tezos-client-commands
|
|
||||||
|
|
||||||
|
|
||||||
##END_OPAM##
|
##END_OPAM##
|
||||||
|
11
Makefile
11
Makefile
@ -7,11 +7,13 @@ all:
|
|||||||
src/bin_node/main.exe \
|
src/bin_node/main.exe \
|
||||||
src/bin_client/main_client.exe \
|
src/bin_client/main_client.exe \
|
||||||
src/bin_client/main_admin.exe \
|
src/bin_client/main_admin.exe \
|
||||||
src/lib_protocol_compiler/main_native.exe
|
src/lib_protocol_compiler/main_native.exe \
|
||||||
|
src/proto_alpha/bin_baker/main_baker_alpha.exe
|
||||||
@cp _build/default/src/bin_node/main.exe tezos-node
|
@cp _build/default/src/bin_node/main.exe tezos-node
|
||||||
@cp _build/default/src/bin_client/main_client.exe tezos-client
|
@cp _build/default/src/bin_client/main_client.exe tezos-client
|
||||||
@cp _build/default/src/bin_client/main_admin.exe tezos-admin-client
|
@cp _build/default/src/bin_client/main_admin.exe tezos-admin-client
|
||||||
@cp _build/default/src/lib_protocol_compiler/main_native.exe tezos-protocol-compiler
|
@cp _build/default/src/lib_protocol_compiler/main_native.exe tezos-protocol-compiler
|
||||||
|
@cp _build/default/src/proto_alpha/bin_baker/main_baker_alpha.exe tezos-alpha-baker
|
||||||
|
|
||||||
all.pkg:
|
all.pkg:
|
||||||
@jbuilder build ${DEV} \
|
@jbuilder build ${DEV} \
|
||||||
@ -56,7 +58,12 @@ install:
|
|||||||
|
|
||||||
clean:
|
clean:
|
||||||
@-jbuilder clean
|
@-jbuilder clean
|
||||||
@-rm -f tezos-node tezos-client tezos-admin-client tezos-protocol-compiler
|
@-rm -f \
|
||||||
|
tezos-node \
|
||||||
|
tezos-client \
|
||||||
|
tezos-admin-client \
|
||||||
|
tezos-protocol-compiler \
|
||||||
|
tezos-alpha-baker
|
||||||
@-make -C docs clean
|
@-make -C docs clean
|
||||||
|
|
||||||
.PHONY: all test build-deps docker-image clean
|
.PHONY: all test build-deps docker-image clean
|
||||||
|
@ -9,9 +9,11 @@
|
|||||||
tezos-client-base
|
tezos-client-base
|
||||||
tezos-client-commands
|
tezos-client-commands
|
||||||
tezos-client-genesis
|
tezos-client-genesis
|
||||||
|
tezos-client-alpha
|
||||||
tezos-stdlib-unix
|
tezos-stdlib-unix
|
||||||
tezos-unix-signers
|
tezos-client-base-unix
|
||||||
tezos-client-alpha))
|
tezos-client-alpha-commands.registration
|
||||||
|
tezos-baking-alpha-commands.registration))
|
||||||
(flags (:standard -w -9+27-30-32-40@8
|
(flags (:standard -w -9+27-30-32-40@8
|
||||||
-safe-string
|
-safe-string
|
||||||
-open Tezos_base__TzPervasives
|
-open Tezos_base__TzPervasives
|
||||||
@ -20,7 +22,7 @@
|
|||||||
-open Tezos_shell_services
|
-open Tezos_shell_services
|
||||||
-open Tezos_client_base
|
-open Tezos_client_base
|
||||||
-open Tezos_client_commands
|
-open Tezos_client_commands
|
||||||
-open Tezos_unix_signers))))
|
-open Tezos_client_base_unix))))
|
||||||
|
|
||||||
(install
|
(install
|
||||||
((section bin)
|
((section bin)
|
||||||
|
@ -13,7 +13,10 @@ depends: [
|
|||||||
"tezos-client-base"
|
"tezos-client-base"
|
||||||
"tezos-client-genesis"
|
"tezos-client-genesis"
|
||||||
"tezos-client-alpha"
|
"tezos-client-alpha"
|
||||||
"tezos-unix-signers"
|
"tezos-client-alpha-commands"
|
||||||
|
"tezos-baking-alpha"
|
||||||
|
"tezos-baking-alpha-commands"
|
||||||
|
"tezos-client-base-unix"
|
||||||
"tezos-node" { test }
|
"tezos-node" { test }
|
||||||
]
|
]
|
||||||
build: [
|
build: [
|
||||||
|
@ -7,7 +7,7 @@
|
|||||||
(* *)
|
(* *)
|
||||||
(**************************************************************************)
|
(**************************************************************************)
|
||||||
|
|
||||||
open Client_commands
|
open Client_context
|
||||||
|
|
||||||
class file_wallet dir : wallet = object (self)
|
class file_wallet dir : wallet = object (self)
|
||||||
method private filename alias_name =
|
method private filename alias_name =
|
@ -1,16 +1,22 @@
|
|||||||
(jbuild_version 1)
|
(jbuild_version 1)
|
||||||
|
|
||||||
(library
|
(library
|
||||||
((name tezos_unix_signers)
|
((name tezos_client_base_unix)
|
||||||
(public_name tezos-unix-signers)
|
(public_name tezos-client-base-unix)
|
||||||
(libraries (tezos-base
|
(libraries (tezos-base
|
||||||
tezos-client-base
|
tezos-client-base
|
||||||
tezos-stdlib-unix))
|
tezos-client-commands
|
||||||
|
tezos-stdlib-unix
|
||||||
|
tezos-rpc-http
|
||||||
|
tezos-shell-services))
|
||||||
(flags (:standard -w -9+27-30-32-40@8
|
(flags (:standard -w -9+27-30-32-40@8
|
||||||
-safe-string
|
-safe-string
|
||||||
-open Tezos_base__TzPervasives
|
-open Tezos_base__TzPervasives
|
||||||
|
-open Tezos_rpc_http
|
||||||
|
-open Tezos_shell_services
|
||||||
-open Tezos_stdlib_unix
|
-open Tezos_stdlib_unix
|
||||||
-open Tezos_client_base
|
-open Tezos_client_base
|
||||||
|
-open Tezos_client_commands
|
||||||
-linkall))))
|
-linkall))))
|
||||||
|
|
||||||
(alias
|
(alias
|
@ -11,6 +11,7 @@ depends: [
|
|||||||
"jbuilder" { build & >= "1.0+beta17" }
|
"jbuilder" { build & >= "1.0+beta17" }
|
||||||
"tezos-base"
|
"tezos-base"
|
||||||
"tezos-client-base"
|
"tezos-client-base"
|
||||||
|
"tezos-client-commands"
|
||||||
]
|
]
|
||||||
build: [
|
build: [
|
||||||
[ "jbuilder" "build" "-p" name "-j" jobs ]
|
[ "jbuilder" "build" "-p" name "-j" jobs ]
|
18
src/proto_alpha/bin_baker/jbuild
Normal file
18
src/proto_alpha/bin_baker/jbuild
Normal file
@ -0,0 +1,18 @@
|
|||||||
|
(jbuild_version 1)
|
||||||
|
|
||||||
|
(executable
|
||||||
|
((name main_baker_alpha)
|
||||||
|
(public_name tezos-baker-alpha)
|
||||||
|
(libraries (tezos-client-base-unix
|
||||||
|
tezos-baking-alpha-commands))
|
||||||
|
(flags (:standard -w -9+27-30-32-40@8
|
||||||
|
-safe-string
|
||||||
|
-open Tezos_base__TzPervasives
|
||||||
|
-open Tezos_client_alpha
|
||||||
|
-open Tezos_baking_alpha_commands
|
||||||
|
-open Tezos_client_base_unix))))
|
||||||
|
|
||||||
|
(alias
|
||||||
|
((name runtest_indent)
|
||||||
|
(deps ((glob_files *.ml*)))
|
||||||
|
(action (run bash ${libexec:tezos-stdlib:test-ocp-indent.sh} ${^}))))
|
16
src/proto_alpha/bin_baker/main_baker_alpha.ml
Normal file
16
src/proto_alpha/bin_baker/main_baker_alpha.ml
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
(**************************************************************************)
|
||||||
|
(* *)
|
||||||
|
(* Copyright (c) 2014 - 2018. *)
|
||||||
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
||||||
|
(* *)
|
||||||
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
||||||
|
(* *)
|
||||||
|
(**************************************************************************)
|
||||||
|
|
||||||
|
let select_commands _ _ =
|
||||||
|
return
|
||||||
|
(List.map
|
||||||
|
(Cli_entries.map_command (new Proto_alpha.wrap_full_context))
|
||||||
|
(Client_baking_commands.commands ()))
|
||||||
|
|
||||||
|
let () = Client_main_run.run select_commands
|
23
src/proto_alpha/bin_baker/tezos-baker-alpha.opam
Normal file
23
src/proto_alpha/bin_baker/tezos-baker-alpha.opam
Normal file
@ -0,0 +1,23 @@
|
|||||||
|
opam-version: "1.2"
|
||||||
|
version: "dev"
|
||||||
|
maintainer: "contact@tezos.com"
|
||||||
|
authors: [ "Tezos devteam" ]
|
||||||
|
homepage: "https://www.tezos.com/"
|
||||||
|
bug-reports: "https://gitlab.com/tezos/tezos/issues"
|
||||||
|
dev-repo: "https://gitlab.com/tezos/tezos.git"
|
||||||
|
license: "unreleased"
|
||||||
|
depends: [
|
||||||
|
"ocamlfind" { build }
|
||||||
|
"jbuilder" { build & >= "1.0+beta17" }
|
||||||
|
"tezos-base"
|
||||||
|
"tezos-client-base"
|
||||||
|
"tezos-client-genesis"
|
||||||
|
"tezos-client-alpha"
|
||||||
|
"tezos-client-commands"
|
||||||
|
"tezos-client-base-unix"
|
||||||
|
"tezos-baking-alpha"
|
||||||
|
"tezos-baking-alpha-commands"
|
||||||
|
]
|
||||||
|
build: [
|
||||||
|
[ "jbuilder" "build" "-p" name "-j" jobs ]
|
||||||
|
]
|
@ -7,4 +7,7 @@
|
|||||||
(* *)
|
(* *)
|
||||||
(**************************************************************************)
|
(**************************************************************************)
|
||||||
|
|
||||||
val protocol: Protocol_hash.t
|
let () =
|
||||||
|
Client_commands.register Proto_alpha.hash @@
|
||||||
|
List.map (Cli_entries.map_command (new Proto_alpha.wrap_full_context)) @@
|
||||||
|
Client_baking_commands.commands ()
|
@ -294,7 +294,7 @@ end = struct
|
|||||||
with Not_found -> [] in
|
with Not_found -> [] in
|
||||||
save cctxt
|
save cctxt
|
||||||
(LevelMap.add level (hash :: previous) map)) >>=? fun () ->
|
(LevelMap.add level (hash :: previous) map)) >>=? fun () ->
|
||||||
Client_proto_nonces.add cctxt hash nonce
|
Client_baking_nonces.add cctxt hash nonce
|
||||||
|
|
||||||
end
|
end
|
||||||
|
|
||||||
@ -377,7 +377,7 @@ let get_unrevealed_nonces (cctxt : #Proto_alpha.full_context) ?(force = false) b
|
|||||||
Client_baking_blocks.blocks_from_cycle
|
Client_baking_blocks.blocks_from_cycle
|
||||||
cctxt block cycle >>=? fun blocks ->
|
cctxt block cycle >>=? fun blocks ->
|
||||||
filter_map_s (fun hash ->
|
filter_map_s (fun hash ->
|
||||||
Client_proto_nonces.find cctxt hash >>=? function
|
Client_baking_nonces.find cctxt hash >>=? function
|
||||||
| None -> return None
|
| None -> return None
|
||||||
| Some nonce ->
|
| Some nonce ->
|
||||||
Alpha_services.Context.level
|
Alpha_services.Context.level
|
@ -56,7 +56,7 @@ let do_reveal cctxt block blocks =
|
|||||||
let nonces = List.map snd blocks in
|
let nonces = List.map snd blocks in
|
||||||
Client_baking_revelation.forge_seed_nonce_revelation cctxt
|
Client_baking_revelation.forge_seed_nonce_revelation cctxt
|
||||||
block nonces >>=? fun () ->
|
block nonces >>=? fun () ->
|
||||||
Client_proto_nonces.dels cctxt (List.map fst blocks) >>=? fun () ->
|
Client_baking_nonces.dels cctxt (List.map fst blocks) >>=? fun () ->
|
||||||
return ()
|
return ()
|
||||||
|
|
||||||
let reveal_block_nonces (cctxt : #Proto_alpha.full_context) block_hashes =
|
let reveal_block_nonces (cctxt : #Proto_alpha.full_context) block_hashes =
|
||||||
@ -75,7 +75,7 @@ let reveal_block_nonces (cctxt : #Proto_alpha.full_context) block_hashes =
|
|||||||
Lwt.return_none))
|
Lwt.return_none))
|
||||||
block_hashes >>= fun block_infos ->
|
block_hashes >>= fun block_infos ->
|
||||||
filter_map_s (fun (bi : Client_baking_blocks.block_info) ->
|
filter_map_s (fun (bi : Client_baking_blocks.block_info) ->
|
||||||
Client_proto_nonces.find cctxt bi.hash >>=? function
|
Client_baking_nonces.find cctxt bi.hash >>=? function
|
||||||
| None ->
|
| None ->
|
||||||
cctxt#warning "Cannot find nonces for block %a (ignoring)@."
|
cctxt#warning "Cannot find nonces for block %a (ignoring)@."
|
||||||
Block_hash.pp_short bi.hash >>= fun () ->
|
Block_hash.pp_short bi.hash >>= fun () ->
|
77
src/proto_alpha/lib_baking/jbuild
Normal file
77
src/proto_alpha/lib_baking/jbuild
Normal file
@ -0,0 +1,77 @@
|
|||||||
|
(jbuild_version 1)
|
||||||
|
|
||||||
|
(library
|
||||||
|
((name tezos_baking_alpha)
|
||||||
|
(public_name tezos-baking-alpha)
|
||||||
|
(libraries (tezos-base
|
||||||
|
tezos-protocol-alpha
|
||||||
|
tezos-protocol-environment-client
|
||||||
|
tezos-shell-services
|
||||||
|
tezos-client-base
|
||||||
|
tezos-client-alpha
|
||||||
|
tezos-client-commands
|
||||||
|
tezos-rpc))
|
||||||
|
(library_flags (:standard -linkall))
|
||||||
|
(modules (:standard \ client_baking_commands client_baking_commands_registration main_alpha_baker))
|
||||||
|
(flags (:standard -w -9+27-30-32-40@8
|
||||||
|
-safe-string
|
||||||
|
-open Tezos_base__TzPervasives
|
||||||
|
-open Tezos_shell_services
|
||||||
|
-open Tezos_client_base
|
||||||
|
-open Tezos_client_alpha
|
||||||
|
-open Tezos_client_commands
|
||||||
|
-open Tezos_rpc))))
|
||||||
|
|
||||||
|
(library
|
||||||
|
((name tezos_baking_alpha_commands)
|
||||||
|
(public_name tezos-baking-alpha-commands)
|
||||||
|
(libraries (tezos-base
|
||||||
|
tezos-protocol-alpha
|
||||||
|
tezos-protocol-environment-client
|
||||||
|
tezos-shell-services
|
||||||
|
tezos-client-base
|
||||||
|
tezos-client-alpha
|
||||||
|
tezos-client-commands
|
||||||
|
tezos-baking-alpha))
|
||||||
|
(library_flags (:standard -linkall))
|
||||||
|
(modules (client_baking_commands))
|
||||||
|
(flags (:standard -w -9+27-30-32-40@8
|
||||||
|
-safe-string
|
||||||
|
-open Tezos_base__TzPervasives
|
||||||
|
-open Tezos_shell_services
|
||||||
|
-open Tezos_client_base
|
||||||
|
-open Tezos_client_alpha
|
||||||
|
-open Tezos_client_commands
|
||||||
|
-open Tezos_baking_alpha
|
||||||
|
-open Tezos_rpc))))
|
||||||
|
|
||||||
|
(library
|
||||||
|
((name tezos_baking_alpha_commands_registration)
|
||||||
|
(public_name tezos-baking-alpha-commands.registration)
|
||||||
|
(libraries (tezos-base
|
||||||
|
tezos-protocol-alpha
|
||||||
|
tezos-protocol-environment-client
|
||||||
|
tezos-shell-services
|
||||||
|
tezos-client-base
|
||||||
|
tezos-client-alpha
|
||||||
|
tezos-client-commands
|
||||||
|
tezos-baking-alpha
|
||||||
|
tezos-baking-alpha-commands
|
||||||
|
tezos-rpc))
|
||||||
|
(library_flags (:standard -linkall))
|
||||||
|
(modules (client_baking_commands_registration))
|
||||||
|
(flags (:standard -w -9+27-30-32-40@8
|
||||||
|
-safe-string
|
||||||
|
-open Tezos_base__TzPervasives
|
||||||
|
-open Tezos_shell_services
|
||||||
|
-open Tezos_client_base
|
||||||
|
-open Tezos_client_alpha
|
||||||
|
-open Tezos_client_commands
|
||||||
|
-open Tezos_baking_alpha
|
||||||
|
-open Tezos_baking_alpha_commands
|
||||||
|
-open Tezos_rpc))))
|
||||||
|
|
||||||
|
(alias
|
||||||
|
((name runtest_indent)
|
||||||
|
(deps ((glob_files *.ml*)))
|
||||||
|
(action (run bash ${libexec:tezos-stdlib:test-ocp-indent.sh} ${^}))))
|
@ -12,7 +12,8 @@
|
|||||||
tezos-client-base
|
tezos-client-base
|
||||||
tezos-client-genesis
|
tezos-client-genesis
|
||||||
tezos-client-alpha
|
tezos-client-alpha
|
||||||
tezos-unix-signers
|
tezos-baking-alpha
|
||||||
|
tezos-client-base-unix
|
||||||
alcotest-lwt))
|
alcotest-lwt))
|
||||||
(flags (:standard -w -9-32 -safe-string
|
(flags (:standard -w -9-32 -safe-string
|
||||||
-open Tezos_base__TzPervasives
|
-open Tezos_base__TzPervasives
|
||||||
@ -21,7 +22,8 @@
|
|||||||
-open Tezos_client_base
|
-open Tezos_client_base
|
||||||
-open Tezos_client_genesis
|
-open Tezos_client_genesis
|
||||||
-open Tezos_client_alpha
|
-open Tezos_client_alpha
|
||||||
-open Tezos_unix_signers))))
|
-open Tezos_baking_alpha
|
||||||
|
-open Tezos_client_base_unix))))
|
||||||
|
|
||||||
(alias
|
(alias
|
||||||
((name buildtest)
|
((name buildtest)
|
@ -47,7 +47,7 @@ let activate_alpha () =
|
|||||||
~location:"edsk31vznjHSSpGExDMHYASz45VZqXN4DPxvsa4hAyY8dHM28cZzp6" in
|
~location:"edsk31vznjHSSpGExDMHYASz45VZqXN4DPxvsa4hAyY8dHM28cZzp6" in
|
||||||
Tezos_client_genesis.Client_proto_main.bake
|
Tezos_client_genesis.Client_proto_main.bake
|
||||||
!rpc_ctxt (`Head 0)
|
!rpc_ctxt (`Head 0)
|
||||||
(Activate { protocol = Client_proto_main.protocol ;
|
(Activate { protocol = Proto_alpha.hash ;
|
||||||
fitness })
|
fitness })
|
||||||
dictator_sk
|
dictator_sk
|
||||||
|
|
23
src/proto_alpha/lib_baking/tezos-baking-alpha-commands.opam
Normal file
23
src/proto_alpha/lib_baking/tezos-baking-alpha-commands.opam
Normal file
@ -0,0 +1,23 @@
|
|||||||
|
opam-version: "1.2"
|
||||||
|
version: "dev"
|
||||||
|
maintainer: "contact@tezos.com"
|
||||||
|
authors: [ "Tezos devteam" ]
|
||||||
|
homepage: "https://www.tezos.com/"
|
||||||
|
bug-reports: "https://gitlab.com/tezos/tezos/issues"
|
||||||
|
dev-repo: "https://gitlab.com/tezos/tezos.git"
|
||||||
|
license: "unreleased"
|
||||||
|
depends: [
|
||||||
|
"ocamlfind" { build }
|
||||||
|
"jbuilder" { build & >= "1.0+beta17" }
|
||||||
|
"tezos-base"
|
||||||
|
"tezos-protocol-environment-client"
|
||||||
|
"tezos-protocol-alpha"
|
||||||
|
"tezos-shell-services"
|
||||||
|
"tezos-client-base"
|
||||||
|
"tezos-client-commands"
|
||||||
|
"tezos-client-alpha"
|
||||||
|
"tezos-baking-alpha"
|
||||||
|
]
|
||||||
|
build: [
|
||||||
|
[ "jbuilder" "build" "-p" name "-j" jobs ]
|
||||||
|
]
|
29
src/proto_alpha/lib_baking/tezos-baking-alpha.opam
Normal file
29
src/proto_alpha/lib_baking/tezos-baking-alpha.opam
Normal file
@ -0,0 +1,29 @@
|
|||||||
|
opam-version: "1.2"
|
||||||
|
version: "dev"
|
||||||
|
maintainer: "contact@tezos.com"
|
||||||
|
authors: [ "Tezos devteam" ]
|
||||||
|
homepage: "https://www.tezos.com/"
|
||||||
|
bug-reports: "https://gitlab.com/tezos/tezos/issues"
|
||||||
|
dev-repo: "https://gitlab.com/tezos/tezos.git"
|
||||||
|
license: "unreleased"
|
||||||
|
depends: [
|
||||||
|
"ocamlfind" { build }
|
||||||
|
"jbuilder" { build & >= "1.0+beta17" }
|
||||||
|
"tezos-base"
|
||||||
|
"tezos-protocol-environment-client"
|
||||||
|
"tezos-protocol-alpha"
|
||||||
|
"tezos-shell-services"
|
||||||
|
"tezos-client-base"
|
||||||
|
"tezos-client-commands"
|
||||||
|
"tezos-client-alpha"
|
||||||
|
"tezos-node" { test }
|
||||||
|
"tezos-client-genesis" { test }
|
||||||
|
"tezos-client-base-unix" { test }
|
||||||
|
"alcotest-lwt" { test }
|
||||||
|
]
|
||||||
|
build: [
|
||||||
|
[ "jbuilder" "build" "-p" name "-j" jobs ]
|
||||||
|
]
|
||||||
|
build-test: [
|
||||||
|
[ "jbuilder" "runtest" "-p" name "-j" jobs ]
|
||||||
|
]
|
@ -8,7 +8,6 @@
|
|||||||
tezos-protocol-environment-client
|
tezos-protocol-environment-client
|
||||||
tezos-shell-services
|
tezos-shell-services
|
||||||
tezos-client-base
|
tezos-client-base
|
||||||
tezos-client-commands
|
|
||||||
tezos-rpc))
|
tezos-rpc))
|
||||||
(library_flags (:standard -linkall))
|
(library_flags (:standard -linkall))
|
||||||
(flags (:standard -w -9+27-30-32-40@8
|
(flags (:standard -w -9+27-30-32-40@8
|
||||||
@ -16,7 +15,6 @@
|
|||||||
-open Tezos_base__TzPervasives
|
-open Tezos_base__TzPervasives
|
||||||
-open Tezos_shell_services
|
-open Tezos_shell_services
|
||||||
-open Tezos_client_base
|
-open Tezos_client_base
|
||||||
-open Tezos_client_commands
|
|
||||||
-open Tezos_rpc))))
|
-open Tezos_rpc))))
|
||||||
|
|
||||||
(alias
|
(alias
|
||||||
|
@ -32,7 +32,7 @@ let expand_all source ast errors =
|
|||||||
f tl in
|
f tl in
|
||||||
let error_map = error_map ([], []) in
|
let error_map = error_map ([], []) in
|
||||||
let rec expand expr =
|
let rec expand expr =
|
||||||
match Michelson_macros.expand expr with
|
match Michelson_v1_macros.expand expr with
|
||||||
| Ok expanded ->
|
| Ok expanded ->
|
||||||
begin
|
begin
|
||||||
match expanded with
|
match expanded with
|
||||||
|
@ -62,7 +62,7 @@ let inject_types type_map parsed =
|
|||||||
|
|
||||||
let unparse ?type_map parse expanded =
|
let unparse ?type_map parse expanded =
|
||||||
let rec unexpand expr =
|
let rec unexpand expr =
|
||||||
match Michelson_macros.unexpand expr with
|
match Michelson_v1_macros.unexpand expr with
|
||||||
| Seq (loc, items, annot) ->
|
| Seq (loc, items, annot) ->
|
||||||
Seq (loc, List.map unexpand items, annot)
|
Seq (loc, List.map unexpand items, annot)
|
||||||
| Prim (loc, name, args, annot) ->
|
| Prim (loc, name, args, annot) ->
|
||||||
|
@ -11,6 +11,10 @@ module Name = struct let name = "alpha" end
|
|||||||
module Alpha_environment = Tezos_protocol_environment_client.Fake.Make(Name)()
|
module Alpha_environment = Tezos_protocol_environment_client.Fake.Make(Name)()
|
||||||
include Tezos_protocol_alpha.Functor.Make(Alpha_environment)
|
include Tezos_protocol_alpha.Functor.Make(Alpha_environment)
|
||||||
|
|
||||||
|
let hash =
|
||||||
|
Protocol_hash.of_b58check_exn
|
||||||
|
"ProtoALphaALphaALphaALphaALphaALphaALphaALphaDdp3zK"
|
||||||
|
|
||||||
class type rpc_context = object
|
class type rpc_context = object
|
||||||
inherit RPC_context.json
|
inherit RPC_context.json
|
||||||
inherit [Block_services.block] Alpha_environment.RPC_context.simple
|
inherit [Block_services.block] Alpha_environment.RPC_context.simple
|
||||||
|
@ -14,13 +14,7 @@ depends: [
|
|||||||
"tezos-protocol-alpha"
|
"tezos-protocol-alpha"
|
||||||
"tezos-shell-services"
|
"tezos-shell-services"
|
||||||
"tezos-client-base"
|
"tezos-client-base"
|
||||||
"tezos-node" { test }
|
|
||||||
"tezos-client-genesis" { test }
|
|
||||||
"alcotest-lwt" { test }
|
|
||||||
]
|
]
|
||||||
build: [
|
build: [
|
||||||
[ "jbuilder" "build" "-p" name "-j" jobs ]
|
[ "jbuilder" "build" "-p" name "-j" jobs ]
|
||||||
]
|
]
|
||||||
build-test: [
|
|
||||||
[ "jbuilder" "runtest" "-p" name "-j" jobs ]
|
|
||||||
]
|
|
||||||
|
@ -7,14 +7,9 @@
|
|||||||
(* *)
|
(* *)
|
||||||
(**************************************************************************)
|
(**************************************************************************)
|
||||||
|
|
||||||
let protocol =
|
|
||||||
Protocol_hash.of_b58check_exn
|
|
||||||
"ProtoALphaALphaALphaALphaALphaALphaALphaALphaDdp3zK"
|
|
||||||
|
|
||||||
let () =
|
let () =
|
||||||
Client_commands.register protocol @@
|
Client_commands.register Proto_alpha.hash @@
|
||||||
List.map (Cli_entries.map_command (new Proto_alpha.wrap_full_context)) @@
|
List.map (Cli_entries.map_command (new Proto_alpha.wrap_full_context)) @@
|
||||||
Client_proto_programs_commands.commands () @
|
Client_proto_programs_commands.commands () @
|
||||||
Client_proto_contracts_commands.commands () @
|
Client_proto_contracts_commands.commands () @
|
||||||
Client_proto_context_commands.commands () @
|
Client_proto_context_commands.commands ()
|
||||||
Client_baking_main.commands ()
|
|
52
src/proto_alpha/lib_client_commands/jbuild
Normal file
52
src/proto_alpha/lib_client_commands/jbuild
Normal file
@ -0,0 +1,52 @@
|
|||||||
|
(jbuild_version 1)
|
||||||
|
|
||||||
|
(library
|
||||||
|
((name tezos_client_alpha_commands)
|
||||||
|
(public_name tezos-client-alpha-commands)
|
||||||
|
(libraries (tezos-base
|
||||||
|
tezos-protocol-alpha
|
||||||
|
tezos-protocol-environment-client
|
||||||
|
tezos-shell-services
|
||||||
|
tezos-client-base
|
||||||
|
tezos-client-alpha
|
||||||
|
tezos-client-commands
|
||||||
|
tezos-rpc))
|
||||||
|
(library_flags (:standard -linkall))
|
||||||
|
(modules (:standard \ alpha_commands_registration))
|
||||||
|
(flags (:standard -w -9+27-30-32-40@8
|
||||||
|
-safe-string
|
||||||
|
-open Tezos_base__TzPervasives
|
||||||
|
-open Tezos_shell_services
|
||||||
|
-open Tezos_client_base
|
||||||
|
-open Tezos_client_alpha
|
||||||
|
-open Tezos_client_commands
|
||||||
|
-open Tezos_rpc))))
|
||||||
|
|
||||||
|
(library
|
||||||
|
((name tezos_client_alpha_commands_registration)
|
||||||
|
(public_name tezos-client-alpha-commands.registration)
|
||||||
|
(libraries (tezos-base
|
||||||
|
tezos-protocol-alpha
|
||||||
|
tezos-protocol-environment-client
|
||||||
|
tezos-shell-services
|
||||||
|
tezos-client-base
|
||||||
|
tezos-client-alpha
|
||||||
|
tezos-client-commands
|
||||||
|
tezos-client-alpha-commands
|
||||||
|
tezos-rpc))
|
||||||
|
(library_flags (:standard -linkall))
|
||||||
|
(modules (alpha_commands_registration))
|
||||||
|
(flags (:standard -w -9+27-30-32-40@8
|
||||||
|
-safe-string
|
||||||
|
-open Tezos_base__TzPervasives
|
||||||
|
-open Tezos_shell_services
|
||||||
|
-open Tezos_client_base
|
||||||
|
-open Tezos_client_alpha
|
||||||
|
-open Tezos_client_commands
|
||||||
|
-open Tezos_client_alpha_commands
|
||||||
|
-open Tezos_rpc))))
|
||||||
|
|
||||||
|
(alias
|
||||||
|
((name runtest_indent)
|
||||||
|
(deps ((glob_files *.ml*)))
|
||||||
|
(action (run bash ${libexec:tezos-stdlib:test-ocp-indent.sh} ${^}))))
|
@ -0,0 +1,22 @@
|
|||||||
|
opam-version: "1.2"
|
||||||
|
version: "dev"
|
||||||
|
maintainer: "contact@tezos.com"
|
||||||
|
authors: [ "Tezos devteam" ]
|
||||||
|
homepage: "https://www.tezos.com/"
|
||||||
|
bug-reports: "https://gitlab.com/tezos/tezos/issues"
|
||||||
|
dev-repo: "https://gitlab.com/tezos/tezos.git"
|
||||||
|
license: "unreleased"
|
||||||
|
depends: [
|
||||||
|
"ocamlfind" { build }
|
||||||
|
"jbuilder" { build & >= "1.0+beta17" }
|
||||||
|
"tezos-base"
|
||||||
|
"tezos-protocol-environment-client"
|
||||||
|
"tezos-protocol-alpha"
|
||||||
|
"tezos-shell-services"
|
||||||
|
"tezos-client-base"
|
||||||
|
"tezos-client-alpha"
|
||||||
|
"tezos-client-commands"
|
||||||
|
]
|
||||||
|
build: [
|
||||||
|
[ "jbuilder" "build" "-p" name "-j" jobs ]
|
||||||
|
]
|
@ -1 +0,0 @@
|
|||||||
../../../lib_client/michelson_macros.ml
|
|
@ -1 +0,0 @@
|
|||||||
../../../lib_client/michelson_macros.mli
|
|
@ -0,0 +1 @@
|
|||||||
|
../../../lib_client/michelson_v1_macros.ml
|
@ -0,0 +1 @@
|
|||||||
|
../../../lib_client/michelson_v1_macros.mli
|
Loading…
Reference in New Issue
Block a user