Route 477

■ [scheme] GaucheでHTTP(5)

ファイルの読み込みはstring->portを使うと超簡単！

…っと思ったんだが、日本語の文字列*1が出てきたところで 読み込みが止まってしまう。read-blockでは普通に読めるのに、何でだ。

(追記：file.utilにfile->stringっていう関数があった。こっちの方がより簡単だな。)

■ [scheme] GaucheでHTTP(6)

仕方ないのでread-blockで読み込んでみた。

(let ((port (open-input-file path)))
   (let loop ((str (read-block 1000 port)))
     (if (not (eof-object? str))
       (begin
	 (send str)
	 (loop (read-block 1000 port)))))))

初めて named let 使ったよ。

read-blockの第３引数(port)を忘れると標準入力から読み込もうとするので注意(2回はまった)。

■ [softs] Subversion

最近部内でも使い始めた。とりあえずTortoiseSVNはネ申。

はいいとして、本当に便利なのはSSH使えばサーバ立てる手間なくネットワーク越しのマシンのリポジトリに アクセスできることだったり。