http package (only partially working)
This commit is contained in:
20
packages/http/examples/demo_pwp.pl
Normal file
20
packages/http/examples/demo_pwp.pl
Normal file
@@ -0,0 +1,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)]).
|
||||
|
||||
|
Reference in New Issue
Block a user