[squeak-dev] The Trunk: System-dtl.1306.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Feb 9 23:53:56 UTC 2022


David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.1306.mcz

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

Name: System-dtl.1306
Author: dtl
Time: 9 February 2022, 6:47:25.120342 pm
UUID: 566cabd3-a7d2-483c-a51d-eada7d4c6929
Ancestors: System-mt.1305, System-dtl.1304

Add David O'Toole to the list of known contributors, and merge System-dtl.1304 for maintaining the list

=============== Diff against System-mt.1305 ===============

Item was changed:
  ----- Method: SystemNavigation class>>initializeAuthors (in category 'class initialization') -----
  initializeAuthors
  	"self initializeAuthors"
  	
  	| s currentName currentAbbrv |
  	Authors := Dictionary new.
  	s := self privateAuthorsRaw readStream.
  	
  	[s atEnd] whileFalse: [
  		"Read author name"
  		currentName := String streamContents: [:as |
  			[s peek ~= $#] whileTrue: [as nextPut: s next]].
  		Authors at: currentName put: Set new.
  		"Read abbreviations"
  		s next. "skip $#"
  		currentAbbrv := ''.
+ 		[s atEnd not and: [s peek ~= Character cr]] whileTrue: [
- 		[s atEnd not and: [s peek ~= $!!]] whileTrue: [
  			s peek = $# ifTrue: [
  				(Authors at: currentName) add: currentAbbrv.
  				currentAbbrv := ''.
  				s next. "skip $#"].
  			currentAbbrv := currentAbbrv, s next asString. "slow..."
  			].
  		currentAbbrv ifNotEmpty: [(Authors at: currentName) add: currentAbbrv].
  		s next. "skip $!!"
  	].
  
  	"Fill inverted index for authors."
  	AuthorsInverted := Dictionary new.
  	Authors keysAndValuesDo: [:fullName :abbreviations |
  		abbreviations do: [:abbrv |
  			(AuthorsInverted
  				at: abbrv
  				ifAbsentPut: [Set new]) add: fullName]].!

Item was changed:
  ----- Method: SystemNavigation class>>privateAuthorsRaw (in category 'class initialization') -----
(excessive size, no diff calculated)

Item was changed:
+ (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors. "Adds David O''Toole"'!
- (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors. "Adds Eric Gade"'!



More information about the Squeak-dev mailing list