From 03166ee15ae4ee854360ba49732015231edb8bb6 Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Mon, 25 Nov 2002 10:06:29 +0000 Subject: [PATCH] - added method 'param_all' to request objects --- helm/DEVEL/ocaml-http/debian/changelog | 7 +++++++ helm/DEVEL/ocaml-http/http_request.ml | 1 + helm/DEVEL/ocaml-http/http_types.ml | 1 + 3 files changed, 9 insertions(+) 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 -- 2.39.2