"

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

resourcePackage

    ^ #'stx:libtool'

! !

!SourceCodeManagerUtilities class methodsFor:'utilities'!

classIsNotYetInRepository:aClass withManager:mgr

    |info|

    info := mgr sourceInfoOfClass:aClass.

    ^ (info isNil 

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

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

    or:[(info at:#directory ifAbsent:nil) isNil]]])

    "Created: / 25-10-2006 / 09:43:00 / cg"

!

nameOfExtensionsContainer

    ^ 'extensions.st'

!

setPackageOfAllMethodsIn:aClass to:aPackage

    "make all methods belong to the classes project"

    |anyChange anyChangeHere|

    anyChange := false.

    aClass withAllPrivateClassesDo:[:eachClass |

        anyChangeHere := false.

        eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd | 

            mthd package ~= aPackage ifTrue:[

                mthd setPackage:aPackage.

                anyChangeHere := true.

            ].

        ].

        anyChangeHere ifTrue:[

            eachClass changed:#projectOrganization

        ].

        anyChangeHere ifTrue:[anyChange := true].

    ].

    anyChange ifTrue:[

       Smalltalk changed:#projectOrganization

    ].

    ^ anyChange

!

setPackageOfAllMethodsInChangeSet:aChangeSet to:aPackage

    "make all methods belong to the classes project"

    aChangeSet do:[:eachChange |

        eachChange isMethodCodeChange ifTrue:[

            eachChange changeMethod package ~= aPackage ifTrue:[

                Transcript showCR:'change package of ',eachChange changeMethod whoString.

                eachChange changeMethod setPackage:aPackage.        

            ]

        ]

    ].

!

sourceCodeManagerFor:aClass

    |mgr assumption|

    mgr := aClass theNonMetaclass sourceCodeManager.

    mgr isNil ifTrue:[

        SourceCodeManager isNil ifTrue:[

            (self warn:'SourceCodeManagement is disabled or not configured.\\Please setup in the Launcher.' withCRs) ifFalse:[

                ^ nil

            ].

        ].

        assumption := AbstractSourceCodeManager defaultManager ? CVSSourceCodeManager.

        assumption notNil ifTrue:[

            (self confirm:('Class does not seem to provide a valid sourceCodeManager.\\Assume %1 ?' bindWith:assumption managerTypeName) withCRs) ifFalse:[

                ^ nil

            ].

            mgr := assumption.

        ].

    ].

    ^ mgr

    "Modified: / 19-04-2011 / 11:48:41 / cg"

!

sourceCodeOfClass:aClass

    |stream src|

    stream := '' writeStream.

    Method flushSourceStreamCache.

    aClass fileOutOn:stream withTimeStamp:false.

    src := stream contents asString.

    stream close.

    ^ src

!

versionString:a isLessThan:b

    "compare two strings of the form: a.b.c..."

    |i1 i2 a1 b1 rest1 rest2|

    i1 := a indexOf:$. .

    i2 := b indexOf:$. .

    i1 == 0 ifTrue:[

        i1 := a size + 1.

    ].

    i2 == 0 ifTrue:[

        i2 := b size + 1.

    ].

    a1 := Integer readFrom:(a copyTo:i1-1).

    b1 := Integer readFrom:(b copyTo:i2-1).

    a1 < b1 ifTrue:[^ true].

    a1 > b1 ifTrue:[^ false].

    rest1 := (a copyFrom:i1+1).

    rest2 := (b copyFrom:i2+1).

    rest1 isEmpty ifTrue:[

        ^ rest2 notEmpty

    ].

    rest2 isEmpty ifTrue:[

        ^ false

    ].

    ^ self versionString:rest1 isLessThan:rest2

    "

     self assert:(self versionString:'12.34.66' isLessThan:'12.35.66').

     self assert:(self versionString:'12.34.66' isLessThan:'12.35.67').

     self assert:(self versionString:'11.34.66' isLessThan:'12.34.67').

     self assert:(self versionString:'11.35.66' isLessThan:'12.34.67').

     self assert:(self versionString:'13.35.66' isLessThan:'12.34.67') not.

     self assert:(self versionString:'13.35.66' isLessThan:'13.34.67') not.

     self assert:(self versionString:'13.35.66' isLessThan:'13.35.67').

     self assert:(self versionString:'13.35.66' isLessThan:'13.35.65') not.

     self assert:(self versionString:'13.35.66.1' isLessThan:'13.35.66') not.

     self assert:(self versionString:'13.35.66' isLessThan:'13.35.66.1').

     self assert:(self versionString:'13.35.66.2' isLessThan:'13.35.66.1') not.

     self assert:(self versionString:'13.35.66.1' isLessThan:'13.35.66.2').

    "

    "Modified: / 17-02-2011 / 10:20:14 / cg"

! !

!SourceCodeManagerUtilities class methodsFor:'utilities-cvs'!

changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision using:aSourceCodeManager

    "check-out an extension container from the source repository, and return the methods there as a change set.

     If askForRevision is false, check-out the newest version.

     Return a changeSet or nil (if any error occurred)"

    ^ self

        changeSetForExtensionMethodsForPackage:packageToCheckOut 

        revision:nil orAskForRevision:askForRevision 

        using:aSourceCodeManager

!

changeSetForExtensionMethodsForPackage:packageToCheckOut revision:revisionOrNil orAskForRevision:askForRevision using:aSourceCodeManager

    "check-out an extension container from the source repository, and return the methods there as a change set.

     If askForRevision is false, check-out the newest version.

     Return a changeSet or nil (if any error occurred)"

    |resources directory module file

     inChangeSet extensionMethods

     aStream sourceToLoad rev msg newestRev

     listHere listRep diffSet 

     changed onlyHere onlyInRep answer labels values singleChangeSelector

     changedClasses default |

    resources := self classResources.

    directory := packageToCheckOut asPackageId directory.

    module := packageToCheckOut asPackageId module.

    file := self nameOfExtensionsContainer.

    "/

    "/ ask for revision

    "/

    (rev := revisionOrNil) isNil ifTrue:[

        newestRev := aSourceCodeManager newestRevisionInFile:file directory:directory module:module.

        askForRevision ifFalse:[

            rev := newestRev ? ''

        ] ifTrue:[

            msg := resources string:'CheckOut which revision of extensions for ''%1'': (empty for newest)' with:packageToCheckOut allBold.

            newestRev notNil ifTrue:[

                msg := msg , '\' , (resources string:'Newest in reporitory is %1.' with:newestRev)

            ].

            rev := SourceCodeManagerUtilities

                    askForExistingRevision:msg 

                    title:'CheckOut from repository' 

                    class:nil 

                    manager:aSourceCodeManager 

                    module:module package:directory fileName:file.

            rev isNil ifTrue:[

                ^ nil   "/ canceled

            ].

        ].

    ].

    rev withoutSpaces isEmpty ifTrue:[

        rev := #newest.

        msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.

    ] ifFalse:[

        msg := 'extracting previous %1'.

    ].

    aStream := aSourceCodeManager  

        streamForClass:nil

        fileName:file 

        revision:rev 

        directory:directory 

        module:module

        cache:true.

    aStream isNil ifTrue:[

        self warn:(resources string:'Could not extract "extensions.st" for %1 from repository' with:packageToCheckOut allBold).

        ^ nil

    ].

    aStream class readErrorSignal handle:[:ex |

        self warn:('read error while reading extracted source\\' , ex description) withCRs.

        aStream close.

        ^ nil

    ] do:[

        sourceToLoad := aStream contents asString.

    ].

    aStream close.

    ^ ChangeSet fromStream:(sourceToLoad readStream).

    "Created: / 09-10-2006 / 13:04:37 / cg"

!

checkForExistingModule:module directory:directory container:containerFileName using:mgr allowCreate:allowCreate

    |resources moduleName directoryName containerName|

    resources := self classResources.

    moduleName := module allBold.

    directoryName := directory allBold.

    containerName := containerFileName allBold.

    "/

    "/ check for the container

    "/

    (mgr checkForExistingContainer:containerFileName inModule:module directory:directory) ifFalse:[

        allowCreate ifFalse:[

            self warn:(resources string:'A container for ''%1'' does not exist in ''%2:%3''' 

                                   with:containerName with:moduleName with:directoryName) withCRs.

            ^ false

        ].

        (Dialog 

            confirm:(resources string:'''%1'' is a new container (in ''%2:%3'').\\Create it ?' 

                                 with:containerName with:moduleName with:directoryName) withCRs

            noLabel:'Cancel') 

        ifFalse:[

            ^ false.

        ].

        (mgr createContainerForText:'' inModule:module package:directory container:containerFileName) ifFalse:[

            self warn:(resources string:'Cannot create new container: ''%1'' (in ''%2:%3'')' 

                                 with:containerName with:moduleName with:directoryName).

            ^ false.

        ]

    ].

    ^ true.

    "Modified: / 13-09-2006 / 18:24:57 / cg"

!

checkForExistingModule:module directory:directory using:mgr allowCreate:allowCreate

    |resources moduleNameBold directoryNameBold|

    resources := self classResources.

    moduleNameBold := module allBold.

    directoryNameBold := directory allBold.

    "/

    "/ check for the directory

    "/

    (mgr checkForExistingModule:module directory:directory) ifFalse:[

        allowCreate ifFalse:[

            self warn:(resources string:'A directory for ''%1'' does not exist in module ''%2''' 

                                   with:directoryNameBold with:moduleNameBold) withCRs.

            ^ false

        ].

        (Dialog 

            confirm:(resources string:'''%1'' is a new directory in module ''%2''.\\create it ?' 

                                 with:directoryNameBold with:moduleNameBold) withCRs

            noLabel:'Cancel') 

        ifFalse:[

            ^ false.

        ].

        (mgr createModule:module directory:directory) ifFalse:[

            self warn:(resources string:'Cannot create new directory: ''%1'' in module ''%2''' 

                                   with:directoryNameBold with:moduleNameBold) withCRs.

            ^ false.

        ]

    ].

    ^ true.

    "Modified: / 06-10-2006 / 17:08:08 / cg"

!

checkForExistingModule:module using:mgr allowCreate:allowCreate

    |resources moduleName answer|

    (mgr checkForExistingModule:module) ifFalse:[

        resources := self classResources.

        moduleName := module allBold.

        allowCreate ifFalse:[

            self warn:(resources stringWithCRs:'A module named ''%1'' does not exist in the repository' 

                                  with:moduleName) .

            ^ false

        ].

        AbortAllOperationWantedQuery query ifTrue:[

            answer := Dialog 

                confirmWithCancel:(resources stringWithCRs:'''%1'' is a new module.\\create it ?' with:moduleName)

                labels:(resources array:#('Cancel All' 'Cancel' 'Yes' )).

            answer isNil ifTrue:[ AbortAllOperationRequest raise ].

        ] ifFalse:[

            answer := Dialog 

                confirm:(resources stringWithCRs:'''%1'' is a new module.\\create it ?' with:moduleName) 

                noLabel:'Cancel'

        ].

        answer ifFalse:[ ^ false].

        (mgr createModule:module) ifFalse:[

            self warn:(resources stringWithCRs:'Cannot create new module: ''%1''' with:moduleName) .

            ^ false.

        ]

    ].

    ^ true.

    "Modified: / 09-02-2011 / 13:54:01 / cg"

!

checkinClass:aClass

    "check a class into the source repository.

     Asks interactively for a log-message."

    ^ self checkinClass:aClass withInfo:nil

!

checkinClass:aClass withInfo:aLogInfoOrNil

    "check a class into the source repository.

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

    ^ self checkinClass:aClass withInfo:aLogInfoOrNil withCheck:true

!

checkinClass:aClass withInfo:aLogInfoNil withCheck:doCheckClass

    "check a class into the source repository.

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

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

    |logMessage checkinInfo mgr pri resources initialLogMessage|

    aClass isLoaded ifFalse:[

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

        ^ false.

    ].

    mgr := self sourceCodeManagerFor:aClass.

    mgr isNil ifTrue:[

        ^ false

    ].

    "/ heuristics for a useful initial log message...

    aLogInfoNil isNil ifTrue:[

        initialLogMessage := (self goodInitialLogMessageForCheckinClassOfClass:aClass) ? ''.

        "/ initial checkin ?

        (aClass package isNil or:[aClass revision isNil]) ifTrue:[ 

            initialLogMessage := 'initial checkin\\' withCRs , initialLogMessage

        ].

        checkinInfo := self 

                        getCheckinInfoFor:aClass name 

                        initialAnswer:initialLogMessage.

        checkinInfo isNil ifTrue:[^ false].

        logMessage := checkinInfo logMessage.

    ] ifFalse:[

        aLogInfoNil isString ifTrue:[

            "soon obsolete..."    

            logMessage := aLogInfoNil

        ] ifFalse:[ 

            checkinInfo := aLogInfoNil.

            logMessage := checkinInfo logMessage.

        ].

    ].

    logMessage notNil ifTrue:[  

        logMessage := logMessage asSingleByteStringReplaceInvalidWith:$?

    ].

    resources := self classResources.

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