The Trunk: System-mt.1184.mcz

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)