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

* Fix for corrupt color-attr after some ACS-mode changes. (Pierre, Strassbourg

Browse Source 
meeting)
This commit is contained in:
marco 2002-07-06 16:50:17 +00:00
parent f1eb7b8130
commit 5ce2af2aaf
1 changed files with 40 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
rtl/unix/video.pp
View File

@ -287,39 +287,6 @@ begin
Attr2Ansi:=#27'['+hstr+'m';
end;
procedure TransformUsingACS(var st : string);
var
res : string;
i : longint;
ch,ACSch : char;
begin
res:='';
for i:=1 to length(st) do
begin
ch:=st[i];
if IsACS(ch,ACSch) then
begin
if not InACS then
begin
res:=res+ACSIn;
InACS:=true;
end;
res:=res+ACSch;
end
else
begin
if InACS then
begin
res:=res+ACSOut;
InACS:=false;
end;
res:=res+ch;
end;
end;
st:=res;
end;
procedure UpdateTTY(Force:boolean);
type
tchattr=packed record
@ -344,6 +311,41 @@ var
LastAttr : longint;
p,pold : pvideocell;
procedure TransformUsingACS(var st : string);
var
res : string;
i : longint;
ch,ACSch : char;
begin
res:='';
for i:=1 to length(st) do
begin
ch:=st[i];
if IsACS(ch,ACSch) then
begin
if not InACS then
begin
res:=res+ACSIn;
InACS:=true;
end;
res:=res+ACSch;
end
else
begin
if InACS then
begin
res:=res+ACSOut+Attr2Ansi(LastAttr,0);
InACS:=false;
end;
res:=res+ch;
end;
end;
st:=res;
end;
procedure outdata(hstr:string);
begin
while (eol>0) do
@ -822,7 +824,11 @@ initialization
end.
{
$Log$
Revision 1.10 2001-10-13 13:00:31 michael
Revision 1.11 2002-07-06 16:50:17 marco
* Fix for corrupt color-attr after some ACS-mode changes. (Pierre, Strassbourg
meeting)
Revision 1.10 2001/10/13 13:00:31 michael
+ Removed defaultmode field from driver
Revision 1.9 2001/10/06 22:28:25 michael