#! /usr/local/bin/perl 
#
# Like makedepend, but looks for source files in all directories
# specified with -I flags.
#
# Usage:
#
#	xdepend <options> <files>
#

# Parse options
@opt_mkopts = ('makedepend');
@opt_incs   = ();
$opt_append = 0;

while ($_ = shift) {
    if (/^-I(.+)$/) {
	# Just record for source file searching.
	push(@opt_incs, $1);
    }

    if (/^--$/) {
	push(@opt_mkopts, $_);
	while ($_ = shift) {
	    if (/^-I(.+)$/) {
		# Just record for source file searching.
		push(@opt_incs, $1);
	    }

	    push(@opt_mkopts, $_);
	    last if (/^--$/);
	}
	next;
    }

    unless (/^-/ || m%/%) {
	# Source file
	$name = '';
	foreach $d (@opt_incs) {
	    if (-e "$d/$_") {
		$name = "$d/$_";
		last;
	    }
	}
	if ($name eq '') {
	    $name = $_;
	}
	$_ = $name;
    }

    push(@opt_mkopts, $_);
}

# Run makedepend
exec(@opt_mkopts);
