1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(*
* Copyright (C) 2007-2009 The laby team
* You have permission to copy, modify, and redistribute under the
* terms of the GPL-3.0. For full license terms, see gpl-3.0.txt.
*)
type query = string * (string -> unit)
type t =
<
set_name: string -> unit;
get_name: string;
errto: (string -> unit) -> unit;
set_buf: string -> unit;
get_buf: string;
start: bool;
probe: query option;
close: unit;
help: string -> string;
>
val make : unit -> t
|