code-make.pl

#!/usr/bin/env perl

# Licensed to the Apache Software Foundation (ASF) under one
# or more contributor license agreements.  See the NOTICE file
# distributed with this work for additional information
# regarding copyright ownership.  The ASF licenses this file
# to you under the Apache License, Version 2.0 (the
# "License"); you may not use this file except in compliance
# with the License.  You may obtain a copy of the License at
#
#      http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.

# This tool is a "replacement" for make, which wraps the make command around
# a filter that tries to normalize the output such that the filenames are relative
# to the build directory. This passes all arguments passed along to make itself,
# and you can override the "make" command using the MAKE environment variable.

use strict;
use Term::ANSIColor;

my %COLORS = (
    "_header"  => "italic green",
    "_line"    => "cyan",
    "_message" => "italic magenta",
    "error"    => "red",
    "warning"  => "yellow",
    "note"     => "blue"
);
my $CMD = $ENV{"MAKE"} || "make" . " 2>&1 " . join(" ", @ARGV);
my @DIRS = ();

print colored("Running: $CMD\n", $COLORS{"_header"});

open my $cmd, '-|', $CMD;
while (my $line = <$cmd>) {
    if ($line =~ /(error|warning|note):/) {
        my $msg   = $1;
        my @parts = split(/:/, $line);
        my $file  = $parts[0];

        if (substr($file, 0, 1) ne "/") {
            $file =~ s/^[\.\/]+//;    # Strip leading ./, ../, ../../, etc.

            # Lazy eval on this, assuming that we will not find errors typically...
            if (!@DIRS) {
                @DIRS = split(/\n/, `find . -type d | fgrep -v -e .deps -e .libs -e .git -e .vscode`);
            }

            foreach (@DIRS) {
                if (-f "$_/$file") {
                    $file = "$_/$file";
                    last;
                }
            }
        }
        print colored("$file:$parts[1]:$parts[2]:", $COLORS{"_line"});
        print colored("$msg",                       $COLORS{"$msg"});
        print colored("$parts[4]\n",                $COLORS{"_message"});
    } else {
        print $line;
    }
}