/collects/racket/udp.rkt

http://github.com/gmarceau/PLT · Racket · 34 lines · 31 code · 3 blank · 0 comment · 2 complexity · 2a8089389a8039636fe615c7b4527ba8 MD5 · raw file 

    

  1. (module udp '#%kernel
    2. 

  2.   (#%require '#%network)
    3. 

    4. 

  4.   (#%provide udp-open-socket 
    5. 

  5.              udp-close 
    6. 

  6.              udp? 
    7. 

  7.              udp-bound? 
    8. 

  8.              udp-connected? 
    9. 

  9.              udp-bind! 
    10. 

  10.              udp-connect! 
    11. 

  11.              udp-send-to 
    12. 

  12.              udp-send 
    13. 

  13.              udp-send-to* 
    14. 

  14.              udp-send* 
    15. 

  15.              udp-send-to/enable-break 
    16. 

  16.              udp-send/enable-break 
    17. 

  17.              udp-receive! 
    18. 

  18.              udp-receive!* 
    19. 

  19.              udp-receive!/enable-break 
    20. 

  20.              udp-receive-ready-evt 
    21. 

  21.              udp-send-ready-evt 
    22. 

  22.              udp-receive!-evt 
    23. 

  23.              udp-send-evt 
    24. 

  24.              udp-send-to-evt
    25. 

  25.              udp-addresses)
    26. 

  26.       
    27. 

  27.   (define-values (udp-addresses)
    28. 

  28.     (case-lambda
    29. 

  29.       [(x) (udp-addresses x #f)]
    30. 

  30.       [(socket port-numbers?)
    31. 

  31.         (if (udp? socket)
    32. 

  32.             (tcp-addresses socket port-numbers?)
    33. 

  33.             (raise-type-error 'udp-addresses "udp socket" socket))])))
    34.