[squeak-dev] The Trunk: System-dtl.1304.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Feb 9 23:54:39 UTC 2022
David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.1304.mcz
==================== Summary ====================
Name: System-dtl.1304
Author: dtl
Time: 8 February 2022, 8:54:15.36808 pm
UUID: 425a12bd-d324-4d48-91db-a29dfb4bb67b
Ancestors: System-mt.1303
Use Character cr as a separator in privateAuthorsRaw so that each author appears on a separate line in the method. Future updates will be readable in the version diffs.
=============== Diff against System-mt.1303 ===============
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)
More information about the Squeak-dev
mailing list
|