did I mention that I hate blank lines?

[simgrid.git] / tools / MSG_visualization / colorize.pl

diff --git a/tools/MSG_visualization/colorize.pl b/tools/MSG_visualization/colorize.pl
index 498bab6..f3c5e3f 100755 (executable)
--- a/tools/MSG_visualization/colorize.pl
+++ b/tools/MSG_visualization/colorize.pl
@@ -1,4 +1,10 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
+
+# Copyright (c) 2005, 2007, 2010, 2014. The SimGrid Team.
+# All rights reserved.
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the license (GNU LGPL) which comes with this package.

 
 $col_white    = "\033[00m";
 $col_black    = "\033[30m";
 
 $col_white    = "\033[00m";
 $col_black    = "\033[30m";


@@ -18,7 +24,6 @@ $col_underline  = "\033[04m";
 $col_blink      = "\033[05m";
 
 # Customize colors here...
 $col_blink      = "\033[05m";
 
 # Customize colors here...

-#

 $col_default = $col_ltgray;
 my (@coltab) = (
     $col_green,                    $col_yellow,
 $col_default = $col_ltgray;
 my (@coltab) = (
     $col_green,                    $col_yellow,


@@ -33,7 +38,6 @@ my (@coltab) = (
 my %pid;
 
 # Get options
 my %pid;
 
 # Get options

-#

 while (($_ = $ARGV[0]) =~ /^-/) {
     shift;
     if (/-location/i) {
 while (($_ = $ARGV[0]) =~ /^-/) {
     shift;
     if (/-location/i) {


@@ -70,12 +74,12 @@ sub print_line {
     my($host,$procname,$pid,$date,$location,$xbt_channel,$message)=@_;
 
     print $col_norm;
     my($host,$procname,$pid,$date,$location,$xbt_channel,$message)=@_;
 
     print $col_norm;

-    printf "[% 10.3f]",$date;
+    printf "[% 10.6f]",$date;

 
     print pidcolor($pid);
 
     if(defined($location)) {
 
     print pidcolor($pid);
 
     if(defined($location)) {

-       printf "[%10s:%-10s %s ]",$host,$procname,$location;
+       printf "[%10s:%-10s] %s ",$host,$procname,$location;

     } else {
        printf "[%10s:%-10s]",$host,$procname;
     }
     } else {
        printf "[%10s:%-10s]",$host,$procname;
     }