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

編集履歴:過去のバージョン

2008/02/26 17:00:21 JST時点での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)))
  }}}
  
  いちばん読みやすいな。