Plasma GitLab Archive
Projects Blog Knowledge

sig
  type plan
  type action = Ftp_client.Action.plan -> unit
  val ftp_state : Ftp_client.Action.plan -> Ftp_client.ftp_state
  val execute :
    onreply:(Ftp_client.ftp_state -> Ftp_client.reply -> unit) ->
    onerror:(Ftp_client.ftp_state -> Ftp_client.reply -> unit) ->
    Ftp_client.ftp_client_pi -> Ftp_client.Action.action -> unit
  val empty : Ftp_client.Action.action
  val command : Ftp_client.cmd -> Ftp_client.Action.action
  val dyn_command : (unit -> Ftp_client.cmd) -> Ftp_client.Action.action
  val seq2 :
    Ftp_client.Action.action ->
    Ftp_client.Action.action -> Ftp_client.Action.action
  val full_seq2 :
    Ftp_client.Action.action ->
    (Ftp_client.reply -> Ftp_client.Action.action) ->
    Ftp_client.Action.action
  val seq : Ftp_client.Action.action list -> Ftp_client.Action.action
  val expect :
    Ftp_client.cmd_state ->
    Ftp_client.Action.action -> Ftp_client.Action.action
  val seq2_case :
    Ftp_client.Action.action ->
    (Ftp_client.cmd_state * Ftp_client.Action.action) list ->
    Ftp_client.Action.action
end
This web site is published by Informatikbüro Gerd Stolpmann
Powered by Caml