/usr/lib/ocaml/obrowser/lwt_obrowser.mli is in libobrowser-ocaml-dev 1.1.1+dfsg-1build3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | (* Lightweight thread library for Objective Caml
* http://www.ocsigen.org/lwt
* Interface Lwt_obrowser
* Copyright (C) 2009 Vincent Balat
* Laboratoire PPS - CNRS Université Paris Diderot
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as
* published by the Free Software Foundation, with linking exceptions;
* either version 2.1 of the License, or (at your option) any later
* version. See COPYING file for details.
*
* This program 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
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
* 02111-1307, USA.
*)
(** This module corresponds to Lwt_unix but in an O'Browser environment. *)
(** {6 Sleeping} *)
val sleep : float -> unit Lwt.t
(** [sleep d] is a threads which remain suspended for [d] seconds
and then terminates. *)
val yield : unit -> unit Lwt.t
(** [yield ()] is a threads which suspends itself and then resumes
as soon as possible and terminates.
Unlike [Lwt_preemtive.yield],
that version will also let the browser work if it has something to
do (for example redraw the page).
*)
val run : 'a Lwt.t -> 'a
(*
exception Timeout
(** Exception raised by timeout operations *)
val timeout : float -> 'a Lwt.t
(** [timeout d] is a threads which remain suspended for [d] seconds
then fail with {!Timeout} *)
val with_timeout : float -> (unit -> 'a Lwt.t) -> 'a Lwt.t
(** [with_timeout d f] is a short-hand for:
{[
Lwt.select [Lwt_unix.timeout d; f ()]
]}
*)
*)
(** [http_get url args] sends an HTTP GET request to the server with GET
* arguments [args] nicely encoded and return
* [(code, message)] where [code] is the HTTP code and [message] the content of
* the answer. *)
val http_get : string -> (string * string) list -> (int * string) Lwt.t
(** [http_post url args] sends an HTTP POST request to the server with POST
* arguments [args] nicely encoded and return
* [(code, message)] where [code] is the HTTP code and [message] the content of
* the answer. *)
val http_post : string -> (string * string) list -> (int * string) Lwt.t
(** [http_get_post url get_args post_args] makes an HTTP POST request with
* [get_args] encoded and appended to [url] and [post_args]Â as POST arguments.
* It's result also is [(code,message)] *)
val http_get_post :
string ->
(string * string) list ->
(string * string) list ->
(int * string) Lwt.t
(** [http_post_with_content_type url ct args] sends an HTTP POST request to the
* server with POST arguments [args] nicely encoded, with Content-Type set to
* [ct]. The returned value is [(code, message)] where [code] is the HTTP code
* and [message] the content of the answer. *)
val http_post_with_content_type : string -> string -> (string * string) list
-> (int * string) Lwt.t
(** Register a Lwt thread on a DOM event. *)
val register_event : JSOO.obj -> string -> ('a -> unit Lwt.t) -> 'a -> unit
|