midi

开发平台：
Unix_Linux

make.pl：源码内容
							#! /usr/bin/perl
# Attributes
$bold = "33[1m";
# Colors
$white  = "33[37m";
$yellow  = "33[33m";
$magenta  = "33[35m";
$blue  = "33[34m";
$red  = "33[31m";
$reset = "33[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 =~ /^tests-zs/ ||
        $line =~ /^Makingscleansins./ ||
	$line =~ /thensmvs-f/ ||
	$line =~ /.*makess.*/ ||
        $line =~ /makessall-recursive/ ||
        $line =~ /[A-z0-9-]*ars[A-z0-9]*s([A-z0-9-_/.]*)s.*/ ||
        $line =~ /^[A-z0-9-]*ranlibs[A-z0-9-_]*plugin(.*)/ ||
        $line =~ /^touch.*/ ||
        $line =~ /^srcdir=.*/ ||
        $line =~ /^.* (lib[A-z0-9-_]*plugin.so).*/ ||
	$line =~ /^s*gcc(-.*)?s-std=.*/ ||
        $line =~ /^sgcc(-.*)?s-mmacosx.*/ ||
        $line =~ /^sg++(-.*)?s.*/ ||
#    $line =~ /^.*moc.*/ ||
	$line =~ /^.*libtool.*-os(lib.*.la).*/ ||
        $line =~ /^.*rms-fs(.*)/ ||
	$line =~ /^rms-frs(.*)/ ||
	$line =~ /^mvs-fs(.*)/ ||
	$line =~ /^lns-ss(.*)/ ||
	$line =~ /^s*echos/ ||
	$line =~ /^mkdirs/ ||
	$line =~ /^s*cats/ ||
	$line =~ /^greps/ ||
	$line =~ /^cds/ ||
	$line =~ /^seds/ ||
	$line =~ /^bindir=s/ ||
	$line =~ /^libtool:s/ ||
	$line =~ /^/bin/sh/ ||
	$line =~ /^/usr/bin/moc-qt4/ ||
	$line =~ /^/usr/bin/uic-qt4/ ||
	$line =~ /^creating lib.*/)
     {}
     # Info
     elsif(
	  $line =~ s/^.*-shared.*(lib.*.so).*/ LINK    : $1/g ||
          $line =~ s/^.* (lib.*.so).*/ LINK    : $1/g ||
          $line =~ s/^.* (lib.*.o)s./(.*)/ COMPILE : $2/g ||
          $line =~ s/^.* (lib.*.o)s`.*`(.*); \/ COMPILE : $2/ ||
          $line =~ s/.*-os([^s]*)s`.*`([^s]*);.*/ COMPILE : $2/g ||
          $line =~ s/^[A-z0-9-]*ranlibs(.*)/ RANLIB  : $1/g ||
          $line =~ s/^Makingsallsins(.*)/MAKE     : $1/g ||
          $line =~ s/^Makingscleansins(.*)/CLEAN  : $1/g  )
     {
	print $info.$line.$reset."n";
     }
     # Warning
     elsif (
	  $line =~ s/(.*):([0-9]*):swarning:(.*)/WARNING : $file$1: $lineno$2: $warn$3/g  ||
          $line =~ s/.*issdeprecated.*/WARNING : $line/g )
     {
	print STDERR $warn.$line.$reset."n";
     }
     # Error
     elsif (
	  $line =~ s/(.*):([0-9]*):serror:(.*)/ERROR   : $file$1: $lineno$2: $error$3/g  )
     {
	print STDERR $error.$line.$reset."n";
     }
     # Print unmatched lines
     else
     {
 	print $line."n";
     }
}

						