Initial version.

2000-09-29 20:39:12 +00:00
parent 1e289afbe7
commit 4ae03e7c60
1 changed files with 51 additions and 0 deletions
@@ -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";