From 1e2104d6715a3038c8ff9dc26631c08342c4c868 Mon Sep 17 00:00:00 2001
From: alegrand <alegrand@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Wed, 30 Mar 2005 00:28:24 +0000
Subject: [PATCH] New colorizer.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@1191 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---
 tools/MSG_visualization/colorize.pl | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

diff --git a/tools/MSG_visualization/colorize.pl b/tools/MSG_visualization/colorize.pl
index 371f3f908b..39da01fd6a 100755
--- a/tools/MSG_visualization/colorize.pl
+++ b/tools/MSG_visualization/colorize.pl
@@ -33,14 +33,21 @@ my (@coltab) = (
 while (<>) {
     $orgline = $thisline = $_;
 
-    if ( $thisline =~ /^\[[0-9\.]*\] P[0-9]* \|/ ) {
-        ( $number, $message ) = split ( / \| /, $thisline );
-        chomp $message;
-        $head = $number;
-        $number =~ s/^\[[0-9\.]*\] P//;
-        $number =~ s/^ .*$//;
-        $head   =~ s/^(\[.*\]) (.*)$/$col_norm$1 $coltab[($number-1) % scalar(@coltab)]$2/;
-        print $head. " " . $message . $col_norm . "\n";
+    if ( $thisline =~ /^\[(\w+):(\w+):\((\d+\)) ([0-9\.]*)\] ([^\[]*) \[([^\[]*)\] (.*)$/ ) {
+	$host=$1;
+	$procname=$2;
+	$pid=$3;
+	$date=$4;
+	$location=$5;
+	$xbt_channel=$6;
+	$message=$7;
+
+	print $col_norm;
+	printf "[% 10.3f]",$date;
+	print $coltab[($pid-1) % scalar(@coltab)];
+	printf "[%10s:%-10s]",$host,$procname;
+	print " $message";
+	print $col_norm."\n";
         next;
     }
     print $col_default. $orgline;
-- 
2.20.1