#! /usr/bin/env perl

# -*- Mode: perl; -*-

#

# Set Defaults

$debug = 0;

$debugDir = 0;

$gDebugOther = 0;

$summaryOutput = 0;

$terseOutput = 1;

$rootSrcDir = "";

# Define the known commands, along with known make noise (results of

# echo)

# We include /bin/rm and /bin/mv because some Makefile authors prefer

# to get the full path for these routines

@commands = ( "cc", "pgcc", "gcc", "icc", "acc", 

              "rm", "mv", "cp", "ar", "ranlib", "perl", "for", 

	      "/bin/rm", "/bin/mv", "/bin/cp", "/bin/chmod",

	      "rm", "mv", "cp", "chmod",

	      "if", "make", "gnumake", 

	      "[A-Za-z0-9_\/\.-]*\/mpicc",

	      "[A-Za-z0-9_\/\.-]*\/mpifort",

	      "[A-Za-z0-9_\/\.-]*\/mpicxx",

	      "cleaning", "sleep", "date", "g77", "f77", "f90", "f95", "pgCC",

	      "pgf77", "pgf90", "CC", "g95", "g\\+\\+", "c\\+\\+",

	      "acc\\+\\+", "xlc", "xlf", "xlC", "xlf90", "gfortran", 

	      "ifort", "ifc", "test",

	      "true", "false", "/[A-Za-z0-9_\/\.-]*createshlib", 

	      "/bin/sh\\s+[A-Za-z0-9_\/\.-]*libtool\\s+\(--tag=\\w+\)*\\s+--mode=\\w+",

	      "/bin/bash\\s+[A-Za-z0-9_\/\.-]*libtool\\s+--mode=\\w+",

	      "/bin/sh\\s+[A-Za-z0-9_\/\.-]*libtool\\s+--finish",

	      "/bin/bash\\s+[A-Za-z0-9_\/\.-]*libtool\\s+--finish",

	      "libtool:\\s+compile:",

	      "libtool:\\s+link:",

	      "libtool:\\s+install:",

	      "libtool:\\s+finish:",

	      "[A-Za-z0-9_\/-]*\/icc",

	      "[A-Za-z0-9_\/-]*\/install-sh",

	      "/usr/bin/ar", "mkdir",

              "/bin/mkdir",

              "/.*bin/mkdir",

	      "/usr/ucb/ld",

	      "mpicc", "mpicxx",

	      "compiling ROMIO in", 

	      "Make completed",

	      "echo", "cat",

	      "CC", "CCLD", "AR", "RANLIB", "LIBTOOL", "MV", 

              "MOD", "GEN", "F77", "FC", "CXXLD", "CXX", "FCLD",

	      "CP", # "terse" make versions

	      "\\(?cd",

	      "\\(\\s*cd",

	      "creating\s+lib.*",

	      "cd\\s+\&\&\\s+make",

	      "sed -e",

	      "PATH=\"\\\$PATH.*\\sldconfig\\s",

	      "building profiling interface in directory",

	      "/usr/bin/install",

              "/.*bin/install",

              ".*confdb/install-sh",

	      "Copying Upshot",

	      "Cleaning directory",

	      "[*][*][*][*] Making .*\.\.\.\.",

	      "Making .* in .*",

	      "Making upshot", "\\s*\$",

              "ld: warning: directory not found for option '-L\\S*src/mpl'",

              "ld: warning: directory not found for option '-L\\S*src/openpa/src'",

);

# OtherNoise is an array of patterns that describe blocks of

# text that we'd like to skip.  The initial use it to handle 

# libtool install output.

# The PG entries are work-arounds for bugs in the PG header files that have

# small incompatibilities with the system header file /usr/include/unistd.h

#

@OtherNoise = ( 'Libraries have been installed in:<SEP>more information, such as the ld\(1\) and ld.so\(8\) manual pages.<SEP>20',

		'^\s*-+\s*$<SEP><SEP>1', 

		'^In directory:<SEP><SEP>1',

		'^creating\s<SEP><SEP>1', 

#		'^PGC-W-0114-More than one type.*/usr/include/unistd.h: 189<SEP>^PGC-W-0143-Useless typedef.*/usr/include/unistd.h: 189<SEP>2',

#		'^PGC-W-0114-More than one type.*/usr/include/unistd.h: 243<SEP>^PGC-W-0143-Useless typedef.*/usr/include/unistd.h: 243<SEP>2',

		'^PGC.*: compilation completed with warnings<SEP><SEP>1',

# This next is a general version to handle all of these mistakes

		'^PGC-W-0114-More than one type specified.*/usr/include<SEP>^PGC-W-0143-Useless typedef declaration \(no declarators present\).*/usr/include<SEP>2',

		'copying python',

		'LOOP WAS VECTORIZED',

		'Using variables ',

		);

# In the past, we also needed

# WARNING 84.*not used for resolving any symbol

# Info: File not optimized

$trimCompileLine = 1;

# Create the variables that keep track of state

# dirstack keeps the directory name that gnumake and similar make

# implementations echo as a directory is entered or exited (this can generate

# a great deal of output noise that can obscure important data.  However, when

# a problem *does* occur, this directory information is valuable.

# dirprinted is a parallel array that indicates whether the corresponding

# directory entry has been printed.

@dirstack = ();

@dirprinted = ();

# Process arguments to select options

foreach $_ (@ARGV) {

    if (/^--?debug/) { $debug = 1; }

    elsif (/^--?showdir/) { $debugDir = 1; }

    elsif (/^--?summary/) { $summaryOutput = 1; }

    elsif (/^--?notrimcompileline/) { $trimCompileLine = 0; }

    elsif (/^-/) {

	print STDERR "Unrecognized argument $_\n";

	print STDERR "clmake [ -debug ] [ -showdir ] [ -summary ]\n";

	exit(1);

    }

    else { last; }

    shift @ARGV;

}

# Read lines.  Categorize lines as commands and output.  This

# script suppresses commands that generate no extra output.

# The approach is to read a line and then read the next line.

# While the line is a command and the next line is not, output the

# line.

#

# We use eof() (see man perlfun) so that we can accept filenames on the

# commandline.

#

$cmdline = "";

T:

while ($line = <>) {

    if (eof()) { next; }

    $line =~ s/\r//;    # remove returns from line (de DOSify)

    # Read the next line, including handling any continuation lines

    while ($line =~ /\\$/) {

	print "Read continuation line (cmd) ... \n" if $debug;

	$line .= <>;

    }

    # Check for noise

    foreach my $pat (@OtherNoise) {

	# maxlines is the maximum number of lines to match

	my ($beginpat,$endpat,$maxlines) = split( '<SEP>', $pat );

	print "Trying to match $beginpat\n" if $gDebugOther;

	if ($line =~ /$beginpat/) {

	    $maxlines --;

	    print "Found match to $beginpat\n" if $gDebugOther;

	    # Found the beginning.  Look for the end (if one requested)

	    if ($endpat =~ /\S/) {

		print "Trying to match endpat $endpat\n" if $gDebugOther;

		while ($line = <>) {

		    if (eof()) { last; }

		    print "Trying to match to $line" if $gDebugOther;

		    if ($line =~ /$endpat/) { last; }

		    if ($maxlines-- <= 0) { 

			print STDOUT "Failed to match $endpat; last line was $line";

			last; 

		    }

		}

	    }

	    next T;

	}

    }

    # Is the line a command (including a directory change?)

    # Check first for a directory change

    if ($line =~ /^\s*make.* Entering directory \`([^\']*)\'/) {

	my $dirname = $1;

	$dirstack[$#dirstack+1] = $dirname;

	$dirprinted[$#dirprinted+1] = 0;

	print ">>entering $dirname\n" if $debugDir;

	$cmdline = "";

	next;

    }

    elsif ($line =~ /^\s*make.* Leaving directory \`([^\']*)\'/) {

	# We should check that the directory names match

	my $dirname = $1;

	print ">>leaving $dirname\n" if $debugDir;

	if ($dirname ne $dirstack[$#dirstack]) {

	    print STDERR "Warning: leaving directory $dirname but expected to leave directory " . $dirstack[$#dirstack] . "\n";

	}

	$#dirstack--;

	$#dirprinted--;

	$cmdline = "";

	next;

    }

    else {

	$is_command = 0;

	foreach $cmdname (@commands) {

	    if ($line =~ /^\s*$cmdname\W/) {

		$is_command = 1;

		$cmdline = $line;

		last;

	    }

	}

	if ($is_command) { 

	    if ($summaryOutput) {

		# FIXME: Summarize the command

		if ($terseOutput) {

		    if ($rootSrcDir eq "") {

			if ($line =~ /\s(\/\S+\/src\/)/) {

			    $rootSrcDir = $1;

			    print "rootSrcDir = $rootSrcDir\n";

			}

		    }

		    else {

			$line =~ s/$rootSrcDir//g;

		    }

		    # Compiler options to remove

		    $line =~ s/-I\S+\s+//g;

		    $line =~ s/-W\S+\s+//g;

		    $line =~ s/-D\S+\s+//g;

		}

		print $line;

	    }

	    next; 

	}

    }

    # If we got to this point, the line was not a recognized command or

    # ignorable output.  Output the line, including the command if this 

    # is the first time.  We can then forget the command 

    if ($#dirstack >= 0 && $dirprinted[$#dirstack] == 0) {

	print "In directory: ". $dirstack[$#dirstack] . "\n";

	$dirprinted[$#dirstack] = 1;

    }

    if ($cmdline ne "") { 

	if ($trimCompileLine) {

	    # Simplify the command line before printing

	    $cmdline =~ s/-I\S*\s+//g;

	    $cmdline =~ s/-ansi//g;

	    $cmdline =~ s/-W\S*\s+//g;

	    $cmdline =~ s/-DHAVE_CONFIG_H//g;

	    $cmdline =~ s/-DGCC_WALL//g;

	}

	# We could print a newline here to separate commands

	print $cmdline;

	$cmdline = "";

    }

    print $line;

}

#

# ToDo:

# Handle lines containing just ----, e.g., patterns of the form

# -*