|
|
@@ -110,23 +110,23 @@ begin
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
-Function TCFlush(fd,qsel:cint):boolean;
|
|
|
+Function TCFlush(fd,qsel:cint):cint;
|
|
|
begin
|
|
|
TCFlush:=fpIOCtl(fd,TIOCFLUSH,pointer(qsel));
|
|
|
end;
|
|
|
|
|
|
-Function IsATTY (Handle:cint):boolean;
|
|
|
+Function IsATTY (Handle:cint):cint;
|
|
|
{
|
|
|
Check if the filehandle described by 'handle' is a TTY (Terminal)
|
|
|
}
|
|
|
var
|
|
|
t : Termios;
|
|
|
begin
|
|
|
- IsAtty:=TCGetAttr(Handle,t)<>-1;
|
|
|
+ IsAtty:=TCGetAttr(Handle,t);
|
|
|
end;
|
|
|
|
|
|
|
|
|
-Function IsATTY(var f: text):boolean;
|
|
|
+Function IsATTY(var f: text):cint;
|
|
|
{
|
|
|
Idem as previous, only now for text variables.
|
|
|
}
|
|
|
@@ -136,10 +136,8 @@ end;
|
|
|
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.3 2004-07-08 13:23:21 daniel
|
|
|
- * gpm now uses a Pascal translation of libgpm instead of linking against
|
|
|
- it.
|
|
|
- * isatty result type changed into boolean
|
|
|
+ Revision 1.4 2004-07-09 21:41:47 peter
|
|
|
+ * revert back isatty
|
|
|
|
|
|
Revision 1.2 2004/02/05 14:00:45 jonas
|
|
|
+ some declarations added from other bsds and /usr/include/sys/termios.h
|
peter