"

 COPYRIGHT (c) 1993 by Claus Gittinger

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

OrderedCollection subclass:#ChangeSet

	instanceVariableNames:'changedClasses'

	classVariableNames:''

	poolDictionaries:''

	category:'System-Changes'

!

Object subclass:#ChangeFileReader

	instanceVariableNames:'inputStream parseTree changeAction changeSet selector receiver

		arguments receiverSelector receiverReceiver lineNumber position

		className methodSelector'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ChangeSet

!

Object subclass:#DiffSet

	instanceVariableNames:'changed onlyInReceiver onlyInArg'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ChangeSet

!

ChangeSet::ChangeFileReader subclass:#SIFChangeFileReader

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:ChangeSet

!

!ChangeSet class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      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

"

    used in the changes management to keep track of changes

    [author:]

	Claus Gittinger

"

! !

!ChangeSet class methodsFor:'instance creation'!

forExistingClass:aClass

    "build a changeSet for some given class.

     That does of course not give deltas, but instead reflects the current

     state of the given class.

     It is useful in conjunction with the other utility methods,

     for example, when building patchLists, diffSets etc."

    |source changeSet chunk sawExcla lastTimeStamp s change nameSpace|

    s := '' writeStream.

    aClass fileOutOn:s.

    source := s contents.

    changeSet := self fromStream:(source readStream).

    ^ changeSet

"/    changeSet := self new.

"/    nameSpace := Smalltalk.

"/

"/    "/ first, a classDefinition change ...

"/    changeSet addClassDefinitionChangeFor:aClass.

"/    "/ are there any class-instVars ?

"/    aClass class instVarNames size > 0 ifTrue:[

"/        changeSet addInstVarDefinitionChangeFor:aClass class.

"/    ].

"/    "/ a comment ?

"/    aClass comment size > 0 ifTrue:[

"/        changeSet addClassCommentChangeFor:aClass.

"/    ].

"/

"/    "/ class methods first ...

"/    aClass class methodDictionary keysAndValuesDo:[:sel :mthd |

"/        changeSet addMethodChange:mthd in:aClass class. 

"/    ].

"/

"/    "/ instance methods ...

"/    aClass methodDictionary keysAndValuesDo:[:sel :mthd |

"/        changeSet addMethodChange:mthd in:aClass.

"/    ].

"/

"/    ^ changeSet

    "

     ChangeSet forExistingClass:ChangeSet

    "

    "Created: / 16.2.1998 / 12:19:34 / cg"

    "Modified: / 14.12.1999 / 15:23:16 / cg"

!

fromFile:aFilename

    mime := MIMETypes mimeTypeForFilename:aFilename.

    mime isNil ifTrue:[

        mime := aFilename asFilename mimeTypeOfContents.

        mime isNil ifTrue:[

            self halt.

        ].

    ].

    [

        stream := aFilename asFilename readStream.

        mime = 'text/xml' ifTrue:[

        ].

    ] ensure:[

        stream notNil ifTrue:[stream close].

    ].

    "

     ChangeSet fromFile:('changes')

     ChangeSet fromFile:('patches')

    "

    "Created: / 16.2.1998 / 12:19:34 / cg"

    "Modified: / 14.12.1999 / 15:23:16 / cg"

!

fromSIFStream:aStream

    "build a changeSet from a SIF stream, containing chunks

     in smalltalk interchange format.

     Return the changeSet."

    ^ self fromSIFStream:aStream while:[:thisChange | true]

!

fromSIFStream:aStream while:aConditionBlock

    "build a changeSet from a SIF stream, containing chunks

     in smalltalk interchange format.

     Return the changeSet."

    |changeSet|

    changeSet := self new.

    self 

        changesFromStream:aStream 

        for:changeSet 

        do:[:aChange :lineNumberOrNil :posOrNil |

            changeSet add:aChange.

            (aConditionBlock value:aChange) ifFalse:[^ changeSet].

        ].

    ^ changeSet

!

fromStream:aStream

    "build a changeSet from a stream, containing chunks.

     (i.e. either a classes sourceFile or a change-file).

     Return the changeSet."

    ^ self fromStream:aStream while:[:thisChange | true]

    "

     ChangeSet fromStream:('changes' asFilename readStream)

     ChangeSet fromStream:('patches' asFilename readStream)

     ChangeSet fromStream:(Object source asString readStream)

    "

    "Created: / 16.2.1998 / 12:19:34 / cg"

    "Modified: / 14.12.1999 / 15:23:16 / cg"

!

fromStream:aStream while:aConditionBlock

    "build a changeSet from a stream, containing chunks.

     (i.e. either a classes sourceFile or a change-file).

     Return the changeSet."

    |changeSet|

    changeSet := self new.

    self 

        changesFromStream:aStream 

        for:changeSet 

        do:[:aChange :lineNumberOrNil :posOrNil |

            changeSet add:aChange.

            (aConditionBlock value:aChange) ifFalse:[^ changeSet].

        ].

    ^ changeSet

    "

     ChangeSet fromStream:('changes' asFilename readStream)

     ChangeSet fromStream:('patches' asFilename readStream)

     ChangeSet fromStream:(Object source asString readStream)

    "

    "Created: / 16.2.1998 / 12:19:34 / cg"

    "Modified: / 14.12.1999 / 15:23:16 / cg"

!

fromXMLStream:aStream

    "build a changeSet from an XML stream, containing XML definitions.

     Return the changeSet."

    |changeSet builder nameSpace|

    aStream isNil ifTrue:[^ nil].

    changeSet := self new.

    nameSpace := Smalltalk.

    builder := XML::SourceScannerNodeBuilder new.

    builder scanFile:aStream

            do:[:change | changeSet add: change. ].

    ^ changeSet

    "

     ChangeSet fromXMLStream:('../../goodies/xml-vw/xmlFileInTests/XMLParser.xml' asFilename readStream)

     ChangeSetBrowser 

        openOn:(ChangeSet fromXMLStream:('../../goodies/xml-vw/xmlFileInTests/XMLParser.xml' asFilename readStream))

    "

! !

!ChangeSet class methodsFor:'Compatibility - ST80'!

patches

    ^ #()

    "Created: / 27.10.1997 / 13:52:54 / cg"

! !

!ChangeSet class methodsFor:'Compatibility - VW'!

component: component definition: anObject change: changeSymbol

    "Include indication that a class/namespace was added or removed

     from a CodeComponent." 

    self 

        changed:#'component:definition:change:'

        with:

            ( Array 

                    with: component

                    with: anObject

                    with: changeSymbol

            )

! !

!ChangeSet class methodsFor:'instance creation-private'!

    "enumerate changes from a stream and invoke aBlock on each.

     The block is invoked with the change and a lineNumberOrNil as

     arg; the lineNumber is only valid, if the underlying stream 

     provides line-numbers; otherwise, nil is passed."

    |chunk sawExcla lastTimeStamp s change nameSpace package

     lineNumber pos reader|

    nameSpace := Smalltalk.

    package := Class packageQuerySignal query.

        reader := ChangeFileReader new.

    ].

    reader changeSet:aChangeSet.

    reader changeAction:aBlock.

    reader inputStream:aStream.

    [aStream atEnd] whileFalse:[

        lineNumber := aStream lineNumber.

        pos := aStream position.

        chunk := aStream nextChunk.

        (chunk notNil and:[chunk notEmpty]) ifTrue:[

            Class nameSpaceQuerySignal answer:nameSpace do:[

                |parser tree ns pkg|

                parser := Parser for:chunk.

                tree := parser 

                            parseExpressionWithSelf:nil 

                            notifying:nil 

                            ignoreErrors:true 

                            ignoreWarnings:true 

                            inNameSpace:nameSpace.

                tree notNil ifTrue:[

                    tree == #Error ifTrue:[

                        change := DoItChange new.

                        change source:chunk.

                        aBlock value:change value:lineNumber value:pos.

                    ] ifFalse:[    

                        "/ if there is any nameSpace directive in there, extract it.

                        ((ns := parser currentNameSpace) notNil 

                        and:[ns ~~ nameSpace]) ifTrue:[

                            nameSpace := ns

                        ].

                        "/ if there is any package directive in there, extract it.

                        ((pkg := parser currentPackage) notNil 

                        and:[pkg ~~ package]) ifTrue:[

                            package := pkg

                        ].

                        Class packageQuerySignal answer:package do:[

                            Class nameSpaceQuerySignal answer:nameSpace do:[

                                "/

                                "/ what type of chunk is this ...

                                "/

                                tree isConstant ifTrue:[

                                    (s := tree evaluate) isString ifTrue:[

                                        (s startsWith:'---- timestamp ') ifTrue:[

                                            lastTimeStamp := s.

                                        ]

                                    ] ifFalse:[

                                        self error:'unexpected change-chunk' mayProceed:true

                                    ]

                                ] ifFalse:[

                                    tree isMessage ifTrue:[

                                        (reader 

                                            changesFromParseTree:tree 

                                            lineNumber:lineNumber

                                            position:pos

                                        ) ifFalse:[

                                            change := DoItChange new.

                                            change source:chunk.

                                            aBlock value:change value:lineNumber value:pos.

                                        ]

                                    ] ifFalse:[

                                        self error:'unexpected change-chunk' mayProceed:true.

                                    ]

                                ]

                            ]

                        ]

                    ]

                ]

            ]

        ]

    ].

    "

     ChangeSet fromStream:('changes' asFilename readStream)

     ChangeSet fromStream:('patches' asFilename readStream)

     ChangeSet fromStream:(Object source asString readStream)

    "

    "Created: / 16.2.1998 / 12:19:34 / cg"

    "Modified: / 14.12.1999 / 15:23:16 / cg"

! !

!ChangeSet class methodsFor:'queries'!

current

    "ST-80 compatibility: return the current changeSet"

    |p|

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

        ^ p changeSet

    ].

    ^ #()

    "

     ChangeSet current 

    "

! !

!ChangeSet methodsFor:'Compatibility - ST80'!

changeClass:aClass

    "dummy here"

    "Created: / 4.2.2000 / 18:30:59 / cg"

!

changedClasses

    "return a collection of all classes for which changes are in this changeSet"

    |classes|

    changedClasses isNil ifTrue:[

        classes := IdentitySet new.

        self do:[:chg |

            |cls|

            cls := chg changeClass.

            cls notNil ifTrue:[

                cls isNameSpace ifFalse:[

                    classes add:cls

                ]

            ]

        ].

        changedClasses := classes.

    ].

    ^ changedClasses.

    "

     ChangeSet current changedClasses  

    "

!

component:component definition:anObject change:changeSymbol

    "Include indication that a class/namespace was added or removed

     from a CodeComponent." 

    self 

        changed:#'component:definition:change:'

        with:

            ( Array 

                    with: component

                    with: anObject

                    with: changeSymbol

            )

!

reorganizeSystem

    "dummy here"

    "Created: / 6.2.2000 / 20:45:10 / cg"

! !

!ChangeSet methodsFor:'change & update'!

changed:anAspectSymbol with:aParameter 

    "Allow objects to depend on the ChangeSet class instead of a particular instance 

     of ChangeSet (which may be switched using projects)."