Re: [Pharo-dev] unzip:to:

April 19, 2016


      Le 19/4/16 15:41, Valentin Ryckewaert a Ã©crit :
...
How does unzip:to: access to the file ?
I do not get your question?
It must be in the workingDirectory?
Read the code luke....


unzip: fullFileName to: pathString
     "Unzip the contents of the file specified by the full path name 
fullFileName to the location given by pathString."

     | zipped buffer unzipped newName |
     newName := fullFileName copyUpToLast: FileSystem disk 
extensionDelimiter.
     pathString asFileReference ensureCreateDirectory.
     unzipped := FileStream newFileNamed: (pathString asFileReference / 
newName) fullName.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^


     unzipped ifNil: [self error: pathString, ' looks incorrect'].
     [ unzipped binary.
     zipped := self on: (FileStream readOnlyFileNamed: fullFileName).
     buffer := ByteArray new: 50000.
     [zipped atEnd] whileFalse: [unzipped nextPutAll: (zipped nextInto: 
buffer)]]
         ensure: [
             zipped close.
             unzipped close].
     ^ newName
...
2016-04-19 15:06 GMT+02:00 HernÃ¡n Morales Durand 
<hernan.morales@gmail.com <mailto:hernan.morales@gmail.com>>:
I use it a lot to uncompress external resources like this:
fileRef := ....
    GZipReadStream unzip: fileRef basename to: FileSystem
    workingDirectory.
but it could be used to pass a directory as String I guess.
    Comment should be corrected.
2016-04-19 9:54 GMT-03:00 stepharo <stepharo@free.fr
    <mailto:stepharo@free.fr>>:
unzip: fullFileName to: pathString
            "Unzip the contents of the file specified by the full path
        name fullFileName to the location given by pathString."
so we would expect to pass a string in the second argument?
the unique sender of it in the system
unzip: fullFileName
            "Unzip the contents of a gzipped file specified by its
        full file name to the current working directory"
^ self unzip: fullFileName to: FileSystem disk
        workingDirectory
but the implementation seems to indicate that fullFileName is
        should be a string as well as pathString
unzip: fullFileName to: pathString
            "Unzip the contents of the file specified by the full path
        name fullFileName to the location given by pathString."
| zipped buffer unzipped newName |
            newName := fullFileName copyUpToLast: FileSystem disk
        extensionDelimiter.
            pathString asFileReference ensureCreateDirectory.
            unzipped := FileStream newFileNamed: (pathString
        asFileReference / newName) fullName.
            unzipped ifNil: [self error: pathString, ' looks incorrect'].
            [ unzipped binary.
            zipped := self on: (FileStream readOnlyFileNamed:
        fullFileName).
            buffer := ByteArray new: 50000.
            [zipped atEnd] whileFalse: [unzipped nextPutAll: (zipped
        nextInto: buffer)]]
                ensure: [
                    zipped close.
                    unzipped close].
            ^ newName
Am I correct to think that the comments are not really good
        enough?
Stef