From 4879b21c30b88c65bfc7f4c00b579b2483993d15 Mon Sep 17 00:00:00 2001
From: Gordon Matzigkeit <gord@gnu.ai.mit.edu>
Date: Sat, 12 Jul 1997 21:39:00 +0000
Subject: [PATCH] Initial revision

---
 demo/dlmain.c | 81 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 81 insertions(+)
 create mode 100644 demo/dlmain.c

diff --git a/demo/dlmain.c b/demo/dlmain.c
new file mode 100644
index 00000000..d61ffb97
--- /dev/null
+++ b/demo/dlmain.c
@@ -0,0 +1,81 @@
+/* dlmain.c -- hello test program that uses simulated dynamic linking
+   Copyright (C) 1996 Free Software Foundation, Inc.
+   This file is part of GNU Libtool.
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307
+USA. */
+
+#include "foo.h"
+#include <stdio.h>
+#include <string.h>
+
+struct dld_symlist
+{
+  char *name;
+  void *address;
+};
+
+extern struct dld_symlist dld_preloaded_symbols[];
+
+int
+main (int argc, char **argv)
+{
+  struct dld_symlist *s;
+  int (*pfoo)() = 0;
+  int (*phello)() = 0;
+  int *pnothing = 0;
+
+  printf ("Welcome to dynamic GNU Hell!\n");
+
+  s = dld_preloaded_symbols;
+  while (s->name)
+    {
+      /* FIXME: we are simplistic about leading underscores. */
+      printf ("found symbol: %s\n", s->name);
+      if (!strcmp ("hello", s->name))
+	phello = s->address;
+      else if (!strcmp ("foo", s->name))
+	pfoo = s->address;
+      else if (!strcmp ("nothing", s->name))
+	pnothing = s->address;
+
+      s ++;
+    }
+
+  /* Try assigning to the nothing variable. */
+  if (pnothing)
+    *pnothing = 1;
+  else
+    fprintf (stderr, "did not find the `nothing' variable\n");
+
+  /* Just call the functions and check return values. */
+  if (pfoo)
+    {
+      if ((*pfoo) () != FOO_RET)
+	return 1;
+    }
+  else
+    fprintf (stderr, "did not find the `foo' function\n");
+
+  if (phello)
+    {
+      if ((*phello) () != HELLO_RET)
+	return 2;
+    }
+  else
+    fprintf (stderr, "did not find the `hello' function\n");
+
+  return 0;
+}