view release on metacpan or  search on metacpan

ZZip/ZZip.xs  view on Meta::CPAN

      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);


HV *
read(dir)
    Archive_ZZip dir
  INIT:
    int err;
    ZZIP_DIRENT dirent;
    HV *info;
  CODE:
    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;
    HV *info;
  CODE:
    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);
    

MODULE = Archive::ZZip     PACKAGE = Archive::ZZip::File



SV *
read(fp, buf=&PL_sv_undef, len=16384)
    Archive_ZZip_File fp
    SV *buf;
    int len
  INIT:
    int reallen;
  CODE:
    MAKE_STRING(buf, len);
    
    //Pass scalar's character buffer to zzip_file_read
    reallen = zzip_file_read(fp, SvPVX(buf), len);
    if (reallen == 0) {
      buf = &PL_sv_undef;
      XSRETURN_UNDEF;
    }
      
    //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: