Changeset 2496 in Sophya for trunk/SophyaLib/SysTools/pdlmgr.cc

Timestamp:

Feb 3, 2004, 12:05:44 PM (22 years ago)

Author:

ansari

Message:

Implementation propre de la gestion de chargement dynamique (classe PDynLinkMgr) sur MacOSX/Darwin a travers les API NSObjectFileImage et NSModule + petite correction ds zthread.h (deplacement de unlock()) - Reza 3 Fevrier 2004

File:

• trunk/SophyaLib/SysTools/pdlmgr.cc (modified) (5 diffs)

trunk/SophyaLib/SysTools/pdlmgr.cc

@@ -172 +172 @@
   cmd = "ld -b -o " + fnameso + " " + fnameobj + " -lm -lc";
 #elif defined(Darwin)
-  cmd = "cc -bundle -flat_namespace -undefined suppress -o " + fnameso + " " + fnameobj + " -lm  -lcc_dynamic -lSystem ";
+  // cmd = "cc -bundle -flat_namespace -undefined suppress -o " + fnameso + " " + fnameobj + " -lm  -lcc_dynamic -lSystem ";
+  cmd = "cc -bundle -o " + fnameso + " " + fnameobj + " -lSystem -lm";
 #else 
   cmd = "ld -o " + fnameso + " " + fnameobj + " -lm -lc";
@@ -195 +196 @@
 PDynLinkMgr::PDynLinkMgr(string& soname, bool cp)
 {
-#ifndef Darwin
-dlhandle = NULL;
-#endif
+dylok = false;
 soName = "";
 
@@ -230 +229 @@
 soName = fnameso;
 
+string sdylerr;
 #if defined(HPUX)
-dlhandle = NULL;
 cerr << "PDynLinkMgr::PDynLinkMgr() Not yet available on HP-UX " << endl;
 return;
-#else
+#elif defined(Darwin)
+NSObjectFileImageReturnCode nsrc = NSCreateObjectFileImageFromFile(fnameso.c_str(), &nsobjfile);
+if (nsrc == NSObjectFileImageSuccess) {
+  nsmod = NSLinkModule(nsobjfile, fnameso.c_str(),
+                       NSLINKMODULE_OPTION_BINDNOW | NSLINKMODULE_OPTION_PRIVATE | 
+                       NSLINKMODULE_OPTION_RETURN_ON_ERROR);
+  // The second argument of NSLinkModule is the module name
+  // We might associate later a name for the module in the PDynLinkMgr object
+  if (nsmod != NULL) dylok = true;
+  else cerr << "PDynLinkMgr::PDynLinkMgr()/ Error from NSLinkModule ... " << endl;
+}
+else { 
+  cerr << "PDynLinkMgr::PDynLinkMgr()/ Error from NSCreateObjectFileImageFromFile ... " << endl;
+  if (nsrc == NSObjectFileImageFailure) cerr << " ErrCode= NSObjectFileImageFailure " << endl;
+  else if (nsrc == NSObjectFileImageInappropriateFile) cerr << " ErrCode= NSObjectFileImageInappropriateFile" << endl;
+  else if (nsrc == NSObjectFileImageArch ) cerr << " ErrCode= NSObjectFileImageArch" << endl;
+  else if (nsrc == NSObjectFileImageFormat) cerr << " ErrCode= NSObjectFileImageFormat" << endl;
+  else if (nsrc == NSObjectFileImageAccess) cerr << " ErrCode= NSObjectFileImageAccess" << endl;
+}
+#else
+dlhandle = NULL;
 dlhandle =  dlopen(fnameso.c_str(), RTLD_NOW);
-if (dlhandle == NULL) { 
+if (dlhandle != NULL) dylok = true;
+else { 
+  sdylerr = "Loader Error (dlerror()):";
+  sdylerr += dlerror();
+#endif
+
+if (!dylok)  {
   cerr << "PDynLinkMgr::PDynLinkMgr(): Error opening SO " << fnameso 
        << " (" << soname << ")" << endl; 
-  string sn = dlerror();
-  cerr << "Loader Error (dlerror()) :" << sn << endl;
+  if (sdylerr.length() > 0) cerr << sdylerr;
   return; 
   }
-#endif
 }
 
@@ -253 +276 @@
 #if defined(HPUX)
 cerr << "PDynLinkMgr::~PDynLinkMgr() Not yet available on HP-UX " << endl;
-return;
-#else
-if (dlhandle) dlclose(dlhandle);    dlhandle = NULL;
+// return;
+#elif defined(Darwin)
+if (dylok) { 
+  if (nsmod != NULL)  NSUnLinkModule(nsmod, NSUNLINKMODULE_OPTION_NONE);
+  NSDestroyObjectFileImage(nsobjfile);
+  }
+#else
+if (dylok) {
+  if (dlhandle) dlclose(dlhandle);    dlhandle = NULL;
+  }
+#endif
 if (copy) {
   string cmd = "rm -f " + soName;
   system(cmd.c_str());
   }
-#endif
 }
 
@@ -269 +299 @@
 {
 DlFunction f = NULL;
+if (!dylok) {
+  cerr << "PDynLinkMgr::GetFunction() Error:sharedobjet/dynamic library not open -> f=NULL" << endl;
+  return f;
+}
 #if defined(HPUX)
 cerr << "PDynLinkMgr::GetFunction() Not yet available on HP-UX " << endl;
 return f;
-#else 
+#endif
 #if defined(Darwin)
 string funame = "_" + funcname;
+NSSymbol nsf = NSLookupSymbolInModule(nsmod, funame.c_str());
+f = (DlFunction)NSAddressOfSymbol(nsf);
 #else 
 string const & funame = funcname;
-#endif
 if (dlhandle != NULL)  
   f = (DlFunction)dlsym(dlhandle, funame.c_str());
+#endif
+
 if (f == NULL) cerr << "PDynLinkMgr::GetFunction(): Error linking " << funcname << endl;
 return(f);
-#endif
-}
-
-
+}
+
+