balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

scripts/reset_chain.sh for BSD

Browse Source
This commit is contained in:
Pierre Boutillier 2018-11-30 17:21:05 +01:00 committed by Benjamin Canou
parent 4449389ef2
commit 1357aff0ba
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scripts/gen_genesis.ml
View File

@ -20,7 +20,7 @@ let prefix = "BLockGenesisGenesisGenesisGenesisGenesis"
let rec genesis () = let rec genesis () =
let date = let date =
Lwt_main.run Lwt_main.run
(Lwt_process.pread_line (Lwt_process.shell "date +%FT%TZ --utc")) in (Lwt_process.pread_line (Lwt_process.shell "TZ='AAA+1' date +%FT%TZ")) in
let suffix = String.sub Digest.(to_hex (string date)) 0 5 in let suffix = String.sub Digest.(to_hex (string date)) 0 5 in
match Base58.raw_decode (prefix ^ suffix ^ "crcCRC") with match Base58.raw_decode (prefix ^ suffix ^ "crcCRC") with
| None -> genesis () | None -> genesis ()
@ -43,22 +43,24 @@ let () =
let sed = let sed =
Format.sprintf Format.sprintf
"sed -i \ "sed -i.old \
-e 's/Time.of_notation_exn \"[^\\\"]*\"/Time.of_notation_exn \"%s\"/' \ -e 's/Time.of_notation_exn \"[^\\\"]*\"/Time.of_notation_exn \"%s\"/' \
-e 's/BLockGenesisGenesisGenesisGenesisGenesis.........../%s/' \ -e 's/BLockGenesisGenesisGenesisGenesisGenesis.........../%s/' \
../src/bin_node/node_run_command.ml" ../src/bin_node/node_run_command.ml"
date date
genesis genesis
let _ = let () =
Lwt_main.run (Lwt_process.exec (Lwt_process.shell sed)) Lwt_main.run (Lwt_process.exec (Lwt_process.shell sed) >>= fun _ ->
Lwt_unix.unlink "../src/bin_node/node_run_command.ml.old")
let sed = let sed =
Format.sprintf Format.sprintf
"sed -E -i \ "sed -E -i.old \
-e 's/name = \"(TEZOS[_A-Z]+)[^\"]*\" ;/name = \"\\1%s\" ;/' \ -e 's/name = \"(TEZOS[_A-Z]+)[^\"]*\" ;/name = \"\\1%s\" ;/' \
../src/lib_shell/distributed_db_message.ml" ../src/lib_shell/distributed_db_message.ml"
date date
let _ = let () =
Lwt_main.run (Lwt_process.exec (Lwt_process.shell sed)) Lwt_main.run (Lwt_process.exec (Lwt_process.shell sed) >>= fun _ ->
Lwt_unix.unlink "../src/lib_shell/distributed_db_message.ml.old")