protocols/echo/echo.lisp

   1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; echo.lisp --- Server and client implementations of the ECHO protocol.
   4 ;;;
   5 ;;; Copyright (C) 2007, Luis Oliveira  <loliveira@common-lisp.net>
   6 ;;;
   7 ;;; Permission is hereby granted, free of charge, to any person
   8 ;;; obtaining a copy of this software and associated documentation
   9 ;;; files (the "Software"), to deal in the Software without
  10 ;;; restriction, including without limitation the rights to use, copy,
  11 ;;; modify, merge, publish, distribute, sublicense, and/or sell copies
  12 ;;; of the Software, and to permit persons to whom the Software is
  13 ;;; furnished to do so, subject to the following conditions:
  14 ;;;
  15 ;;; The above copyright notice and this permission notice shall be
  16 ;;; included in all copies or substantial portions of the Software.
  17 ;;;
  18 ;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  19 ;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  20 ;;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  21 ;;; NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
  22 ;;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
  23 ;;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  24 ;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
  25 ;;; DEALINGS IN THE SOFTWARE.
  26
  27 (in-package #:cl-user)
  28
  29 (defpackage #:net.echo
  30   (:use #:cl #:io.event #:net.sockets))
  31
  32 (in-package #:net.echo)
  33
  34 ;;;; Echo Server
  35
  36 (defclass echo-server (tcp-server)
  37   ()
  38   (:default-initargs :protocol 'echo-server-stream-protocol)
  39   (:documentation "Uses the TCP protocol by default."))
  40
  41 (defclass echo-server-stream-protocol (stream-protocol)
  42   ()
  43   (:documentation "Echo protocol implementation. (TCP)"))
  44
  45 (defmethod on-data-received ((con echo-server-stream-protocol) data)
  46   (write-sequence data (transport-of con))
  47   (finish-output (transport-of con)))
  48
  49
  50
  51
  52
  53
  54
  55 ;;;; ....
  56
  57 (defclass echo-server-datagram-protocol (datagram-protocol)
  58   ()
  59   (:documentation "Echo protocol implementation. (UDP)"))
  60
  61 (defmethod)
  62
  63 ;;;; Echo Client
  64
  65 (defclass echo-client (client)
  66   ()
  67   (:default-initargs :protocol 'echo-client-stream-protocol)
  68   (:documentation "Uses the TCP protocol by default."))
  69
  70 (defclass echo-client-stream-protocol (stream-protocol)
  71   ()
  72   (:documentation ""))
  73
  74 (defmethod )
  75
  76 (defclass echo-client-datagram-protocol (datagram-protocol)
  77   ()
  78   (:documentation ""))
  79
  80 (defmethod)