Merge pull request #830 from aarroyoc/rebis-http

Fix HTTP server on Rebis. Breaking change

src/lib/http/http_server.pl

@@ -10,7 +10,7 @@
    Usage
    ==========
    The main predicate of the library is http_listen/2, which needs a port number
-    (usually 80) and a list of handlers. A handler is a compund term with the functor
+    (usually 80) and a list of handlers. A handler is created using the http_route/3 predicate
    as one HTTP method (in lowercase) and followed by a Route Match and a predicate
    which will handle the call.
 
@@ -21,9 +21,12 @@
    parameter_handler(User, Request, Response) :-
     http_body(Response, text(User)).
 
+   server :-
+       http_route(get(echo), text_handler, TextHandler),
+       http_route(post(user/User), parameter_handler(User), ParameterHandler),
        http_listen(7890, [
-        get(echo, text_handler),           % GET /echo
+            TextHandler,           % GET /echo
-        post(user/User, parameter_handler(User)) % POST /user/<User>
+            ParameterHandler % POST /user/<User>
        ]).
 
    Every handler predicate will have at least 2-arity, with Request and Response.
@@ -49,6 +52,7 @@
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
 
 :- module(http_server, [
+    http_route/3,
     http_listen/2,
     http_headers/2,
     http_status_code/2,
@@ -58,6 +62,8 @@
     url_decode//1
 ]).
 
+:- meta_predicate http_route(?, 2, ?).
+
 :- use_module(library(sockets)).
 :- use_module(library(dcgs)).
 :- use_module(library(format)).
@@ -68,6 +74,10 @@
 :- use_module(library(time)).
 :- use_module(library(crypto)).
 
+http_route(Path, Handler, MetaHandler) :-
+    Path =.. [Method, Pattern],
+    MetaHandler =.. [Method, Pattern, Handler].
+
 % Server initialization
 http_listen(Port, Handlers) :-
     must_be(integer, Port),
@@ -99,7 +109,7 @@ accept_loop(Socket, Handlers) :-
                                 HttpResponse = http_response(_, _, _),
                                 (call(Handler, HttpRequest, HttpResponse) ->
                                     send_response(Stream, HttpResponse)
-                                ;   format(Stream, "HTTP/1.0 500 Internal Server Error\r\n\r\n")
+                                ;   format(Stream, "HTTP/1.0 500 Internal Server Error\r\n\r\n", [])
                                 )
                             )
                         ;   format(Stream, "HTTP/1.0 404 Not Found\r\n\r\n", [])