"{ 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 class methodsFor:'zip archiv command options'!

GZipArchivFileOption

    ^ 'f'

!

GZipArchivUnzipCommand

    ^ 'gunzip'

!

GZipArchivWriteToStdioOption

    ^ 'c'

!

GZipArchivZipCommand

    ^ 'gzip'

!

GZipArchivZipListOption

    ^ $l

!

GZipArchivZipQuietOption

    ^ $q

!

GZipArchivZipVerboseOption

    ^ $v

! !

!Archiver::GZipArchive methodsFor:'actions'!

extractTo:aDirectory

    self unzipTo:aDirectory

!

extractTo:aDirectory with:extractFiles

    self unzipTo:aDirectory

!

listFilesFromArchiv

    | cmd dir|

    self fileName isNil ifTrue:[ ^ self].

    dir := self fileName directory.

    cmd := self getFileListFromArchivCommand.

    self executeCommand:cmd directory:dir 

!

listFilesFromArchiv:aCol

    self listFilesFromArchiv

!

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

    | stream cmd|

    stream := WriteStream on:''.

    stream nextPutAll:self class GZipArchivZipCommand.

    stream space.

    stream nextPut:$-.

    stream nextPut:self class GZipArchivZipListOption.

    stream space.

    stream nextPut:$-.

    stream nextPut:self class GZipArchivZipVerboseOption.

    stream space.

    stream nextPutAll:self fileName baseName.

    cmd := stream contents.

    stream close.

    ^ cmd

!

getUnzipCommand

    | stream cmd|

    stream := WriteStream on:''.

    stream nextPutAll:self class GZipArchivUnzipCommand.

    stream space.

    stream nextPutAll:self fileName baseName.

    cmd := stream contents.

    stream close.

    ^ cmd

!

getUnzipCommandForFile:aFileName

    | stream cmd|

    stream := WriteStream on:''.

    stream nextPutAll:self class GZipArchivUnzipCommand.

    stream space.

    stream nextPutAll:aFileName asString.

    cmd := stream contents.

    stream close.

    ^ cmd

!

getZipCommandForFile:aFileName

    | stream cmd|

    stream := WriteStream on:''.

    stream nextPutAll:self class GZipArchivZipCommand.

    stream space.

    stream nextPutAll:aFileName asString.

    cmd := stream contents.

    stream close.

    ^ cmd

!

getZipCommandForFile:aFile to:newFile

    | stream cmd|

    stream := WriteStream on:''.

    stream nextPutAll:self class GZipArchivZipCommand.

    stream space.

    stream nextPut:$-.

    stream nextPutAll:self class GZipArchivWriteToStdioOption.

    stream space.

    stream nextPutAll:aFile asString.

    stream space.

    stream nextPut:$>.

    stream space.

    stream nextPutAll:newFile asString.

    cmd := stream contents.

    stream close.

    ^ cmd

! !

!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'!

TarArchivAddOption

    ^ 'r'

!

TarArchivCommand

    ^ 'tar'

!

TarArchivDeleteOption

    ^ '--delete'

!

TarArchivFileOption

    ^ 'f'

!

TarArchivListContentsOption

    ^ 't'

!

TarArchivListOptions

    ^ self TarArchivListContentsOption , self TarArchivVerboseOption