Logtalk Http Server

http_server.lgt

:- http_dispatch:http_handler(/, user:say_hi, []).
:- http_dispatch:http_handler(root(sam), user:say_hi_sam, []). %root(sam) -> GET -> <addr>/sam

say_hi(_Request) :-					% (3)
	http_server::say_hi(_Request).

say_hi_sam(_Request) :-
	http_server::say_hi_sam(_Request).

:- object(http_server).

	:- public(run/0).
	run :-
		{ thread_httpd:http_server(
			http_dispatch:http_dispatch,
			[port(8080)]) }.
	
	:- public(say_hi/1).	
	say_hi(_Request) :-					% (3)
			format('Content-type: text/plain~n~n'),
			format('Screw the World!~n').
	
	:- public(say_hi_sam/1).	
	say_hi_sam(_Request) :-					% (3)
			format('Content-type: text/plain~n~n'),
			format('Hello Sam!~n').

:- end_object.

loader.lgt

:- use_module(library(http/thread_httpd), []).

:- use_module(library(http/http_dispatch), []).

:- initialization((
        logtalk_load(http_server)
)).