The Trunk: Monticello-bf.507.mcz

Bert Freudenberg uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-bf.507.mcz

==================== Summary ====================

Name: Monticello-bf.507
Author: bf
Time: 4 May 2012, 5:33:23.298 pm
UUID: 7f23df35-9c19-457d-96f3-9ea8476eb5d2
Ancestors: Monticello-bf.506

Remove now unused changes file scanning method.

=============== Diff against Monticello-bf.506 ===============

Item was removed:
- ----- Method: MCMethodDefinition>>scanForPreviousVersion (in category 'installing') -----
- scanForPreviousVersion
- | sourceFilesCopy method position |
- method := self actualClass compiledMethodAt: selector ifAbsent: [^ nil].
- position := method filePosition.
- sourceFilesCopy := SourceFiles collect:
- [:x | x isNil ifTrue: [ nil ]
- ifFalse: [x readOnlyCopy]].
- [ | file prevPos tokens preamble methodCategory stamp prevFileIndex |
- method fileIndex = 0 ifTrue: [^ nil].
- file := sourceFilesCopy at: method fileIndex.
- [position notNil & file notNil]
- whileTrue:
- [file position: (0 max: position-150).  "Skip back to before the preamble"
- [file position < (position-1)]  "then pick it up from the front"
- whileTrue: [preamble := file nextChunk].
-
- "Preamble is likely a linked method preamble, if we're in
- a changes file (not the sources file).  Try to parse it
- for prior source position and file index"
- prevPos := nil.
- stamp := ''.
- (preamble findString: 'methodsFor:' startingAt: 1) > 0
- ifTrue: [tokens := Scanner new scanTokens: preamble]
- ifFalse: [tokens := Array new  "ie cant be back ref"].
- ((tokens size between: 7 and: 8)
- and: [(tokens at: tokens size-5) = #methodsFor:])
- ifTrue:
- [(tokens at: tokens size-3) = #stamp:
- ifTrue: ["New format gives change stamp and unified prior pointer"
- stamp := tokens at: tokens size-2.
- prevPos := tokens last.
- prevFileIndex := sourceFilesCopy fileIndexFromSourcePointer: prevPos.
- prevPos := sourceFilesCopy filePositionFromSourcePointer: prevPos]
- ifFalse: ["Old format gives no stamp; prior pointer in two parts"
- prevPos := tokens at: tokens size-2.
- prevFileIndex := tokens last].
- (prevPos = 0 or: [prevFileIndex = 0]) ifTrue: [prevPos := nil]].
- ((tokens size between: 5 and: 6)
- and: [(tokens at: tokens size-3) = #methodsFor:])
- ifTrue:
- [(tokens at: tokens size-1) = #stamp:
- ifTrue: ["New format gives change stamp and unified prior pointer"
- stamp := tokens at: tokens size]].
- methodCategory := tokens after: #methodsFor: ifAbsent: ['as yet unclassifed'].
- methodCategory = category ifFalse:
- [methodCategory = (Smalltalk
- at: #Categorizer
- ifAbsent: [Smalltalk at: #ClassOrganizer])
- default ifTrue: [methodCategory := methodCategory, ' '].
- ^ ChangeRecord new file: file position: position type: #method
- class: className category: methodCategory meta: classIsMeta stamp: stamp].
- position := prevPos.
- prevPos notNil ifTrue:
- [file := sourceFilesCopy at: prevFileIndex]].
- ^ nil]
- ensure: [sourceFilesCopy do: [:x | x notNil ifTrue: [x close]]]
- !