Rename tezos_compiler.ml

This commit is contained in:
Grégoire Henry 2017-10-27 20:23:02 +02:00 committed by Benjamin Canou
parent dc5c4910cf
commit 3d21245959
7 changed files with 8 additions and 8 deletions

View File

@ -161,13 +161,13 @@ COMPILER_LIB_INTFS := \
compiler/embedded_cmis.mli \
compiler/registerer.mli \
compiler/packer.mli \
compiler/tezos_compiler.mli \
compiler/native.mli \
COMPILER_LIB_IMPLS := \
compiler/embedded_cmis.ml \
compiler/registerer.ml \
compiler/packer.ml \
compiler/tezos_compiler.ml \
compiler/native.ml \
COMPILER_IMPLS := \
compiler_main.ml \

View File

@ -39,7 +39,7 @@ let commands () =
(fun () dirname cctxt ->
Lwt.catch
(fun () ->
let _hash, proto = Tezos_compiler.read_dir dirname in
let _hash, proto = Native.read_dir dirname in
Client_node_rpcs.inject_protocol cctxt.rpc_config proto >>= function
| Ok hash ->
cctxt.message "Injected protocol %a successfully" Protocol_hash.pp_short hash >>= fun () ->

View File

@ -13,14 +13,14 @@ let packer_name = "tezos-protocol-packer"
let () =
if Filename.basename Sys.argv.(0) = packer_name then begin
try
Tezos_compiler.main ();
Native.main ();
Pervasives.exit 0
with exn ->
Format.eprintf "%a\n%!" Opterrors.report_error exn;
Pervasives.exit 1
end else if Filename.basename Sys.argv.(0) = compiler_name then begin
try
Tezos_compiler.main ();
Native.main ();
Pervasives.exit 0
with exn ->
Format.eprintf "%a\n%!" Opterrors.report_error exn;

View File

@ -9,7 +9,7 @@
let () =
try
Tezos_compiler.main ();
Native.main ();
Pervasives.exit 0
with exn ->
Format.eprintf "%a\n%!" Opterrors.report_error exn;

View File

@ -60,7 +60,7 @@ let create_files dir units =
let extract dir ?hash (p: Protocol.t) =
create_files dir p.components >>= fun _files ->
Tezos_compiler.Meta.to_file dir
Native.Meta.to_file dir
?hash
~env_version:p.expected_env
(List.map (fun {Protocol.name} -> String.capitalize_ascii name) p.components) ;
@ -76,7 +76,7 @@ let do_compile hash p =
Format.asprintf "protocol_%a.cmxs" Protocol_hash.pp hash
in
create_files source_dir units >>= fun _files ->
Tezos_compiler.Meta.to_file source_dir ~hash
Native.Meta.to_file source_dir ~hash
(List.map (fun {Protocol.name} -> String.capitalize_ascii name) units);
let compiler_command =
(Sys.executable_name,