HIRAUCHI Hideyuki
hira****@verys*****
2004年 2月 14日 (土) 10:37:32 JST
平内です。
Cygwin(Unix)上でexamples/grep.scmを実行すると検索結果の行数が全て0になっ
てしまいます。
port-current-lineが期待通りに動いていないようです。
以下、port-current-lineのテスト。
(use gauche.test)
(call-with-output-file "tmp1.o" (lambda (p) (newline p)(newline p)(newline p)))
(test* "port-current-line" 3
(call-with-input-file "tmp1.o"
(lambda (p)
(let loop ((cl (port-current-line p)))
(if (eof-object? (read p))
cl
loop)))))
上記のテストを実行するとこうなります。
test port-current-line, expects 3 ==> ERROR: GOT 1
■環境
OS :Windows2000 on VMWare4
Cygwin DLL :1.5.7-1
Cygwin FileType :Unix
Gauche :0.7.4.1
binutils :20030901-1
--hira