[トップ][一覧][最近の更新]

編集履歴:差分

記録開始以来のProgramming/Scheme/Chicken/2008/02/26/udpmsgの変更箇所

編集履歴ページに戻る

+ ここまできたら、やっぱり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)))
+ }}}
+ 
+ って、3つの中で一番読みやすいな。