diff lib-src/process-gnu-depends.sh @ 0:376386a54a3c r19-14

Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib-src/process-gnu-depends.sh	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,49 @@
+#!/bin/sh
+
+perl -e '
+while (<>)
+{
+    chop;
+    $foo .= $_;
+    if (!/\\$/)
+    {
+        @foo = split (/[ \\:\n]+/, $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;
+	if (!$#foo)
+	{
+	    next;
+	}
+        foreach $i (0 .. $#foo)
+	{
+            $foo[$i] = $filename . ": " . $foo[$i];
+	}
+	print $filename . ": config.h\n";
+        print join ("\n", @foo);
+        print "\n";
+        $foo = "";
+    }
+}
+' | sort | uniq
\ No newline at end of file