"

 COPYRIGHT (c) 2006 by eXept Software AG

 COPYRIGHT (c) 2016 Jan Vrany

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

SourceCodeManagerUtilities subclass:#PerforceSourceCodeManagerUtilities

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'System-SourceCodeManagement'

!

SimpleDialog subclass:#P4CheckinInfoDialog

	instanceVariableNames:'descriptionHolder logMessageHolder isStableHolder tagHolder

		quickCheckInHolder quickCheckInVisibleHolder allowEmptyLogMessage

		warningMessageHolder logHistory logHistoryHeadLineSelectionHolder

		submitHolder'

	classVariableNames:''

	poolDictionaries:''

	privateIn:PerforceSourceCodeManagerUtilities

!

SimpleDialog subclass:#SubmitInfoDialog

	instanceVariableNames:'descriptionHolder logMessageHolder isStableHolder tagHolder

		quickCheckInHolder quickCheckInVisibleHolder allowEmptyLogMessage

		warningMessageHolder filesHolder tagItInHolder'

	classVariableNames:'LastSourceLogMessage'

	poolDictionaries:''

	privateIn:PerforceSourceCodeManagerUtilities

!

Object subclass:#WorkSpace

	instanceVariableNames:'client host owner root views perforceSettings temporaryWorkSpace

		tempDirectory'

	classVariableNames:'PerforceCommandSemaphore'

	poolDictionaries:''

	privateIn:PerforceSourceCodeManagerUtilities

!

Object subclass:#View

	instanceVariableNames:'depot local workspace type'

	classVariableNames:''

	poolDictionaries:''

	privateIn:PerforceSourceCodeManagerUtilities::WorkSpace

!

!PerforceSourceCodeManagerUtilities class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2006 by eXept Software AG

 COPYRIGHT (c) 2016 Jan Vrany

              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.

"

! !

!PerforceSourceCodeManagerUtilities class methodsFor:'class access'!

checkInInfoDialogClass

    ^P4CheckinInfoDialog

!

submitInfoDialogClass

    ^ SubmitInfoDialog

    "Created: / 01-06-2012 / 11:09:15 / cg"

!

workSpaceClass

    ^ WorkSpace

    "Created: / 01-06-2012 / 11:13:49 / cg"

! !

!PerforceSourceCodeManagerUtilities methodsFor:'utilities-cvs'!

askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName forNewContainer:forNewContainer

    "open a dialog asking for a source container;

     return a dictionary containing module, package and filename,

     or nil if canceled."

    |box y component answer

     moduleHolder packageHolder fileNameHolder

     module package fileName

     knownContainers knownPackages packageUpdater

     packageBoxComponent fileNameBoxComponent fileNameUpdater|

    knownContainers := Set new.

    Smalltalk allClassesDo:[:cls | |pckg|

        pckg := cls package.

        pckg size > 0 ifTrue:[

            knownContainers add:(pckg upTo:$:)

        ]

    ].

    knownContainers := knownContainers asOrderedCollection reject:[:module | module isBlank].

    knownContainers sort.

    packageUpdater := [

        |theModulePrefix|

        theModulePrefix := moduleHolder value , ':'.

        Cursor wait showWhile:[

            knownPackages := Set new.

            Smalltalk allClassesDo:[:cls | |pckg idx|

                pckg := cls package.

                pckg size > 0 ifTrue:[

                    (pckg startsWith:theModulePrefix) ifTrue:[

                        idx := pckg indexOf:$:.

                        knownPackages add:(pckg copyFrom:idx + 1)

                    ]

                ]

            ].

            knownPackages := knownPackages asOrderedCollection.

            knownPackages := knownPackages select:[:package | package isBlank not].

            knownPackages sort.

            packageBoxComponent list:knownPackages.

        ].

    ].

    fileNameUpdater := [

        |module package files|

        Cursor read showWhile:[

            module := moduleHolder value ? (PackageId noProjectID).

            package := packageHolder value ? (PackageId noProjectID).

            files := PerforceSourceCodeManager getExistingContainersInModule:module directory:package.

            files := files asOrderedCollection.

            files := files select:[:eachFile | eachFile asFilename hasSuffix:'st'].

            files sort.

            fileNameBoxComponent list:files.

        ].

    ].

    moduleHolder := initialModule asValue.

    packageHolder := initialPackage asValue.

    fileNameHolder := initialFileName asValue.

    "/

    "/ open a dialog for this

    "/

    box := DialogBox new.

    box label:title.

    component := box addTextLabel:boxText withCRs.

    component adjust:#left; borderWidth:0.

    box addVerticalSpace.

    box addVerticalSpace.

    y := box yPosition.

    component := box addTextLabel:(resources string:'Module:').

    component width:0.4; adjust:#right.

    box yPosition:y.

    component := box addComboBoxOn:moduleHolder tabable:true.

    component list:knownContainers.

"/    component := box addInputFieldOn:moduleHolder tabable:true.

    component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.

    box addVerticalSpace.

    y := box yPosition.

    component := box addTextLabel:(resources string:'Package:').

    component width:0.4; adjust:#right.

    box yPosition:y.

    packageBoxComponent := component := box addComboBoxOn:packageHolder tabable:true.

"/    component := box addInputFieldOn:packageHolder tabable:true.

    component width:0.6; left:0.4; "immediateAccept:true; "acceptOnLeave:true; cursorMovementWhenUpdating:#beginOfLine.

    packageUpdater value.

    moduleHolder onChangeEvaluate:packageUpdater.

    box addVerticalSpace.

    y := box yPosition.

    component := box addTextLabel:(resources string:'Filename:').

    component width:0.4; adjust:#right.

    box yPosition:y.

    forNewContainer ifTrue:[

        component := box addInputFieldOn:fileNameHolder tabable:true.

        component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.

    ] ifFalse:[

        fileNameBoxComponent := component := box addComboBoxOn:fileNameHolder tabable:true.

        component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.

        fileNameUpdater value.

        packageHolder onChangeEvaluate:fileNameUpdater.

    ].

    box addVerticalSpace.

    notice notNil ifTrue:[

        component := box addTextLabel:notice.

        component adjust:#left; borderWidth:0.

    ].

    box addVerticalSpace.

    box addAbortAndOkButtons.

    (YesToAllNotification notNil and:[YesToAllNotification isHandled]) ifTrue:[

        component := Button label:(resources string:'Yes to All').

        component action:[

                            YesToAllNotification queryWith:true.

                            box doAccept.

                            box okPressed.

                         ].

        box addButton:component.

    ].

    (AbortAllSignal isHandled) ifTrue:[

        component := Button label:(resources string:'Cancel All').

        component action:[

                            box hide.

                            AbortAllSignal raiseSignal.

                         ].

        box addButton:component before:nil.

    ].

    (YesToAllQuery notNil and:[YesToAllQuery isHandled]) ifTrue:[

        answer := YesToAllQuery query.

    ].

    answer isNil ifTrue:[

        box showAtPointer.

        answer := box accepted

    ].

    box destroy.

    answer ifFalse:[

        ^ nil

    ].

    module := moduleHolder value withoutSpaces.

    package := packageHolder value withoutSpaces.

    fileName := fileNameHolder value withoutSpaces.

    ^ Dictionary new

        at:#module put:module;

        at:#package put:package;

        at:#fileName put:fileName;

        yourself

    "

     self

        askForContainer:'enter container' title:'container' note:'some note'

        initialModule:'foo' initialPackage:'bar' initialFileName:'baz'

    "

    "Modified: / 29-08-2013 / 12:26:55 / cg"

!

checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass usingManager:managerOrNil

    "check a class into the source repository.

     If the argument, aLogInfoOrNil isNil, ask interactively for log-message.

     If doCheckClass is true, the class is checked for send of halts etc."

    |logMessage checkinInfo mgr pri doSubmit|

    doSubmit := false.

    aClass isLoaded ifFalse:[

        self information:(resources string:'Cannot checkin unloaded classes (%1)' with:aClass name).

        ^ false.

    ].

    mgr := managerOrNil.

    mgr isNil ifTrue:[

        mgr := self sourceCodeManagerFor:aClass.

        mgr isNil ifTrue:[

            ^ false

        ]

    ].

    self ensureCorrectVersionMethodsInClass:aClass usingManager:mgr.

    mgr supportsCheckinLogMessages ifTrue:[

        (self

            getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil

            forClass:aClass

            valuesInto:[:logMessageRet :checkinInfoRet |

                logMessage := logMessageRet.

                checkinInfo := checkinInfoRet.

                checkinInfo notNil ifTrue:[

                    doSubmit := checkinInfo submitHolder value.

                ].

            ]

        ) ifFalse:[^ false].

    ].

    (self classIsNotYetInRepository:aClass withManager:mgr) ifTrue:[

        (self createSourceContainerForClass:aClass usingManager:mgr) ifFalse:[

"/            self warn:'did not create a container for ''' , aClass name , ''''.

            ^ false

        ].

        ^ true.

    ].

    self activityNotification:(resources string:'PerforceSourceCodeManager [info]: checking in %1' with:aClass name).

    pri := Processor activePriority.

    Processor activeProcess withPriority:pri-1 to:pri

    do:[

        |revision aborted|

        aborted := false.

        AbortOperationRequest handle:[:ex |

            aborted := true.

            ex return.

        ] do:[

            |checkinState cause|

            checkinState := false.

            cause := ''.

            [

                checkinState := mgr checkinClass:aClass logMessage:logMessage submit:doSubmit

            ] on:SourceCodeManagerError do:[:ex|

                cause := ex description.

                ex proceed.

            ].

            checkinState ifFalse:[

                Transcript showCR:'checkin of ''' , aClass name , ''' failed - ', cause.

                self warn:(resources stringWithCRs:'Checkin of "%1" failed\\' with:aClass name allBold),cause.

                ^ false.

            ].

            checkinInfo notNil ifTrue:[

                checkinInfo isStable ifTrue:[

                    "set stable tag for class that has been checked in"

                    self tagClass:aClass as:#stable.

                ].

                checkinInfo tagIt ifTrue:[

                    "set an additional tag for class that has been checked in"

                    self tagClass:aClass as:(checkinInfo tag).

                ].

            ].

        ].

        aborted ifTrue:[  |con|

            Transcript showCR:'Checkin of ''' , aClass name , ''' aborted'.

            AbortAllOperationWantedQuery query ifTrue:[

                (Dialog

                    confirm:(resources stringWithCRs:'Checkin of "%1" aborted.\\Cancel all ?' with:aClass name)

                    default:false)

                ifTrue:[

                    AbortAllOperationRequest raise.

                ]

            ].

            ^ false.

        ].

    ].

    ^ true

    "Created: / 21-12-2011 / 18:19:14 / cg"

!

defineSourceContainerForClass:aClass usingManager:mgr title:title text:boxText createDirectories:createDirs createContainer:createContainer

    "let user specify the source-repository values for aClass"

    |className

     "oldModule oldPackage" oldFileName

     module directory fileName nameSpace nameSpacePrefix

     info project nm creatingNew msg

     answer doCheckinWithoutAsking forceCheckIn rslt note

     requiredPackage projectDefinitionClass packageId|

    mgr isNil ifTrue:[^  false].

    aClass isLoaded ifFalse:[

        self warn:(resources string:'Please load the %1-class first' with:aClass name).

        ^ false.

    ].

    className := aClass name.

    aClass isProjectDefinition ifTrue:[

        "/ no way - their package is already known and fix.

        module := aClass module.

        directory := aClass moduleDirectory.

    ] ifFalse:[

        "/

        "/ defaults, if nothing at all is known

        "/

        projectDefinitionClass := aClass projectDefinitionClass.

        projectDefinitionClass notNil ifTrue:[

            packageId := PackageId from:projectDefinitionClass package.

            module := packageId module.

            directory := packageId directory.

        ] ifFalse:[

            (module := LastModule) isNil ifTrue:[

                module := (OperatingSystem getLoginName).

            ].

            (directory := LastPackage) isNil ifTrue:[

                directory := 'private'.

            ].

        ].

    ].

    "/

    "/ try to extract some useful defaults from the current project

    "/

    (Project notNil and:[(project := Project current) notNil]) ifTrue:[

        directory isNil ifTrue:[

            (nm := project repositoryDirectory) isNil ifTrue:[

                nm := project name

            ].

            directory := nm.

        ].

        module isNil ifTrue:[

            (nm := project repositoryModule) notNil ifTrue:[

                module := nm

            ]

        ].

    ].

    "/

    "/ ask the sourceCodeManager if it knows anything about that class

    "/ if so, take that as a default.

    "/

    info := mgr sourceInfoOfClass:aClass.

    info notNil ifTrue:[

        true "module ~= LastModule" ifTrue:[

            (info includesKey:#module) ifTrue:[

                module := (info at:#module).

            ].

        ].

"/        true "package ~= LastPackage" ifTrue:[

"/            (info includesKey:#directory) ifTrue:[

"/                package := (info at:#directory).

"/            ].

"/        ].

        fileName := mgr containerFromSourceInfo:info.

        (nameSpace := aClass nameSpace) ~~ Smalltalk ifTrue:[

            nameSpacePrefix := nameSpace name , '::'.

            (fileName startsWith:nameSpacePrefix) ifTrue:[

                fileName := fileName copyFrom:(nameSpacePrefix size + 1).

            ]

        ].

"/        (info includesKey:#fileName) ifTrue:[

"/            fileName := (info at:#fileName).

"/        ] ifFalse:[

"/            (info includesKey:#expectedFileName) ifTrue:[

"/                fileName := (info at:#expectedFileName).

"/            ] ifFalse:[

"/                (info includesKey:#classFileNameBase) ifTrue:[

"/                    fileName := (info at:#classFileNameBase) , '.st'.

"/                ]

"/            ]

"/        ]

    ].

    fileName isNil ifTrue:[

        fileName := (Smalltalk fileNameForClass:aClass) , '.st'.

    ].

    OperatingSystem isMSDOSlike ifTrue:[

        module replaceAll:$\ with:$/.

        directory replaceAll:$\ with:$/.

    ].

    "/

    "/ check for conflicts (i.e. if such a container already exists) ...

    "/

    doCheckinWithoutAsking := false.

"/false ifTrue:[

"/    (mgr checkForExistingContainer:fileName inModule:module directory:directory) ifTrue:[

"/        answer := Dialog confirmWithCancel:(resources

"/                            string:'About to change the source container.

"/

"/Notice: there is a container for %1 in:

"/

"/    %2 / %3 / %4

"/

"/Do you want to change it or check right into that container ?'

"/                            with:className

"/                            with:module

"/                            with:directory

"/                            with:fileName)

"/                labels:(resources array:#('Cancel' 'Check in' 'Change')).

"/        answer isNil ifTrue:[AbortSignal raise].

"/        answer ifTrue:[

"/            doCheckinWithoutAsking := false.