|
@@ -111,18 +111,18 @@ begin
|
|
TCFlush:=fpIOCtl(fd,TIOCFLUSH,pointer(qsel));
|
|
TCFlush:=fpIOCtl(fd,TIOCFLUSH,pointer(qsel));
|
|
end;
|
|
end;
|
|
|
|
|
|
-Function IsATTY (Handle:cint):boolean;
|
|
|
|
|
|
+Function IsATTY (Handle:cint):cint;
|
|
{
|
|
{
|
|
Check if the filehandle described by 'handle' is a TTY (Terminal)
|
|
Check if the filehandle described by 'handle' is a TTY (Terminal)
|
|
}
|
|
}
|
|
var
|
|
var
|
|
t : Termios;
|
|
t : Termios;
|
|
begin
|
|
begin
|
|
- IsAtty:=TCGetAttr(Handle,t)<>-1;
|
|
|
|
|
|
+ IsAtty:=TCGetAttr(Handle,t);
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
-Function IsATTY(var f: text):boolean;
|
|
|
|
|
|
+Function IsATTY(var f: text):cint;
|
|
{
|
|
{
|
|
Idem as previous, only now for text variables.
|
|
Idem as previous, only now for text variables.
|
|
}
|
|
}
|
|
@@ -132,7 +132,10 @@ end;
|
|
|
|
|
|
{
|
|
{
|
|
$Log$
|
|
$Log$
|
|
- Revision 1.4 2004-07-08 13:23:21 daniel
|
|
|
|
|
|
+ Revision 1.5 2004-07-16 22:14:34 marco
|
|
|
|
+ * reverted more changes regarding isatty
|
|
|
|
+
|
|
|
|
+ Revision 1.4 2004/07/08 13:23:21 daniel
|
|
* gpm now uses a Pascal translation of libgpm instead of linking against
|
|
* gpm now uses a Pascal translation of libgpm instead of linking against
|
|
it.
|
|
it.
|
|
* isatty result type changed into boolean
|
|
* isatty result type changed into boolean
|