"

 COPYRIGHT (c) 2000 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:libbasic3' }"

Object subclass:#SourceCodeManagerUtilities

	instanceVariableNames:''

	classVariableNames:'LastSourceLogMessage LastModule LastPackage YesToAllQuery

		YesToAllNotification'

	poolDictionaries:''

	category:'System-SourceCodeManagement'

!

!SourceCodeManagerUtilities class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2000 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.

"

!

documentation

"

    utility code which is useful at more than one place

    (extracted from the browser)

    [author:]

        Claus Gittinger (cg@exept)

    [see also:]

    [instance variables:]

    [class variables:]

"

! !

!SourceCodeManagerUtilities class methodsFor:'Signal constants'!

yesToAllNotification

    YesToAllNotification isNil ifTrue:[

        YesToAllNotification := QuerySignal new.

    ].

    ^ YesToAllNotification

!

yesToAllQuery

    YesToAllQuery isNil ifTrue:[

        YesToAllQuery := QuerySignal new.

    ].

    ^ YesToAllQuery

! !

!SourceCodeManagerUtilities class methodsFor:'utilities'!

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

    "open a dialog asking for a source container;

     return a dictionary containing module, package and filename,

     or nil if canceled."

    ^ self

        askForContainer:boxText title:title note:notice 

        initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName 

        forNewContainer:true

!

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

    knownContainers := knownContainers select:[:module | module isBlank not].

    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 ? '__NoProject__'.

            package := packageHolder value ? '__NoProject__'.

            files := SourceCodeManager getExistingContainersInModule:module package: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 := ResourcePack for:self.

    "/

    "/ 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:false; 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.

                         ].

        (DialogBox styleSheet at:'dialogBox.okAtLeft') ifTrue:[

            box addButton:component after:nil.

        ] ifFalse:[

            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'        

    "

!

askForExistingRevision:boxText title:title class:aClass

    "open a dialog asking for a containers revision;

     return a revision number, or nil if canceled."

    |mgr sourceInfo module package fileName|

    mgr := aClass sourceCodeManager.

    sourceInfo := mgr sourceInfoOfClass:aClass.

    sourceInfo isNil ifTrue:[^ nil].

    package := mgr packageFromSourceInfo:sourceInfo.

    module := mgr moduleFromSourceInfo:sourceInfo.  

    fileName := mgr containerFromSourceInfo:sourceInfo.

    ^ self

        askForExistingRevision:boxText 

        title:title 

        class:aClass 

        manager:mgr 

        module:module package:package fileName:fileName

    "

     SourceCodeManagerUtilities

        askForRevisionToCompare:'enter revision'

        title:'revision'

        class:Array

    "

!

askForExistingRevision:boxText title:title class:clsOrNil manager:aSourceCodeManager module:module package:package fileName:fileName

    "open a dialog asking for a containers revision;

     return a revision number, or nil if canceled."

    |partialLog revisions items newestRev

     box y component resources 

     revisionHolder|

    partialLog := aSourceCodeManager

        revisionLogOf:clsOrNil

        numberOfRevisions:20

        fileName:fileName

        directory:package 

        module:module.

    partialLog notNil ifTrue:[

        newestRev := partialLog at:#newestRevision.

        revisions := partialLog at:#revisions.

        items := revisions collect:[:each | |rev date who|

                                        rev := each at:#revision.

                                        date := each at:#date.

                                        who := each at:#author.

                                        rev allBold , ' [' , date , ' by ' , who , ']'

                                   ].

        revisions := revisions collect:[:each | each at:#revision].

    ] ifFalse:[

        newestRev := aSourceCodeManager newestRevisionInFile:fileName directory:package module:module.

        revisions := items := nil.

    ].

    revisionHolder  := newestRev asValue.

    resources := ResourcePack for:self.

    revisionHolder onChangeEvaluate:[

        "/ cut off everything after revision

        |s first words|

        s := revisionHolder value.

        words := s asCollectionOfWords.

        words size > 0 ifTrue:[

            first := words first string.

            first ~= s ifTrue:[

                revisionHolder value:first

            ]

        ]

    ].

    "/

    "/ 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:'Revision:').

    component width:0.4; adjust:#right.

    box yPosition:y.

    component := box addComboBoxOn:revisionHolder tabable:true.

    component list:items.

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

    box addVerticalSpace.

    box addAbortAndOkButtons.

    Object abortAllSignal isHandled ifTrue:[

        (box addAbortButtonLabelled:'cancel all') action:[AbortAllSignal raise].

    ].

    box showAtPointer.

    box accepted ifFalse:[

        box destroy.

        ^ nil

    ].

    box destroy.

    ^ revisionHolder value withoutSpaces.

    "

     SourceCodeManagerUtilities

        askForRevisionToCompare:'enter revision'

        title:'revision'

        class:nil

        manager:SourceCodeManager 

        module:'stx'

        package:'libbasic'

        fileName:'Array.st'

    "

!

checkAndWarnAboutBadMessagesInClass:aClass

    "check if a class contains message-sends to:

        #halt

        #halt:

        #error

        (and maybe more in the future)"

    |badStuff whatIsBad msg answer|

    badStuff := #(

        ( #halt         'sent of #halt (use for debugging only) - better use #error:''some message''' )

        ( #halt:        'sent of #halt: (use for debugging only) - better use #error:' )

        ( #error        'sent of #error without descriptive message - better use #error:''some message''' )

    ).

    whatIsBad := Set new.

    aClass theNonMetaclass allSelectorsAndMethodsDo:[:sel :mthd |

        |setOfLiterals setOfSentMessages|

        setOfLiterals := mthd literals.  "/ try without parsing first.

        (badStuff contains:[:eachEntry | setOfLiterals includes:eachEntry first]) ifTrue:[

            setOfSentMessages := mthd messagesSent.

            badStuff do:[:eachEntry |

                (setOfSentMessages includes:eachEntry first) ifTrue:[

                    whatIsBad add:eachEntry second

                ]

            ].

        ].

    ].

    whatIsBad notEmpty ifTrue:[

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

            answer := YesToAllQuery query.

            answer notNil ifTrue:[ ^ answer ].

        ].

        msg := '%1 contains the following  (considered bad style) message sends:\\'.

        whatIsBad do:[:each |

            msg := msg , '   ' , each , '\'

        ].

        msg := msg , '\\' , 'Do you really want to checkIn the %1 class ?'.

        msg := msg bindWith:aClass name.

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

            answer := OptionBox 

                          request:msg withCRs

                          label:'Really checkIn ?'

                          form:(InfoBox iconBitmap)

                          values:#(true #yesToAll false #noToAll)

                          default:#yesToAll

                          onCancel:false.

            answer == #yesToAll ifTrue:[

                YesToAllNotification queryWith:true.

                ^ true

            ].

            answer == #noToAll ifTrue:[

                YesToAllNotification queryWith:false.

                ^ false

            ].

            ^ answer

        ] ifFalse:[

            ^ self confirm:msg withCRs

        ]

    ].

    ^ true.

    "

     self checkAndWarnAboutBadMessagesInClass:(SourceCodeManagerUtilities)  

    "

!

checkinClass:aClass

    "check a class into the source repository.

     Asks interactively for log-message."

    ^ self checkinClass:aClass withLog:nil

!

checkinClass:aClass withLog:aLogMessageOrNil

    "check a class into the source repository.

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

    ^ self checkinClass:aClass withLog:aLogMessageOrNil withCheck:true

!

checkinClass:aClass withLog:aLogMessageOrNil withCheck:doCheckClass

    "check a class into the source repository.

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

    |logMessage info mgr pri resources|

    aClass isLoaded ifFalse:[

        self information:'cannot checkin unloaded classes (' , aClass name , ').'.

        ^ false.

    ].

    mgr := (aClass sourceCodeManager).

    mgr isNil ifTrue:[

        (self confirm:'Class does not seem to provide a valid sourceCodeManager.\\Assume CVS ?' withCRs) ifFalse:[

            ^ false

        ].

        mgr := CVSSourceCodeManager.

    ].

    aLogMessageOrNil isNil ifTrue:[

        logMessage := SourceCodeManagerUtilities getLogMessageFor:aClass name allBold.

        logMessage isNil ifTrue:[^ false].

    ] ifFalse:[

        logMessage := aLogMessageOrNil

    ].

    resources := ResourcePack for:self.

    info := mgr sourceInfoOfClass:aClass.

    (info isNil 

    or:[(info at:#fileName ifAbsent:nil) isNil