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

* Merge r3698

Browse Source 
git-svn-id: branches/fixes_2_0@3700 -
This commit is contained in:
daniel 2006-05-27 16:59:15 +00:00
parent 44099c4981
commit 153d53bd88
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/unix/keyboard.pp
View File

@ -98,19 +98,26 @@ const
{$endif Unused} {$endif Unused}
procedure SetRawMode(b:boolean); procedure SetRawMode(b:boolean);
var
Tio : Termios; var Tio:Termios;
Begin
begin
TCGetAttr(1,Tio); TCGetAttr(1,Tio);
if b then if b then
begin begin
{Standard output now needs #13#10.}
settextlineending(output,#13#10);
OldIO:=Tio; OldIO:=Tio;
CFMakeRaw(Tio); CFMakeRaw(Tio);
end end
else else
Tio := OldIO; begin
TCSetAttr(1,TCSANOW,Tio); Tio := OldIO;
End; {Standard output normally needs just a linefeed.}
settextlineending(output,#10);
end;
TCsetattr(1,TCSANOW,Tio);
end;
{$ifdef linux} {$ifdef linux}