[hcoop-cvs] domtool2/openssl/mlton libssl-h.sml,1.2,1.3

[Adam C. <ad...@us...>]

Update of /cvsroot/hcoop/domtool2/openssl/mlton
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv32321/openssl/mlton

Modified Files:
	libssl-h.sml 
Log Message:
Make dynamic linking smarter, so this stuff works before running 'make install'

Index: libssl-h.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/openssl/mlton/libssl-h.sml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** libssl-h.sml	9 Dec 2006 18:11:13 -0000	1.2
--- libssl-h.sml	27 Sep 2009 17:02:49 -0000	1.3
***************
*** 1,6 ****
  structure LibsslH = struct
      local
          val lh = DynLinkage.open_lib
!              { name = "/usr/local/lib/openssl_sml.so", global = true, lazy = true }
  	    handle DynLinkage.DynLinkError s => raise Fail s
      in
--- 1,9 ----
  structure LibsslH = struct
      local
+ 	val global = "/usr/local/lib/openssl_sml.so"
+ 	val locl = "openssl/openssl_sml.so"
+ 
          val lh = DynLinkage.open_lib
!              { name = if Posix.FileSys.access (global, []) then global else locl, global = true, lazy = true }
  	    handle DynLinkage.DynLinkError s => raise Fail s
      in