2 * Author: Mark Klein (mklein@dis.com)
3 * Version: 2.1, 1996/07/25
4 * Version: 2.2, 1997/09/25 Mark Bixby (markb@cccd.edu)
5 * Version: 2.3, 1998/11/19 Mark Bixby (markb@cccd.edu)
13 extern void HPGETPROCPLABEL( int parms,
25 #pragma intrinsic HPGETPROCPLABEL
27 #include "dlutils.c" /* for SaveError() etc */
30 char filename[PATH_MAX + 3];
31 } t_mpe_dld, *p_mpe_dld;
33 static AV *dl_resolve_using = Nullav;
38 (void)dl_generic_private_init(aTHX);
39 dl_resolve_using = get_av("DynaLoader::dl_resolve_using", 0x4);
42 MODULE = DynaLoader PACKAGE = DynaLoader
45 (void)dl_private_init(aTHX);
48 dl_load_file(filename, flags=0)
52 char buf[PATH_MAX + 3];
56 DLDEBUG(1,PerlIO_printf(PerlIO_stderr(), "dl_load_file(%s,%x):\n", filename,
59 Perl_warn(aTHX_ "Can't make loaded symbols global on this platform while loading %s
61 obj = (p_mpe_dld) safemalloc(sizeof(t_mpe_dld));
62 memzero(obj, sizeof(t_mpe_dld));
63 if (filename[0] != '/')
65 getcwd(buf,sizeof(buf));
66 sprintf(obj->filename," %s/%s ",buf,filename);
69 sprintf(obj->filename," %s ",filename);
71 DLDEBUG(2,PerlIO_printf(PerlIO_stderr()," libref=%x\n", obj));
73 ST(0) = sv_newmortal() ;
75 SaveError(aTHX_"%s",Strerror(errno));
77 sv_setiv( ST(0), PTR2IV(obj) );
80 dl_find_symbol(libhandle, symbolname)
85 p_mpe_dld obj = (p_mpe_dld) libhandle;
86 char symname[PATH_MAX + 3];
87 void * symaddr = NULL;
89 DLDEBUG(2,PerlIO_printf(PerlIO_stderr(),"dl_find_symbol(handle=%x, symbol=%s)\n",
90 libhandle, symbolname));
91 ST(0) = sv_newmortal() ;
94 sprintf(symname, " %s ", symbolname);
95 HPGETPROCPLABEL(8, symname, &symaddr, &status, obj->filename, 1,
96 0, &datalen, 1, 0, 0);
98 DLDEBUG(2,PerlIO_printf(PerlIO_stderr()," symbolref(PROCEDURE) = %x, status=%x\n", symaddr, status));
101 SaveError(aTHX_"%s",(errno) ? Strerror(errno) : "Symbol not found") ;
103 sv_setiv( ST(0), PTR2IV(symaddr) );
110 # These functions should not need changing on any platform:
113 dl_install_xsub(perl_name, symref, filename="$Package")
118 DLDEBUG(2,PerlIO_printf(PerlIO_stderr(),"dl_install_xsub(name=%s, symref=%x)\n",
120 ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name,
121 (void(*)(pTHX_ CV *))symref,