paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 11:29:16 +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}
procedure SetRawMode(b:boolean);
var
Tio : Termios;
Begin
var Tio:Termios;
begin
TCGetAttr(1,Tio);
if b then
begin
{Standard output now needs #13#10.}
settextlineending(output,#13#10);
OldIO:=Tio;
CFMakeRaw(Tio);
end
else
Tio := OldIO;
TCSetAttr(1,TCSANOW,Tio);
End;
begin
Tio := OldIO;
{Standard output normally needs just a linefeed.}
settextlineending(output,#10);
end;
TCsetattr(1,TCSANOW,Tio);
end;
{$ifdef linux}