Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.345.mcz
==================== Summary ====================
Name: System-eem.345 Author: eem Time: 29 June 2010, 5:48:20.596 pm UUID: 1ba583d2-9788-4bfd-b1d5-9b88c7769cd2 Ancestors: System-tbn.344
Changes to ChangeRecord to support remove unchanged definitions and file-in reorganizations in the ChangeList.
=============== Diff against System-tbn.344 ===============
Item was added: + ----- Method: ChangeRecord>>commentClass (in category 'access') ----- + commentClass + | commentClass | + type == #classComment ifFalse: [^ nil]. + (Smalltalk includesKey: class asSymbol) ifFalse: [^ nil]. + commentClass := Smalltalk at: class asSymbol. + ^meta ifTrue: [commentClass class] + ifFalse: [commentClass]!
Item was changed: ----- Method: ChangeRecord>>methodClassName (in category 'access') ----- methodClassName + | text tokens | + (class isNil + and: [type = #doIt + and: [((text := self text) includes: $.) not "exclude multi-statement doits" + and: [(tokens := Scanner new scanTokens: text) size >= 4 + and: [tokens first isSymbol + and: [tokens first isKeyword not + and: [tokens first first canBeGlobalVarInitial + and: [tokens includes: #instanceVariableNames:]]]]]]]) ifTrue: + ["Could be a class definition. + Class definitions start with Superclass blahSubclass: #ClassName + Metaclass definitions start with ClassName class instanceVariableNames:" + (tokens second isSymbol + and: [tokens second isKeyword + and: [tokens third isSymbol + and: [tokens third isKeyword not + and: [(2 to: tokens size by: 2) allSatisfy: [:i| (tokens at: i) isKeyword]]]]]) ifTrue: + [^tokens third]. + (tokens size = 4 + and: [tokens second = #class + and: [tokens third = #instanceVariableNames: + and: [tokens last isString]]]) ifTrue: + [^tokens first]]. ^class!
Item was changed: ----- Method: ChangeRecord>>fileIn (in category 'initialization') ----- fileIn + "File the receiver in. If I represent a method or a class-comment, file the method in and make a note of it in the recent-submissions list; if I represent a do-it, then, well, do it; if I represent a reorganization then get organized!!" - "File the receiver in. If I represent a method or a class-comment, file the method in and make a note of it in the recent-submissions list; if I represent a do-it, then, well, do it."
Cursor read showWhile: + [| s cls aSelector | + type == #doIt + ifTrue: + [((s := self string) beginsWith: '----') ifFalse: [Compiler evaluate: s]] + ifFalse: + [cls := Smalltalk at: class asSymbol. + cls := meta ifTrue: [cls class] ifFalse: [cls]. + type == #method ifTrue: + [cls compile: self text classified: category withStamp: stamp notifying: nil. + (aSelector := self methodSelector) ifNotNil: + [Utilities noteMethodSubmission: aSelector forClass: cls]]. + type == #classComment ifTrue: + [cls comment: self text stamp: stamp. + Utilities noteMethodSubmission: #Comment forClass: cls ]. + type == #reorganize ifTrue: + [cls organization changeFromString: self text]]]! - [| methodClass s aSelector | - (methodClass := self methodClass) notNil ifTrue: - [methodClass compile: self text classified: category withStamp: stamp notifying: nil. - (aSelector := self methodSelector) ifNotNil: - [Utilities noteMethodSubmission: aSelector forClass: methodClass]]. - (type == #doIt) ifTrue: - [((s := self string) beginsWith: '----') ifFalse: [Compiler evaluate: s]]. - (type == #classComment) ifTrue: - [ | cls | (cls := Smalltalk at: class asSymbol) comment: self text stamp: stamp. - Utilities noteMethodSubmission: #Comment forClass: cls ]]!
Item was changed: ----- Method: ChangeRecord>>fileIndex (in category 'access') ----- fileIndex + SourceFiles withIndexDo: [:sf :i| sf name = file name ifTrue: [^i]]. + ^nil! - ^ (SourceFiles collect: [ :sf | sf name]) - indexOf: file name ifAbsent: [^ nil]. - !