From 4ae03e7c60b748aab60eaf11f9b1b54bf32163b8 Mon Sep 17 00:00:00 2001
From: "Janet B. Anderson" <jba@aps.anl.gov>
Date: Fri, 29 Sep 2000 20:39:12 +0000
Subject: [PATCH] Initial version.

---
 config/tools/munch.pl | 51 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100755 config/tools/munch.pl

diff --git a/config/tools/munch.pl b/config/tools/munch.pl
new file mode 100755
index 000000000..203b7e2eb
--- /dev/null
+++ b/config/tools/munch.pl
@@ -0,0 +1,51 @@
+eval 'exec perl -S $0 ${1+"$@"}'  # -*- Mode: perl -*-
+    if $running_under_some_shell; # makeConfigAppInclude.pl
+
+# Creates a ctdt.c file of c++ static constructors and destructors.
+#  $Id$
+
+@ctorlist = ();
+@dtorlist = ();
+
+while ($line = <STDIN>)
+{
+    if ($line =~ /__?GLOBAL_.D.+/) {
+        ($adr,$type,$name) = split ' ',$line,3;
+        chop $name;
+        $name =~ s/^__/_/;
+        @dtorlist = (@dtorlist,$name);
+    };
+    if ($line =~ /__?GLOBAL_.I.+/) {
+        ($adr,$type,$name) = split ' ',$line,3;
+        chop $name;
+        $name =~ s/^__/_/;
+        @ctorlist = (@ctorlist,$name);
+    };
+}
+
+foreach $ctor (@ctorlist)
+{
+    printf "void %s();\n",$ctor;
+}
+
+print "extern void (*_ctors[])();\n";
+print "void (*_ctors[])() = {\n";
+foreach $ctor (@ctorlist)
+{
+    printf "        %s,\n",$ctor;
+}
+print "        0};\n";
+
+
+foreach $dtor (@dtorlist)
+{
+    printf "void %s();\n",$dtor;
+}
+
+print "extern void (*_ctors[])();\n";
+print "void (*_dtors[])() = {\n";
+foreach $dtor (@dtorlist)
+{
+    printf "        %s,\n",$dtor;
+}
+print "        0};\n";