2 files changed, 45 insertions, 1 deletions

diff --git a/Makefile.wixfakelibs b/Makefile.wixfakelibs
index f53c539..6cce710 100644
--- a/Makefile.wixfakelibs
+++ b/Makefile.wixfakelibs
@@ -2,7 +2,7 @@
 
 .SUFFIXES: .c .lo .la
 
-all: libwinterop.so.la libmsi.so.la
+all: libwinterop.so.la libmsi.so.la libpreload.la
 
 %.la:
         libtool --mode=link gcc -o $@ $^ -rpath /usr/local/lib
@@ -14,6 +14,8 @@ libwinterop.so.la: fake-winterop.lo fake-lib.lo
 
 libmsi.so.la: fake-msi.lo fake-lib.lo
 
+libpreload.la: preload.lo
+
 clean:
         rm -rf .libs
         rm -f *.o *.lo *.la
diff --git a/preload.c b/preload.c
new file mode 100644
index 0000000..1665515
--- /dev/null
+++ b/preload.c
@@ -0,0 +1,42 @@
+#define _GNU_SOURCE
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <dlfcn.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <unistd.h>
+
+static const char *munge(const char *n) {
+    static const char *e = NULL;
+    static size_t elen;
+    if (!e) {
+        e = getenv("WIX");
+        if (!e)
+            return n;
+        elen = strlen(e);
+    }
+
+    const char *last_slash = strrchr(n, '/');
+    if (!last_slash)
+        return n;
+    if (last_slash - n > elen && !strncmp(last_slash - elen, e, elen))
+        return last_slash - elen;
+    return n;
+}
+
+#define dofunc(rettype,sym,proto,proto2)        \
+        rettype sym proto {                     \
+            rettype (*real) proto;              \
+            real = dlsym(RTLD_NEXT, #sym);      \
+            fname = munge(fname);               \
+            return real proto2;                 \
+        }
+
+dofunc(int,open,(const char *fname,int flags,mode_t mode),(fname,flags,mode))
+dofunc(int,open64,(const char *fname,int flags,mode_t mode),(fname,flags,mode))
+dofunc(int,__open,(const char *fname,int flags,mode_t mode),(fname,flags,mode))
+dofunc(int,__open64,(const char *fname,int flags,mode_t mode),(fname,flags,mode))
+dofunc(int,stat,(const char *fname,struct stat *sbuf),(fname,sbuf))
+dofunc(int,lstat,(const char *fname,struct stat *sbuf),(fname,sbuf))
+dofunc(int,access,(const char *fname,int mode),(fname,mode))