[squeak-dev] The Trunk: Tools-mt.942.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Feb 28 13:25:31 UTC 2020


Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.942.mcz

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

Name: Tools-mt.942
Author: mt
Time: 28 February 2020, 2:25:27.228195 pm
UUID: 60de91cf-f275-744b-91f0-58f80225d512
Ancestors: Tools-mt.941

Prepare 5.3rc3 --- All those "----" entries (SNAPSHOT, QUIT, etc.) in the changes file should not be of type #doIt, because that can cause Compiler/Parser errors. Change it to #misc instead. We might want to remove any other " if begins with ----" checks later, too.

=============== Diff against Tools-mt.941 ===============

Item was changed:
  ----- Method: ChangeList>>scanFile:from:to: (in category 'scanning') -----
  scanFile: aFile from: startPosition to: stopPosition
  	
  	file := aFile.
  	changeList := OrderedCollection new.
  	list := OrderedCollection new.
  	listIndex := 0.
  	file position: startPosition.
  'Scanning ', aFile localName, '...'
  	displayProgressFrom: startPosition to: stopPosition
  	during: [:bar | | prevChar itemPosition item |
  	[file position < stopPosition]
  		whileTrue:
  		[bar value: file position.
  		[file atEnd not and: [file peek isSeparator]]
  				whileTrue: [prevChar := file next].
  		(file peekFor: $!!)
  		ifTrue:
  			[(prevChar = Character cr or: [prevChar = Character lf])
  				ifTrue: [self scanCategory]]
  		ifFalse:
  			[itemPosition := file position.
  			item := file nextChunk.
  			file skipStyleChunk.
  			item size > 0 ifTrue:
+ 				[(item beginsWith: '----')
+ 					ifTrue:
+ 						[self addItem: (ChangeRecord new
+ 								file: file position: itemPosition type: #misc)
+ 								text: 'misc: ' , (item contractTo: 50)]
+ 					ifFalse:
+ 						[self addItem: (ChangeRecord new
+ 								file: file position: itemPosition type: #doIt)
+ 								text: 'do it: ' , (item contractTo: 50)]]]]].
- 				[self addItem: (ChangeRecord new file: file position: itemPosition type: #doIt)
- 					text: 'do it: ' , (item contractTo: 50)]]]].
  	listSelections := Array new: list size withAll: false!



More information about the Squeak-dev mailing list