#!/bin/perl

# steps:

# 1) run configure

# 2) perl local/minimalist/remove-unneeded-modules

# 3) make depend

# 4) make

use File::Find;

use Data::Dumper;

use strict;

my %exceptions = qw(

   agent/mibgroup/mibdefs.h              	              1

   agent/mibgroup/struct.h               	              1

   agent/mibgroup/agentx/protocol.h      	              1

   agent/mibgroup/agentx/agentx_config.h 	              1

   agent/mibgroup/agentx/subagent.h      	              1

   agent/mibgroup/mib_module_includes.h  	              1

   agent/mibgroup/mib_module_inits.h     	              1

   agent/mibgroup/mib_module_dot_conf.h  	              1

   agent/mibgroup/mib_module_shutdown.h  	              1

   agent/mibgroup/agent_module_includes.h	              1

   agent/mibgroup/agent_module_inits.h   	              1

   agent/mibgroup/agent_module_dot_conf.h	              1

   agent/mibgroup/agent_module_shutdown.h	              1

   agent/mibgroup/mibII/vacm_conf.c      	              1

   agent/mibgroup/snmpv3/usmConf.c       	              1

   agent/mibgroup/utilities/iquery.c     	              1

   agent/mibgroup/mibII/vacm_conf.h      	              1

   agent/mibgroup/snmpv3/usmConf.h       	              1

   agent/mibgroup/utilities/iquery.h     	              1

   agent/mibgroup/util_funcs/MIB_STATS_CACHE_TIMEOUT.h        1

   agent/mibgroup/host_res.h                                  1

   agent/mibgroup/hr_filesys.h                                1

   agent/mibgroup/if-mib/ifTable/ifTable_defs.h               1

   agent/mibgroup/ifTable_defs.h                              1

   agent/mibgroup/mibII/mibII_common.h                        1

   agent/mibgroup/mnttypes.h                                  1

   agent/mibgroup/utilities/execute.h                         1

);

my %opts;

LocalGetOptions(\%opts,

		['n|dry-run',      "Dry-run, just say what you would do"],

		['v|verbose',      "Show what files are being left too"],

    );

my $inputMakefile = $ARGV[0] || "agent/mibgroup/Makefile";

my $inputDir = $ARGV[1] || "agent/mibgroup";

my $collecting = 0;

my (%files, @files);

open(I, $inputMakefile);

while() {

    if (/mib_module_list_c=/) {

	$collecting = 1;

    } elsif ($collecting) {

	if (! /\\\s*$/) {

	    $collecting = 0;

	}

	chomp();

	s/\\//;

	s/\s*//g;

	s/\.c//;

	push @files, "agent/mibgroup/$_";

	$files{"agent/mibgroup/$_.c"} = 1;

	$files{"agent/mibgroup/$_.h"} = 1;

    }

}

find(\&remove_files, $inputDir);

sub remove_files {

    return if (!/\.[ch]$/);

    return if (/\.h$/); # XXX: we need to delete headers eventually too

    return if (/_constants.h/);

    return if (exists($exceptions{$File::Find::name}));

    if (!exists($files{$File::Find::name})) {

	Unlink($_, $File::Find::name);

    } elsif ($opts{'v'}) {

	print "Leaving $File::Find::name\n";

    }

}

sub Unlink {

    my ($file, $fullfile) = @_;

    print "Removing $fullfile\n";

    if (!$opts{'n'}) {

	unlink($file);

	if (-f "$file") {

	    print "*** FAILED to remove $file\n"; 

	}

    }

}

sub LocalGetOptions {

    if (eval {require Getopt::GUI::Long;}) {

        import Getopt::GUI::Long;

        # optional configure call

	my @gopts = qw(no_ignore_case no_gui allow_zero);

	if ($Getopt::GUI::Long::VERSION > 0.2) {

	    push @gopts, qw(display_help capture_output);

	}

        Getopt::GUI::Long::Configure(@gopts);

        return GetOptions(@_);

    }

    require Getopt::Long;

    import Getopt::Long;

    # optional configure call

    Getopt::Long::Configure(qw(display_help no_ignore_case capture_output));

    GetOptions(LocalOptionsMap(@_));

}

sub LocalOptionsMap {

    my ($st, $cb, @opts) = ((ref($_[0]) eq 'HASH') 

                            ? (1, 1, $_[0]) : (0, 2));

    for (my $i = $st; $i <= $#_; $i += $cb) {

        if ($_[$i]) {

            next if (ref($_[$i]) eq 'ARRAY' && $_[$i][0] =~ /^GUI:/);

            push @opts, ((ref($_[$i]) eq 'ARRAY') ? $_[$i][0] : $_[$i]);

            push @opts, $_[$i+1] if ($cb == 2);

        }

    }

    return @opts;

}