XEmacs 21.2.14.

[chise/xemacs-chise.git.1] / lib-src / process-gnu-depends.sh

diff --git a/lib-src/process-gnu-depends.sh b/lib-src/process-gnu-depends.sh
new file mode 100755 (executable)
index 0000000..b08a916
--- /dev/null
+++ b/lib-src/process-gnu-depends.sh
@@ -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