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

* cache IsATTY value

Browse Source 
git-svn-id: trunk@47201 -
This commit is contained in:
florian 2020-10-25 19:07:44 +00:00
parent ff6a58ff89
commit 17c0291e86
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/comphook.pas
View File

@ -211,10 +211,27 @@ end;
type
TOutputColor = (oc_black,oc_red,oc_green,oc_orange,og_blue,oc_magenta,oc_cyan,oc_lightgray);
{$ifdef linux}
const
CachedIsATTY : Boolean = false;
IsATTYValue : Boolean = false;
function IsATTY(var t : text) : Boolean;
begin
if not(CachedIsATTY) then
begin
IsATTYValue:=termio.IsATTY(t)=1;
CachedIsATTY:=true;
end;
Result:=IsATTYValue;
end;
{$endif linux}
procedure WriteColoredOutput(var t: Text;color: TOutputColor;const s : AnsiString);
begin
{$ifdef linux}
if IsATTY(t)=1 then
if IsATTY(t) then
begin
case color of
oc_black:
@ -238,7 +255,7 @@ procedure WriteColoredOutput(var t: Text;color: TOutputColor;const s : AnsiStrin
{$endif linux}
write(t,s);
{$ifdef linux}
if IsATTY(t)=1 then
if IsATTY(t) then
write(t,#27'[0m');
{$endif linux}
end;