"{ Package: 'stx:libtool2' }"

Object subclass:#FileOperation

	instanceVariableNames:'errorString result'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Support'

!

FileOperation subclass:#Copy

	instanceVariableNames:'colOfCopiedFiles'

	classVariableNames:''

	poolDictionaries:''

	privateIn:FileOperation

!

FileOperation subclass:#Create

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:FileOperation

!

FileOperation subclass:#Delete

	instanceVariableNames:'fileName errorString'

	classVariableNames:''

	poolDictionaries:''

	privateIn:FileOperation

!

FileOperation subclass:#Move

	instanceVariableNames:'colOfMovedFiles'

	classVariableNames:''

	poolDictionaries:''

	privateIn:FileOperation

!

FileOperation subclass:#Rename

	instanceVariableNames:'renamedFiles'

	classVariableNames:''

	poolDictionaries:''

	privateIn:FileOperation

!

!FileOperation class methodsFor:'defaults'!

copyMoveIfExistSuffixString

    ^ '.copy'

! !

!FileOperation class methodsFor:'private class access'!

copy

    ^ Copy 

!

create

    ^ Create 

!

delete

    ^ Delete 

!

move

    ^ Move

!

rename

    ^ Rename

! !

!FileOperation methodsFor:'accessing'!

errorString

    "return the value of the static variable 'ErrorString' (automatically generated)"

    ^ errorString

!

errorString:something

    "set the value of the static variable 'ErrorString' (automatically generated)"

    errorString := something.

!

result

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

    ^ result

!

result:something

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

    result := something.

! !

!FileOperation methodsFor:'dialogs'!

fileExistDialogFor:aFile

    ^ self fileExistDialogFor:aFile withCancel:false.

!

fileExistDialogFor:aFile withCancel:aBoolean

    | stream string|

    aFile exists ifTrue:[

        stream := WriteStream on:''.

        stream nextPutAll:'overwrite '.

        stream nextPutAll:(aFile asString).

        stream nextPutAll:' from '.

        (aFile modificationTime) printOn:stream format:'%(Day)-%(mon)-%(year) %h:%m:%s'.

        stream nextPutAll:' with size of '.

        stream nextPutAll:aFile fileSize asString.

        stream cr.

        stream nextPutAll:' with '.

        stream nextPutAll:aFile asString.

        stream nextPutAll:' from '.

        (aFile modificationTime) printOn:stream format:'%(Day)-%(mon)-%(year) %h:%m:%s'.

        stream nextPutAll:' with size of '.

        stream nextPutAll:aFile fileSize asString.

        string := stream contents. 

        stream close.

        aBoolean ifTrue:[

            ^ (Dialog confirmWithCancel:(string)).

        ] ifFalse:[

            ^ (Dialog confirm:(string)).

        ].

    ].

    ^ true

! !

!FileOperation::Copy class methodsFor:'actions'!

copyFile:aSourceFile to:aDestFile

    "delete current selected files/directories

    "

    |instance|

    instance := self new.

    instance copyFile:aSourceFile to:aDestFile.

    ^ instance

!

copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning

    "delete current selected files/directories

    "

    |instance|

    instance := self new.

    instance copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning.

    ^ instance

!

copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning copyFileIfSame:copy

    "delete current selected files/directories

    "

    |instance|

    instance := self new.

    instance copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning copyFileIfSame:copy.

    ^ instance

!

copyFiles:aColOfSourceFiles to:aDirectory

    "delete current selected files/directories

    "

    |instance|

    instance := self new.

    instance copyFiles:aColOfSourceFiles to:aDirectory.

    ^ instance

!

copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning

    "delete current selected files/directories

    "

    |instance|

    instance := self new.

    instance copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning.

    ^ instance

!

copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:copy

    "delete current selected files/directories

    "

    |instance|

    instance := self new.

    instance copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:copy.

    ^ instance

! !

!FileOperation::Copy class methodsFor:'documentation'!

version

! !

!FileOperation::Copy methodsFor:'accessing'!

colOfCopiedFiles

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

    colOfCopiedFiles isNil ifTrue:[

        colOfCopiedFiles := OrderedCollection new.

    ].

    ^ colOfCopiedFiles

! !

!FileOperation::Copy methodsFor:'actions'!

copyFile:aSourceFile to:aDestFile

    "defete current selected files/directories

    "

    self copyFile:aSourceFile to:aDestFile withOverWriteWarning:true

!

copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning

    "copy to

    "

    self copyFile:aSourceFile to:aDestFile withOverWriteWarning:true copyFileIfSame:true

!

copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning copyFileIfSame:copy

    "copy to

    "

    |newFile fileString targetDirectory targetIsDirectory sourceIsDirectory suffix|

    sourceIsDirectory := aSourceFile isDirectory.

    targetIsDirectory := aDestFile isDirectory.

    targetIsDirectory ifTrue:[

        targetDirectory := aDestFile.

        newFile := aDestFile construct:(aSourceFile baseName).

    ] ifFalse:[

        targetDirectory := aDestFile directory.

        newFile := aDestFile.

    ].

    "/ do not copy if destination directory doest exist.

    (targetDirectory exists not) ifTrue:[

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

        result := false.

        ^ self

    ].

    (newFile exists) ifTrue:[

        ((newFile asString = aSourceFile asString) and:[copy]) ifTrue:[

            [newFile exists] whileTrue:[

                suffix := newFile suffix.

                fileString := newFile baseName withoutSuffix, self class copyMoveIfExistSuffixString, '.', suffix.

                newFile := targetDirectory construct:fileString.

            ].

        ] ifFalse:[

            overWriteWarning ifTrue:[

                (self fileExistDialogFor:newFile) ifFalse:[ 

                    result := false.

                    ^ self.

                ]

            ] ifFalse:[

                    result := false.

                    ^ self.

            ]

        ].

    ].

    Error handle:[:ex|

        "was not able to copy it"

        WarningBox warn:'on copy file - ', ex errorString.

        self errorString:('on copy file - ', ex description asString).

        result := false.

    ] do:[

        sourceIsDirectory ifTrue:[

            OperatingSystem recursiveCopyDirectory:(aSourceFile pathName) 

                                                to:newFile.

        ] ifFalse:[

            aSourceFile copyTo:newFile.

        ].

        DirectoryContents flushCachedDirectory:(aSourceFile directory).

        result := true.

    ].

!

copyFiles:aColOfSourceFiles to:aDirectory

    ^ self copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:true. 

!

copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning 

    ^ self copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:true.

!

copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:copy

    |newFile suffix fileString sourceIsDirectory askResult|

    (aDirectory exists not) ifTrue:[

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

        result := false.

        ^ self

    ].

    (aDirectory isDirectory not) ifTrue:[

        DialogBox warn:'destination ', aDirectory asString, ' is not a directory'. 

        result := false.

        ^ self

    ].

    aColOfSourceFiles do:[: filename |

        newFile := aDirectory construct:(filename baseName).

        sourceIsDirectory := filename isDirectory.

        (newFile exists) ifTrue:[

            askResult := true.

            ((newFile asString = filename asString) and:[copy]) ifTrue:[

                [newFile exists] whileTrue:[

                    suffix := newFile suffix.

                    fileString := newFile baseName withoutSuffix, self class copyMoveIfExistSuffixString, '.', suffix.

                    newFile := aDirectory construct:fileString.

                ].

            ] ifFalse:[

                overWriteWarning ifTrue:[

                    askResult := (self fileExistDialogFor:newFile withCancel:true).

                    askResult isNil ifTrue:[

                        result := false.

                        ^ self.

                    ]

                ]

            ].

        ].

        askResult ifTrue:[

            Error handle:[:ex|

                "was not able to copy it"

                result := false.

                self errorString:('on copy file - ', ex description asString).

                ( Dialog 

                    confirm:('error on copy file - ', ex description asString) 

                    title:'Copy'

                    yesLabel:'Continue' 

                    noLabel:'Abort') ifFalse:[

                    ^ self.

                ].

            ] do:[

                sourceIsDirectory ifTrue:[

                    OperatingSystem recursiveCopyDirectory:(filename asString)  

                                                        to:(newFile asString).

                ] ifFalse:[

                    filename copyTo:newFile.

                ].

            ].

            self colOfCopiedFiles add:filename

        ]

    ].

    DirectoryContents flushCachedDirectory:aDirectory.

    result := true.

! !

!FileOperation::Create class methodsFor:'actions'!

createDirectory:newName

    |instance|

    instance := self new.

    instance createDirectory:newName.

    ^ instance

!

createFile:newName

    |instance|

    instance := self new.

    instance createFile:newName.

    ^ instance

! !

!FileOperation::Create class methodsFor:'documentation'!

version

! !

!FileOperation::Create methodsFor:'actions'!

createDirectory:newName

    |msg|

    newName exists ifTrue:[

        DialogBox warn:(newName, ' already exists.').

        result := false.

        ^ self

    ].

    newName makeDirectory ifFalse:[

        msg := errorString := ('cannot create directory '', newName,'' !!') , '\\(' , (OperatingSystem lastErrorString) , ')'.

        errorString := msg withCRs.

        DialogBox warn:errorString.

        result := false.

        ^ self

    ].

    result := true.

!

createFile:file

    "create an empty file"

    |aStream newName msg|

    newName := file baseName.

    file exists ifTrue:[

        (Dialog 

            confirm:(newName, ' already exists\\truncate ?') withCRs

            yesLabel:('Truncate')

            noLabel:('Cancel'))

        ifFalse:[^ self].

    ].

    FileStream openErrorSignal handle:[:ex|

        msg := ('Cannot create file '', newName,'' !!') , '\\(' , (FileStream lastErrorString) , ')'.

        errorString := msg withCRs.

        ^ DialogBox warn:errorString

    ] do:[    

        aStream := file newReadWriteStream.

    ].

    aStream notNil ifTrue:[

        aStream close.

    ] ifFalse:[

        msg := ('Cannot create file '', newName, '' !!') , '\\(' , (FileStream lastErrorString) , ')'.

        errorString := msg withCRs.

        ^ DialogBox warn:errorString

    ].

! !

!FileOperation::Delete class methodsFor:'actions'!

deleteFile:aFileOrDirectory

    "delete current selected files/directories

    "

    |instance|

    instance := self new.

    instance deleteFile:aFileOrDirectory.

    ^ instance

!

deleteFiles:aColOfFiles

    "delete current selected files/directories

    "

    |instance|

    instance := self new.

    instance deleteFiles:aColOfFiles.

    ^ instance

! !

!FileOperation::Delete class methodsFor:'documentation'!

version

! !

!FileOperation::Delete methodsFor:'actions'!

deleteFile:aFileOrDirectory

    | file isDirectory |

    aFileOrDirectory notNil ifTrue:[

        file := aFileOrDirectory asFilename.

        file exists ifTrue:[

            isDirectory := file isDirectory.

            Error handle:[:ex|

                "was not able to remove it"

                Smalltalk beep.

                self errorString:((ex description, '\', ex signal notifierString) withCRs).

                result := false.

            ] do:[

                isDirectory ifTrue:[file recursiveRemove] ifFalse:[file remove].

             "/ flush parent directory or directory

                DirectoryContents flushCachedDirectory:(file directory).

            ]

        ]

    ].

    result := true.