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, flags=0)
46 int i, max, bind_type;
48 DLDEBUG(1,PerlIO_printf(PerlIO_stderr(), "dl_load_file(%s,%x):\n", filename,flags));
50 warn("Can't make loaded symbols global on this platform while loading %s",filename);
52 bind_type = BIND_IMMEDIATE;
54 bind_type = BIND_DEFERRED;
57 bind_type |= BIND_VERBOSE;
58 #endif /* DEBUGGING */
60 max = AvFILL(dl_resolve_using);
61 for (i = 0; i <= max; i++) {
62 char *sym = SvPVX(*av_fetch(dl_resolve_using, i, 0));
63 DLDEBUG(1,PerlIO_printf(PerlIO_stderr(), "dl_load_file(%s) (dependent)\n", sym));
64 obj = shl_load(sym, bind_type | BIND_NOSTART, 0L);
70 DLDEBUG(1,PerlIO_printf(PerlIO_stderr(), "dl_load_file(%s): ", filename));
71 obj = shl_load(filename, bind_type | BIND_NOSTART, 0L);
73 DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), " libref=%x\n", obj));
75 ST(0) = sv_newmortal() ;
77 SaveError("%s",Strerror(errno));
79 sv_setiv( ST(0), (IV)obj);
83 dl_find_symbol(libhandle, symbolname)
87 shl_t obj = (shl_t) libhandle;
91 char symbolname_buf[MAXPATHLEN];
92 symbolname = dl_add_underscore(symbolname, symbolname_buf);
94 DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), "dl_find_symbol(handle=%x, symbol=%s)\n",
95 libhandle, symbolname));
96 ST(0) = sv_newmortal() ;
99 status = shl_findsym(&obj, symbolname, TYPE_PROCEDURE, &symaddr);
100 DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), " symbolref(PROCEDURE) = %x\n", symaddr));
102 if (status == -1 && errno == 0) { /* try TYPE_DATA instead */
103 status = shl_findsym(&obj, symbolname, TYPE_DATA, &symaddr);
104 DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), " symbolref(DATA) = %x\n", symaddr));
108 SaveError("%s",(errno) ? Strerror(errno) : "Symbol not found") ;
110 sv_setiv( ST(0), (IV)symaddr);
120 # These functions should not need changing on any platform:
123 dl_install_xsub(perl_name, symref, filename="$Package")
128 DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), "dl_install_xsub(name=%s, symref=%x)\n",
130 ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)())symref, filename)));