paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ioctl fixes. IDE now starts, but

Browse Source
This commit is contained in:
marco 2003-10-12 19:40:43 +00:00
parent c9445358ce
commit 3d6bb07cd2
1 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
rtl/unix/unix.pp
View File

@ -1278,9 +1278,9 @@ end;
Function TCGetAttr(fd:longint;var tios:TermIOS):boolean;
begin
{$ifndef BSD}
TCGetAttr:=fpIOCtl(fd,TCGETS,@tios)>0;
TCGetAttr:=fpIOCtl(fd,TCGETS,@tios)=0;
{$else}
TCGETAttr:=fpIoCtl(Fd,TIOCGETA,@tios)>0;
TCGETAttr:=fpIoCtl(Fd,TIOCGETA,@tios)=0;
{$endif}
end;
@ -1307,7 +1307,7 @@ begin
exit;
end;
end;
TCSetAttr:=fpIOCtl(fd,nr,@Tios)>0;
TCSetAttr:=fpIOCtl(fd,nr,@Tios)=0;
end;
@ -1363,30 +1363,30 @@ end;
Function TCSendBreak(fd,duration:longint):boolean;
begin
{$ifndef BSD}
TCSendBreak:=fpIOCtl(fd,TCSBRK,pointer(duration))>0;
TCSendBreak:=fpIOCtl(fd,TCSBRK,pointer(duration))=0;
{$else}
TCSendBreak:=fpIOCtl(fd,TIOCSBRK,0)>0;
TCSendBreak:=fpIOCtl(fd,TIOCSBRK,0)=0;
{$endif}
end;
Function TCSetPGrp(fd,id:longint):boolean;
begin
TCSetPGrp:=fpIOCtl(fd,TIOCSPGRP,pointer(id))>0;
TCSetPGrp:=fpIOCtl(fd,TIOCSPGRP,pointer(id))=0;
end;
Function TCGetPGrp(fd:longint;var id:longint):boolean;
begin
TCGetPGrp:=fpIOCtl(fd,TIOCGPGRP,@id)>0;
TCGetPGrp:=fpIOCtl(fd,TIOCGPGRP,@id)=0;
end;
Function TCDrain(fd:longint):boolean;
begin
{$ifndef BSD}
TCDrain:=fpIOCtl(fd,TCSBRK,pointer(1))>0;
TCDrain:=fpIOCtl(fd,TCSBRK,pointer(1))=0;
{$else}
TCDrain:=fpIOCtl(fd,TIOCDRAIN,0)>0; {Should set timeout to 1 first?}
TCDrain:=fpIOCtl(fd,TIOCDRAIN,0)=0; {Should set timeout to 1 first?}
{$endif}
end;
@ -1394,11 +1394,11 @@ end;
Function TCFlow(fd,act:longint):boolean;
begin
{$ifndef BSD}
TCFlow:=fpIOCtl(fd,TCXONC,pointer(act))>0;
TCFlow:=fpIOCtl(fd,TCXONC,pointer(act))=0;
{$else}
case act OF
TCOOFF : TCFlow:=fpIoctl(fd,TIOCSTOP,0)>0;
TCOOn : TCFlow:=fpIOctl(Fd,TIOCStart,0)>0;
TCOOFF : TCFlow:=fpIoctl(fd,TIOCSTOP,0)=0;
TCOOn : TCFlow:=fpIOctl(Fd,TIOCStart,0)=0;
TCIOFF : {N/I}
end;
{$endif}
@ -1407,13 +1407,13 @@ end;
Function TCFlush(fd,qsel:longint):boolean;
begin
{$ifndef BSD}
TCFlush:=fpIOCtl(fd,TCFLSH,pointer(qsel))>0;
TCFlush:=fpIOCtl(fd,TCFLSH,pointer(qsel))=0;
{$else}
TCFlush:=fpIOCtl(fd,TIOCFLUSH,pointer(qsel))>0;
TCFlush:=fpIOCtl(fd,TIOCFLUSH,pointer(qsel))=0;
{$endif}
end;
Function IsATTY(Handle:Longint):Boolean;
Function IsATTY (Handle:Longint):Boolean;
{
Check if the filehandle described by 'handle' is a TTY (Terminal)
}
@ -1714,7 +1714,10 @@ End.
{
$Log$
Revision 1.40 2003-09-29 14:36:06 peter
Revision 1.41 2003-10-12 19:40:43 marco
* ioctl fixes. IDE now starts, but
Revision 1.40 2003/09/29 14:36:06 peter
* fixed for stricter compiler
Revision 1.39 2003/09/27 12:51:33 peter