[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