use new library finding scheme for HP's (look in /usr/local/lib expli…

…citly)
MDSplus · Apr 22, 1999 · 51fa64a · 51fa64a
1 parent 0d190b3
commit 51fa64a
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/idl/mdsconnect.pro b/idl/mdsconnect.pro
@@ -17,9 +17,10 @@ Function MdsIPImage
     'OSF' : return,'libMdsIpShr.so'
     'sunos' : return,'libMdsIpShr.so'
     'hp-ux' : begin
-              if getenv('MDS_SHLIB_PATH') eq '' then setenv_,'MDS_SHLIB_PATH=/usr/lib'
-              return,getenv('MDS_SHLIB_PATH')+'/libMdsIpShr.sl'
-              end
+      a=getenv('MDS_SHLIB_PATH')
+      if (a eq '') then a = '/usr/local/lib'
+      return,a+'/libMdsIpShr.sl'
+    end
     'MacOS': return,!dir+'libMdsIpShr.lib'
     'linux': return,'/home_ejet/ntcdemo/twf/mdsplus/shlib/libMdsIpShr.so'
     else  : message,'MDS is not supported on this platform',/IOERROR 

diff --git a/idl/mdsidlimage.pro b/idl/mdsidlimage.pro
@@ -6,7 +6,11 @@ Function MdsIdlImage
     'IRIX' : return,'libMdsLibIdl.so'
     'OSF' : return,'libMdsLibIdl.so'
     'sunos' : return,'libMdsLibIdl.so'
-    'hp-ux' : return,getenv('MDS_SHLIB_PATH')+'/libMdsLibIdl.sl'
+    'hp-ux' : begin
+      a = getenv('MDS_SHLIB_PATH')
+      if (a eq '') then a = '/usr/local/lib'
+      return,a+'/libMdsLibIdl.sl'
+    end
     'linux' : return,'libMdsLibIdl.so'
     else  : message,'MDS is not supported on this platform',/IOERROR
   endcase