summaryrefslogtreecommitdiff
path: root/dl.c
diff options
context:
space:
mode:
Diffstat (limited to 'dl.c')
-rw-r--r--dl.c54
1 files changed, 0 insertions, 54 deletions
diff --git a/dl.c b/dl.c
deleted file mode 100644
index d514f81897..0000000000
--- a/dl.c
+++ /dev/null
@@ -1,54 +0,0 @@
-#include <dlfcn.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);
- 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);
-}