loic/remote-snake
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove useless file

Browse source
This commit is contained in:
Loic Guegan 2019-05-10 13:29:45 +02:00
parent 38d9702266
commit 05aee16e24
1 changed files with 0 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
server/server-example.lisp
View file

@ -1,34 +0,0 @@
(ql:quickload "usocket")
(ql:quickload "babel")
(defparameter buf (make-array 10
:element-type '(unsigned-byte 8)
:adjustable nil
:fill-pointer nil
:displaced-to nil
:initial-element 0))
;(defparameter s (usocket:socket-listen "localhost" 8080))
(defparameter su (usocket:socket-connect nil nil :protocol :datagram :local-host "localhost" :local-port 8080))
;; (defun display-buf (buf)
;; (let* ((message (flexi-streams:octets-to-string buf :external-format :utf-8 :end 10))
;; (trimmed-message (trim message)))
;; (format t "~a" trimmed-message)))
(defun process (sock)
(multiple-value-bind (recv size remote-host remote-port)
(usocket:socket-receive su buf 10)
(format t "~a" (babel:octets-to-string buf :encoding :utf-8))
(usocket:socket-send sock buf 10 :host remote-host :port remote-port)))
(defun again ()
(loop
(loop for sock in (usocket:wait-for-input `(,su) :ready-only t)
do (process sock))))