http package (only partially working)

2010-06-23 11:52:34 +01:00
parent 6e956b879a
commit 4694a50fa5
98 changed files with 20952 additions and 4 deletions
--- a/packages/http/examples/demo_threads.pl
+++ b/packages/http/examples/demo_threads.pl
@@ -0,0 +1,30 @@
+/*  $Id$
+
+    Part of SWI-Prolog
+
+    Author:  Jan Wielemaker
+    E-mail:  jan@swi.psy.uva.nl
+    WWW:     http://www.swi.psy.uva.nl/projects/SWI-Prolog/
+    Copying: GPL-2.  See the file COPYING or http://www.gnu.org
+
+    Copyright (C) 1990-2001 SWI, University of Amsterdam. All rights reserved.
+*/
+
+:- load_files([ demo_body,
+		library('http/thread_httpd')
+	      ],
+	      [ silent(true)
+	      ]).
+
+server :-
+	server(3000, []).
+
+server(Port, Options) :-
+	http_server(reply,
+		    [ port(Port),
+		      timeout(20)
+		    | Options
+		    ]).
+
+tm :-
+	prolog_ide(thread_monitor).