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

Timestamp:

Oct 20, 1999, 12:25:32 PM (26 years ago)

Author:

ansari

Message:

MAJ / PEIDA 3.8 , Reza 20/10/99

File:

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

trunk/SophyaLib/SysTools/pdlmgr.cc

@@ -23 +23 @@
 if ( (path.length() > 0) && (path[path.length()] != '/')  ) GetTmpDir() = path + '/';
 else GetTmpDir() = path;
+#if defined(OSF1) || defined(Linux) || defined(SunOS)
+  string cmd = "LD_LIBRARY_PATH=";
+  char* varenv=NULL;
+  varenv=getenv("LD_LIBRARY_PATH");
+#elif defined(IRIX64)
+  string cmd = "LD_LIBRARYN32_PATH=";
+  char* varenv=NULL;
+  varenv=getenv("LD_LIBRARYN32_PATH");
+
+  if (varenv == NULL) { 
+    cmd += '.';  
+    if (path.length() > 0)  cmd += ':' + path; 
+    }
+  else { 
+    if (varenv[0] != '.') cmd += ".:";
+    if (path.length() > 0)  cmd += path + ':';
+    cmd += varenv;
+    putenv(cmd.c_str());
+    }
+#elif defined(AIX)
+  string cmd = "LIBPATH=";
+  char* varenv=NULL;
+  varenv=getenv("LIBPATH");
+  if (varenv == NULL) { 
+    cmd += '.';  
+    if (path.length() > 0)  cmd += ':' + path; 
+    cmd += ":/usr/lib:/lib";
+    }
+  else { 
+    if (varenv[0] != '.') cmd += ".:";
+    if (path.length() > 0)  cmd += path + ':';
+    cmd += varenv;
+    putenv(const_cast<char *>(cmd.c_str()));
+    }
+
+#endif
 return;
 }
@@ -49 +85 @@
 
 // Compilation du fichier
-#if defined(OSF1) || defined(Linux)
+#ifndef __mac__
 cmd = "cc -c -o " + fnameobj + " " + fname;
+#else 
+cmd = "Il faut compiler !!!" + fnameobj + " " + fname;
 #endif
 rc = system(cmd.c_str());
@@ -68 +106 @@
 #if defined(OSF1) 
   cmd = "ld -shared -o " + fnameso + " -all " + fnameobj + " -none -lm -lc";
-#else
+#elif defined(Linux)
   cmd = "ld -shared -o " + fnameso + " " + fnameobj + " -lm -lc";
+#elif defined(SunOS)
+  cmd = "ld -G -o " + fnameso + " " + fnameobj + " -lm -lc";
+#elif defined(IRIX64)
+  cmd = "ld -shared -o " + fnameso + " " + fnameobj + " -lm -lc";
+#elif defined(AIX)
+  cmd = "ld -G -bnogc -bexpall -bM:1L -o " + fnameso + " " + fnameobj;
+#elif defined(HPUX)
+  cmd = "ld -b -o " + fnameso + " " + fnameobj + " -lm -lc";
+#else 
+  cmd = "ld -o " + fnameso + " " + fnameobj + " -lm -lc";
 #endif
 rc = system(cmd.c_str());
@@ -76 +124 @@
   return(NULL);
   }
-
 PDynLinkMgr* rdyn = new PDynLinkMgr(fnameso, false);
 rdyn->copy = true;
@@ -117 +164 @@
 soName = fnameso;
 
-#if defined(OSF1) || defined(Linux)
+#if defined(HPUX)
+dlhandle = NULL;
+cerr << "PDynLinkMgr::PDynLinkMgr() Not yet available on HP-UX " << endl;
+return;
+#else
 dlhandle =  dlopen(fnameso.c_str(), RTLD_NOW);
 if (dlhandle == NULL) { 
@@ -132 +183 @@
 PDynLinkMgr::~PDynLinkMgr()
 {
-#if defined(OSF1) || defined(Linux)
+#if defined(HPUX)
+cerr << "PDynLinkMgr::~PDynLinkMgr() Not yet available on HP-UX " << endl;
+return;
+#else
 if (dlhandle) dlclose(dlhandle);    dlhandle = NULL;
-#endif
 if (copy) {
   string cmd = "rm -f " + soName;
   system(cmd.c_str());
   }
+#endif
 }
 
@@ -145 +199 @@
 {
 DlFunction f = NULL;
-#if defined(OSF1) || defined(Linux)
+#if defined(HPUX)
+cerr << "PDynLinkMgr::GetFunction() Not yet available on HP-UX " << endl;
+return f;
+#else
 if (dlhandle != NULL)  
   f = (DlFunction)dlsym(dlhandle, funcname.c_str());
-#endif
-if (f == NULL) cerr << "PDynLinkMgr::PDynLinkMgr(): Error linking " << funcname << endl;
+if (f == NULL) cerr << "PDynLinkMgr::GetFunction(): Error linking " << funcname << endl;
 return(f);
-}
-
+#endif
+}
+