#!/usr/bin/perl
# replace repetitive compiler flags with a variable for logfiles.

$oldflags = '';

while (<>) {
    chomp;
    s/\s+/ /g;
    $rest = '';

    if (/gcc (.*) -c (.*)$/) {
        $flags = "$1";
        $rest  = "$2";
    }
    elsif (/gcc -c (.*) (-o .*)$/) {
        $flags = "$1";
        $rest  = "$2";
    }

    if (length($rest)) {
        if ($flags eq $oldflags) {
            print "gcc \$flags -c $rest\n";
        }
        else {
            print "\n", '$flags = ', "$flags\n\n";
            $oldflags = $flags;
        }
    }
    else {
        print "$_\n";
    }
}

exit(0);