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 )