Am Donnerstag, den 13.11.2008, 20:57 +0100 schrieb Jonas Maebe:
> On 13 Nov 2008, at 01:42, Marc Santhoff wrote:
>
> > long time ago I had problems with stdxxx being in non-blocking i/o
> > mode.
> > The suggestion was to close and re-open the channels from the system
> > units init code.
> >
> > I ran into this problem again and would like to know:
> >
> > How can I close and reopen stderr and sdtout from my program?
>
> close(stderr);
> assign(stderr,'');
> rewrite(stderr);
>
> close(stdout);
> assign(stdout,'');
> rewrite(stdout);
>
> This does not enable you to set any particular options on the
> descriptors though,
As expected it does work but doesn't change blocking behaviour.
> and I'm not aware of any supported way for doing
> so (read: a way which is likely to be forward compatible).
Don't get you here, what do you mean by forward compatible?
> And even if
> you could get at the file descriptors, there is also no cross-platform
> functionality that I'm aware of to change their (non-)blocking setting.
No, not cross platform, but I was able to make a solution for FreeBSD 4,
I assume it'll work (with minor modifications) on other unix-like
platforms:
uses unix;
var
res: longint; // or cint
begin
res := fpfcntl(TextRec(stderr).Handle, F_GETFL);
if ((O_NONBLOCK AND res)>0) then
begin
res := res AND (NOT O_NONBLOCK);
res := fpfcntl(TextRec(stderr).Handle, F_SETFL, res);
if (res=-1) then writeln(stderr, 'ERROR on SETFL');
end;
This switches the channel to blocking mode and the overrun errors
disappear in this case.
Thanks for your help,
Marc
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
