24 lines
550 B
Plaintext
24 lines
550 B
Plaintext
#!/usr/bin/env newlisp
|
|
|
|
; Demo client for non-blocking UDP communications
|
|
;
|
|
; Start the server program udp-server.lsp first.
|
|
;
|
|
; Note, that net-listen in UDP mode only binds the socket
|
|
; to the local address, it does not 'listen' as in TCP/IP.
|
|
; v.1.0
|
|
; v.1.1 change net-receive for 10.0
|
|
|
|
(set 'socket (net-listen 10002 "" "udp"))
|
|
(if (not socket) (println (net-error)))
|
|
(while (not (net-error))
|
|
(print "enter something -> ")
|
|
(net-send-to "127.0.0.1" 10001 (read-line) socket)
|
|
(net-receive socket buff 255)
|
|
(println "=> " buff))
|
|
|
|
(exit)
|
|
|
|
; eof
|
|
|