[svn:parrot] r46349 - trunk/runtime/parrot/library/Archive

[fperrad at svn.parrot.org]

Author: fperrad
Date: Thu May  6 13:09:43 2010
New Revision: 46349
URL: https://trac.parrot.org/parrot/changeset/46349

Log:
[Zip] with compression

Modified:
   trunk/runtime/parrot/library/Archive/Zip.pir

Modified: trunk/runtime/parrot/library/Archive/Zip.pir
==============================================================================
--- trunk/runtime/parrot/library/Archive/Zip.pir	Thu May  6 13:06:40 2010	(r46348)
+++ trunk/runtime/parrot/library/Archive/Zip.pir	Thu May  6 13:09:43 2010	(r46349)
@@ -455,7 +455,8 @@
     $I1 = $P1
     $I1 = $P0.'crc32'($I1, $S0)
     set $P1, $I1
-    .return ($S0, AZ_OK)
+    $S1 = $P0.'compress'($S0)
+    .return ($S1, AZ_OK)
 .end
 
 .sub 'rewindData' :method :nsentry
@@ -628,6 +629,9 @@
     $P1 = box $I0
     setattribute $P0, 'uncompressedSize', $P1
     $I1 = COMPRESSION_STORED
+    if $I0 == 0 goto L4
+    $I1 = COMPRESSION_DEFLATED
+  L4:
     $P1 = box $I1
     setattribute $P0, 'compressionMethod', $P1
     $P0.'unixFileAttributes'(0o666)