b6449cae87
* `lib_stdlib`: basic extended OCaml stdlib and generic data structures
* `lib_data_encoding`: almost independant 'Data_encoding'
* `lib_error_monad`: almost independant 'Error_monad'
* `lib_stdlib_lwt`: extended Lwt library
* `lib_crypto`: all the crypto stuff (hashing, signing, cryptobox).
* `lib_base`:
- basic type definitions (Block_header, Operation, ...)
- a module `TzPervasives` to bind them all and to be the
single module opened everywhere.
In the process, I splitted `Tezos_data` and `Hash` in multiple
submodules, thus removing a lot of `-open`.
The following two modules may not have found their place yet:
- Base58 (currently in `lib_crypto`)
- Cli_entries (currently in `lib_stdlib_lwt`)
91 lines
2.8 KiB
OCaml
91 lines
2.8 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2017. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
module type LOG = sig
|
|
|
|
val debug: ('a, Format.formatter, unit, unit) format4 -> 'a
|
|
val log_info: ('a, Format.formatter, unit, unit) format4 -> 'a
|
|
val log_notice: ('a, Format.formatter, unit, unit) format4 -> 'a
|
|
val warn: ('a, Format.formatter, unit, unit) format4 -> 'a
|
|
val log_error: ('a, Format.formatter, unit, unit) format4 -> 'a
|
|
val fatal_error: ('a, Format.formatter, unit, unit) format4 -> 'a
|
|
|
|
val lwt_debug: ('a, Format.formatter, unit, unit Lwt.t) format4 -> 'a
|
|
val lwt_log_info: ('a, Format.formatter, unit, unit Lwt.t) format4 -> 'a
|
|
val lwt_log_notice: ('a, Format.formatter, unit, unit Lwt.t) format4 -> 'a
|
|
val lwt_warn: ('a, Format.formatter, unit, unit Lwt.t) format4 -> 'a
|
|
val lwt_log_error: ('a, Format.formatter, unit, unit Lwt.t) format4 -> 'a
|
|
|
|
end
|
|
|
|
module Core : LOG
|
|
module Net : LOG
|
|
module RPC : LOG
|
|
module Db : LOG
|
|
module Updater : LOG
|
|
module Node : sig
|
|
module State : LOG
|
|
module Validator : LOG
|
|
module Prevalidator : LOG
|
|
module Discoverer : LOG
|
|
module Worker : LOG
|
|
module Main : LOG
|
|
end
|
|
module Client : sig
|
|
module Blocks : LOG
|
|
module Baking : LOG
|
|
module Endorsement : LOG
|
|
module Revelation : LOG
|
|
module Denunciation : LOG
|
|
end
|
|
|
|
module Make(S: sig val name: string end) : LOG
|
|
|
|
type level = Lwt_log_core.level =
|
|
| Debug
|
|
(** Debugging message. They can be automatically removed by the
|
|
syntax extension. *)
|
|
| Info
|
|
(** Informational message. Suitable to be displayed when the
|
|
program is in verbose mode. *)
|
|
| Notice
|
|
(** Same as {!Info}, but is displayed by default. *)
|
|
| Warning
|
|
(** Something strange happend *)
|
|
| Error
|
|
(** An error message, which should not means the end of the
|
|
program. *)
|
|
| Fatal
|
|
|
|
type template = Lwt_log.template
|
|
val default_template : template
|
|
|
|
val level_encoding : level Data_encoding.t
|
|
|
|
module Output : sig
|
|
type t =
|
|
| Null
|
|
| Stdout
|
|
| Stderr
|
|
| File of string
|
|
| Syslog of Lwt_log.syslog_facility
|
|
|
|
val encoding : t Data_encoding.t
|
|
val of_string : string -> t option
|
|
val to_string : t -> string
|
|
val pp : Format.formatter -> t -> unit
|
|
end
|
|
|
|
|
|
val init: ?template:template -> Output.t -> unit Lwt.t
|
|
|
|
val close: unit -> unit Lwt.t
|
|
|
|
val sections : string list ref
|