[usocket-cvs] r365 - trivial-sockets

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Jul 13 14:19:33 2008
New Revision: 365

Modified:
   trivial-sockets/README
Log:
Update trivial-sockets/README.

Modified: trivial-sockets/README
==============================================================================
--- trivial-sockets/README	(original)
+++ trivial-sockets/README	Sun Jul 13 14:19:33 2008
@@ -1,19 +1,31 @@
-Trivial-sockets: 
+
+*
+*  NOTE NOTE *****  IMPORTANT *****
+*
+*
+*  This package is no longer maintained.  If you're looking for a sockets
+*  library which does receive maintenance, check out usocket.
+*
+*  You can find usocket at http://common-lisp.net/project/usocket/
+*
+
+
+Trivial-sockets:
   server and client stream sockets for undemanding network applications
 
 Usage examples:
 
-(with-open-stream (s (trivial-sockets:open-stream "www.google.com" 80)) 
-  (format s "HEAD / HTTP/1.0~%Host: www.google.com~%~%") 
-  (force-output s) 
-  (loop 
-    (let ((l (read-line s nil nil))) 
-      (unless l (return)) 
+(with-open-stream (s (trivial-sockets:open-stream "www.google.com" 80))
+  (format s "HEAD / HTTP/1.0~%Host: www.google.com~%~%")
+  (force-output s)
+  (loop
+    (let ((l (read-line s nil nil)))
+      (unless l (return))
       (princ l) (terpri))))
 
 (trivial-sockets:with-server (s (:port 8913 :reuse-address t))
    (loop
-    (with-open-stream (c (trivial-sockets:accept-connection s)) 
+    (with-open-stream (c (trivial-sockets:accept-connection s))
         (read-line c)
         (format c "Hi there!~%"))))
 
@@ -26,7 +38,7 @@
 
 Installation:
 
-Use asdf-install.  
+Use asdf-install.
 
   * (asdf:operate 'asdf:load-op 'asdf-install)
   * (asdf-install:install 'trivial-sockets)