Merge make wrapper from 0.8.5-zorglub

extras/make.pl

+#! /usr/bin/perl
+
+# Attributes
+$bold = "\033[1m";
+
+# Colors
+$white  = "\033[37m";
+$yellow  = "\033[33m";
+$magenta  = "\033[35m";
+$blue  = "\033[34m";
+$red  = "\033[31m";
+$reset = "\033[0m";
+
+# Combinations
+$info   = $white.$bold;
+$warn   = $yellow.$bold;
+$error  = $red.$bold;
+$file   = $magenta.$bold;
+$lineno = $blue.$bold;
+
+while(<STDIN>)
+{
+     $line = $_;
+     chomp $line;
+     # Skip entering/leaving directories and incomplete lines
+     if( 
+	$line =~ /make\[([0-9]*)\]:.*/ ||
+#        $line =~ /.*\s\\$/ || 
+        $line =~ /^test\s\-z\s/ || 
+        $line =~ /^Making\sclean\sin\s\./ ||
+	$line =~ /^then\smv/ ||
+        $line =~ /make\s\sall-recursive/ )
+     {}
+     # Info 
+     elsif( 
+          $line =~ s/^.* (lib.*\.so).*/ LINK    : $1/g ||
+          $line =~ s/^.* (lib.*\.o)\s\.\/(.*)/ COMPILE : $2 -> $1/g ||
+          $line =~ s/^.* (lib.*\.o)\s`.*`(.*);/ COMPILE : $2 -> $1/g ||
+          $line =~ s/^ar\s[A-z0-9]*\s([A-z0-9\-_\/\.]*)\s.*/ ARCHIVE : $1/g ||
+          $line =~ s/^ranlib\s(.*)/ RANLIB  : $1/g ||
+          $line =~ s/^Making\sall\sin\s(.*)/MAKE     : $1/g ||
+          $line =~ s/^Making\sclean\sin\s(.*)/CLEAN  : $1/g ||
+          $line =~ s/^rm\s\-f\s(.*)/ REMOVE  : $1/g ||
+          $line =~ s/.*\-o\s([^\s]*)\s.*/ BUILD   : $1/g)
+
+     {
+	print $info.$line.$reset."\n";
+     }
+     # Warning
+     elsif (
+	  $line =~ s/(.*):([0-9]*):\swarning\:(.*)/WARNING : $file$1: $lineno$2: $warn$3/g  ||
+          $line =~ s/.*is\sdeprecated.*/WARNING : $line/g )
+     {
+	print $warn.$line.$reset."\n";
+     }
+     # Error
+     elsif (
+	  $line =~ s/(.*):([0-9]*):\serror\:(.*)/ERROR   : $file$1: $lineno$2: $error$3/g  )
+     {
+	print $error.$line.$reset."\n";
+     }
+     # Print unmatched lines 
+     else
+     {
+ 	print $line."\n";
+     }
+
+}