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

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

        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 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.

        ].

    ].

!

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

        ]

    ].

    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

    |msg startBaseName defaultDirectory newName newFile|

    startBaseName := startDirectory baseName.

    LastCreatedDirectory isNil ifTrue:[

        defaultDirectory := startBaseName.

    ] ifFalse:[

        defaultDirectory := LastCreatedDirectory baseName.

    ].

    newName := Dialog

                    request:('Create new directory in ', startBaseName)

                    initialAnswer:defaultDirectory

                    okLabel:'Create'

                    title:'Create Directory'

                    onCancel:[

                        self result:false. 

                        ^ self

                    ].

    newName isEmpty ifTrue:[

        self result:false. 

        ^ self

    ].

    newFile := startDirectory construct:newName.

    newFile exists ifTrue:[

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

        result := false.

        ^ self

    ].

    newFile makeDirectory ifFalse:[

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

        errorString := msg.

        Dialog warn:errorString.

        result := false.

        ^ self

    ].

    self createdFile:newFile.

    LastCreatedDirectory := newFile.

    result := true.

!

createFileIn:aFile

    "create an empty file"

    |aStream msg file directory newName defaultFile|

    aFile isDirectory ifTrue:[

        directory := aFile

    ] ifFalse:[

        directory := aFile directory.

        file := aFile

    ].

    LastCreatedFile isNil ifTrue:[

        defaultFile := aFile baseName.

    ] ifFalse:[

        defaultFile := LastCreatedFile baseName.

    ].

    newName := Dialog

                    request:('Create new file in ', directory baseName)

                    initialAnswer:defaultFile

                    okLabel:'Create'

                    title:'Create a File'

                    onCancel:[

                        self result:false. 

                        ^ self