1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
:- use_module(library(http/thread_httpd)).
:- use_module(library(http/http_parameters)).
:- use_module(library(http/http_dispatch)).
:- use_module(library(http/http_error)).
:- use_module(library(http/html_write)).
:- use_module(library(http/http_pwp)).
:- prolog_load_context(directory, Dir),
asserta(user:file_search_path(http_demo, Dir)).
user:file_search_path(pwp_demo, http_demo(pwp)).
:- http_handler(root(.),
pwp_handler([path_alias(pwp_demo), view(true)]),
[prefix]).
server(Port) :-
http_server(http_dispatch, [port(Port)]).
|
