Modify the ping example to wait for the reply
authorStelian Ionescu <sionescu@cddr.org>
Mon, 14 Oct 2013 15:11:09 +0000 (14 17:11 +0200)
committerStelian Ionescu <sionescu@cddr.org>
Mon, 14 Oct 2013 15:11:09 +0000 (14 17:11 +0200)
extras/ping.lisp

index c4dd51f..9040252 100644 (file)
@@ -59,4 +59,6 @@
           (write-ip-header ip-header frame-size (dotted-to-integer target))
           (setf (mem-ref payload :uint32) (htonl #x1A2B3C4D))
           (write-icmp-header icmp-header icmp-packet-size id seqno)
-          (send-to socket frame :end frame-size :remote-host target))))))
+          (send-to socket frame :end frame-size :remote-host target)
+          (iolib/multiplex:wait-until-fd-ready (socket-os-fd socket) :input)
+          (receive-from socket :size (* 64 1024)))))))