/[fuse.before_github]/perl-llin/Fuse.xs
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /perl-llin/Fuse.xs

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 93 by dpavlin, Mon May 29 09:15:28 2006 UTC revision 123 by dpavlin, Wed Mar 19 19:40:20 2008 UTC
# Line 64  int _PLfuse_getattr(const char *file, st Line 64  int _PLfuse_getattr(const char *file, st
64                  result->st_ctime = POPi;                  result->st_ctime = POPi;
65                  result->st_mtime = POPi;                  result->st_mtime = POPi;
66                  result->st_atime = POPi;                  result->st_atime = POPi;
67                  result->st_size = POPi;                  result->st_size = POPn; // we pop double here to support files larger than 4Gb (long limit)
68                  result->st_rdev = POPi;                  result->st_rdev = POPi;
69                  result->st_gid = POPi;                  result->st_gid = POPi;
70                  result->st_uid = POPi;                  result->st_uid = POPi;
# Line 813  removexattr:           _PLfuse_removexattr, Line 813  removexattr:           _PLfuse_removexattr,
813  MODULE = Fuse           PACKAGE = Fuse  MODULE = Fuse           PACKAGE = Fuse
814  PROTOTYPES: DISABLE  PROTOTYPES: DISABLE
815    
816    SV*
817    fuse_get_context()
818            PREINIT:
819            struct fuse_context *fc;
820            CODE:
821            fc = fuse_get_context();
822            if(fc) {
823                    HV *hash = newHV();
824                    hv_store(hash, "uid", 3, newSViv(fc->uid), 0);
825                    hv_store(hash, "gid", 3, newSViv(fc->gid), 0);
826                    hv_store(hash, "pid", 3, newSViv(fc->pid), 0);
827                    RETVAL = newRV_noinc((SV*)hash);
828            } else {
829                    XSRETURN_UNDEF;
830            }
831            OUTPUT:
832            RETVAL
833    
834  void  void
835  perl_fuse_main(...)  perl_fuse_main(...)
836          PREINIT:          PREINIT:
# Line 834  perl_fuse_main(...) Line 852  perl_fuse_main(...)
852          threaded = SvIV(ST(1));          threaded = SvIV(ST(1));
853          if(threaded) {          if(threaded) {
854  #ifdef FUSE_USE_ITHREADS  #ifdef FUSE_USE_ITHREADS
855                  master_interp = PERL_GET_INTERP;                  master_interp = PERL_GET_CONTEXT;
856  #else  #else
857                  fprintf(stderr,"FUSE warning: Your script has requested multithreaded "                  fprintf(stderr,"FUSE warning: Your script has requested multithreaded "
858                                 "mode, but your perl was not built with -Dusethreads.  "                                 "mode, but your perl was not built with -Dusethreads.  "
Legend:
Removed from v.93  
changed lines
  Added in v.123
  ViewVC Help
Powered by ViewVC 1.1.26