"{ Package: 'stx:libbasic2' }"

Object subclass:#Archiver

	instanceVariableNames:'process temporaryDirectory fileName outStream errorStream

		synchron'

	classVariableNames:''

	poolDictionaries:''

	category:'System-Support-FileFormats'

!

Archiver subclass:#GZipArchive

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Archiver

!

Archiver subclass:#TarArchive

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Archiver

!

Archiver subclass:#TarGZipArchive

	instanceVariableNames:'tarArchiver tarFile'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Archiver

!

Archiver subclass:#ZipArchive

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Archiver

!

!Archiver class methodsFor:'instance creation'!

with:aFilename

    | instance |

    instance := self new.

    instance fileName:aFilename.

    ^ instance

! !

!Archiver class methodsFor:'classAccess'!

gzipArchive

    ^ GZipArchive

!

tarArchive

    ^ TarArchive

!

tarGZipArchive

    ^ TarGZipArchive

!

zipArchive

    ^ ZipArchive

! !

!Archiver class methodsFor:'queries'!

canAddFiles

    ^ false

!

canDragnDrop

    ^ true.

!

canExtractFiles

    ^ false

!

canRemoveFiles

    ^ false

!

canViewFile

    ^ false

!

hasTitleLine

    ^ false

! !

!Archiver methodsFor:'accessing'!

errorStream

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

    ^ errorStream

!

errorStream:something

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

    errorStream := something.

!

fileName

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

    ^ fileName

!

fileName:something

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

    fileName := something.

!

outStream

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

    ^ outStream

!

outStream:something

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

    outStream := something.

!

process

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

    ^ process

!

process:something

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

    process := something.

!

synchron

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

    ^ synchron

!

synchron:something

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

    synchron := something.

!

temporaryDirectory

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

    temporaryDirectory isNil ifTrue:[

        temporaryDirectory := Filename newTemporary.

        temporaryDirectory makeDirectory.

    ].

    ^ temporaryDirectory

! !

!Archiver methodsFor:'actions'!

addFilesToArchiv:colOfFiles

    self subclassResponsibility.

!

extractTo:aColOfFiles

    self subclassResponsibility.

!

listFilesFromArchiv

    self subclassResponsibility.

!

removeFilesFromArchiv:aColOfFiles

    self subclassResponsibility.

! !

!Archiver methodsFor:'actions private'!

removeTemporaryDirectory

    | tmp |

    temporaryDirectory notNil ifTrue:[

        tmp := self temporaryDirectory.

        (FileDirectory directoryNamed:(tmp directory)) removeDirectory:tmp baseName.

        temporaryDirectory := nil.

    ].

!

stopProcess

    process notNil ifTrue:[

        process terminateWithAllSubprocesses.

        process waitUntilTerminated.

    ].

! !

!Archiver methodsFor:'command execution'!

executeCommand:cmd directory:aDirectory

    synchron isNil ifTrue:[synchron := true].

    synchron ifTrue:[

         OperatingSystem 

            executeCommand:cmd

            inputFrom:nil

            outputTo:outStream

            errorTo:errorStream

            inDirectory:aDirectory

            lineWise:true

            onError:[:status| false].

    ] ifFalse:[

        process := Process for:[

                [ 

                     OperatingSystem 

                        executeCommand:cmd

                        inputFrom:nil

                        outputTo:outStream

                        errorTo:errorStream

                        inDirectory:aDirectory

                        lineWise:true

                        onError:[:status| false].

                ] 

                valueNowOrOnUnwindDo:[

                    process := nil.

                ].

        ] priority:(Processor systemBackgroundPriority).

        process name:('ArchivFileCommand command >', cmd).

        process resume.

    ]

!

outStream:aOutStream errorStream:aErrorStream

    outStream := aOutStream.

    errorStream := aErrorStream.

!

outStream:aOutStream errorStream:aErrorStream synchron:aBoolean

    outStream := aOutStream.

    errorStream := aErrorStream.

    synchron := aBoolean

! !

!Archiver methodsFor:'initialization & release'!

release

    self stopProcess.

    self removeTemporaryDirectory.

! !

!Archiver::GZipArchive class methodsFor:'columns'!

columns

    "/ columns in stream order

    "/  colums id          words to read

    ^ #( #(#method          1)      

         #(#crc             1)    

         #(#dateAndTime     3)   

         #(#compressSize    1)  

         #(#size            1) 

         #(#ratio           1) 

         #(#fileName        #rest)

    ) 

! !

!Archiver::GZipArchive class methodsFor:'queries'!

canViewFile

    ^ true

!

hasTitleLine

    ^ true

! !

!Archiver::GZipArchive methodsFor:'actions'!

extractTo:aDirectory

    self unzipTo:aDirectory

!

extractTo:aDirectory with:extractFiles

    self unzipTo:aDirectory

!

listFilesFromArchive

    | cmd dir|

    self fileName isNil ifTrue:[ ^ self].

!

listFilesFromArchive:aCol

    self listFilesFromArchive

!

unzipTo:aDirectory

    | cmd file newFile|

    (aDirectory exists not) ifTrue:[

        DialogBox warn:'cant unzip to not existing directory ', aDirectory asString.

    ].

    (aDirectory isDirectory not) ifTrue:[

        DialogBox warn:'cant unzip to file ', aDirectory asString.

    ].

    file := self fileName.

    (file directory asString = aDirectory asString) ifFalse:[

        file copyTo:(aDirectory construct:(file baseName)).

    ].

    newFile := aDirectory construct:(file baseName).

    cmd := self getUnzipCommandForFile:newFile.

    self executeCommand:cmd directory:aDirectory. 

!

zipFile:aFile to:newFile

    | cmd directory|

    directory := newFile directory.

    (directory exists not) ifTrue:[

        DialogBox warn:'cant unzip to not existing directory ', directory asString.

    ].

    (directory isDirectory not) ifTrue:[

        DialogBox warn:'cant unzip to file ', directory asString.

    ].

    cmd := self getZipCommandForFile:aFile to:newFile.

    self executeCommand:cmd directory:directory.

    newFile exists ifTrue:[

        self fileName:newFile.

    ].

! !

!Archiver::GZipArchive methodsFor:'command strings'!

getFileListFromArchivCommand

    ^ 'gzip -l -v %1' bindWith:self fileName baseName

!

getUnzipCommand

    ^ self getUnzipCommandForFile:(self fileName baseName)

!

getUnzipCommandForFile:aFileName 

    ^ 'gunzip %1' bindWith:aFileName asString

!

getZipCommandForFile:aFileName

    ^ 'gzip %1' bindWith:aFileName asString

!

getZipCommandForFile:aFile to:newFile

    ^ 'gzip -c %1 > %2' bindWith:aFile asString with:newFile asString

! !

!Archiver::TarArchive class methodsFor:'columns'!

columns

    "/  colums id          words to read

    ^ #( #(#permissions     1)      

         #(#ownerGroup      1)    

         #(#size            1)   

         #(#dateAndTime     2)  

         #(#fileName        #rest)

    ) 

! !

!Archiver::TarArchive class methodsFor:'command strings'!

stringWithQuotedFileBaseNames:aColOfFiles

    aColOfFiles isNil ifTrue:[^ ''].

    ^ String 

        streamContents:[:str |

            aColOfFiles do:[:fn | 

                str nextPutAll:' "'.

                str nextPutAll:(fn asFilename baseName).

                str nextPutAll:'"'.

            ].

        ]

!

tarArchiveCommand

    ^ 'tar'

! !

!Archiver::TarArchive class methodsFor:'queries'!

canAddFiles

    ^ true

!

canRemoveFiles

    ^ true

!

canViewFile

    ^ true

! !

!Archiver::TarArchive methodsFor:'actions'!

addFilesToArchive:colOfFiles

    | cmd tempDir archivFile archivInTemp|

    tempDir := self temporaryDirectory.

    archivFile := self fileName.

    archivInTemp := tempDir construct:(archivFile baseName).

    "/ copy files to be added to tempDir

    colOfFiles do:[ :file |

        file recursiveCopyTo:(tempDir construct:(file asFilename baseName))

    ].

    "/ copy tar archiv to tempDir

    archivFile copyTo:archivInTemp.

    "/ addFiles to the tar archive

    cmd := self getAddFilesToTarArchiveCommandForArchive:archivInTemp with:colOfFiles.

    self executeCommand:cmd directory:tempDir.

    "/ copy tar archiv back

    archivInTemp copyTo:(self fileName).

!

extractTo:aDirectory 

    ^ self extractTo:aDirectory with:nil

!

extractTo:aDirectory with:files

    |execDir cmd|

    execDir := self fileName directory.

    cmd := self getExtractSelectedFilesCommandForDirectory:aDirectory withSelection:files.

    self executeCommand:cmd directory:execDir.

!

extractWithOutDirectoryTo:aDirectory with:files

    |execDir tempDir tempFile|

    execDir := self fileName directory.

    tempDir := self temporaryDirectory.

    self extractTo:tempDir with:files.

    files do:[ : aFileString |

        tempFile := self temporaryDirectory construct:aFileString.

        tempFile exists ifTrue:[

            tempFile recursiveCopyTo:(aDirectory construct:(aFileString asFilename baseName)).

        ].

    ].

!

listFilesFromArchive

    self listFilesFromArchive:nil

!

listFilesFromArchive:newColOfFiles

    | cmd dir|

    self fileName isNil ifTrue:[ ^ self].

    dir := self fileName directory.

    cmd := self getFileListFromArchiveCommand:newColOfFiles.

    self executeCommand:cmd directory:dir 

!

removeFilesFromArchive:aColOfFiles

    |cmd|