Module Awa.Channel

val src : Logs.src
module Log : Logs.LOG
type state =
  1. | Open
  2. | Sent_close
type channel_end = {
  1. id : int;
  2. win : int;
  3. max_pkt : int;
}
type channel = {
  1. us : channel_end;
  2. them : channel_end;
  3. state : state;
  4. tosend : string;
}
val compare : channel -> channel -> int
type t = channel
module Ordered : sig ... end
val make_end : int -> int -> int -> (channel_end, [> `Msg of string ]) Stdlib.result
val make : us:channel_end -> them:channel_end -> channel
val maybe_split : int -> string -> string * int
val input_data : channel -> string -> (channel * string * Ssh.message option, string) Stdlib.result
val output_data : flush:bool -> channel -> string -> (channel * Ssh.message list, string) Stdlib.result
val flush : channel -> (channel * Ssh.message list, string) Stdlib.result
val adjust_window : channel -> int -> (channel * Ssh.message list, string) Stdlib.result
module Channel_map : sig ... end
val empty_db : 'a Channel_map.t
val is_empty : 'a Channel_map.t -> bool
val next_free : 'a Channel_map.t -> int option
val add : id:int -> win:int -> max_pkt:int -> channel Channel_map.t -> (channel * channel Channel_map.t, [> `Msg of string | `No_channels_left ]) Stdlib.result
val lookup : Channel_map.key -> 'a Channel_map.t -> 'a option
val id : channel -> int
val their_id : channel -> int