[hcoop-cvs] domtool2/pcre/mlton libpcre-h.sml,1.3,1.4

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

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

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

Index: libpcre-h.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/pcre/mlton/libpcre-h.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** libpcre-h.sml	15 Dec 2007 19:05:43 -0000	1.3
--- libpcre-h.sml	27 Sep 2009 17:02:49 -0000	1.4
***************
*** 1,6 ****
  structure LibpcreH = struct
      local
          val lh = DynLinkage.open_lib
!              { name = "/usr/local/lib/pcre_sml.so", global = true, lazy = true }
  	    handle DynLinkage.DynLinkError s => raise Fail s
      in
--- 1,9 ----
  structure LibpcreH = struct
      local
+ 	val global = "/usr/local/lib/pcre_sml.so"
+ 	val locl = "openssl/pcre_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