Permalink
Browse files

llio.mli

  • Loading branch information...
1 parent fe4ba39 commit 47c024cd0497d6153842f836b4171bb8e5e37d6e Romain Slootmaekers committed Jul 8, 2011
Showing with 72 additions and 1 deletion.
  1. +1 −1 COMPILING
  2. +2 −0 Makefile
  3. +69 −0 src/tools/llio.mli
View
@@ -20,7 +20,7 @@ executable
ocamlbuild -use-ocamlfind arakoon.native ==> arakoon.native
libraries
- ocamlbuild -use-ocamlfind arakoon_client.cma arakoon_client.cmxa ==>
+ ocamlbuild -use-ocamlfind arakoon_client.cma arakoon_client.cmxa arakoon_client.a ==>
_build/src/arakoon_client.cma
_build/src/arakoon_client.cmxa
src/client/arakoon_exc.mli
View
@@ -34,6 +34,8 @@ install_client:
_build/src/client/arakoon_remote_client.cmi \
_build/src/plugins/registry.mli \
_build/src/plugins/registry.cmi \
+ _build/src/tools/llio.mli \
+ _build/src/tools/llio.cmi \
_build/src/arakoon_client.a
uninstall_client:
View
@@ -0,0 +1,69 @@
+(*
+This file is part of Arakoon, a distributed key-value store. Copyright
+(C) 2010 Incubaid BVBA
+
+Licensees holding a valid Incubaid license may use this file in
+accordance with Incubaid's Arakoon commercial license agreement. For
+more information on how to enter into this agreement, please contact
+Incubaid (contact details can be found on www.arakoon.org/licensing).
+
+Alternatively, this file may be redistributed and/or modified under
+the terms of the GNU Affero General Public License version 3, as
+published by the Free Software Foundation. Under this license, this
+file is distributed in the hope that it will be useful, but WITHOUT
+ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE.
+
+See the GNU Affero General Public License for more details.
+You should have received a copy of the
+GNU Affero General Public License along with this program (file "COPYING").
+If not, see <http://www.gnu.org/licenses/>.
+*)
+
+val lwt_failfmt : ('a, unit, string, 'b Lwt.t) format4 -> 'a
+
+val bool_to : Buffer.t -> bool -> unit
+val int_to : Buffer.t -> int -> unit
+val int32_to : Buffer.t -> int32 -> unit
+val int64_to : Buffer.t -> int64 -> unit
+val float_to : Buffer.t -> float -> unit
+val string_to: Buffer.t -> string -> unit
+val option_to: (Buffer.t -> 'a -> unit) -> Buffer.t -> 'a option -> unit
+val string_option_to: Buffer.t -> string option -> unit
+
+val bool_from : string -> int -> bool * int
+val int_from : string -> int -> int * int
+val int32_from: string -> int -> int32 * int
+val int64_from: string -> int -> int64 * int
+val float_from: string -> int -> float * int
+val string_from: string -> int -> string * int
+val option_from: (string -> int -> 'a * int) -> string -> int -> 'a option * int
+val string_option_from: string -> int -> string option * int
+
+val output_bool: Lwt_io.output_channel -> bool -> unit Lwt.t
+val output_int: Lwt_io.output_channel -> int -> unit Lwt.t
+val output_int32: Lwt_io.output_channel -> int32 -> unit Lwt.t
+val output_int64: Lwt_io.output_channel -> int64 -> unit Lwt.t
+val output_string_option: Lwt_io.output_channel -> string option -> unit Lwt.t
+val output_string: Lwt_io.output_channel -> string -> unit Lwt.t
+val output_list:
+ (Lwt_io.output_channel -> 'a -> unit Lwt.t) ->
+ Lwt_io.output_channel -> 'a list -> unit Lwt.t
+
+val output_string_pair : Lwt_io.output_channel -> (string * string) -> unit Lwt.t
+
+val input_bool: Lwt_io.input_channel -> bool Lwt.t
+val input_int: Lwt_io.input_channel -> int Lwt.t
+val input_int32: Lwt_io.input_channel -> int32 Lwt.t
+val input_int64: Lwt_io.input_channel -> int64 Lwt.t
+val input_string: Lwt_io.input_channel -> string Lwt.t
+val input_string_option: Lwt_io.input_channel -> (string option) Lwt.t
+val input_string_pair: Lwt_io.input_channel -> (string * string) Lwt.t
+val input_list:(Lwt_io.input_channel -> 'a Lwt.t) -> Lwt_io.input_channel -> 'a list Lwt.t
+
+
+val copy_stream:
+ length:int64 ->
+ ic:Lwt_io.input_channel ->
+ oc:Lwt_io.output_channel
+ -> unit Lwt.t

0 comments on commit 47c024c

Please sign in to comment.