1/* $Id$ 2 3 Part of SWI-Prolog 4 5 Author: Jan Wielemaker 6 E-mail: jan@swi.psy.uva.nl 7 WWW: http://www.swi.psy.uva.nl/projects/SWI-Prolog/ 8 Copying: GPL-2. See the file COPYING or http://www.gnu.org 9 10 Copyright (C) 1990-2001 SWI, University of Amsterdam. All rights reserved. 11*/ 12 13:- load_files([ demo_body, 14 library('http/thread_httpd') 15 ], 16 [ silent(true) 17 ]). 18 19server :- 20 server(3000, []). 21 22server(Port, Options) :- 23 http_server(reply, 24 [ port(Port), 25 timeout(20) 26 | Options 27 ]). 28 29tm :- 30 prolog_ide(thread_monitor). 31