examples/udp-client.lsp

   1 #!/usr/bin/newlisp
   2
   3 ; demo client for non-blocking UDP communications
   4 ;
   5 ; start the server program udp-server.lsp first
   6 ;
   7 ; note, that net-listen in UDP mode only binds the socket
   8 ; to the local address, it does not 'listen' as in TCP/IP
   9 ; v.1.0
  10
  11 (set 'socket (net-listen 10002 "" "udp"))
  12 (if (not socket) (println (net-error)))
  13 (while (not (net-error))
  14         (print "->")
  15         (net-send-to "127.0.0.1" 10001 (read-line) socket)
  16         (net-receive socket 'buff 255)
  17         (println "=>" buff))
  18
  19 ; eof
  20