"

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

lastModule

    "return the value of the static variable 'LastModule' (automatically generated)"

    ^ LastModule

!

lastModule:something

    "set the value of the static variable 'LastModule' (automatically generated)"

    LastModule := something.

!

lastPackage

    "return the value of the static variable 'LastPackage' (automatically generated)"

    ^ LastPackage

!

lastPackage:something

    "set the value of the static variable 'LastPackage' (automatically generated)"

    LastPackage := something.

! !

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

                         ].

        (DialogBox defaultOKButtonAtLeft) ifTrue:[

            box addButton:component after:nil.

        ] ifFalse:[

            box addButton:component before:nil.

        ].

    ].

    (AbortAllSignal isHandled) ifTrue:[

        component := Button label:'Cancel all'.

        component action:[

                            box hide.

                            AbortAllSignal raiseSignal.

                         ].

        (DialogBox defaultOKButtonAtLeft) ifTrue:[

            box addButton:component before:nil.

        ] ifFalse:[

            box addButton:component after: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.

        newestRev isNil ifTrue:[

            (aSourceCodeManager checkForExistingContainerInModule:module package:package container:fileName)

            ifFalse:[

                self warn:'Could not find/access the container for ',fileName,' in the repository.

This could be due to:

    - invalid/wrong CVS-Root setting.

    - missing CVS access rights.

    - changed CVSRoot after compilation

      (i.e. wrong CVS-path in classes version method)

'.

                ^ 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 labels values|

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

            labels := #('Yes' 'Yes to all' 'No' 'No to all' 'Cancel').

            values := #(true #yesToAll false #noToAll nil).

            AbortAllSignal isHandled ifTrue:[

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

                values := values , #(#cancelAll).

            ].

            answer := OptionBox 

                          request:msg withCRs

                          label:'Really checkIn ?'

                          form:(InfoBox iconBitmap)

                          buttonLabels:labels

                          values:values

                          default:#yesToAll

                          onCancel:nil.

            answer isNil ifTrue:[

                AbortSignal raise.

            ].

            answer == #cancelAll ifTrue:[

                AbortAllSignal raise.

            ].

            answer == #yesToAll ifTrue:[

                YesToAllNotification queryWith:true.