Archive-ZZip
view release on metacpan or search on metacpan
ZZip/ZZip.xs view on Meta::CPAN
SV *class
char *filename
INIT:
zzip_error_t err;
CODE:
RETVAL = zzip_dir_open(filename, &err);
if (err != 0) {
SV* sv = perl_get_sv("!", TRUE);
sv_setpvf(sv, zzip_strerror(err), filename);
}
OUTPUT:
RETVAL
Archive_ZZip
newWithFd(fd)
int fd
INIT:
zzip_error_t err;
CODE:
RETVAL = zzip_dir_fdopen(fd, &err);
if (err != 0) {
SV* sv = perl_get_sv("!", TRUE);
sv_setpv(sv, zzip_strerror(err));
}
OUTPUT:
RETVAL
Archive_ZZip_File
openFile(dir, name, mode = O_RDONLY)
Archive_ZZip dir
char *name
int mode
CODE:
RETVAL = zzip_file_open(dir, name, mode);
if (dir->errcode != 0) {
SV* sv = perl_get_sv("!", TRUE);
sv_setpvf(sv, zzip_strerror(dir->errcode), name);
}
OUTPUT:
RETVAL
int
fd(dir)
Archive_ZZip dir
CODE:
RETVAL = zzip_dirfd(dir);
OUTPUT:
RETVAL
void
rewind(dir)
Archive_ZZip dir
CODE:
zzip_rewinddir(dir);
int
tell(dir)
Archive_ZZip dir
CODE:
RETVAL = zzip_telldir(dir);
OUTPUT:
RETVAL
void
seek(dir, offset)
Archive_ZZip dir
int offset
CODE:
zzip_seekdir(dir, offset);
ZZip/ZZip.xs view on Meta::CPAN
err = zzip_dir_read(dir, &dirent);
if (err != 0) {
HV_WITH_DIRENT(info, dirent);
}
else {
XSRETURN_UNDEF;
}
RETVAL = info;
OUTPUT:
RETVAL
HV *
stat(dir, name, flags)
Archive_ZZip dir
char *name
int flags
INIT:
int err;
ZZIP_DIRENT dirent;
ZZip/ZZip.xs view on Meta::CPAN
err = zzip_dir_stat(dir, name, &dirent, flags);
if (err == 0) {
HV_WITH_DIRENT(info, dirent);
}
else {
XSRETURN_UNDEF;
}
RETVAL = info;
OUTPUT:
RETVAL
void
DESTROY(dir)
Archive_ZZip dir
CODE:
zzip_dir_close(dir);
ZZip/ZZip.xs view on Meta::CPAN
}
//Set the length of the string as returned by zzlib
SvCUR_set(buf, reallen);
//Also return the buffer
RETVAL = buf;
//Now the buffer is referenced twice because of the retval.
SvREFCNT_inc(buf);
OUTPUT:
RETVAL
buf
int
rewind(fp)
Archive_ZZip_File fp
CODE:
RETVAL = zzip_rewind(fp);
OUTPUT:
RETVAL
int
seek(fp, offset, whence)
Archive_ZZip_File fp
int offset
int whence
CODE:
RETVAL = zzip_seek(fp, offset, whence);
OUTPUT:
RETVAL
int
tell(fp)
Archive_ZZip_File fp
CODE:
RETVAL = zzip_tell(fp);
OUTPUT:
RETVAL
void
DESTROY(fd)
Archive_ZZip_File fd
CODE:
zzip_file_close(fd);
ZZip/typemap view on Meta::CPAN
TYPEMAP
Archive_ZZip T_PTROBJ_SPECIAL
Archive_ZZip_File T_PTROBJ_SPECIAL
# Magic that transforms underscores to ::
INPUT
T_PTROBJ_SPECIAL
if (sv_derived_from($arg, \"${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\")) {
IV tmp = SvIV((SV*)SvRV($arg));
$var = ($type) tmp;
}
else
croak(\"$var is not of type ${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\")
OUTPUT
T_PTROBJ_SPECIAL
sv_setref_pv($arg, \"${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\",
(void*)$var);
( run in 0.413 second using v1.01-cache-2.11-cpan-4e96b696675 )