- added method 'param_all' to request objects

[helm.git] / helm / DEVEL / ocaml-http / http_types.ml

diff --git a/helm/DEVEL/ocaml-http/http_types.ml b/helm/DEVEL/ocaml-http/http_types.ml
index 37621ef0771357f280ed04dfc5d120c6a78aee56..18e2a88ab43851a5be00efc900afbdcc4d7dbd4c 100644 (file)
--- a/helm/DEVEL/ocaml-http/http_types.ml
+++ b/helm/DEVEL/ocaml-http/http_types.ml
@@ -26,6 +26,13 @@ type version =
 
 type meth = [ `GET ]
 
+type daemon_mode = [ `Single | `Fork | `Thread ]
+
+type tcp_server =
+  sockaddr:Unix.sockaddr -> timeout:int option ->
+  (in_channel -> out_channel -> unit) ->
+    unit
+
 type informational_substatus =
   [ `Continue
   | `Switching_protocols
@@ -125,6 +132,7 @@ class type response =
     method addContents: string -> unit
     method addContentsBuf: Buffer.t -> unit
     method addHeader: name:string -> value:string -> unit
+    method addBasicHeaders: unit
     method replaceHeader: name:string -> value:string -> unit
     method removeHeader: name:string -> unit
     method hasHeader: name:string -> bool
@@ -140,6 +148,7 @@ class type response =
     method setExpires: string -> unit
     method server: string
     method setServer: string -> unit
+    method toString: string
     method serialize: out_channel -> unit
   end
 class type request =
@@ -147,5 +156,6 @@ class type request =
     method uri: string
     method path: string
     method param: string -> string
+    method param_all: string -> string list
     method params: (string * string) list
   end