Commit 77536f83 authored by zorglub's avatar zorglub
Browse files

Merge make wrapper from 0.8.5-zorglub

parent f6c8f882
#! /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";
}
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment