paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 01:19:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Set standard I/O line ending to #13#10 when keyboard in raw mode.

Browse Source 
git-svn-id: trunk@3698 -
This commit is contained in:
daniel 2006-05-27 16:42:47 +00:00
parent 3c07574d4f
commit cb1b6419ed
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}