"{ Package: 'stx:libtool' }"

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

    resources := self classResources.

    "/

    "/ 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:'Yes to all'.

        component action:[

                            YesToAllNotification queryWith:true.

                            box doAccept.

                            box okPressed.

                         ].

        box addButton:component.

    ].

    (AbortAllSignal isHandled) ifTrue:[

        component := Button label:'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|

    resources := self classResources.

    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:'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].

    resources := self classResources.

    aClass isLoaded ifFalse:[

    ].

    className := aClass name.

    aClass isProjectDefinition ifTrue:[

    ] ifFalse:[

    ].

    "/

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

    "/

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

    ].

    "/

    "/ 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 "package ~= LastPackage" ifTrue:[

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

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

"/            ].

"/        ].

"/        (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:[

    ].

    OperatingSystem isMSDOSlike ifTrue:[

    ].

    "/

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

"/            oldModule := module.

"/            oldPackage := directory.

"/            oldFileName := fileName

"/        ] ifFalse:[

"/            doCheckinWithoutAsking := true.

"/            creatingNew := false.

"/        ].

"/    ].

"/].

    mgr isContainerBased ifTrue:[