mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-29 20:20:16 +02:00
* FreeBSD TermIOS support and minor changes to some related files.
This commit is contained in:
parent
1f52e97c35
commit
988bcee197
@ -1,5 +1,3 @@
|
||||
Program termiosx;
|
||||
|
||||
|
||||
CONST
|
||||
|
||||
@ -32,6 +30,16 @@ CONST
|
||||
{ =19 spare 2 }
|
||||
NCCS =20;
|
||||
|
||||
Type
|
||||
winsize = packed record
|
||||
ws_row,
|
||||
ws_col,
|
||||
ws_xpixel,
|
||||
ws_ypixel : word;
|
||||
end;
|
||||
TWinSize=winsize;
|
||||
|
||||
|
||||
type
|
||||
Termios = packed record
|
||||
c_iflag,
|
||||
|
@ -1793,7 +1793,11 @@ end;
|
||||
|
||||
Function TCGetAttr(fd:longint;var tios:TermIOS):boolean;
|
||||
begin
|
||||
{$ifndef BSD}
|
||||
TCGetAttr:=IOCtl(fd,TCGETS,@tios);
|
||||
{$else}
|
||||
TCGETAttr:=IoCtl(Fd,TIOCGETA,@tios);
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
|
||||
@ -1802,10 +1806,17 @@ Function TCSetAttr(fd:longint;OptAct:longint;var tios:TermIOS):boolean;
|
||||
var
|
||||
nr:longint;
|
||||
begin
|
||||
{$ifndef BSD}
|
||||
case OptAct of
|
||||
TCSANOW : nr:=TCSETS;
|
||||
TCSADRAIN : nr:=TCSETSW;
|
||||
TCSAFLUSH : nr:=TCSETSF;
|
||||
{$else}
|
||||
case OptAct of
|
||||
TCSANOW : nr:=TIOCSETA;
|
||||
TCSADRAIN : nr:=TIOCSETAW;
|
||||
TCSAFLUSH : nr:=TIOCSETAF;
|
||||
{$endif}
|
||||
else
|
||||
begin
|
||||
ErrNo:=Sys_EINVAL;
|
||||
@ -1820,20 +1831,30 @@ end;
|
||||
|
||||
Procedure CFSetISpeed(var tios:TermIOS;speed:Longint);
|
||||
begin
|
||||
{$ifndef BSD}
|
||||
tios.c_cflag:=(tios.c_cflag and (not CBAUD)) or speed;
|
||||
{$else}
|
||||
tios.c_ispeed:=speed; {Probably the Bxxxx speed constants}
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Procedure CFSetOSpeed(var tios:TermIOS;speed:Longint);
|
||||
begin
|
||||
CFSetISpeed(tios,speed);
|
||||
{$ifndef BSD}
|
||||
CFSetISpeed(tios,speed);
|
||||
{$else}
|
||||
tios.c_ospeed:=speed;
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
Procedure CFMakeRaw(var tios:TermIOS);
|
||||
begin
|
||||
{$ifndef BSD}
|
||||
with tios do
|
||||
begin
|
||||
c_iflag:=c_iflag and (not (IGNBRK or BRKINT or PARMRK or ISTRIP or
|
||||
@ -1842,13 +1863,32 @@ begin
|
||||
c_lflag:=c_lflag and (not (ECHO or ECHONL or ICANON or ISIG or IEXTEN));
|
||||
c_cflag:=(c_cflag and (not (CSIZE or PARENB))) or CS8;
|
||||
end;
|
||||
{$else}
|
||||
with tios do
|
||||
begin
|
||||
c_iflag:=c_iflag and (not (IMAXBEL or IXOFF or INPCK or BRKINT or
|
||||
PARMRK or ISTRIP or INLCR or IGNCR or ICRNL or IXON or
|
||||
IGNPAR));
|
||||
c_iflag:=c_iflag OR IGNBRK;
|
||||
c_oflag:=c_oflag and (not OPOST);
|
||||
c_lflag:=c_lflag and (not (ECHO or ECHOE or ECHOK or ECHONL or ICANON or
|
||||
ISIG or IEXTEN or NOFLSH or TOSTOP or PENDIN));
|
||||
c_cflag:=(c_cflag and (not (CSIZE or PARENB))) or (CS8 OR cread);
|
||||
c_cc[VMIN]:=1;
|
||||
c_cc[VTIME]:=0;
|
||||
end;
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Function TCSendBreak(fd,duration:longint):boolean;
|
||||
begin
|
||||
{$ifndef BSD}
|
||||
TCSendBreak:=IOCtl(fd,TCSBRK,pointer(duration));
|
||||
{$else}
|
||||
TCSendBreak:=IOCtl(fd,TIOCSBRK,0);
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
|
||||
@ -1866,28 +1906,53 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Function TCDrain(fd:longint):boolean;
|
||||
begin
|
||||
{$ifndef BSD}
|
||||
TCDrain:=IOCtl(fd,TCSBRK,pointer(1));
|
||||
{$else}
|
||||
TCDrain:=IOCtl(fd,TIOCDRAIN,0); {Should set timeout to 1 first?}
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Function TCFlow(fd,act:longint):boolean;
|
||||
begin
|
||||
TCFlow:=IOCtl(fd,TCXONC,pointer(act));
|
||||
{$ifndef BSD}
|
||||
TCFlow:=IOCtl(fd,TCXONC,pointer(act));
|
||||
{$else}
|
||||
case act OF
|
||||
TCOOFF : TCFlow:=Ioctl(fd,TIOCSTOP,0);
|
||||
TCOOn : TCFlow:=IOctl(Fd,TIOCStart,0);
|
||||
TCIOFF : {N/I}
|
||||
end;
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Function TCFlush(fd,qsel:longint):boolean;
|
||||
|
||||
var com:longint;
|
||||
|
||||
begin
|
||||
{$ifndef BSD}
|
||||
TCFlush:=IOCtl(fd,TCFLSH,pointer(qsel));
|
||||
{$else}
|
||||
{
|
||||
CASE Qsel of
|
||||
TCIFLUSH : com:=fread;
|
||||
TCOFLUSH : com:=FWRITE;
|
||||
TCIOFLUSH: com:=FREAD OR FWRITE;
|
||||
else
|
||||
exit(false);
|
||||
end;
|
||||
}
|
||||
TCFlush:=IOCtl(fd,TIOCFLUSH,pointer(qsel));
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Function IsATTY(Handle:Longint):Boolean;
|
||||
{
|
||||
Check if the filehandle described by 'handle' is a TTY (Terminal)
|
||||
@ -2538,7 +2603,10 @@ End.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 2000-10-10 12:02:35 marco
|
||||
Revision 1.4 2000-10-11 13:59:16 marco
|
||||
* FreeBSD TermIOS support and minor changes to some related files.
|
||||
|
||||
Revision 1.3 2000/10/10 12:02:35 marco
|
||||
* Terminal stuff of Linux moved to separate file. I think it is too
|
||||
much to do with ifdefs.
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user