http_open/3 with headers and data

src/lib/http/http_open.pl

@@ -9,6 +9,15 @@
    Address is a list of characters, and includes the method. Both HTTP
    and HTTPS are supported.
 
+   Options supported:
+
+     * method(+Method): Sets the HTTP method of the call. Method can be get (default), head, delete, post, put or patch.
+     * data(+Data): Data to be sent in the request. Useful for POST, PUT and PATCH operations.
+     * size(-Size): Unifies with the value of the Content-Length header
+     * request_headers(+RequestHeaders): Headers to be used in the request
+     * headers(-ListHeaders): Unifies with a list with all headers returned in the response
+     * status_code(-Code): Unifies with the status code of the request (200, 201, 404, ...)
+
    Example:
 
        ?- http_open("https://github.com/mthom/scryer-prolog", S, []).
@@ -23,7 +32,12 @@
 http_open(Address, Response, Options) :-
     parse_http_options(Options, OptionValues),
     ( member(method(Method), OptionValues) -> true; Method = get),
-    '$http_open'(Address, Response, Method).
+    ( member(data(Data), OptionValues) -> true; Data = []),
+    ( member(request_headers(RequestHeaders), OptionValues) -> true; RequestHeaders = ['user-agent'("Scryer Prolog")]),
+    ( member(status_code(Code), OptionValues) -> true; true),
+    ( member(headers(Headers), OptionValues) -> true; true),
+    ( member(size(Size), OptionValues) -> member('content-length'(Size), Headers); true),
+    '$http_open'(Address, Response, Method, Code, Data, Headers, RequestHeaders).
 
 parse_http_options(Options, OptionValues) :-
     maplist(parse_http_options_, Options, OptionValues).
@@ -32,7 +46,23 @@ parse_http_options_(method(Method), method(Method)) :-
     (  var(Method) ->
        throw(error(instantiation_error, http_open/3))
     ;
-       lists:member(Method, [get, post, put, delete, patch, head]) -> true
+       member(Method, [get, post, put, delete, patch, head]) -> true
     ;
        throw(error(domain_error(http_option, method(Method)), _))
-    ).
+    ).
+
+parse_http_options_(data(Data), data(Data)) :-
+    (  var(Data) ->
+       throw(error(instantiation_error, http_open/3))
+    ;  true
+    ).
+
+parse_http_options_(request_headers(Headers), request_headers(Headers)) :-
+    (  var(Headers) ->
+       throw(error(instantiation_error, http_open/3))
+    ;  true
+    ).
+
+parse_http_options_(size(Size), size(Size)).
+parse_http_options_(status_code(Code), status_code(Code)).
+parse_http_options_(headers(Headers), headers(Headers)).