Mavryk_node (flexmasa.Flexmasa.Mavryk

type custom_network = [

| `Json of Ezjsonm.value

]

type t = private {

id : Internal_pervasives.string;
expected_connections : Internal_pervasives.int;
rpc_port : Internal_pervasives.int;
p2p_port : Internal_pervasives.int;
peers : Internal_pervasives.int Internal_pervasives.list;
exec : Mavryk_executable.t;
protocol : Mavryk_protocol.t;
history_mode : [ `Archive | `Full of Internal_pervasives.int | `Rolling of Internal_pervasives.int ] Internal_pervasives.option;
single_process : Internal_pervasives.bool;
cors_origin : Internal_pervasives.string Internal_pervasives.option;
custom_network : custom_network Internal_pervasives.option;

}

val compare : t -> t -> Internal_pervasives.int

val equal : t -> t -> Internal_pervasives.bool

val ef : t -> Easy_format.t

val pp : t Fmt.t

val make : 
  ?cors_origin:Internal_pervasives.string ->
  exec:Mavryk_executable.t ->
  ?protocol:Mavryk_protocol.t ->
  ?custom_network:[ `Json of Ezjsonm.value ] ->
  ?single_process:Internal_pervasives.bool ->
  ?history_mode:
    [ `Archive
    | `Full of Internal_pervasives.int
    | `Rolling of Internal_pervasives.int ] ->
  Internal_pervasives.string ->
  expected_connections:Internal_pervasives.int ->
  rpc_port:Internal_pervasives.int ->
  p2p_port:Internal_pervasives.int ->
  Internal_pervasives.int Internal_pervasives.list ->
  t

Create a node value (inert, not started), see "mavkit-node run --help" for corresponding parameters.

?single_process: defaults to true (for now since multi-process validations still suffers from some bugs).
?history_mode: defaults to leaving the node's default (i.e. `Full).
?cors_origin: defaults to Some "*" (most permissive).

val data_dir : < paths : Paths.t.. > -> t -> Internal_pervasives.string

val config_file : < paths : Paths.t.. > -> t -> Internal_pervasives.string

val identity_file : < paths : Paths.t.. > -> t -> Internal_pervasives.string

val log_output : < paths : Paths.t.. > -> t -> Internal_pervasives.string

val exec_path : < paths : Paths.t.. > -> t -> Internal_pervasives.string

val node_command : 
  < env_config : Environment_configuration.t ; paths : Paths.t.. > ->
  t ->
  Internal_pervasives.string Internal_pervasives.list ->
  Internal_pervasives.string Internal_pervasives.list ->
  Internal_pervasives.unit Genspio.Language.t

val run_command : 
  < env_config : Environment_configuration.t ; paths : Paths.t.. > ->
  t ->
  Internal_pervasives.unit Genspio.Language.t

val start_script : 
  < env_config : Environment_configuration.t ; paths : Paths.t.. > ->
  t ->
  Internal_pervasives.unit Genspio.Language.t

val process : 
  < env_config : Environment_configuration.t ; paths : Paths.t.. > ->
  t ->
  Running_processes.Process.t

val protocol : t -> Mavryk_protocol.t

val connections : 
  t Internal_pervasives.list ->
  [ `Duplex of t * t
  | `From_to of t * t
  | `Missing of t * Internal_pervasives.int ]
    Internal_pervasives.list

module History_modes : sig ... end

module Config_file : sig ... end