perl 5.0 alpha 9perl-5a9

[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]

1 files changed, 56 insertions, 0 deletions

diff --git a/dl_sunos.c b/dl_sunos.c
new file mode 100644
index 0000000000..badd66d678
--- /dev/null
+++ b/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);
+}