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 */
28 (void)dl_generic_private_init();
31 MODULE = DynaLoader PACKAGE = DynaLoader
34 (void)dl_private_init();
38 dl_load_file(filename)
46 gv = gv_fetchpv("DynaLoader::dl_resolve_using", FALSE, SVt_PVAV);
50 for (i = 0; i <= max; i++) {
51 char *sym = SvPVX(*av_fetch(av, i, 0));
52 DLDEBUG(1,fprintf(stderr, "dl_load_file(%s) (dependent)\n", sym));
54 BIND_IMMEDIATE | BIND_NONFATAL | BIND_NOSTART | BIND_VERBOSE,
62 DLDEBUG(1,fprintf(stderr,"dl_load_file(%s): ", filename));
63 obj = shl_load(filename,
64 BIND_IMMEDIATE | BIND_NONFATAL | BIND_NOSTART | BIND_VERBOSE, 0L);
66 DLDEBUG(2,fprintf(stderr," libref=%x\n", obj));
68 ST(0) = sv_newmortal() ;
70 SaveError("%s",Strerror(errno));
72 sv_setiv( ST(0), (IV)obj);
76 dl_find_symbol(libhandle, symbolname)
80 shl_t obj = (shl_t) libhandle;
84 char symbolname_buf[MAXPATHLEN];
85 symbolname = dl_add_underscore(symbolname, symbolname_buf);
87 DLDEBUG(2,fprintf(stderr,"dl_find_symbol(handle=%x, symbol=%s)\n",
88 libhandle, symbolname));
89 status = shl_findsym(&obj, symbolname, TYPE_PROCEDURE, &symaddr);
90 DLDEBUG(2,fprintf(stderr," symbolref(PROCEDURE) = %x\n", symaddr));
91 ST(0) = sv_newmortal() ;
94 status = shl_findsym(&obj, symbolname, TYPE_DATA, &symaddr);
95 DLDEBUG(2,fprintf(stderr," symbolref(DATA) = %x\n", symaddr));
97 SaveError("%s",(errno) ? Strerror(errno) : "Symbol not found") ;
99 sv_setiv( ST(0), (IV)symaddr);
102 SaveError("%s", Strerror(errno));
105 sv_setiv( ST(0), (IV)symaddr);
115 # These functions should not need changing on any platform:
118 dl_install_xsub(perl_name, symref, filename="$Package")
123 DLDEBUG(2,fprintf(stderr,"dl_install_xsub(name=%s, symref=%x)\n",
125 ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)())symref, filename)));