GaucheMiniCode

[プログラミング]
[scheme]

ソケット関連

プログラムをリストに格納する

 dbmとか

dbm変換

gdbmで変換していたファイルがあったのですが、Gauche-0.7.2でサポートされた
fsdbmの方が都合よさげだったので、一括変換してみました。

#!/usr/local/bin/gosh

(use dbm)
(use dbm.gdbm)
(use dbm.fsdbm)

; open the database
(define *gdb* (dbm-open <gdbm>
     :path "/home/www/wiliki/wiki.dbm" :rw-mode :read))
(define *fsdb* (dbm-open <fsdbm>
     :path "/home/miyo/src/gauche/test" :rw-mode :write))

(dbm-for-each *gdb*
          (lambda (key value)
        (dbm-put! *fsdb* key value)))

(dbm-close *gdb*)
(dbm-close *fsdb*)

 束縛とか

letrec

再帰的に呼び出す関数を局所的に定義したいときは
letrecを使えばいい

;; @desc リストの要素の全ての組み合わせをリストにして返す
;; @param given-list リスト
(define (bisl.list.util.get-all-list-combinated given-list)
  (cond ((= (length given-list) 1) given-list)
	((= (length given-list) 2)
 (list given-list (reverse given-list)))
(#t
 (letrec ((f (lambda (a ll)
	      (if (null? (cdr ll)) ; リストの最終
		  (bisl.list.util.get-all-list-add-atom a (car ll))
		  (append
		   (bisl.list.util.get-all-list-add-atom a (car ll))
		   (f a (cdr ll)))))))
	(f (car given-list)
	   (bisl.list.util.get-all-list-combinated
	    (cdr given-list)))))))

 socketとか

Socket通信 UDP

;; @desc UPL/UDP通信のためのソケットを開く
;; @param port ポート番号
;; @param addr ホスト名(文字列)
(define (fefe port hostname)
  (socket-bind
   (make-socket AF_INET SOCK_DGRAM)
   (make <sockaddr-in> :host hostname :port port)))

 続Socket通信 UDP

上のでは実はうまくいかない
きちんとfdを取得して、ポートを開く必要あり

(use srfi-1)
(use gauche.net)

(define (send-udp-packet sockaddr packet)
  (let* ((socket (make-socket AF_INET SOCK_DGRAM)))
    (socket-connect socket sockaddr)
    (let* ((fd (socket-fd socket))
	   (port (open-output-fd-port fd)))
      (for-each (lambda (x)
		  (write-byte x port))
		packet)
      (flush port))))

(define (main args)
  (send-udp-packet
   (make <sockaddr-in> :host "moss" :port 12345)
   '(254 2 3 4 5 6)))

socket-bind

上のコードの場合にはローカル側が適当なポートにbindされる。
なのでsocket-bindでローカルでbindすることが必要

 list遊び

slice

作ろうとおもってたら、組み込まれてました

(use util.list)

Function: slices list k &optional fill? padding 

  (slices '(a b c d e f g) 3)
  => ((a b c) (d e f) (g))
(slices '(a b c d e f g) 3 #t 'z)
  => ((a b c) (d e f) (g z z))

listを、それぞれの長さがkであるようなサブリスト(スライス)に分割します。 listの長さがkの整数倍でない場合は、最後のスライスは take*と同じ方法で扱われます。つまり、デフォルトではkより短いもの、あるいはfill?が真ならばpaddingが追加されます。