2 * Author: Jeff Okamoto (okamoto@corp.hp.com)
3 * Version: 2.1, 1995/1/25
7 #define magic hpux_magic
8 #define MAGIC HPUX_MAGIC
22 #include "dlutils.c" /* for SaveError() etc */
24 static AV *dl_resolve_using = Nullav;
30 (void)dl_generic_private_init();
31 dl_resolve_using = perl_get_av("DynaLoader::dl_resolve_using", 0x4);
34 MODULE = DynaLoader PACKAGE = DynaLoader
37 (void)dl_private_init();
41 dl_load_file(filename)
45 int i, max, bind_type;
48 bind_type = BIND_IMMEDIATE;
50 bind_type = BIND_DEFERRED;
53 bind_type |= BIND_VERBOSE;
54 #endif /* DEBUGGING */
56 max = AvFILL(dl_resolve_using);
57 for (i = 0; i <= max; i++) {
58 char *sym = SvPVX(*av_fetch(dl_resolve_using, i, 0));
59 DLDEBUG(1,PerlIO_printf(PerlIO_stderr(), "dl_load_file(%s) (dependent)\n", sym));
60 obj = shl_load(sym, bind_type | BIND_NOSTART, 0L);
66 DLDEBUG(1,PerlIO_printf(PerlIO_stderr(), "dl_load_file(%s): ", filename));
67 obj = shl_load(filename, bind_type | BIND_NOSTART, 0L);
69 DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), " libref=%x\n", obj));
71 ST(0) = sv_newmortal() ;
73 SaveError("%s",Strerror(errno));
75 sv_setiv( ST(0), (IV)obj);
79 dl_find_symbol(libhandle, symbolname)
83 shl_t obj = (shl_t) libhandle;
87 char symbolname_buf[MAXPATHLEN];
88 symbolname = dl_add_underscore(symbolname, symbolname_buf);
90 DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), "dl_find_symbol(handle=%x, symbol=%s)\n",
91 libhandle, symbolname));
92 ST(0) = sv_newmortal() ;
95 status = shl_findsym(&obj, symbolname, TYPE_PROCEDURE, &symaddr);
96 DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), " symbolref(PROCEDURE) = %x\n", symaddr));
98 if (status == -1 && errno == 0) { /* try TYPE_DATA instead */
99 status = shl_findsym(&obj, symbolname, TYPE_DATA, &symaddr);
100 DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), " symbolref(DATA) = %x\n", symaddr));
104 SaveError("%s",(errno) ? Strerror(errno) : "Symbol not found") ;
106 sv_setiv( ST(0), (IV)symaddr);
116 # These functions should not need changing on any platform:
119 dl_install_xsub(perl_name, symref, filename="$Package")
124 DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), "dl_install_xsub(name=%s, symref=%x)\n",
126 ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)())symref, filename)));