Arouter http_daemon

code.pl

:- use_module(library(http/thread_httpd)).
:- use_module(library(http/http_dispatch)).
:- use_module(library(http/http_unix_daemon)).
:- use_module(prolog/arouter).

:- route_get(hello/Name, handle_hello(Name)).

handle_hello(Name):-
    format('Content-Type: text/plain; charset=UTF-8~n~n'),
    format('Hello ~w', [Name]).

http_unix_daemon:http_server_hook(Options):-
    http_server(handle_request, Options).

handle_request(Request):-
    (   aroute(Request)
    ->  true
    ;   http_dispatch(Request)).

:- initialization(http_daemon, main).