From: Stefano Zacchiroli Date: Mon, 25 Nov 2002 10:06:29 +0000 (+0000) Subject: - added method 'param_all' to request objects X-Git-Tag: V_0_0_6~62 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=03166ee15ae4ee854360ba49732015231edb8bb6;p=helm.git - added method 'param_all' to request objects --- diff --git a/helm/DEVEL/ocaml-http/debian/changelog b/helm/DEVEL/ocaml-http/debian/changelog index a360381ff..6c6e399a7 100644 --- a/helm/DEVEL/ocaml-http/debian/changelog +++ b/helm/DEVEL/ocaml-http/debian/changelog @@ -1,3 +1,10 @@ +ocaml-http (0.0.6) unstable; urgency=low + + * Added support for multiple binding of the same parameter in request + objects (new method: 'param_all') + + -- Stefano Zacchiroli Mon, 25 Nov 2002 11:04:49 +0100 + ocaml-http (0.0.5) unstable; urgency=low * Fixed bug for HTTP encoded GET parameters which contain '?' or '&' diff --git a/helm/DEVEL/ocaml-http/http_request.ml b/helm/DEVEL/ocaml-http/http_request.ml index 91bc98a67..c95d19846 100644 --- a/helm/DEVEL/ocaml-http/http_request.ml +++ b/helm/DEVEL/ocaml-http/http_request.ml @@ -39,6 +39,7 @@ class request ~path ~params = Hashtbl.find params_tbl name with Not_found -> raise (Param_not_found name) + method param_all name = List.rev (Hashtbl.find_all params_tbl name) method params = params end diff --git a/helm/DEVEL/ocaml-http/http_types.ml b/helm/DEVEL/ocaml-http/http_types.ml index 70c8fce63..18e2a88ab 100644 --- a/helm/DEVEL/ocaml-http/http_types.ml +++ b/helm/DEVEL/ocaml-http/http_types.ml @@ -156,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