!include once #1024944 // Apache Commons Compress

import org.apache.commons.compress.archivers.tar.*;

svoid zip2tar_withPredicate(File inZip, File outTar, IF1<S, Bool> predicate) ctex {

  temp FileOutputStream out = newFileOutputStream(outTar);

  zip2tar_withPredicate(inZip, out, predicate);

}

svoid zip2tar_withPredicate(File inZip, OutputStream out, IF1<S, Bool> predicate) {

  zip2tar_withPredicate(inZip, bufferedOutputStream(out), predicate);

}

svoid zip2tar_withPredicate(File inZip, BufferedOutputStream out, IF1<S, Bool> predicate) ctex {

  TarArchiveOutputStream tarOut = new(out);

  tarOut.setLongFileMode(tarOut.LONGFILE_GNU);

  zip2tar_withPredicate(inZip, tarOut, predicate);

  out.flush();

}

svoid zip2tar_withPredicate(File inZip, TarArchiveOutputStream outTar, IF1<S, Bool> predicate) ctex {

  ZipFile zipFile = new ZipFile(inZip);

  Enumeration entries = zipFile.entries();

  while (entries.hasMoreElements()) {

    ZipEntry entry = (ZipEntry) entries.nextElement(); 

    continue unless predicate.get(entry.getName());

    TarArchiveEntry te = new(entry.getName());

    te.setModTime(entry.getTime());

    te.setSize(entry.getSize());

    outTar.putArchiveEntry(te);

    InputStream fin = zipFile.getInputStream(entry);

    copyStream(fin, outTar);

    fin.close();

  }

  outTar.flush();

  zipFile.close();

}