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;
52 max = AvFILL(dl_resolve_using);
53 for (i = 0; i <= max; i++) {
54 char *sym = SvPVX(*av_fetch(dl_resolve_using, i, 0));
55 DLDEBUG(1,fprintf(stderr, "dl_load_file(%s) (dependent)\n", sym));
56 obj = shl_load(sym, bind_type | BIND_NOSTART, 0L);
62 DLDEBUG(1,fprintf(stderr,"dl_load_file(%s): ", filename));
63 obj = shl_load(filename, bind_type | BIND_NOSTART, 0L);
65 DLDEBUG(2,fprintf(stderr," libref=%x\n", obj));
67 ST(0) = sv_newmortal() ;
69 SaveError("%s",Strerror(errno));
71 sv_setiv( ST(0), (IV)obj);
75 dl_find_symbol(libhandle, symbolname)
79 shl_t obj = (shl_t) libhandle;
83 char symbolname_buf[MAXPATHLEN];
84 symbolname = dl_add_underscore(symbolname, symbolname_buf);
86 DLDEBUG(2,fprintf(stderr,"dl_find_symbol(handle=%x, symbol=%s)\n",
87 libhandle, symbolname));
88 ST(0) = sv_newmortal() ;
91 status = shl_findsym(&obj, symbolname, TYPE_PROCEDURE, &symaddr);
92 DLDEBUG(2,fprintf(stderr," symbolref(PROCEDURE) = %x\n", symaddr));
94 if (status == -1 && errno == 0) { /* try TYPE_DATA instead */
95 status = shl_findsym(&obj, symbolname, TYPE_DATA, &symaddr);
96 DLDEBUG(2,fprintf(stderr," symbolref(DATA) = %x\n", symaddr));
100 SaveError("%s",(errno) ? Strerror(errno) : "Symbol not found") ;
102 sv_setiv( ST(0), (IV)symaddr);
112 # These functions should not need changing on any platform:
115 dl_install_xsub(perl_name, symref, filename="$Package")
120 DLDEBUG(2,fprintf(stderr,"dl_install_xsub(name=%s, symref=%x)\n",
122 ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)())symref, filename)));