code rewritten to be independent of stream zero-base
authorClaus Gittinger <cg@exept.de>
Tue, 25 Feb 2003 12:44:37 +0100
changeset 1150 e9fe3696d93d
parent 1149 21befc0df148
child 1151 5963256af171
code rewritten to be independent of stream zero-base
ZipArchive.st
--- a/ZipArchive.st	Mon Feb 24 18:11:31 2003 +0100
+++ b/ZipArchive.st	Tue Feb 25 12:44:37 2003 +0100
@@ -1228,7 +1228,7 @@
     zmemb isNil ifTrue:[^ nil].
 
     self openFile.
-    file position:(zmemb fileStart + (PositionableStream zeroPosition)).
+    file position0Based:(zmemb fileStart).
     rawContents := file nextBytes:(zmemb compressed_size).
     self closeFile.
 
@@ -1476,7 +1476,7 @@
     ].
 
     foundPK := false.
-    file position:(pos0 := size - ECREC_SIZE - 4 + (PositionableStream zeroPosition)).
+    file position0Based:(pos0 := size - ECREC_SIZE - 4).
     ((file next ~~ ($P asciiValue))
     or:[file next ~~ ($K asciiValue)
     or:[file next ~~ 8r005
@@ -1542,7 +1542,7 @@
         ].
 
         pos := file position.
-        file position:(relative_offset_local_header + 28 + 1).
+        file position0Based:(relative_offset_local_header + 28).
         extra := file nextUnsignedShortMSB:false.
         zipd dataStart:(relative_offset_local_header + "C_SIZEOFLOCALHEADER" 30 + filename_length + extra ).
         file position:pos.
@@ -1739,7 +1739,7 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.37 2003-02-24 17:11:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.38 2003-02-25 11:44:37 cg Exp $'
 ! !
 
 ZipArchive initialize!