--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib-src/gnudepend.pl	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,46 @@
+#!/usr/local/bin/perl
+
+while (<>)
+{
+    if (/\\$/)
+    {
+        chop;
+        $foo .= $_;
+    }
+    else
+    {
+        @foo = split (/[ \\:]+/, $foo);
+        $filename = $foo[0];
+	if (($filename =~ /^unex/) ||
+	    ($filename =~ /^sgiplay/) ||
+	    ($filename =~ /^Extern/) ||
+	    ($filename =~ /^extw/))
+	{
+	    $foo = "";
+	    next;
+	}
+        @foo = grep (!/\.c$/, @foo);
+        @foo = grep ((s/\/.*lwlib\//\$(LWLIBSRCDIR)\//, 1), @foo);
+        @foo = grep (!/lisp\.h/, @foo);
+	@foo = grep (!/lisp\.h/, @foo);
+	@foo = grep (!/lisp-union\.h/, @foo);
+	@foo = grep (!/lisp-disunion\.h/, @foo);
+	@foo = grep (!/lrecord\.h/, @foo);
+	@foo = grep (!/emacsfns\.h/, @foo);
+	@foo = grep (!/symeval\.h/, @foo);
+	@foo = grep (!/symsinit\.h/, @foo);
+	@foo = grep (!/syssignal\.h/, @foo);
+	@foo = grep (!/intl\.h/, @foo);
+	@foo = grep (!/tt_c\.h/, @foo);
+	@foo = grep (!/descrip\.h/, @foo);
+        shift @foo;
+        foreach $i (0 .. $#foo)
+	{
+            $foo[$i] = $filename . ": " . $foo[$i];
+	}
+	print $filename . ": config.h\n";
+        print join ("\n", @foo);
+        print "\n";
+        $foo = "";
+    }
+}