Content of Programming/Scheme/Chicken/2008/02/26/udpmsg at 2008/02/26 17:00:21 JST
View diff from current version
Schemeでudpmsg書いた。 これは今書いた。CheckenかわいいよChecken。 {{{ (use udp) (define ipmsg-version #x0001) (define ipmsg-default-port #x0979) (define ipmsg-sendmsg #x0020) (define (format-msg num host user cmd extra) (format "~a:~a:~a:~a:~a:~a" ipmsg-version num host user cmd extra)) (define (send-udpmsg host msg) (let ((sock (udp-open-socket))) (udp-bind! sock #f 0) (udp-connect! sock host 2425) (udp-send sock (format-msg (random 16777215) "myhost" "myname" ipmsg-sendmsg msg)) (udp-close-socket sock))) }}} いちばん読みやすいな。