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

+ enable colored output on darwin, resolves #38693

Browse Source 
git-svn-id: trunk@49099 -
This commit is contained in:
florian 2021-04-01 16:32:52 +00:00
parent 8b779975aa
commit 682e29c4ff
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/comptty.pas
View File

@ -30,19 +30,19 @@ function IsATTY(var t : text) : Boolean;
const
(* This allows compile-time removal of the colouring functionality under not supported platforms *)
{$if defined(linux) or defined(MSWINDOWS) or defined(OS2) or defined(GO32V2) or defined(WATCOM)}
{$if defined(linux) or defined(MSWINDOWS) or defined(OS2) or defined(GO32V2) or defined(WATCOM) or defined(DARWIN)}
TTYCheckSupported = true;
{$else defined(linux) or defined(MSWINDOWS) or defined(OS2) or defined(GO32V2) or defined(WATCOM)}
{$else defined(linux) or defined(MSWINDOWS) or defined(OS2) or defined(GO32V2) or defined(WATCOM) or defined(DARWIN)}
TTYCheckSupported = false;
{$endif defined(linux) or defined(MSWINDOWS) or defined(OS2) or defined(GO32V2) or defined(WATCOM)}
{$endif defined(linux) or defined(MSWINDOWS) or defined(OS2) or defined(GO32V2) or defined(WATCOM) or defined(DARWIN)}
implementation
{$ifdef linux}
{$if defined(linux) or defined(darwin)}
uses
termio;
{$endif linux}
{$endif defined(linux) or defined(darwin)}
{$ifdef mswindows}
uses
windows;
@ -60,12 +60,12 @@ const
CachedIsATTY : Boolean = false;
IsATTYValue : Boolean = false;
{$ifdef linux}
{$if defined(linux) or defined(darwin)}
function LinuxIsATTY(var t : text) : Boolean; inline;
begin
LinuxIsATTY:=termio.IsATTY(t)=1;
end;
{$endif linux}
{$endif defined(linux) or defined(darwin)}
{$ifdef MSWINDOWS}
const
@ -152,9 +152,9 @@ begin
if not(CachedIsATTY) then
begin
(* If none of the supported values is defined, false is returned by default. *)
{$ifdef linux}
{$if defined(linux) or defined(darwin)}
IsATTYValue:=LinuxIsATTY(t);
{$endif linux}
{$endif defined(linux) or defined(darwin)}
{$ifdef MSWINDOWS}
IsATTYValue:=WindowsIsATTY(t);
{$endif MSWINDOWS}