"{ 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:'createdFile'

	classVariableNames:'LastCreatedDirectory LastCreatedFile'

	poolDictionaries:''

	privateIn:FileOperation

!

FileOperation subclass:#Delete

	instanceVariableNames:'fileName'

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

fileExistDialogForNewFile:newFile oldFile:oldFile withCancel:aBoolean

    |msg|

    newFile exists ifTrue:[

        msg := 'Overwrite %1 of %2 with size %3\with %4 of %5 and with size %6 ?'.

        msg := AbstractFileBrowser classResources 

                string:msg

                withArgs:(Array

                    with:newFile asString allBold

                    with:(newFile modificationTime printStringFormat:'%(Day)-%(mon)-%(year) %h:%m:%s')

                    with:newFile fileSize

                    with:oldFile asString 

                    with:(oldFile modificationTime printStringFormat:'%(Day)-%(mon)-%(year) %h:%m:%s')

                    with:oldFile fileSize).

        msg := msg withCRs.

        aBoolean ifTrue:[

            ^ Dialog confirmWithCancel:msg.

        ] ifFalse:[

            ^ Dialog confirm:msg.

        ].

    ].

    ^ 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:[

        Dialog 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 fileExistDialogForNewFile:newFile oldFile:aSourceFile withCancel:false) 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.

        ^ self

    ] do:[

        sourceIsDirectory ifTrue:[

            OperatingSystem recursiveCopyDirectory:(aSourceFile pathName) 

                                                to:newFile.

        ] ifFalse:[

            aSourceFile copyTo:newFile.

        ].

    ].

    DirectoryContents flushCachedDirectoryFor:(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:[

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

        result := false.

        ^ self

    ].

    (aDirectory isDirectory not) ifTrue:[

        Dialog 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 withoutSuffix baseName, self class copyMoveIfExistSuffixString, '.', suffix.

                    newFile := aDirectory construct:fileString.

                ].

            ] ifFalse:[

                overWriteWarning ifTrue:[

                    askResult := (self fileExistDialogForNewFile:newFile oldFile:filename 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 flushCachedDirectoryFor:aDirectory.

    result := true.

! !

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

createDirectoryIn:aDirectory

    |instance|

    instance := self new.

    instance createDirectoryIn:aDirectory.

    ^ instance

!

createFileIn:aFile

    |instance|

    instance := self new.

    instance createFileIn:aFile.

    ^ instance

!

createHardLinkIn:aFile

    "create an new hard link in a files directory"

    |instance|

    instance := self new.

    instance createHardLinkIn:aFile.

    ^ instance

!

createSoftLinkIn:aFile

    "create an new soft link in a files directory"

    |instance|

    instance := self new.

    instance createSoftLinkIn:aFile.

    ^ instance

! !

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

version

! !

!FileOperation::Create methodsFor:'accessing'!

createdFile

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

    ^ createdFile

!

createdFile:something

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

    createdFile := something.

! !

!FileOperation::Create methodsFor:'actions'!

createDirectoryIn:startDirectory

    |defaultDirectory|

    "/ stupid - that one already exists

"/    LastCreatedDirectory notNil ifTrue:[

"/        defaultDirectory := LastCreatedDirectory baseName.

"/    ].

    ^ self createDirectoryIn:startDirectory initialAnswer:defaultDirectory

!

createDirectoryIn:startDirectory initialAnswer:initialAnswerArg

    |resources initialAnswer msg startBaseName newName newDir|

    resources := AbstractFileBrowser classResources.

    startBaseName := startDirectory baseName.

    initialAnswer := initialAnswerArg.

    (startDirectory construct:initialAnswer) exists ifTrue:[

        initialAnswer := nil.

    ].

    newName := Dialog

                    request:(resources string:'Create New Directory in %1:' with:startBaseName allBold)

                    initialAnswer:initialAnswer

                    okLabel:(resources string:'Create')

                    title:(resources string:'Create Directory')

                    onCancel:[

                        self result:false. 

                        ^ self

                    ].

    newName isEmpty ifTrue:[

        self result:false. 

        ^ self

    ].

    newDir := startDirectory construct:newName.

    newDir exists ifTrue:[

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

        result := false.

        ^ self

    ].

    newDir makeDirectory ifFalse:[

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

        errorString := msg.

        Dialog warn:errorString.

        result := false.

        ^ self

    ].

    self createdFile:newDir.

    LastCreatedDirectory := newDir.

    result := true.

!

createFileIn:aFile

    "create an empty file"

    |resources aStream msg file directory newName defaultFile|

    resources := AbstractFileBrowser classResources.

    aFile isDirectory ifTrue:[

        directory := aFile

    ] ifFalse:[

        directory := aFile directory.

        file := aFile

    ].

    LastCreatedFile isNil ifTrue:[

        defaultFile := aFile baseName.

    ] ifFalse:[

        defaultFile := LastCreatedFile baseName.

    ].

    newName := Dialog