ligo/lib_embedded_client_alpha/client_proto_main.ml

(**************************************************************************)
(*                                                                        *)
(*    Copyright (c) 2014 - 2017.                                          *)
(*    Dynamic Ledger Solutions, Inc. <contact@tezos.com>                  *)
(*                                                                        *)
(*    All rights reserved. No warranty, explicit or implicit, provided.   *)
(*                                                                        *)
(**************************************************************************)

let protocol =
  Protocol_hash.of_b58check_exn
    "ProtoALphaALphaALphaALphaALphaALphaALphaALphaDdp3zK"

let () =
  Client_commands.register protocol @@
  Client_proto_programs.commands () @
  Client_proto_contracts.commands () @
  Client_proto_context.commands ()
First public release 2016-09-08 21:13:10 +04:00			`(**************************************************************************)`
			`(* *)`
Almost too late for copyright update. 2017-11-14 03:36:14 +04:00			`(* Copyright (c) 2014 - 2017. *)`
First public release 2016-09-08 21:13:10 +04:00			`(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)`
			`(* *)`
			`(* All rights reserved. No warranty, explicit or implicit, provided. *)`
			`(* *)`
			`(**************************************************************************)`

			`let protocol =`
Client: a bit of `Error_monad` in `Hash` 2017-04-05 11:54:21 +04:00			`Protocol_hash.of_b58check_exn`
Switch to Base58. Base48 was fun but... hell yeah... let's stay standard. Public encoding of hash: ``` Block: "B..." (len: 51) Operation: "o..." (len: 51) Protocol: "P..." (len: 51) Ed25519: "tz1.." (len: 36) Contract: "TZ1.." (len: 36) NetworkdId: "id.." (len: 30) ``` Other internal prefixes (in the RPC): ``` Hash of Michelson's expression: "expr..." (len: 54) Ed25519 public key: "edpk..." (len: 54) Ed25519 secret key: "edsk..." (len: 98) Ed25519 signature: "edsig.." (len: 99) Hash of a random seed nonce: "nce...." (len: 53) Random seed: "rng...." (len: 53) ``` 2017-02-19 21:22:32 +04:00			`"ProtoALphaALphaALphaALphaALphaALphaALphaALphaDdp3zK"`
First public release 2016-09-08 21:13:10 +04:00
			`let () =`
Client: add a context to command evaluation. 2016-12-03 16:05:02 +04:00			`Client_commands.register protocol @@`
First public release 2016-09-08 21:13:10 +04:00			`Client_proto_programs.commands () @`
			`Client_proto_contracts.commands () @`
			`Client_proto_context.commands ()`