'From Smalltalk/X, Version:3.4.3 on 29-mar-1998 at 9:59:17 pm'                  !

Object subclass:#ZipArchive

	instanceVariableNames:'file archiveName firstEntry lastEntry'

	classVariableNames:'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 ZipFileFormatErrorSignal COMPR_STORED

		COMPR_SHRUNK COMPR_REDUCED1 COMPR_REDUCED2 COMPR_REDUCED3

		COMPR_REDUCED4 COMPR_IMPLODED COMPR_TOKENIZED COMPR_DEFLATED'

	poolDictionaries:''

	category:'System-Support-FileFormats'

!

Object subclass:#ZipMember

	instanceVariableNames:'next relative_offset_local_header compressed_size

		uncompressed_size name crc32 compression_method'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ZipArchive

!

!ZipArchive class methodsFor:'documentation'!

history

    "Created: / 29.3.1998 / 17:45:14 / cg"

    "Created: #oldFileNamed: / 29.3.1998 / 17:46:09 / cg"

    "Created: #newFileNamed: / 29.3.1998 / 17:46:16 / cg"

    "Created: #name: / 29.3.1998 / 17:46:47 / cg"

    "Created: #name:mode: / 29.3.1998 / 17:47:40 / cg"

    "Modified: #name:mode: / 29.3.1998 / 17:48:05 / cg"

    "Created: #readDirectory / 29.3.1998 / 17:59:21 / cg"

    "Modified: #readDirectory / 29.3.1998 / 18:01:54 / cg"

    "Created: #initialize / 29.3.1998 / 18:02:52 / cg"

    "Modified: #initialize / 29.3.1998 / 18:03:51 / cg"

    "Modified: #initialize / 29.3.1998 / 18:04:19 / cg"

    "Modified: #initialize / 29.3.1998 / 18:05:44 / cg"

    "Modified: #initialize / 29.3.1998 / 18:06:00 / cg"

    "Modified: #initialize / 29.3.1998 / 18:06:20 / cg"

    "Created: #readu2 / 29.3.1998 / 18:08:17 / cg"

    "Modified: #readu2 / 29.3.1998 / 18:09:05 / cg"

    "Created: #read4 / 29.3.1998 / 18:10:25 / cg"

    "Modified: #readu2 / 29.3.1998 / 18:10:53 / cg"

    "Modified: #read4 / 29.3.1998 / 18:11:03 / cg"

    "Created: #addMember / 29.3.1998 / 18:22:26 / cg"

    "Modified: #addMember / 29.3.1998 / 18:22:47 / cg"

    "Modified: #name:mode: / 29.3.1998 / 18:23:26 / cg"

    "Modified: #initialize / 29.3.1998 / 18:24:37 / cg"

    "Modified: #readDirectory / 29.3.1998 / 18:25:05 / cg"

    "Modified: #readDirectory / 29.3.1998 / 18:25:14 / cg"

    "Deleted: #name: / 29.3.1998 / 18:25:45 / cg"

    "Modified: #readDirectory / 29.3.1998 / 18:26:38 / cg"

    "Modified: #readDirectory / 29.3.1998 / 18:27:05 / cg"

    "Modified: #readDirectory / 29.3.1998 / 18:33:22 / cg"

    "Modified: #readDirectory / 29.3.1998 / 18:34:14 / cg"

    "Created: #extract: / 29.3.1998 / 19:09:51 / cg"

    "Created: #LREC_SIZE / 29.3.1998 / 19:11:21 / cg"

    "Created: #findMember: / 29.3.1998 / 19:13:21 / cg"

    "Modified: #findMember: / 29.3.1998 / 19:13:55 / cg"

    "Created: #entries / 29.3.1998 / 19:14:32 / cg"

    "Created: #zipMembersDo: / 29.3.1998 / 19:15:16 / cg"

    "Modified: #findMember: / 29.3.1998 / 19:15:39 / cg"

    "Modified: #entries / 29.3.1998 / 19:16:21 / cg"

    "Modified: #name:mode: / 29.3.1998 / 19:16:35 / cg"

    "Modified: #name:mode: / 29.3.1998 / 19:57:01 / cg"

    "Modified: #readDirectory / 29.3.1998 / 20:02:00 / cg"

    "Modified: #readDirectory / 29.3.1998 / 20:02:16 / cg"

    "Modified: #entries / 29.3.1998 / 20:08:39 / cg"

    "Modified: #extract: / 29.3.1998 / 20:08:49 / cg"

    "Created: #members / 29.3.1998 / 20:09:28 / cg"

    "Modified: #members / 29.3.1998 / 20:10:23 / cg"

    "Modified: #extract: / 29.3.1998 / 20:12:13 / cg"

    "Created: #decode:method: / 29.3.1998 / 20:14:46 / cg"

    "Modified: #initialize / 29.3.1998 / 20:17:19 / cg"

    "Modified: #decode:method: / 29.3.1998 / 20:20:21 / cg"

! !

!ZipArchive class methodsFor:'instance creation'!

newFileNamed:name

    ^ self new name:name mode:#write

    "Created: / 29.3.1998 / 17:46:16 / cg"

!

oldFileNamed:name

    ^ self new name:name mode:#read

    "Created: / 29.3.1998 / 17:46:09 / cg"

! !

!ZipArchive class methodsFor:'class initialization'!

initialize

    ECREC_SIZE := 18.

    LREC_SIZE := 26.

    CREC_SIZE := 42.

    TOTAL_ENTRIES_CENTRAL_DIR := 10.

    SIZE_CENTRAL_DIRECTORY := 12.

    C_COMPRESSED_SIZE := 16.

    C_UNCOMPRESSED_SIZE := 20.

    C_FILENAME_LENGTH := 24.

    C_RELATIVE_OFFSET_LOCAL_HEADER := 38.

    "/ compression methods 

    COMPR_STORED          :=  0.    

    COMPR_SHRUNK          :=  1.

    COMPR_REDUCED1        :=  2.

    COMPR_REDUCED2        :=  3.

    COMPR_REDUCED3        :=  4.

    COMPR_REDUCED4        :=  5.

    COMPR_IMPLODED        :=  6.

    COMPR_TOKENIZED       :=  7.

    COMPR_DEFLATED        :=  8.

    ZipFileFormatErrorSignal := Signal new.

    "

     self initialize

    "

    "Modified: / 29.3.1998 / 20:17:18 / cg"

! !

!ZipArchive class methodsFor:'constants'!

LREC_SIZE

    ^ LREC_SIZE

    "Created: / 29.3.1998 / 19:11:20 / cg"

! !

!ZipArchive methodsFor:'accessing'!

entries

    "return a collection of fileName entries"

    |names|

    names := OrderedCollection new.

    self zipMembersDo:[:zipd |

        names add:(zipd name)

    ].

    ^ names

    "

     (ZipArchive oldFileNamed:'/usr/lib/java/lib/classes.zip') entries

    "

    "Modified: / 29.3.1998 / 20:08:38 / cg"

!

extract:fileName

    |zmemb rawContents|

    zmemb := self findMember:fileName.

    file position:(zmemb fileStart + 1).

    rawContents := file nextBytes:(zmemb compressed_size).

    ^ self decode:rawContents method:(zmemb compression_method)

    "

     (ZipArchive oldFileNamed:'/usr/lib/java/lib/classes.zip') extract:'java/io/UTFDataFormatException.class'

    "

    "Modified: / 29.3.1998 / 20:12:12 / cg"

!

members

    "return a collection of members"

    |members|

    members := OrderedCollection new.

    self zipMembersDo:[:zipd |

        members add:zipd

    ].

    ^ members

    "

     (ZipArchive oldFileNamed:'/usr/lib/java/lib/classes.zip') members

    "

    "Created: / 29.3.1998 / 20:09:27 / cg"

    "Modified: / 29.3.1998 / 20:10:21 / cg"

! !

!ZipArchive methodsFor:'private'!

name:nm mode:mode

    archiveName := nm.

    mode == #read ifTrue:[

        file := nm asFilename readStream.

        self readDirectory.

    ] ifFalse:[

        file := nm asFilename writeStream

    ]

    "

     ZipArchive oldFileNamed:'/usr/lib/java/lib/classes.zip'

     (ZipArchive oldFileNamed:'/usr/lib/java/lib/classes.zip') entries

     (ZipArchive oldFileNamed:'/usr/lib/java/lib/classes.zip') extract:'java/io/UTFDataFormatException.class'

    "

    "Modified: / 29.3.1998 / 19:57:00 / cg"

! !

!ZipArchive methodsFor:'private - decompression'!

decode:rawBytes method:compressionMethod

    compressionMethod == COMPR_STORED ifTrue:[

        "/ uncompressed

        ^ rawBytes

    ].

    compressionMethod == COMPR_SHRUNK ifTrue:[

        self error:'unsupported compression method: SHRUNK'.

        ^ nil

    ].

    compressionMethod == COMPR_REDUCED1 ifTrue:[

        self error:'unsupported compression method: REDUCED1'.

        ^ nil

    ].

    compressionMethod == COMPR_REDUCED2 ifTrue:[

        self error:'unsupported compression method: REDUCED2'.

        ^ nil

    ].

    compressionMethod == COMPR_REDUCED3 ifTrue:[

        self error:'unsupported compression method: REDUCED3'.

        ^ nil

    ].

    compressionMethod == COMPR_REDUCED4 ifTrue:[

        self error:'unsupported compression method: REDUCED4'.

        ^ nil

    ].

    compressionMethod == COMPR_IMPLODED ifTrue:[

        self error:'unsupported compression method: IMPLODED'.

        ^ nil

    ].

    compressionMethod == COMPR_TOKENIZED ifTrue:[

        self error:'unsupported compression method: TOKENIZED'.

        ^ nil

    ].

    compressionMethod == COMPR_DEFLATED ifTrue:[

        self error:'unsupported compression method: DEFLATED'.

        ^ nil

    ].

    self error:'unsupported compression method'.

    ^ nil

    "Created: / 29.3.1998 / 20:14:45 / cg"

    "Modified: / 29.3.1998 / 20:20:20 / cg"

! !

!ZipArchive methodsFor:'private - directory stuff'!

addMember

    |zmemb |

    zmemb := ZipMember new.

    (firstEntry == nil) ifTrue:[

        firstEntry := zmemb

    ] ifFalse:[ 

        lastEntry next:zmemb.

    ].

    lastEntry := zmemb.

    ^ zmemb.

    "Created: / 29.3.1998 / 18:22:25 / cg"

    "Modified: / 29.3.1998 / 18:22:47 / cg"

!

findMember:name

    self zipMembersDo:[:zipd |

        (zipd name = name) ifTrue:[^ zipd].

    ].

    ^ nil

    "Modified: / 29.3.1998 / 19:15:38 / cg"

!

readDirectory

    |size count_in dir_size|

    size := file fileSize.

    (size == 0) ifTrue:[

        count_in := 0.

        ^ self

    ].

    (size < (ECREC_SIZE+4)) ifTrue:[

        ^ ZipFileFormatErrorSignal raiseWith:'zipfile too short'.

    ].

    file position:(size - (ECREC_SIZE+4) + 1).

    ((file next ~~ $P)

    or:[file next ~~ $K

    or:[file next ~~ (Character value:8r005)

    or:[file next ~~ (Character value:8r006)]]]) ifTrue:[

        ^ ZipFileFormatErrorSignal raiseWith:'not a valid zipfile'.

    ].

    file skip: (TOTAL_ENTRIES_CENTRAL_DIR - 4).

    count_in := self readu2.     "/ Get TOTAL_ENTRIES_CENTRAL_DIR

    dir_size := self read4.      "/ Get SIZE_CENTRAL_DIRECTORY

    file position:(size - (dir_size + ECREC_SIZE+4) + 1).

    0 to:(count_in-1) do:[:i |

        |zipd filename_length|

        zipd := self addMember.

        file skip:(4+C_COMPRESSED_SIZE-4-2-2-2).

        zipd compression_method:(self readu2)."/ Get compression method

        self readu2.                         "/ skip last_mod_file_time

        self readu2.                         "/ skip last_mod_file_date

        zipd crc32:(self read4).             "/ Get crc32

        zipd compressed_size:(self read4).   "/ Get C_COMPRESSED_SIZE

        zipd uncompressed_size:(self read4). "/ Get C_UNCOMPRESSED_SIZE

        filename_length := self readu2.      "/ Get C_FILENAME_LENGTH

        file skip:(C_RELATIVE_OFFSET_LOCAL_HEADER-(C_FILENAME_LENGTH+2)).

        zipd relative_offset_local_header:(self read4).

        zipd name:(String new:filename_length).

        file nextBytes:filename_length into:(zipd name).

    ]

    "Modified: / 29.3.1998 / 20:02:15 / cg"

!

zipMembersDo:aBlock

    |zipd|

    zipd := firstEntry.

    [zipd notNil] whileTrue:[

        aBlock value:zipd.

        zipd := zipd next

    ].

    "Modified: / 29.3.1998 / 19:13:54 / cg"

    "Created: / 29.3.1998 / 19:15:15 / cg"

! !

!ZipArchive methodsFor:'private - io'!

read4

    ^ file nextLongMSB:false

    "Created: / 29.3.1998 / 18:10:25 / cg"

    "Modified: / 29.3.1998 / 18:11:03 / cg"

!

readu2

    ^ file nextUnsignedShortMSB:false

    "Modified: / 29.3.1998 / 18:10:53 / cg"

! !

!ZipArchive::ZipMember methodsFor:'accessing'!

compressed_size

    "return the value of the instance variable 'compressed_size' (automatically generated)"

    ^ compressed_size

    "Created: / 29.3.1998 / 18:28:03 / cg"

!

compressed_size:something

    "set the value of the instance variable 'compressed_size' (automatically generated)"

    compressed_size := something.

    "Created: / 29.3.1998 / 18:28:03 / cg"

!

compression_method

    "return the value of the instance variable 'compression_method' (automatically generated)"

    ^ compression_method

    "Created: / 29.3.1998 / 20:02:57 / cg"

!

compression_method:something

    "set the value of the instance variable 'compression_method' (automatically generated)"

    compression_method := something.

    "Created: / 29.3.1998 / 20:02:57 / cg"

!

crc32

    "return the value of the instance variable 'crc32' (automatically generated)"

    ^ crc32

    "Created: / 29.3.1998 / 20:03:00 / cg"

!

crc32:something

    "set the value of the instance variable 'crc32' (automatically generated)"

    crc32 := something.

    "Created: / 29.3.1998 / 20:03:00 / cg"

!

name

    "return the value of the instance variable 'name' (automatically generated)"

    ^ name

    "Created: / 29.3.1998 / 18:29:22 / cg"

!

name:something

    "set the value of the instance variable 'name' (automatically generated)"

    name := something.

    "Created: / 29.3.1998 / 18:29:22 / cg"

!

next

    "return the value of the instance variable 'next' (automatically generated)"

    ^ next

    "Created: / 29.3.1998 / 18:29:42 / cg"

!

next:something

    "set the value of the instance variable 'next' (automatically generated)"

    next := something.

    "Created: / 29.3.1998 / 18:29:42 / cg"

!

relative_offset_local_header

    "return the value of the instance variable 'relative_offset_local_header' (automatically generated)"

    ^ relative_offset_local_header

    "Created: / 29.3.1998 / 18:28:40 / cg"

!

relative_offset_local_header:something

    "set the value of the instance variable 'relative_offset_local_header' (automatically generated)"

    relative_offset_local_header := something.

    "Created: / 29.3.1998 / 18:28:40 / cg"

!

uncompressed_size

    "return the value of the instance variable 'uncompressed_size' (automatically generated)"

    ^ uncompressed_size

    "Created: / 29.3.1998 / 18:28:21 / cg"

!

uncompressed_size:something

    "set the value of the instance variable 'uncompressed_size' (automatically generated)"

    uncompressed_size := something.

    "Created: / 29.3.1998 / 18:28:21 / cg"

! !

!ZipArchive::ZipMember methodsFor:'printing & storing'!

displayString

    ^ 'ZipMember(' , name , ')'

    "Created: / 29.3.1998 / 20:10:07 / cg"

! !

!ZipArchive::ZipMember methodsFor:'queries'!

fileStart

    ^ relative_offset_local_header + ZipArchive LREC_SIZE + 4 + name size

    "Created: / 29.3.1998 / 19:10:57 / cg"

! !

ZipArchive initialize!