Changes from Marc to implement fuse_get_context():

[perl-fuse.git] / Fuse.xs

diff --git a/Fuse.xs b/Fuse.xs
index e6c293b..9e1d671 100644 (file)
--- a/Fuse.xs
+++ b/Fuse.xs
@@ -813,6 +813,24 @@ removexattr:               _PLfuse_removexattr,
 MODULE = Fuse          PACKAGE = Fuse
 PROTOTYPES: DISABLE
 
+SV*
+fuse_get_context()
+       PREINIT:
+       struct fuse_context *fc;
+       CODE:
+       fc = fuse_get_context();
+       if(fc) {
+               HV *hash = newHV();
+               hv_store(hash, "uid", 3, newSViv(fc->uid), 0);
+               hv_store(hash, "gid", 3, newSViv(fc->gid), 0);
+               hv_store(hash, "pid", 3, newSViv(fc->pid), 0);
+               RETVAL = newRV_noinc((SV*)hash);
+       } else {
+               XSRETURN_UNDEF;
+       }
+       OUTPUT:
+       RETVAL
+
 void
 perl_fuse_main(...)
        PREINIT: