"

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

"

'From Smalltalk/X, Version:2.10.4 on 26-feb-1995 at 5:18:24 am'!

StandardSystemView subclass:#ChangesBrowser

	 instanceVariableNames:'changeListView codeView changeFileName changeChunks

		changePositions changeClassNames changeHeaderLines anyChanges

		changeNrShown changeNrProcessed skipSignal 

		compareChanges compareCheckBox

	 classVariableNames:'CompressSnapshotInfo'

	 poolDictionaries:''

	 category:'Interface-Browsers'

!

!ChangesBrowser class methodsFor:'documentation'!

copyright

"

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

"

!

version

!

documentation

"

    this implements a browser for the changes-file.

    See the extra document 'doc/misc/cbrowser.doc' for how to use this browser.

    written jan 90 by claus

    Class variables:

	CompressSnapshotInfo            if true (the default), snapshot entries

					are also compressed in the compress function.

					Some users prefer them to be not compressed.

					Set it to false for this.

    Notice:

	this needs a total rewrite, to build up a changeSet from the file

	(which did not exist when the ChangesBrowser was originally written) 

	and manipulate that changeSet.

	This way, we get a browser for any upcoming incore changeSets for

	free. Also, this will put the chunk analyzation code into Change and

	subclasses (where it belongs) and give a better encapsulation and

	overall structure. Do not take this as an example for good style ;-)

"

! !

!ChangesBrowser class methodsFor:'instance creation'!

new

    "create a new changes browser"

    ^ super label:'Changes Browser'

	     icon:(Form fromFile:'CBrowser.xbm' resolution:100)

!

openOn:aFileName

    "create c changes browser on a change file"

    ^ ((self new label:'Changes Browser: ', aFileName) changeFileName:aFileName) open

! !

!ChangesBrowser class methodsFor:'behavior'!

autoSelectNext

    "returning true here, makes a Delete operation automatically

     select the next change"

    ^ true

! !

!ChangesBrowser class methodsFor:'defaults'!

defaultLabel

    ^ 'Changes Browser'

! !

!ChangesBrowser methodsFor:'private'!

streamForChange:changeNr

    "answer a stream for change"

    |aStream|

    (changeNr between:1 and:changePositions size) ifFalse:[^ nil].

    aStream := FileStream readonlyFileNamed:changeFileName.

    aStream isNil ifTrue:[^ nil].

    aStream position:(changePositions at:changeNr).

    ^ aStream

!

autoSelect:changeNr

    "select a change"

    self class autoSelectNext ifTrue:[

	(changeNr <= changePositions size) ifTrue:[

	    changeListView selection:changeNr.

	    self changeSelection:changeNr.

	    ^ self

	]

    ].

    self clearCodeView.

    changeListView selection:nil.

!

clearCodeView

    self unselect "changeListView deselect".

    codeView contents:nil.

    changeNrShown := nil

!

applyChange:changeNr

    "fileIn a change"

    |aStream nm|

    aStream := self streamForChange:changeNr.

    aStream isNil ifTrue:[^ self].

    nm := self classNameOfChange:changeNr.

    nm notNil ifTrue:[

	|cls|

	cls := Smalltalk at:(nm asSymbol) ifAbsent:[].

	cls notNil ifTrue:[

	    cls isLoaded ifFalse:[

		cls autoload

	    ]

	]

    ].

    changeNrProcessed := changeNr.

    Class withoutUpdatingChangesDo:[

	|sig|

	(skipSignal notNil) ifTrue:[

	    sig := skipSignal

	] ifFalse:[

	    sig := Object abortSignal

	].

	sig catch:[

	    aStream fileInNextChunkNotifying:self

	].

	changeNrProcessed := nil.

    ].

    aStream close

!

unselect

    "common unselect"

    changeListView deselect.

!

setChangeList

    "extract type-information from changes and stuff into top selection

     view"

    changeListView setList:changeHeaderLines expandTabs:false.

    "/ changeListView deselect.

! !

!ChangesBrowser methodsFor:'private'!

newLabel:how

    |l|

    (changeFileName ~= 'changes') ifTrue:[

	l := 'Changes Browser: ', changeFileName

    ] ifFalse:[

	l := 'Changes Browser'

    ].

    l := l , ' ' , how.

    self label:l

    "Created: 8.9.1995 / 19:32:04 / claus"

    "Modified: 8.9.1995 / 19:39:29 / claus"

!

checkIfFileHasChanged

    |f info |

    Processor removeTimedBlock:checkBlock.

    f := changeFileName asFilename.

    (info := f info) isNil ifTrue:[

	self newLabel:'(unaccessable)'

    ] ifFalse:[

	(info at:#modified) > changeFileTimestamp ifTrue:[

	    self newLabel:'(outdated)'

	] ifFalse:[

	    self newLabel:''

	]

    ].

    Processor addTimedBlock:checkBlock afterSeconds:5.

    "Created: 8.9.1995 / 19:30:19 / claus"

    "Modified: 8.9.1995 / 19:38:18 / claus"

!

readChangesFileInBackground:inBackground

    "read the changes file, create a list of header-lines (changeChunks)

     and a list of chunk-positions (changePositions).

     Starting with 2.10.3, the entries are multi-col entries;

     the cols are:

		'+' -> new method (w.r.t. current state)

		'-' -> removed method (w.r.t. current state)

		'?' -> class does not exist currently

		'=' -> change is same as current methods source

	3   type of change

		doit

		method

		category change

     since comparing slows down startup time, it is now disabled by

    |aStream maxLen f|

    maxLen := 60.

    f := changeFileName asFilename.

    aStream :=  f readStream.

    aStream isNil ifTrue:[^ nil].

    changeFileSize := f info at:#size.

    changeFileTimestamp := f info at:#modified.

    self withCursor:(Cursor read) do:[

	"

	 this is a time consuming operation (especially, if reading an

	 NFS-mounted directory; therefore lower my priority ...

	"

	inBackground ifTrue:[

	    myProcess := Processor activeProcess.

	    myPriority := myProcess priority.

	    myProcess priority:(Processor userBackgroundPriority).

	].

	[

	    changeChunks := OrderedCollection new.

	    changeHeaderLines := OrderedCollection new.

	    changePositions := OrderedCollection new.

	    excla := aStream class chunkSeparator.

	    [aStream atEnd] whileFalse:[

		|entry changeDelta changeString changeType 

		 line s l changeClass sawExcla category 

		 chunkText chunkPos|

		"

		 get a chunk (separated by excla)

		"

		aStream skipSeparators.

		chunkPos := aStream position.

		sawExcla := aStream peekFor:excla.

		chunkText := aStream nextChunk.

		chunkText notNil ifTrue:[

		    |index headerLine|

			    ].

			    ].

			    ].

			    ].

			].

			    ] ifFalse:[

				    ].

					(changeClass isNil or:[changeClass isLoaded not]) ifTrue:[

					    changeDelta := '?'

					] ifFalse:[