Kawai Shiro
pract****@yahoo*****
2004年 2月 14日 (土) 13:50:57 JST
read-lineはバグっぽいです。 read-byteとread-blockがcurrent-lineを更新しないのは、 そもそも「バイナリI/Oなんだから行数は関係ないじゃん」という つもりだったのですが、ハンドルした方がいいですかね。 --shiro --- HIRAUCHI Hideyuki <hira****@verys*****> からのメッセージ： > 平内です。 > > read-char以外で読み込んだときに問題があるようです。 > > 以下、テスト結果。 > > test port-current-line (read-char), expects 4 ==> ok > test port-current-line (read-line), expects 4 ==> ERROR: GOT 1 > test port-current-line (read-byte), expects 4 ==> ERROR: GOT 1 > test port-current-line (read-block), expects 4 ==> ERROR: GOT 1 > > 以下、テストプログラム。 > > (use gauche.test) > > (with-output-to-file "tmp1.o" (lambda () (newline)(newline)(newline))) > > (define (port-current-line-tester reader) > (call-with-input-file "tmp1.o" > (lambda (p) > (let loop ((cl (port-current-line p))) > (if (eof-object? (reader p)) > cl > (loop (port-current-line p))))))) > > (test* "port-current-line (read-char)" 4 > (port-current-line-tester read-char)) > > (test* "port-current-line (read-line)" 4 > (port-current-line-tester read-line)) > > (test* "port-current-line (read-byte)" 4 > (port-current-line-tester read-byte)) > > (test* "port-current-line (read-block)" 4 > (port-current-line-tester (lambda (p) (read-block 1 p)))) > > --hira > > _______________________________________________ > Gauche-devel-jp mailing list > Gauch****@lists***** > http://lists.sourceforge.jp/mailman/listinfo/gauche-devel-jp > > > __________________________________________________ Do You Yahoo!? http://bb.yahoo.co.jp/
