paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 05:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use libc functions instead of (wrong) translations of C code for most

Browse Source 
functions (except for TCGetPGrp, which behaves differently in Pascal
   compared to the C version -- although that may be a bug in itself)
   (mantis #21665)

git-svn-id: trunk@21295 -
This commit is contained in:
Jonas Maebe 2012-05-14 18:12:30 +00:00
parent 618a5e8e2e
commit 9ba5267b61
1 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
rtl/darwin/termiosproc.inc
View File

@ -77,41 +77,53 @@ end;
//Procedure CFSetOSpeed(var tios:TermIOS;speed:Cardinal); cdecl; external 'c' name 'cfsetospeed';
//Procedure CFMakeRaw(var tios:TermIOS); cdecl; external 'c' name 'cfmakeraw';
function real_tcsendbreak(fd,duration: cint): cint; cdecl; external name 'tcsendbreak';
Function TCSendBreak(fd,duration:cint):cint;{$ifdef VER2_0}inline;{$endif}
begin
TCSendBreak:=fpIOCtl(fd,TIOCSBRK,nil);
TCSendBreak:=real_tcsendbreak(fd,duration);
end;
function real_tcsetpgrp(fd: cint; pgrp: pid_t): cint; cdecl; external name 'tcsetpgrp';
Function TCSetPGrp(fd,id:cint):cint;{$ifdef VER2_0}inline;{$endif}
begin
TCSetPGrp:=fpIOCtl(fd,TIOCSPGRP,pointer(ptrint(id)));
TCSetPGrp:=real_tcsetpgrp(fd,id);;
end;
Function TCGetPGrp(fd:cint;var id:cint):cint;{$ifdef VER2_0}inline;{$endif}
var
pid: pid_t;
begin
TCGetPGrp:=fpIOCtl(fd,TIOCGPGRP,@id);
if isatty(fd)=0 then
exit(-1);
TCGetPGrp:=fpIOCtl(fd,TIOCGPGRP,@pid);
if TCGetPGrp>=0 then
id:=pid;
end;
function real_tcdrain(fd: cint): cint; cdecl; external name 'tcdrain';
Function TCDrain(fd:cint):cint;{$ifdef VER2_0}inline;{$endif}
begin
TCDrain:=fpIOCtl(fd,TIOCDRAIN,nil); {Should set timeout to 1 first?}
end;
function real_tcflow(fd,act:cint): cint; cdecl; external name 'tcflow';
Function TCFlow(fd,act:cint):cint; {$ifdef VER2_0}inline;{$endif}
begin
case act OF
TCOOFF : TCFlow:=fpIoctl(fd,TIOCSTOP,nil);
TCOOn : TCFlow:=fpIOctl(Fd,TIOCStart,nil);
TCIOFF : {N/I}
end;
TCFlow:=real_tcflow(fd,act);
end;
function real_tcflush(fd,qsel: cint): cint; cdecl; external name 'tcflush';
Function TCFlush(fd,qsel:cint):cint; {$ifdef VER2_0}inline;{$endif}
begin
TCFlush:=fpIOCtl(fd,TIOCFLUSH,pointer(ptrint(qsel)));
TCFlush:=real_tcflush(fd,qsel);
end;
Function IsATTY (Handle:cint):cint;