2 |
#include "perl.h" |
#include "perl.h" |
3 |
#include "XSUB.h" |
#include "XSUB.h" |
4 |
|
|
5 |
#include <fuse.h> |
#include <fuse/fuse.h> |
6 |
|
|
7 |
#undef DEBUGf |
#undef DEBUGf |
8 |
#if 0 |
#if 0 |
32 |
else |
else |
33 |
rv = -ENOENT; |
rv = -ENOENT; |
34 |
} else { |
} else { |
35 |
|
result->st_blocks = POPi; |
36 |
result->st_blksize = POPi; |
result->st_blksize = POPi; |
37 |
result->st_ctime = POPi; |
result->st_ctime = POPi; |
38 |
result->st_mtime = POPi; |
result->st_mtime = POPi; |
39 |
result->st_atime = POPi; |
result->st_atime = POPi; |
|
/* What the HELL? Perl says the blockcount is the last argument. |
|
|
* Everything else says the blockcount is the last argument. So why |
|
|
* was it folded into the middle of the list? */ |
|
|
result->st_blocks = POPi; |
|
40 |
result->st_size = POPi; |
result->st_size = POPi; |
41 |
result->st_rdev = POPi; |
result->st_rdev = POPi; |
42 |
result->st_gid = POPi; |
result->st_gid = POPi; |
98 |
if(prv) { |
if(prv) { |
99 |
rv = POPi; |
rv = POPi; |
100 |
while(--prv) |
while(--prv) |
101 |
dirfil(dirh,POPp,0); |
dirfil(dirh,POPp,0,0); |
102 |
} else { |
} else { |
103 |
fprintf(stderr,"getdir() handler returned nothing!\n"); |
fprintf(stderr,"getdir() handler returned nothing!\n"); |
104 |
rv = -ENOSYS; |
rv = -ENOSYS; |