The unified diff between revisions [5baf3198..] and [e7a52407..] is displayed below. It can also be downloaded as a raw diff.

#
#
# patch "GNUmakefile"
#  from [01300261f2b5226c0e3cb3af8811efc6c7225dde]
#    to [3d619b3e1f7c0ff0682f84a2c5c84d158c95ccea]
#
# patch "client/log4Ada.gpr"
#  from [8c6e7939fd892ad5020f579e04b1e91ef504bfdb]
#    to [0aeddc6857ab1776e51df611d4eeed2eb4632e78]
#
# patch "client/src/log4ada-appenders-consoles.adb"
#  from [dbfea33cf4cafed9edbfcc0a4cd262c8d618b309]
#    to [11a4b745b6944a078125f94a56d611b0d52ff5eb]
#
============================================================
--- GNUmakefile	01300261f2b5226c0e3cb3af8811efc6c7225dde
+++ GNUmakefile	3d619b3e1f7c0ff0682f84a2c5c84d158c95ccea
@@ -1,6 +1,6 @@ INSTALL := $(HOME)
 CPUS := $(shell getconf _NPROCESSORS_ONLN)
 INSTALL := $(HOME)
-ADA_PROJECT_PATH := $(HOME)
+ADA_PROJECT_PATH := $(dir $(shell which gnatls))../include
 BASE=log4ada-events.adb log4ada.ads log4ada-events.ads log4ada-appenders.adb \
 log4ada-filters.ads log4ada-appenders.ads log4ada-loggers.adb \
 log4ada-appenders-consoles.adb log4ada-loggers.ads \
@@ -22,7 +22,8 @@ all:
 DIRS=client server

 all:
-	for i in $(DIRS);do make -C $$i;done
+	for i in $(DIRS);do ADA_PROJECT_PATH=$(ADA_PROJECT_PATH) make -C $$i; \
+	done

 clean:
 	for i in $(DIRS);do make -C $$i clean;done
============================================================
--- client/log4Ada.gpr	8c6e7939fd892ad5020f579e04b1e91ef504bfdb
+++ client/log4Ada.gpr	0aeddc6857ab1776e51df611d4eeed2eb4632e78
@@ -1,4 +1,4 @@
-with "xml_ez_out.gpr";
+with "xmlezout.gpr";
 project log4Ada is
   type arch is ("ppc","ppc64","i686","x86_64");
   binaries : arch := external ("ARCH","ppc64");
============================================================
--- client/src/log4ada-appenders-consoles.adb	dbfea33cf4cafed9edbfcc0a4cd262c8d618b309
+++ client/src/log4ada-appenders-consoles.adb	11a4b745b6944a078125f94a56d611b0d52ff5eb
@@ -22,6 +22,32 @@ package body Log4ada.Appenders.Consoles

 package body Log4ada.Appenders.Consoles is

+   procedure Change_Display_Mode (Level : Level_Type := Debug);
+   procedure Raz_Display_Mode;
+
+   procedure Change_Display_Mode (Level : Level_Type := Debug) is
+   begin
+      case Level is
+         when All_Level | Off =>
+            null;
+         when Debug =>
+            Ada.Text_IO.Put (ASCII.ESC & "[1;32m");
+         when Info =>
+            Ada.Text_IO.Put (ASCII.ESC & "[1;34m");
+         when Warn =>
+            Ada.Text_IO.Put (ASCII.ESC & "[1;33m");
+         when Error =>
+            Ada.Text_IO.Put (ASCII.ESC & "[1;31m");
+         when Fatal =>
+            Ada.Text_IO.Put (ASCII.ESC & "[5;1;31m");
+      end case;
+   end Change_Display_Mode;
+
+   procedure Raz_Display_Mode is
+   begin
+      Ada.Text_IO.Put (ASCII.ESC & "[0;m");
+   end Raz_Display_Mode;
+
    ------------
    -- Append --
    ------------
@@ -40,6 +66,7 @@ package body Log4ada.Appenders.Consoles
          return;
       end if;
       Timestamp_Diff := Get_Timestamp (Event) - Events.First_Event_Timestamp;
+      Change_Display_Mode (Get_Level (Event));
       Ada.Text_IO.Put (Timestamp_Diff'Img & " ");
       Ada.Text_IO.Put (Get_Level (Event)'Img & " [");
       Ada.Text_IO.Put (Get_Location_Information (Event) & "] ");
@@ -51,6 +78,7 @@ package body Log4ada.Appenders.Consoles
       else
          Ada.Text_IO.New_Line;
       end if;
+      Raz_Display_Mode;
    end Append;

 end Log4ada.Appenders.Consoles;