#include <fuse.h>
+#if defined(__FreeBSD__) || defined(__NetBSD__)
+# define XATTR_CREATE 1
+# define XATTR_REPLACE 2
+#else
+# include <sys/xattr.h>
+#endif
+
/* Determine if threads support should be included */
#ifdef USE_ITHREADS
# ifdef I_PTHREAD
PUTBACK;
rv = call_sv(MY_CXT.callback[3],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[4],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[5],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[6],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[7],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[8],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[9],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[10],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[11],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
#ifdef PERL_HAS_64BITINT
XPUSHs(sv_2mortal(newSViv(off)));
#else
- asprintf(&temp, "%llu", off);
+ if (asprintf(&temp, "%llu", off) == -1)
+ croak("Memory allocation failure!");
XPUSHs(sv_2mortal(newSVpv(temp, 0)));
free(temp);
#endif
PUTBACK;
rv = call_sv(MY_CXT.callback[12],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[13],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
fi->fh = 0; /* Ensure it starts with 0 - important if they don't set it */
fihash = newHV();
#if FUSE_VERSION >= 24
- hv_store(fihash, "direct_io", 9, newSViv(fi->direct_io), 0);
- hv_store(fihash, "keep_cache", 10, newSViv(fi->keep_cache), 0);
+ (void) hv_store(fihash, "direct_io", 9, newSViv(fi->direct_io), 0);
+ (void) hv_store(fihash, "keep_cache", 10, newSViv(fi->keep_cache), 0);
#endif
#if FUSE_VERSION >= 29
- hv_store(fihash, "nonseekable", 11, newSViv(fi->nonseekable), 0);
+ (void) hv_store(fihash, "nonseekable", 11, newSViv(fi->nonseekable), 0);
#endif
XPUSHs(sv_2mortal(newRV_noinc((SV*) fihash)));
/* All hashref things done */
/* Success, so copy the file handle which they returned */
#if FUSE_VERSION >= 24
SV **svp;
- svp = hv_fetch(fihash, "direct_io", 9, 0);
- if (svp != NULL)
- {
- fi->direct_io = SvIV(*svp);
- }
- svp = hv_fetch(fihash, "keep_cache", 10, 0);
- if (svp != NULL)
- {
- fi->keep_cache = SvIV(*svp);
- }
+ if ((svp = hv_fetch(fihash, "direct_io", 9, 0)) != NULL)
+ fi->direct_io = SvIV(*svp);
+ if ((svp = hv_fetch(fihash, "keep_cache", 10, 0)) != NULL)
+ fi->keep_cache = SvIV(*svp);
#endif
#if FUSE_VERSION >= 29
- svp = hv_fetch(fihash, "nonseekable", 11, 0);
- if (svp != NULL)
- {
- fi->nonseekable = SvIV(*svp);
- }
+ if ((svp = hv_fetch(fihash, "nonseekable", 11, 0)) != NULL)
+ fi->nonseekable = SvIV(*svp);
#endif
}
FREETMPS;
return rv;
}
-int _PLfuse_read (const char *file, char *buf, size_t buflen, off_t off, struct fuse_file_info *fi) {
+int _PLfuse_read (const char *file, char *buf, size_t buflen, off_t off,
+ struct fuse_file_info *fi) {
int rv;
#ifndef PERL_HAS_64BITINT
char *temp;
ENTER;
SAVETMPS;
PUSHMARK(SP);
- XPUSHs(sv_2mortal(newSVpv(file,0)));
+ XPUSHs(file ? sv_2mortal(newSVpv(file,0)) : &PL_sv_undef);
XPUSHs(sv_2mortal(newSViv(buflen)));
#ifdef PERL_HAS_64BITINT
XPUSHs(sv_2mortal(newSViv(off)));
#else
- asprintf(&temp, "%llu", off);
+ if (asprintf(&temp, "%llu", off) == -1)
+ croak("Memory allocation failure!");
XPUSHs(sv_2mortal(newSVpv(temp, 0)));
free(temp);
#endif
ENTER;
SAVETMPS;
PUSHMARK(SP);
- XPUSHs(sv_2mortal(newSVpv(file,0)));
+ XPUSHs(file ? sv_2mortal(newSVpv(file,0)) : &PL_sv_undef);
XPUSHs(sv_2mortal(newSVpvn(buf,buflen)));
#ifdef PERL_HAS_64BITINT
XPUSHs(sv_2mortal(newSViv(off)));
#else
- asprintf(&temp, "%llu", off);
+ if (asprintf(&temp, "%llu", off) == -1)
+ croak("Memory allocation failure!");
XPUSHs(sv_2mortal(newSVpv(temp, 0)));
free(temp);
#endif
PUTBACK;
rv = call_sv(MY_CXT.callback[16],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
ENTER;
SAVETMPS;
PUSHMARK(SP);
- XPUSHs(sv_2mortal(newSVpv(file,0)));
+ XPUSHs(file ? sv_2mortal(newSVpv(file,0)) : &PL_sv_undef);
XPUSHs(FH_GETHANDLE(fi));
PUTBACK;
rv = call_sv(MY_CXT.callback[18],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
ENTER;
SAVETMPS;
PUSHMARK(SP);
- XPUSHs(sv_2mortal(newSVpv(file,0)));
+ XPUSHs(file ? sv_2mortal(newSVpv(file,0)) : &PL_sv_undef);
XPUSHs(sv_2mortal(newSViv(flags)));
XPUSHs(FH_GETHANDLE(fi));
PUTBACK;
rv = call_sv(MY_CXT.callback[19],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FH_RELEASEHANDLE(fi);
FREETMPS;
LEAVE;
ENTER;
SAVETMPS;
PUSHMARK(SP);
- XPUSHs(sv_2mortal(newSVpv(file,0)));
+ XPUSHs(file ? sv_2mortal(newSVpv(file,0)) : &PL_sv_undef);
XPUSHs(sv_2mortal(newSViv(flags)));
XPUSHs(FH_GETHANDLE(fi));
PUTBACK;
rv = call_sv(MY_CXT.callback[20],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[21],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[24],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
SPAGAIN;
if (rv) {
if (rv > 1) {
- FH_STOREHANDLE(fi, POPs);
+ FH_STOREHANDLE(fi, POPs);
}
rv = POPi;
} else
* which we can look at or modify.
*/
fihash = newHV();
-#if FUSE_VERSION >= 24
- (void) hv_store(fihash, "direct_io", 9, newSViv(fi->direct_io), 0);
- (void) hv_store(fihash, "keep_cache", 10, newSViv(fi->keep_cache), 0);
-#endif
+ (void) hv_store(fihash, "direct_io", 9, newSViv(fi->direct_io), 0);
+ (void) hv_store(fihash, "keep_cache", 10, newSViv(fi->keep_cache), 0);
#if FUSE_VERSION >= 29
(void) hv_store(fihash, "nonseekable", 11, newSViv(fi->nonseekable), 0);
#endif
}
if (rv == 0) {
/* Success, so copy the file handle which they returned */
-#if FUSE_VERSION >= 24
SV **svp;
- svp = hv_fetch(fihash, "direct_io", 9, 0);
- if (svp != NULL)
- fi->direct_io = SvIV(*svp);
- svp = hv_fetch(fihash, "keep_cache", 10, 0);
- if (svp != NULL)
- fi->keep_cache = SvIV(*svp);
-#endif
+ if ((svp = hv_fetch(fihash, "direct_io", 9, 0)) != NULL)
+ fi->direct_io = SvIV(*svp);
+ if ((svp = hv_fetch(fihash, "keep_cache", 10, 0)) != NULL)
+ fi->keep_cache = SvIV(*svp);
#if FUSE_VERSION >= 29
- svp = hv_fetch(fihash, "nonseekable", 11, 0);
- if (svp != NULL)
+ if ((svp = hv_fetch(fihash, "nonseekable", 11, 0)) != NULL)
fi->nonseekable = SvIV(*svp);
#endif
}
/* Need to copy back any altered values from the hash into
* the struct... */
SV **svp;
- if ((svp = hv_fetch(lihash, "l_type", 6, 0)))
+ if ((svp = hv_fetch(lihash, "l_type", 6, 0)) != NULL)
lockinfo->l_type = SvIV(*svp);
- if ((svp = hv_fetch(lihash, "l_whence", 8, 0)))
+ if ((svp = hv_fetch(lihash, "l_whence", 8, 0)) != NULL)
lockinfo->l_whence = SvIV(*svp);
- if ((svp = hv_fetch(lihash, "l_start", 7, 0)))
+ if ((svp = hv_fetch(lihash, "l_start", 7, 0)) != NULL)
lockinfo->l_start = SvNV(*svp);
- if ((svp = hv_fetch(lihash, "l_len", 5, 0)))
+ if ((svp = hv_fetch(lihash, "l_len", 5, 0)) != NULL)
lockinfo->l_len = SvNV(*svp);
- if ((svp = hv_fetch(lihash, "l_pid", 5, 0)))
+ if ((svp = hv_fetch(lihash, "l_pid", 5, 0)) != NULL)
lockinfo->l_pid = SvIV(*svp);
}
FREETMPS;
mkdir: _PLfuse_mkdir,
unlink: _PLfuse_unlink,
rmdir: _PLfuse_rmdir,
+symlink: _PLfuse_symlink,
rename: _PLfuse_rename,
link: _PLfuse_link,
chmod: _PLfuse_chmod,
fc = fuse_get_context();
if(fc) {
HV *hash = newHV();
- (void) hv_store(hash, "uid", 3, newSViv(fc->uid), 0);
- (void) hv_store(hash, "gid", 3, newSViv(fc->gid), 0);
- (void) hv_store(hash, "pid", 3, newSViv(fc->pid), 0);
+ (void) hv_store(hash, "uid", 3, newSViv(fc->uid), 0);
+ (void) hv_store(hash, "gid", 3, newSViv(fc->gid), 0);
+ (void) hv_store(hash, "pid", 3, newSViv(fc->pid), 0);
if (fc->private_data)
(void) hv_store(hash, "private", 7, fc->private_data, 0);
#if FUSE_VERSION >= 28
(void) hv_store(hash, "umask", 5, newSViv(fc->umask), 0);
#endif /* FUSE_VERSION >= 28 */
-
RETVAL = newRV_noinc((SV*)hash);
} else {
XSRETURN_UNDEF;
OUTPUT:
RETVAL
+#ifndef __FreeBSD__
+SV *
+XATTR_CREATE()
+ CODE:
+ RETVAL = newSViv(XATTR_CREATE);
+ OUTPUT:
+ RETVAL
+
+SV *
+XATTR_REPLACE()
+ CODE:
+ RETVAL = newSViv(XATTR_REPLACE);
+ OUTPUT:
+ RETVAL
+
+#endif
+
void
perl_fuse_main(...)
PREINIT:
} else if(SvOK(var)) {
croak("invalid callback (%i) passed to perl_fuse_main "
"(%s is not a string, code ref, or undef).\n",
- i+4,SvPVbyte_nolen(var));
+ i+5,SvPVbyte_nolen(var));
} else {
MY_CXT.callback[i] = NULL;
}
* to hack on compatibility with other parts of the new API. First and
* foremost, real C argc/argv would be good to get at...
*/
- if (mountopts &&
- (fuse_opt_add_arg(&args, "") == -1 ||
- fuse_opt_add_arg(&args, "-o") == -1 ||
+ if ((mountopts || debug) && fuse_opt_add_arg(&args, "") == -1) {
+ fuse_opt_free_args(&args);
+ croak("out of memory\n");
+ }
+ if (mountopts && strcmp("", mountopts) &&
+ (fuse_opt_add_arg(&args, "-o") == -1 ||
fuse_opt_add_arg(&args, mountopts) == -1)) {
fuse_opt_free_args(&args);
croak("out of memory\n");