#!/usr/bin/perl
#
# $Id: mkdepend,v 1.1 1999/07/18 02:33:20 ben Exp $

$source = shift;
($object = $source) =~ s/\..*$/.o/;

while (<>) {
    # some preprocessors output "#line ...", some just "# ..."
    next unless /^#\w* \d+ \"(.*)\"/o;
    $dependencies{$1}++;
}

print "$object:";

foreach (sort(keys %dependencies)) {
    next if m|^/usr/include|o;
    next if m|^/usr/local|o;
    next if m|^/usr/lib|o;
    next if $_ eq $source;
    print " \\\n\t$_";
}

print "\n";
