From 9822710cf5e08d37e04ce72f169301f3087fe6db Mon Sep 17 00:00:00 2001
From: Luis Oliveira <loliveira@common-lisp.net>
Date: Sat, 18 Aug 2007 04:59:52 +0100
Subject: [PATCH] Echo protocol update.

Lots of details missing, but the server works. Yay!
---
 protocols/echo/echo.lisp | 55 +++++++++++++++++++-----------------------------
 1 file changed, 22 insertions(+), 33 deletions(-)

diff --git a/protocols/echo/echo.lisp b/protocols/echo/echo.lisp
index 94ec493..c6054b3 100644
--- a/protocols/echo/echo.lisp
+++ b/protocols/echo/echo.lisp
@@ -27,54 +27,43 @@
 (in-package #:cl-user)
 
 (defpackage #:net.echo
-  (:use #:cl #:io.event #:net.sockets))
+  (:use #:cl #:io.event)
+  (:export #:echo-server))
 
 (in-package #:net.echo)
 
 ;;;; Echo Server
 
-(defclass echo-server (tcp-server)
+(defclass echo-server (tcp-server udp-server)
   ()
-  (:default-initargs :protocol 'echo-server-stream-protocol)
-  (:documentation "Uses the TCP protocol by default."))
+  (:default-initargs :protocol 'echo-server-protocol
+                     :default-local-port 8)
+  (:documentation "Echo server."))
 
-(defclass echo-server-stream-protocol (stream-protocol)
+(defclass echo-server-protocol (stream-protocol datagram-protocol)
   ()
-  (:documentation "Echo protocol implementation. (TCP)"))
-
-(defmethod on-data-received ((con echo-server-stream-protocol) data)
-  (write-sequence data (transport-of con))
-  (finish-output (transport-of con)))
-
-
-
-
-
+  (:documentation "Server implementation of the Echo protocol. (TCP and UDP)"))
 
+(defmethod on-data-received ((con echo-server-protocol) transport data)
+  (write-data data transport))
 
-;;;; ....
-
-(defclass echo-server-datagram-protocol (datagram-protocol)
-  ()
-  (:documentation "Echo protocol implementation. (UDP)"))
-
-(defmethod)
+(defmethod on-datagram-received ((con echo-server-protocol)
+                                 transport datagram address port)
+  (write-datagram datagram address port transport))
 
 ;;;; Echo Client
 
-(defclass echo-client (client)
+#||
+(defclass echo-client (tcp-client)
   ()
-  (:default-initargs :protocol 'echo-client-stream-protocol)
+  (:default-initargs :protocol 'echo-client-protocol
+                     :default-remote-port 8)
   (:documentation "Uses the TCP protocol by default."))
 
-(defclass echo-client-stream-protocol (stream-protocol)
-  ()
-  (:documentation ""))
-
-(defmethod )
-
-(defclass echo-client-datagram-protocol (datagram-protocol)
+(defclass echo-client-protocol (stream-protocol)
   ()
-  (:documentation ""))
+  (:default-initargs :default-remote-port 8)
+  (:documentation "Client implementation of the Echo protocol. (TCP and UDP)"))
 
-(defmethod)
+(defmethod on-data-received ((con echo-client-protocol)))
+||#
\ No newline at end of file
-- 
2.11.4.GIT