From: Adam C. <ad...@us...> - 2009-09-27 17:02:58
|
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 |