Shiro Kawai
shiro****@lava*****
2004年 2月 17日 (火) 22:10:32 JST
ども。そこでOKだと思います。直しておきます。 --shiro From: HIRAUCHI Hideyuki <hira****@verys*****> Subject: [Gauche-devel-jp] Re: Cygwin(Unix) 上での port-current-line Date: Tue, 17 Feb 2004 20:09:39 +0900 > これでＯＫかな？ > Cygwin固有の問題ではなかったらしい。 > #もう5年近くC書いてないからソース追うの大変だ。。。 > > --hira > > --- portapi.c.org 2004-02-17 19:59:44.857750000 +0900 > +++ portapi.c 2004-02-17 19:59:48.717125000 +0900 > @@ -708,7 +708,8 @@ > b1 = Scm_GetbUnsafe(p); > if (b1 == EOF) return SCM_EOF; > for (;;) { > - if (b1 == EOF || b1 == '\n') break; > + if (b1 == EOF) return Scm_DStringGet(&ds); > + if (b1 == '\n') break; > if (b1 == '\r') { > b2 = Scm_GetbUnsafe(p); > if (b2 == EOF || b2 == '\n') break; > @@ -718,6 +719,7 @@ > SCM_DSTRING_PUTB(&ds, b1); > b1 = Scm_GetbUnsafe(p); > } > + if(SCM_PORT_TYPE(p) == SCM_PORT_FILE) p->src.buf.line++; > return Scm_DStringGet(&ds); > } > #endif /* READLINE_AUX */ > > _______________________________________________ > Gauche-devel-jp mailing list > Gauch****@lists***** > http://lists.sourceforge.jp/mailman/listinfo/gauche-devel-jp >
