"

 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' }"

"{ NameSpace: Smalltalk }"

Object subclass:#FileOperation

	instanceVariableNames:'errorString result actionForAll'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Support'

!

FileOperation subclass:#Copy

	instanceVariableNames:'copiedFiles newFiles'

	classVariableNames:''

	poolDictionaries:''

	privateIn:FileOperation

!

FileOperation::Copy subclass:#CopyCorrupted

	instanceVariableNames:''

	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:'instance creation'!

copyCorruptedFile:aSourceFile to:aDestFile

    ^ CopyCorrupted new

        copyFile:aSourceFile to:aDestFile withOverWriteWarning:false copyFileIfSame:false

    "Created: / 07-02-2007 / 18:41:24 / cg"

!

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 class methodsFor:'queries'!

isAbstract

    ^ self == FileOperation

! !

!FileOperation methodsFor:'accessing'!

errorString

    ^ errorString

!

errorString:something

    errorString := something.

!

result

    ^ result

!

result:something

    result := something.

! !

!FileOperation methodsFor:'dialogs & helpers'!

checkDirectoryExists:aDirectory

    aDirectory exists ifFalse:[

        (Dialog confirm:(AbstractFileBrowser classResources 

                            stringWithCRs:'Non-existing directory: %1\\Create?' 

                            with:aDirectory asString)

        ) ifFalse:[

            ^ false

        ].

        aDirectory recursiveMakeDirectory.

        aDirectory exists ifFalse:[

            Dialog warn:(AbstractFileBrowser classResources 

                            string:'Failed to create directory: %1').

            ^ false

        ].

    ].

    aDirectory isDirectory ifFalse:[

        Dialog warn:('Not a directory: %1' bindWith:aDirectory asString).

        ^ false

    ].

    ^ true

    "Created: / 07-02-2007 / 18:30:49 / cg"

    "Modified: / 09-12-2010 / 08:45:45 / cg"

!

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.

    "

    ^ self

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

        withAllAction:false

    "Modified: / 20-03-2012 / 11:44:51 / cg"

!

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

    "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 labels values default olderOrNewer

     forAllHolder answer oldFileIsDirectory newFileIsDirectory oldFileTime newFileTime|

    newFile exists ifFalse:[ ^ true ].

    oldSize := oldFile fileSize.

    newSize := newFile fileSize.

    sameContents := false.

    oldFileIsDirectory := oldFile isDirectory.

    newFileIsDirectory := newFile isDirectory.

    newFileIsDirectory ifTrue:[

        oldFileIsDirectory ifTrue:[

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

        ].

    ] ifFalse:[

        oldFileIsDirectory ifFalse:[

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

        ]

    ].

    resources := AbstractFileBrowser classResources.

    "/ for now:

    oldFileIsDirectory ~~ newFileIsDirectory ifTrue:[

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

        ^  false.

    ].

    sourceType := newFileIsDirectory ifTrue:'directory' ifFalse:'file'.

    destType := oldFileIsDirectory ifTrue:'directory' ifFalse:'file'.

    sameContents ifTrue:[

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

    ] ifFalse:[

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

    ].

    newFileTime := newFile modificationTime ? Timestamp now.

    oldFileTime := oldFile modificationTime ? Timestamp now.

    olderOrNewer := newFileTime < oldFileTime    

                    ifTrue:[ 'newer' ]

                    ifFalse:[ 'older' ].

    msg := resources

            stringWithCRs:msg

            withArgs:(Array

                with:newFile asString allBold

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

                with:newSize

                with:oldFile asString allBold

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

                with:oldSize

                with:destType

                with:(resources string:olderOrNewer) ).

    (sameContents and:[withRemoveIfSame]) ifTrue:[

        labels := #( 'No' 'Remove Destination' 'Remove Source'  'Yes').

        values := #( false #removeDestination #removeSource true ).

        withCancel ifTrue:[ 

            labels := #('Cancel') , labels.

            values := #( nil ) , values. 

        ].

        default := #removeSource.

    ] ifFalse:[

        labels := #( 'No' 'Yes').

        values := #( false true ).

        withCancel ifTrue:[ 

            labels := #('Cancel') , labels.

            values := #( nil ) , values. 

        ].

        default := false.

    ].

    forAllHolder := false asValue.

    Dialog modifyingBoxWith:[:box |

        withAllAction ifTrue:[

            box addVerticalSpace:10.

            box verticalPanel 

                 add:(CheckBox 

                        label:'Same action for all' 

                        model:forAllHolder).

        ].

    ] do:[

        answer := OptionBox

              request:msg

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

              image:(YesNoBox iconBitmap)

              buttonLabels:(resources array:labels)

              values:values

              default:default

              onCancel:nil.

    ].

    (withAllAction and:[answer notNil]) ifTrue:[

        actionForAll := answer

    ].

    ^ answer

    "Created: / 20-03-2012 / 11:44:34 / cg"

! !

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

basicCopy:aSourceFile to:newFile

    aSourceFile isDirectory ifTrue:[

        aSourceFile recursiveCopyTo:newFile.

        "/ OperatingSystem recursiveCopyDirectory:(aSourceFile pathName) to:(newFile pathName).

    ] ifFalse:[

        aSourceFile copyTo:newFile.

    ].

    "Created: / 07-02-2007 / 18:35:52 / cg"

!

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

    |newFile fileString targetDirectory suffix|

    aDestFile isDirectory ifTrue:[

        targetDirectory := aDestFile.

        newFile := aDestFile construct:(aSourceFile baseName).

    ] ifFalse:[

        targetDirectory := aDestFile directory.

        newFile := aDestFile.

    ].

    "/ do not copy if destination directory doesnt exist.

    (self checkDirectoryExists:targetDirectory) ifFalse:[

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

                (Dialog confirm:('Destination "%1" exists - overwrite?' bindWith:aDestFile)) ifFalse:[

                    result := false.

                    ^ self.

                ]

            ]

        ].

    ].

    StreamError handle:[:ex|