5 files changed, 196 insertions, 0 deletions
diff --git a/ext/dl/dl_hpux.c b/ext/dl/dl_hpux.c
new file mode 100644
index 0000000000..57adcc6188
--- /dev/null
+++ b/ext/dl/dl_hpux.c
@@ -0,0 +1,71 @@
+/*
+Date: Mon, 25 Apr 94 14:15:30 PDT
+From: Jeff Okamoto <okamoto@hpcc101.corp.hp.com>
+To: doughera@lafcol.lafayette.edu
+Cc: okamoto@hpcc101.corp.hp.com, Jarkko.Hietaniemi@hut.fi, ram@acri.fr,
+     john@WPI.EDU, k@franz.ww.TU-Berlin.DE, dmm0t@rincewind.mech.virginia.edu,
+     lwall@netlabs.com
+Subject: dl.c.hpux
+
+This is what I hacked around and came up with for HP-UX.  (Or maybe it should
+be called dl_hpux.c).  Notice the change in suffix from .so to .sl (the
+default suffix for HP-UX shared libraries).
+
+Jeff
+*/
+#include <dl.h>
+
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+static int
+XS_DynamicLoader_bootstrap(ix, ax, items)
+register int ix;
+register int ax;
+register int items;
+{
+    if (items < 1 || items > 1) {
+	croak("Usage: DynamicLoader::bootstrap(package)");
+    }
+    {
+	char*	package = SvPV(ST(1),na);
+	shl_t obj = NULL;
+	int (*bootproc)();
+	char tmpbuf[1024];
+	char tmpbuf2[128];
+	AV *av = GvAVn(incgv);
+	I32 i;
+
+	for (i = 0; i <= AvFILL(av); i++) {
+	    (void)sprintf(tmpbuf, "%s/auto/%s/%s.sl",
+		SvPVx(*av_fetch(av, i, TRUE), na), package, package);
+	    if (obj = shl_load(tmpbuf,
+		BIND_IMMEDIATE | BIND_NONFATAL | BIND_NOSTART,0L))
+		break;
+	}
+	if (obj != (shl_t) NULL)
+	    croak("Can't find loadable object for package %s in @INC", package);
+
+	sprintf(tmpbuf2, "boot_%s", package);
+	i = shl_findsym(&obj, tmpbuf2, TYPE_PROCEDURE, &bootproc);
+	if (i == -1)
+	    croak("Shared object %s contains no %s function", tmpbuf, tmpbuf2);
+	bootproc();
+
+	ST(0) = sv_mortalcopy(&sv_yes);
+    }
+    return ax;
+}
+
+int
+boot_DynamicLoader(ix,sp,items)
+int ix;
+int sp;
+int items;
+{
+    char* file = __FILE__;
+
+    newXSUB("DynamicLoader::bootstrap", 0, XS_DynamicLoader_bootstrap, file);
+}
+
diff --git a/ext/dl/dl_next.c b/ext/dl/dl_next.c
new file mode 100644
index 0000000000..66e95121de
--- /dev/null
+++ b/ext/dl/dl_next.c
@@ -0,0 +1,69 @@
+/* dl_next.c
+   Author:  tom@smart.bo.open.de (Thomas Neumann).
+   Based on dl_sunos.c
+*/
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+#include <mach-o/rld.h>
+#include <streams/streams.h>
+
+static int
+XS_DynamicLoader_bootstrap(ix, ax, items)
+register int ix;
+register int ax;
+register int items;
+{
+    if (items < 1 || items > 1) {
+	croak("Usage: DynamicLoader::bootstrap(package)");
+    }
+    {
+	char*	package = SvPV(ST(1),na);
+	int rld_success;
+	NXStream *nxerr = NXOpenFile(fileno(stderr), NX_READONLY);
+	int (*bootproc)();
+	char tmpbuf[1024];
+	char tmpbuf2[128];
+	AV *av = GvAVn(incgv);
+	I32 i;
+
+	for (i = 0; i <= AvFILL(av); i++) {
+	    char *p[2];
+	    p[0] = tmpbuf;
+	    p[1] = 0;
+	    sprintf(tmpbuf, "%s/auto/%s/%s.so",
+		    SvPVx(*av_fetch(av, i, TRUE), na), package, package);
+	    if (rld_success = rld_load(nxerr, (struct mach_header **)0, p,
+				       (const char *)0))
+	    {
+	        break;
+	    }
+	}
+	if (!rld_success) {
+	    NXClose(nxerr);
+	    croak("Can't find loadable object for package %s in @INC", package);
+
+	}
+	sprintf(tmpbuf2, "_boot_%s", package);
+	if (!rld_lookup(nxerr, tmpbuf2, (unsigned long *)&bootproc)) {
+	    NXClose(nxerr);
+	    croak("Shared object %s contains no %s function", tmpbuf, tmpbuf2);
+	}
+	NXClose(nxerr);
+	(*bootproc)();
+	ST(0) = sv_mortalcopy(&sv_yes);
+    }
+    return ax;
+}
+
+int
+boot_DynamicLoader(ix,sp,items)
+int ix;
+int sp;
+int items;
+{
+    char* file = __FILE__;
+
+    newXSUB("DynamicLoader::bootstrap", 0, XS_DynamicLoader_bootstrap, file);
+}
diff --git a/ext/dl/dl_sunos.c b/ext/dl/dl_sunos.c
new file mode 100644
index 0000000000..badd66d678
--- /dev/null
+++ b/ext/dl/dl_sunos.c
@@ -0,0 +1,56 @@
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+#ifdef I_DLFCN
+# include <dlfcn.h>
+#endif
+
+static int
+XS_DynamicLoader_bootstrap(ix, ax, items)
+register int ix;
+register int ax;
+register int items;
+{
+    if (items < 1 || items > 1) {
+	croak("Usage: DynamicLoader::bootstrap(package)");
+    }
+    {
+	char*	package = SvPV(ST(1),na);
+	void* obj = 0;
+	int (*bootproc)();
+	char tmpbuf[1024];
+	char tmpbuf2[128];
+	AV *av = GvAVn(incgv);
+	I32 i;
+
+	for (i = 0; i <= AvFILL(av); i++) {
+	    (void)sprintf(tmpbuf, "%s/auto/%s/%s.so",
+		SvPVx(*av_fetch(av, i, TRUE), na), package, package);
+	    if (obj = dlopen(tmpbuf,1))
+		break;
+	}
+	if (!obj)
+	    croak("Can't find loadable object for package %s in @INC", package);
+
+	sprintf(tmpbuf2, "boot_%s", package);
+	bootproc = (int (*)())dlsym(obj, tmpbuf2);
+	if (!bootproc)
+	    croak("Shared object %s contains no %s function", tmpbuf, tmpbuf2);
+	bootproc();
+
+	ST(0) = sv_mortalcopy(&sv_yes);
+    }
+    return ax;
+}
+
+int
+boot_DynamicLoader(ix,sp,items)
+int ix;
+int sp;
+int items;
+{
+    char* file = __FILE__;
+
+    newXSUB("DynamicLoader::bootstrap", 0, XS_DynamicLoader_bootstrap, file);
+}
diff --git a/ext/dl/eg/test b/ext/dl/eg/test
new file mode 100755
index 0000000000..2a8b92570e
--- /dev/null
+++ b/ext/dl/eg/test
diff --git a/ext/dl/eg/test1 b/ext/dl/eg/test1
new file mode 100755
index 0000000000..e9a37e9e53
--- /dev/null
+++ b/ext/dl/eg/test1