Mercurial Mercurial > hg > stx-libbasic2 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ZipArchive.st
changeset 2492 128237b8b7b6
parent 2491 256c6ff1616a
child 2511 237dad762f68 
--- a/ZipArchive.st	Tue Aug 31 19:54:11 2010 +0200
+++ b/ZipArchive.st	Wed Sep 08 13:06:19 2010 +0200
@@ -12,65 +12,65 @@
 "{ Package: 'stx:libbasic2' }"
 
 Object subclass:#ZipArchive
-        instanceVariableNames:'file mode archiveName firstEntry lastEntry centralDirectory
-                startOfArchive endOfArchive'
-        classVariableNames:'Lobby RecentlyUsedZipArchives FlushBlock ECREC_SIZE LREC_SIZE
-                CREC_SIZE SIZE_CENTRAL_DIRECTORY TOTAL_ENTRIES_CENTRAL_DIR
-                C_COMPRESSED_SIZE C_RELATIVE_OFFSET_LOCAL_HEADER
-                C_FILENAME_LENGTH C_UNCOMPRESSED_SIZE C_CENTRALHEADERSIGNATURE
-                C_LOCALHEADERSIGNATURE C_CENTRALENDSIGNATURE
-                ZipFileFormatErrorSignal UnsupportedZipFileFormatErrorSignal
-                COMPR_STORED COMPR_SHRUNK COMPR_REDUCED1 COMPR_REDUCED2
-                COMPR_REDUCED3 COMPR_REDUCED4 COMPR_IMPLODED COMPR_TOKENIZED
-                COMPR_DEFLATED EXTERNALFILEATTRIBUTES_ISFILE
-                EXTERNALFILEATTRIBUTES_ISDIRECTORY'
-        poolDictionaries:''
-        category:'System-Support-FileFormats'
+	instanceVariableNames:'file mode archiveName firstEntry lastEntry centralDirectory
+		startOfArchive endOfArchive'
+	classVariableNames:'Lobby RecentlyUsedZipArchives FlushBlock ECREC_SIZE LREC_SIZE
+		CREC_SIZE SIZE_CENTRAL_DIRECTORY TOTAL_ENTRIES_CENTRAL_DIR
+		C_COMPRESSED_SIZE C_RELATIVE_OFFSET_LOCAL_HEADER
+		C_FILENAME_LENGTH C_UNCOMPRESSED_SIZE C_CENTRALHEADERSIGNATURE
+		C_LOCALHEADERSIGNATURE C_CENTRALENDSIGNATURE
+		ZipFileFormatErrorSignal UnsupportedZipFileFormatErrorSignal
+		COMPR_STORED COMPR_SHRUNK COMPR_REDUCED1 COMPR_REDUCED2
+		COMPR_REDUCED3 COMPR_REDUCED4 COMPR_IMPLODED COMPR_TOKENIZED
+		COMPR_DEFLATED EXTERNALFILEATTRIBUTES_ISFILE
+		EXTERNALFILEATTRIBUTES_ISDIRECTORY'
+	poolDictionaries:''
+	category:'System-Support-FileFormats'
 !
 
 PeekableStream subclass:#AbstractZipStream
-        instanceVariableNames:'zipArchive zipEntry zipFileStream compressingStream crc32
-                uncompressedDataSize startDataPosition'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:ZipArchive
+	instanceVariableNames:'zipArchive zipEntry zipFileStream compressingStream crc32
+		uncompressedDataSize startDataPosition'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:ZipArchive
 !
 
 Object subclass:#ZipCentralDirectory
-        instanceVariableNames:'numberOfThisDisk centralDirectoryStartDiskNumber
-                centralDirectoryTotalNoOfEntriesOnThisDisk
-                centralDirectoryTotalNoOfEntries centralDirectorySize
-                centralDirectoryStartOffset zipCommentLength zipComment
-                digitalSignatureDataSize digitalSignatureData'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:ZipArchive
+	instanceVariableNames:'numberOfThisDisk centralDirectoryStartDiskNumber
+		centralDirectoryTotalNoOfEntriesOnThisDisk
+		centralDirectoryTotalNoOfEntries centralDirectorySize
+		centralDirectoryStartOffset zipCommentLength zipComment
+		digitalSignatureDataSize digitalSignatureData'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:ZipArchive
 !
 
 Object subclass:#ZipMember
-        instanceVariableNames:'next versionMadeBy versionNeedToExtract generalPurposBitFlag
-                compressionMethod lastModFileTime lastModFileDate crc32
-                compressedSize uncompressedSize fileNameLength extraFieldLength
-                fileCommentLength diskNumberStart internalFileAttributes
-                externalFileAttributes relativeLocalHeaderOffset fileName
-                extraField fileComment dataStart data'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:ZipArchive
+	instanceVariableNames:'next versionMadeBy versionNeedToExtract generalPurposBitFlag
+		compressionMethod lastModFileTime lastModFileDate crc32
+		compressedSize uncompressedSize fileNameLength extraFieldLength
+		fileCommentLength diskNumberStart internalFileAttributes
+		externalFileAttributes relativeLocalHeaderOffset fileName
+		extraField fileComment dataStart data'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:ZipArchive
 !
 
 ZipArchive::AbstractZipStream subclass:#ZipReadStream
-        instanceVariableNames:'readPosition peek'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:ZipArchive
+	instanceVariableNames:'readPosition peek'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:ZipArchive
 !
 
 ZipArchive::AbstractZipStream subclass:#ZipWriteStream
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:ZipArchive
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:ZipArchive
 !
 
 !ZipArchive primitiveDefinitions!
@@ -3194,7 +3194,7 @@
     |filename members maxStartPosition lastMember|
 
     filename := name asFilename.
-    filename exists ifFalse:[
+    (readOrWriteMode = #read and:[filename exists not]) ifTrue:[
         ^ OpenError raiseRequestWith:filename errorString:' - file does not exist'.
     ].
     filename isDirectory ifTrue:[
@@ -4969,11 +4969,11 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.84 2010-08-31 17:54:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.85 2010-09-08 11:06:19 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.84 2010-08-31 17:54:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.85 2010-09-08 11:06:19 stefan Exp $'
 ! !
 
 ZipArchive initialize!
hg/stx-libbasic2