/[fuse.before_github]/perl-llin/Fuse.pm

This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!

Diff of /perl-llin/Fuse.pm

Parent Directory | Revision Log | View Patch Patch

-perl/trunk/Fuse.pm
revision 7 by dpavlin,
Thu Nov 18 12:09:10 2004 UTC
+perl-llin/Fuse.pm
revision 120 by dpavlin,
Sun Mar 16 13:40:44 2008 UTC
 Line 5 
 use strict;
  use warnings;
  use Errno;
  use Carp;
+ use Config;
  require Exporter;
  require DynaLoader;
-Line 19 
 our @ISA = qw(Exporter DynaLoader);
+Line 20 
 our @ISA = qw(Exporter DynaLoader);
  # This allows declaration       use Fuse ':all';
  # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
  # will save memory.
- our %EXPORT_TAGS = ( 'all' => [ qw(
+ our %EXPORT_TAGS = (
-         FUSE_DEBUG
+                     'all' => [ qw(XATTR_CREATE XATTR_REPLACE fuse_get_context) ],
- ) ] );
+                     'xattr' => [ qw(XATTR_CREATE XATTR_REPLACE) ]
+                     );
  our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
- our @EXPORT = qw(
+ our @EXPORT = ();
-         FUSE_DEBUG
+ our $VERSION = '0.09_2';
- );
- our $VERSION = '0.04';
  sub AUTOLOAD {
      # This AUTOLOAD is used to 'autoload' constants from the constant()
 Line 62 
 sub AUTOLOAD {
      goto &$AUTOLOAD;
  }
+ sub XATTR_CREATE {
+     # See <sys/xattr.h>.
+     return 1;
+ }
+ sub XATTR_REPLACE {
+     # See <sys/xattr.h>.
+     return 2;
+ }
  bootstrap Fuse $VERSION;
  sub main {
-         my (@subs) = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
+         my @names = qw(getattr readlink getdir mknod mkdir unlink rmdir symlink
-         my (@names) = qw(getattr readlink getdir mknod mkdir unlink rmdir symlink
+                         rename link chmod chown truncate utime open read write statfs
-                          rename link chmod chown truncate utime open read write statfs);
+                         flush release fsync setxattr getxattr listxattr removexattr);
-         my ($tmp) = 0;
+         my @subs = map {undef} @names;
-         my (%mapping) = map { $_ => $tmp++ } (@names);
+         my @validOpts = qw(ro allow_other default_permissions fsname use_ino nonempty);
-         my (%otherargs) = (debug=>0, mountpoint=>"");
+         my $tmp = 0;
+         my %mapping = map { $_ => $tmp++ } @names;
+         my %optmap  = map { $_ => 1 } @validOpts;
+         my @otherargs = qw(debug threaded mountpoint mountopts);
+         my %otherargs = (debug=>0, threaded=>0, mountpoint=>"", mountopts=>"");
          while(my $name = shift) {
                  my ($subref) = shift;
                  if(exists($otherargs{$name})) {
                          $otherargs{$name} = $subref;
                  } else {
                          croak "There is no function $name" unless exists($mapping{$name});
-                         croak "Usage: Fuse::main(getattr => &my_getattr, ...)" unless $subref;
+                         croak "Usage: Fuse::main(getattr => \"main::my_getattr\", ...)" unless $subref;
-                         croak "Usage: Fuse::main(getattr => &my_getattr, ...)" unless ref($subref);
-                         croak "Usage: Fuse::main(getattr => &my_getattr, ...)" unless ref($subref) eq "CODE";
                          $subs[$mapping{$name}] = $subref;
                  }
          }
-         perl_fuse_main($otherargs{debug},$otherargs{mountpoint},@subs);
+         foreach my $opt ( map {m/^([^=]*)/; $1} split(/,/,$otherargs{mountopts}) ) {
+           next if exists($optmap{$opt});
+           croak "Fuse::main: invalid '$opt' argument in mountopts";
+         }
+         if($otherargs{threaded}) {
+                 # make sure threads are both available, and loaded.
+                 if($Config{useithreads}) {
+                         if(exists($threads::{VERSION})) {
+                                 if(exists($threads::shared::{VERSION})) {
+                                         # threads will work.
+                                 } else {
+                                         carp("Thread support requires you to use threads::shared.\nThreads are disabled.\n");
+                                         $otherargs{threaded} = 0;
+                                 }
+                         } else {
+                                 carp("Thread support requires you to use threads and threads::shared.\nThreads are disabled.\n");
+                                 $otherargs{threaded} = 0;
+                         }
+                 } else {
+                         carp("Thread support was not compiled into this build of perl.\nThreads are disabled.\n");
+                         $otherargs{threaded} = 0;
+                 }
+         }
+         perl_fuse_main(@otherargs{@otherargs},@subs);
  }
  # Autoload methods go after =cut, and are processed by the autosplit program.
-Line 100 
 Fuse - write filesystems in Perl using F
+Line 135 
 Fuse - write filesystems in Perl using F
    use Fuse;
    my ($mountpoint) = "";
    $mountpoint = shift(@ARGV) if @ARGV;
-   Fuse::main(mountpoint=>$mountpoint, getattr=>\&my_getattr, getdir=>\&my_getdir, ...);
+   Fuse::main(mountpoint=>$mountpoint, getattr=>"main::my_getattr", getdir=>"main::my_getdir", ...);
  =head1 DESCRIPTION
-Line 109 
 This lets you implement filesystems in p
+Line 144 
 This lets you implement filesystems in p
  FUSE expects you to implement callbacks for the various functions.
- NOTE:  I have only tested the things implemented in example.pl!
- It should work, but some things may not.
  In the following definitions, "errno" can be 0 (for a success),
  -EINVAL, -ENOENT, -EONFIRE, any integer less than 1 really.
-Line 122 
 Every constant you need (file types, ope
+Line 154 
 Every constant you need (file types, ope
  etc) can be imported either from POSIX or from Fcntl, often both.
  See their respective documentations, for more information.
- =head2 EXPORT
+ =head2 EXPORTED SYMBOLS
  None by default.
- =head2 EXPORTABLE CONSTANTS
+ You can request all exportable symbols by using the tag ":all".
- None.
+ You can request the extended attribute symbols by using the tag ":xattr".
+ This will export XATTR_CREATE and XATTR_REPLACE.
  =head2 FUNCTIONS
-Line 157 
 specify this.  An example would be '/mnt
+Line 190 
 specify this.  An example would be '/mnt
  =back
- unthreaded => boolean
+ mountopts => string
+ =over 1
+ This is a comma seperated list of mount options to pass to the FUSE kernel
+ module.
+ At present, it allows the specification of the allow_other
+ argument when mounting the new FUSE filesystem. To use this, you will also
+ need 'user_allow_other' in /etc/fuse.conf as per the FUSE documention
+   mountopts => "allow_other" or
+   mountopts => ""
+ =back
+ threaded => boolean
  =over 1
- This turns FUSE multithreading off and on.  NOTE: This perlmodule does not
+ This turns FUSE multithreading on and off.  The default is 0, meaning your FUSE
- currently work properly in multithreaded mode!  The author is unfortunately
+ script will run in single-threaded mode.  Note that single-threaded mode also
- not familiar enough with perl-threads internals, and according to the
+ means that you will not have to worry about reentrancy, though you will have to
- documentation available at time of writing (2002-03-08), those internals are
+ worry about recursive lookups.  In single-threaded mode, FUSE holds a global
- subject to changing anyway.  Note that singlethreaded mode also means that
+ lock on your filesystem, and will wait for one callback to return before
- you will not have to worry about reentrancy, though you will have to worry
+ calling another.  This can lead to deadlocks, if your script makes any attempt
- about recursive lookups (since the kernel holds a global lock on your
+ to access files or directories in the filesystem it is providing.  (This
- filesystem and blocks waiting for one callback to complete before calling
+ includes calling stat() on the mount-point, statfs() calls from the 'df'
- another).
+ command, and so on and so forth.)  It is worth paying a little attention and
+ being careful about this.
- I hope to add full multithreading functionality later, but for now, I
- recommend you leave this option at the default, 1 (which means
+ Enabling multithreading will cause FUSE to make multiple simultaneous calls
- unthreaded, no threads will be used and no reentrancy is needed).
+ into the various callback functions of your perl script.  If you enable
+ threaded mode, you can enjoy all the parallel execution and interactive
+ response benefits of threads, and you get to enjoy all the benefits of race
+ conditions and locking bugs, too.  Please also ensure any other perl modules
+ you're using are also thread-safe.
+ (If enabled, this option will cause a warning if your perl interpreter was not
+ built with USE_ITHREADS, or if you have failed to use threads or
+ threads::shared.)
  =back
+ =head3 Fuse::fuse_get_context
+  use Fuse "fuse_get_context";
+  my $caller_uid = fuse_get_context()->{"uid"};
+  my $caller_gid = fuse_get_context()->{"gid"};
+  my $caller_pid = fuse_get_context()->{"pid"};
+ Access context information about the current Fuse operation.
  =head2 FUNCTIONS YOUR FILESYSTEM MAY IMPLEMENT
  =head3 getattr
-Line 349 
 or
+Line 415 
 or
  -ENOANO(), $namelen, $files, $files_free, $blocks, $blocks_avail, $blocksize
+ =head3 flush
+ Arguments: Pathname
+ Returns an errno or 0 on success.
+ Called to synchronise any cached data. This is called before the file
+ is closed. It may be called multiple times before a file is closed.
+ =head3 release
+ Arguments: Pathname, numeric flags passed to open
+ Returns an errno or 0 on success.
+ Called to indicate that there are no more references to the file. Called once
+ for every file with the same pathname and flags as were passed to open.
+ =head3 fsync
+ Arguments: Pathname, numeric flags
+ Returns an errno or 0 on success.
+ Called to synchronise the file's contents. If flags is non-zero,
+ only synchronise the user data. Otherwise synchronise the user and meta data.
+ =head3 setxattr
+ Arguments: Pathname, extended attribute's name, extended attribute's value, numeric flags (which is an OR-ing of XATTR_CREATE and XATTR_REPLACE
+ Returns an errno or 0 on success.
+ Called to set the value of the named extended attribute.
+ If you wish to reject setting of a particular form of extended attribute name
+ (e.g.: regexps matching user\..* or security\..*), then return - EOPNOTSUPP.
+ If flags is set to XATTR_CREATE and the extended attribute already exists,
+ this should fail with - EEXIST. If flags is set to XATTR_REPLACE
+ and the extended attribute doesn't exist, this should fail with - ENOATTR.
+ XATTR_CREATE and XATTR_REPLACE are provided by this module, but not exported
+ by default. To import them:
+     use Fuse ':xattr';
+ or:
+     use Fuse ':all';
+ =head3 getxattr
+ Arguments: Pathname, extended attribute's name
+ Returns an errno, 0 if there was no value, or the extended attribute's value.
+ Called to get the value of the named extended attribute.
+ =head3 listxattr
+ Arguments: Pathname
+ Returns a list: 0 or more text strings (the extended attribute names), followed by a numeric errno (usually 0).
+ =head3 removexattr
+ Arguments: Pathname, extended attribute's name
+ Returns an errno or 0 on success.
  =head1 AUTHOR
  Mark Glines, E<lt>mark@glines.orgE<gt>

 Legend:



Removed from v.7
 


changed lines


 
Added in v.120
 Legend:



Removed from v.7
 


changed lines


 
Added in v.120
-Removed from v.7
+Added in v.120

	ViewVC Help
Powered by ViewVC 1.1.26