[fpc-devel] Output flush on pipes

[Martin Schreiber]

On Sunday 14 May 2006 11.12, Michael Van Canneyt wrote:
> > Suggestion:
> > On win32 switch automatic output writeln flush only off by regular files
> > (FILE_TYPE_DISK) but not by pipes (FILE_TYPE_PIPE):
> >
> > rtl/win32/sysfile.inc
> >
> > function do_isdevice(handle:thandle):boolean;
> > begin
> >   do_isdevice:=(getfiletype(handle)=2);
> > end;
> >
> > change to:
> >
> > function do_isdevice(handle:thandle):boolean;
> > var
> >   wo1: dword;
> > begin
> >   wo1:= getfiletype(handle);
> >   do_isdevice:= (wo1 = FILE_TYPE_CHAR) or (wo1 = FILE_TYPE_PIPE);
> > end;
>
> I would at least make it
>
>    do_isdevice:=(getfiletype(handle)<>FILE_TYPE_DISK);
>
> so it includes 'unknown' file types and future file types.
>

I thought also this way but I didn't dare...

Martin
> Michael.