[Pkg] The Trunk: System-mt.1184.mcz

[commits at source.squeak.org]

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

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

Name: System-mt.1184
Author: mt
Time: 23 October 2020, 12:09:33.729209 pm
UUID: cf1523df-d3d3-ce4b-bd4e-31d13c084874
Ancestors: System-mt.1183

Fixes inverted author index to be case-sensitive to improve lookup quality for overlaps such as "JM" and "jm".

=============== Diff against System-mt.1183 ===============

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 ~= $!!]] 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
- 				at: abbrv asLowercase
  				ifAbsentPut: [Set new]) add: fullName]].!

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