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

* some updates to xy2ansi

Browse Source
This commit is contained in:
marco 2004-07-20 09:26:04 +00:00
parent e605893f0d
commit 07a3e047db
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/unix/crt.pp
View File

@ -112,14 +112,22 @@ Begin
begin begin
if x=ox then if x=ox then
begin begin
XY2Ansi:=''; // this workaround should improve behaviour on some terminals.
// debian bug 216057 but I also observed this with video on FreeBSD
if x=screenwidth then
XY2Ansi:=#27'['+Str(y)+';'+Str(x)+'H'
else
// end workaround
XY2Ansi:='';
exit; exit;
end; end;
{$ifdef Linux} // linux CRT shortcut
if x=1 then if x=1 then
begin begin
XY2Ansi:=#13; XY2Ansi:=#13;
exit; exit;
end; end;
{$endif}
if x>ox then if x>ox then
begin begin
XY2Ansi:=#27'['+Str(x-ox)+'C'; XY2Ansi:=#27'['+Str(x-ox)+'C';
@ -144,9 +152,11 @@ Begin
exit; exit;
end; end;
end; end;
{$ifdef Linux} // this shortcut isn't for everybody
if (x=1) and (oy+1=y) then if (x=1) and (oy+1=y) then
XY2Ansi:=#13#10 XY2Ansi:=#13#10
else else
{$endif}
XY2Ansi:=#27'['+Str(y)+';'+Str(x)+'H'; XY2Ansi:=#27'['+Str(y)+';'+Str(x)+'H';
End; End;
@ -1611,7 +1621,10 @@ Finalization
End. End.
{ {
$Log$ $Log$
Revision 1.19 2004-07-09 19:03:35 peter Revision 1.20 2004-07-20 09:26:04 marco
* some updates to xy2ansi
Revision 1.19 2004/07/09 19:03:35 peter
* isatty return cint again * isatty return cint again
Revision 1.17 2004/02/08 16:22:20 michael Revision 1.17 2004/02/08 16:22:20 michael