"

 COPYRIGHT (c) 2003 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

Object subclass:#FileOperation

	instanceVariableNames:'errorString result'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Support'

!

FileOperation subclass:#Copy

	instanceVariableNames:'copiedFiles newFiles'

	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::Delete subclass:#Erase

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:FileOperation

!

FileOperation subclass:#Move

	instanceVariableNames:'movedFiles'

	classVariableNames:''

	poolDictionaries:''

	privateIn:FileOperation

!

FileOperation subclass:#Rename

	instanceVariableNames:'renamedFiles'

	classVariableNames:''

	poolDictionaries:''

	privateIn:FileOperation

!

!FileOperation class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2003 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

! !

!FileOperation class methodsFor:'actions'!

copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarningBoolean copyFileIfSame:copyIfSameBoolean

    ^ Copy 

        copyFile:aSourceFile to:aDestFile 

        withOverWriteWarning:overWriteWarningBoolean 

        copyFileIfSame:copyIfSameBoolean

!

copyFiles:aColOfSourceFiles to:aDirectory

    ^ Copy copyFiles:aColOfSourceFiles to:aDirectory

!

createDirectoryIn:aDirectory

    ^ Create createDirectoryIn:aDirectory

!

createDirectoryIn:aDirectory initialAnswer:defaultAnswer

    ^ Create createDirectoryIn:aDirectory initialAnswer:defaultAnswer

!

createFileIn:aDirectory

    ^ Create createFileIn:aDirectory

!

createHardLinkIn:dir

    ^ Create createHardLinkIn:dir

!

createLinkIn:dir soft:soft

    ^ Create createLinkIn:dir soft:soft

!

createSoftLinkIn:dir

    ^ Create createSoftLinkIn:dir

!

deleteFiles:colOfFiles confirm:confirm

    ^ Delete deleteFiles:colOfFiles confirm:confirm

!

eraseFiles:colOfFiles confirm:confirm

    ^ Erase deleteFiles:colOfFiles confirm:confirm

!

moveFile:aSourceFile to:aDestFile

    ^ Move moveFile:aSourceFile to:aDestFile

!

moveFiles:aCollectionOfFiles to:aDestDirectory

    ^ Move moveFiles:aCollectionOfFiles to:aDestDirectory

!

renameFile:filename to:newFileString

    ^ Rename renameFile:filename to:newFileString

!

renameFiles:aCollectionofFilenames

    ^ Rename renameFiles:aCollectionofFilenames

! !

!FileOperation class methodsFor:'defaults'!

suffixForCopyOverExistingFile

    ^ '.copy'

! !

!FileOperation methodsFor:'accessing'!

errorString

    ^ errorString

!

errorString:something

    errorString := something.

!

result

    ^ result

!

result:something

    result := something.

! !

!FileOperation methodsFor:'dialogs'!

fileExistsDialogForNewFile:newFile oldFile:oldFile withCancel:withCancel

    "return true, if the file should be moved/copied.

     Ask user if oldFile exists."

    ^ self fileExistsDialogForNewFile:newFile oldFile:oldFile withCancel:withCancel withRemoveIfSame:false.

!

fileExistsDialogForNewFile:newFile oldFile:oldFile withCancel:withCancel withRemoveIfSame:withRemoveIfSame

    "return true, if the file should be moved/copied.

     If oldFile exists, ask user.

     If withRemoveIfSame is true, two additional possible values are returned:

        #removeSource and #removeDestination.

    "

    |msg oldSize newSize sameContents resources sourceType destType|

    newFile exists ifFalse:[ ^ true ].

    oldSize := oldFile fileSize.

    newSize := newFile fileSize.

    sameContents := false.

    newFile isDirectory ifTrue:[

        oldFile isDirectory ifTrue:[

            "/ could (should?) recursively look for same contents here...

        ].

    ] ifFalse:[

        oldFile isDirectory ifFalse:[

            sameContents := oldSize = newSize and:[oldFile sameContentsAs:newFile].

        ]

    ].

    "/ for now:

    oldFile isDirectory ~~ newFile isDirectory ifTrue:[

        Dialog warn:(resources string:'Will not overwrite directory with file and vice versa.').

        ^  false.

    ].

    sourceType := newFile isDirectory ifTrue:'directory' ifFalse:'file'.

    destType := oldFile isDirectory ifTrue:'directory' ifFalse:'file'.

    sameContents ifTrue:[

        msg := 'Overwrite existing destination %7:\\  %1\    size: %3 of %2\\with source (same contents):\\  %4\    size: %6 of %5'.

    ] ifFalse:[

        msg := 'Overwrite existing destination %7:\\  %1\    size: %3 of %2\\with source:\\  %4\    size: %6 of %5'.

    ].

    resources := AbstractFileBrowser classResources.

    msg := resources 

            stringWithCRs:msg

            withArgs:(Array

                with:newFile asString allBold

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

                with:newSize

                with:oldFile asString allBold 

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

                with:oldSize

                with:destType).

    (sameContents and:[withRemoveIfSame]) ifTrue:[

        ^ OptionBox  

                  request:msg

                  label:(resources string:'Overwrite existing file')

                  image:(YesNoBox iconBitmap)

                  buttonLabels:(resources array:( #('No' 'Remove Source' 'Remove Destination' 'Yes' ) , (withCancel ifTrue:[#('Cancel')] ifFalse:[#()])))

                  values:#( false #removeSource #removeDestination true )

                  default:#removeSource

                  onCancel:nil.

    ] ifFalse:[

        ^ Dialog confirm:msg withCancel:withCancel.

    ].

! !

!FileOperation methodsFor:'queries'!

isErase

    ^ false

! !

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

copyFile:aSourceFile to:aDestFile

    |instance|

    instance := self new.

    instance copyFile:aSourceFile to:aDestFile.

    ^ instance

!

copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning

    |instance|

    instance := self new.

    instance copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning.

    ^ instance

!

copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarningBoolean copyFileIfSame:copyIfSameBoolean

    |instance|

    instance := self new.

    instance copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarningBoolean copyFileIfSame:copyIfSameBoolean.

    ^ instance

!

copyFiles:aColOfSourceFiles to:aDirectory

    |instance|

    instance := self new.

    instance copyFiles:aColOfSourceFiles to:aDirectory.

    ^ instance

!

copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning

    |instance|

    instance := self new.

    instance copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning.

    ^ instance

!

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

    |instance|

    instance := self new.

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

    ^ instance

! !

!FileOperation::Copy methodsFor:'accessing'!

colOfCopiedFiles

    "obsolete - bad name"

    ^ self collectionOfCopiedFiles

!

collectionOfCopiedFiles

    copiedFiles isNil ifTrue:[

        copiedFiles := OrderedCollection new.

    ].

    ^ copiedFiles

!

collectionOfNewFiles

    newFiles isNil ifTrue:[

        newFiles := OrderedCollection new.

    ].

    ^ newFiles

! !

!FileOperation::Copy methodsFor:'actions'!

copyFile:aSourceFile to:aDestFile

    self copyFile:aSourceFile to:aDestFile withOverWriteWarning:true

!

copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning

    self copyFile:aSourceFile to:aDestFile withOverWriteWarning:true copyFileIfSame: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.

! !

!FileOperation::Copy methodsFor:'actions-basic'!

copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarningBoolean copyFileIfSame:copyIfSameBoolean

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

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

        result := false.

        ^ self

    ].

    (newFile exists) ifTrue:[

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

            [newFile exists] whileTrue:[

                suffix := newFile suffix.

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

                newFile := targetDirectory construct:fileString.

            ].

        ] ifFalse:[

            overWriteWarningBoolean ifTrue:[

                (self fileExistsDialogForNewFile:newFile oldFile:aSourceFile withCancel:false withRemoveIfSame: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 pathName).

        ] ifFalse:[

            aSourceFile copyTo:newFile.

        ].

    ].

    DirectoryContents flushCachedDirectoryFor:(aSourceFile directory).

    result := true.

!

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

    |newFile suffix fileString sourceIsDirectory doCopy|

    (aDirectory exists) ifFalse:[

        Dialog warn:'Can''t copy to non-existing directory ', aDirectory asString. 

        result := false.

        ^ self

    ].

    (aDirectory isDirectory) ifFalse:[

        Dialog warn:'Destination ', aDirectory asString, ' is not a directory'. 

        result := false.

        ^ self

    ].

    aColOfSourceFiles do:[:filename |

        newFile := aDirectory construct:(filename baseName).

        sourceIsDirectory := filename isDirectory.

        doCopy := true.

        (newFile exists) ifTrue:[

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

                [newFile exists] whileTrue:[

                    suffix := newFile suffix.

                    fileString := newFile withoutSuffix baseName, self class suffixForCopyOverExistingFile.

                    suffix notEmpty ifTrue:[

                        fileString := fileString, '.', suffix.

                    ].

                    newFile := aDirectory construct:fileString.

                ].

            ] ifFalse:[

                overWriteWarning ifTrue:[

                    doCopy := (self fileExistsDialogForNewFile:newFile oldFile:filename withCancel:(aColOfSourceFiles size > 1) withRemoveIfSame:false).

                    doCopy isNil ifTrue:[

                        " abort pressed "

                        result := false.

                        ^ self.

                    ]

                ]

            ].

        ].

        doCopy 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') ifTrue:[

                        ex proceed.

                    ] ifFalse:[

                        ^ self.

                    ].

            ] do:[

                sourceIsDirectory ifTrue:[

                    OperatingSystem recursiveCopyDirectory:(filename asString)  

                                                        to:(newFile asString).

                ] ifFalse:[

                    filename copyTo:newFile.

                ].

            ].

            self collectionOfCopiedFiles add:filename.

            self collectionOfNewFiles add:newFile.

        ]

    ].

    DirectoryContents flushCachedDirectoryFor:aDirectory.

    result := true.

! !

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

createDirectoryIn:aDirectory

    |instance|

    instance := self new.

    instance createDirectoryIn:aDirectory.

    ^ instance

!

createDirectoryIn:aDirectory initialAnswer:defaultAnswer

    |instance|

    instance := self new.

    instance createDirectoryIn:aDirectory initialAnswer:defaultAnswer.

    ^ instance

!

createFileIn:aFile

    |instance|

    instance := self new.

    instance createFileIn:aFile.

    ^ instance

!

createHardLinkIn:aFile