3 * Platform: NeXT NS 3.2
4 * Author: Anno Siegel (siegel@zrz.TU-Berlin.DE)
5 * Based on: dl_dlopen.xs by Paul Marquess
6 * Created: Aug 15th, 1994
11 And Gandalf said: 'Many folk like to know beforehand what is to
12 be set on the table; but those who have laboured to prepare the
13 feast like to keep their secret; for wonder makes the words of
19 dl_next.xs is itself a port from dl_dlopen.xs by Paul Marquess. It
20 should not be used as a base for further ports though it may be used
21 as an example for how dl_dlopen.xs can be ported to other platforms.
23 The method used here is just to supply the sun style dlopen etc.
24 functions in terms of NeXTs rld_*. The xs code proper is unchanged
27 The port could use some streamlining. For one, error handling could
34 /* include these before perl headers */
35 #include <mach-o/rld.h>
36 #include <streams/streams.h>
42 #define DL_LOADONCEONLY
44 #include "dlutils.c" /* SaveError() etc */
47 static char * dl_last_error = (char *) 0;
48 static AV *dl_resolve_using = Nullav;
53 return NXOpenMemory( (char *) 0, 0, NX_WRITEONLY);
63 if ( dl_last_error ) {
64 safefree(dl_last_error);
66 NXGetMemoryBuffer(s, &buffer, &len, &maxlen);
67 dl_last_error = safemalloc(len);
68 strcpy(dl_last_error, buffer);
76 NXCloseMemory( s, NX_FREEBUFFER);
88 int mode; /* mode is ignored */
96 /* Do not load what is already loaded into this process */
97 if (hv_fetch(dl_loaded_files, path, strlen(path), 0))
101 psize = AvFILL(dl_resolve_using) + 3;
102 p = (char **) safemalloc(psize * sizeof(char*));
104 for(i=1; i<psize-1; i++) {
105 p[i] = SvPVx(*av_fetch(dl_resolve_using, i-1, TRUE), na);
108 rld_success = rld_load(nxerr, (struct mach_header **)0, p,
113 /* prevent multiple loads of same file into same process */
114 hv_store(dl_loaded_files, path, strlen(path), &sv_yes, 0);
116 TransferError(nxerr);
124 dlclose(handle) /* stub only */
131 dlsym(handle, symbol)
135 NXStream *nxerr = OpenError();
137 unsigned long symref = 0;
139 sprintf(symbuf, "_%s", symbol);
140 if (!rld_lookup(nxerr, symbuf, &symref)) {
141 TransferError(nxerr);
144 return (void*) symref;
148 /* ----- code from dl_dlopen.xs below here ----- */
154 (void)dl_generic_private_init();
155 dl_resolve_using = perl_get_av("DynaLoader::dl_resolve_using", 0x4);
158 MODULE = DynaLoader PACKAGE = DynaLoader
161 (void)dl_private_init();
166 dl_load_file(filename)
170 DLDEBUG(1,fprintf(stderr,"dl_load_file(%s):\n", filename));
171 RETVAL = dlopen(filename, mode) ;
172 DLDEBUG(2,fprintf(stderr," libref=%x\n", RETVAL));
173 ST(0) = sv_newmortal() ;
175 SaveError("%s",dlerror()) ;
177 sv_setiv( ST(0), (IV)RETVAL);
181 dl_find_symbol(libhandle, symbolname)
185 DLDEBUG(2,fprintf(stderr,"dl_find_symbol(handle=%x, symbol=%s)\n",
186 libhandle, symbolname));
187 RETVAL = dlsym(libhandle, symbolname);
188 DLDEBUG(2,fprintf(stderr," symbolref = %x\n", RETVAL));
189 ST(0) = sv_newmortal() ;
191 SaveError("%s",dlerror()) ;
193 sv_setiv( ST(0), (IV)RETVAL);
202 # These functions should not need changing on any platform:
205 dl_install_xsub(perl_name, symref, filename="$Package")
210 DLDEBUG(2,fprintf(stderr,"dl_install_xsub(name=%s, symref=%x)\n",
212 ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)())symref, filename)));