Bernhard Pieber uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-bp.766.mcz
==================== Summary ====================
Name: Collections-bp.766 Author: bp Time: 6 November 2017, 9:21:14.115712 pm UUID: bdbd2235-fc3c-4754-b390-84ecd1b03efa Ancestors: Collections-bp.765
move method to the EToys package in order to break the introduces dependency from Collections to EToys again
=============== Diff against Collections-bp.765 ===============
Item was removed: - ----- Method: String>>replaceHtmlCharRefs (in category 'internet') ----- - replaceHtmlCharRefs - - | pos ampIndex scIndex special specialValue outString outPos newOutPos | - - outString := String new: self size. - outPos := 0. - - pos := 1. - - [ pos <= self size ] whileTrue: [ - "read up to the next ampersand" - ampIndex := self indexOf: $& startingAt: pos ifAbsent: [0]. - - ampIndex = 0 ifTrue: [ - pos = 1 ifTrue: [ ^self ] ifFalse: [ ampIndex := self size+1 ] ]. - - newOutPos := outPos + ampIndex - pos. - outString - replaceFrom: outPos + 1 - to: newOutPos - with: self - startingAt: pos. - outPos := newOutPos. - pos := ampIndex. - - ampIndex <= self size ifTrue: [ - "find the $;" - scIndex := self indexOf: $; startingAt: ampIndex ifAbsent: [ self size + 1 ]. - - special := self copyFrom: ampIndex+1 to: scIndex-1. - specialValue := HtmlEntity valueOfHtmlEntity: special. - - specialValue - ifNil: [ - "not a recognized entity. wite it back" - scIndex > self size ifTrue: [ scIndex := self size ]. - - newOutPos := outPos + scIndex - ampIndex + 1. - outString - replaceFrom: outPos+1 - to: newOutPos - with: self - startingAt: ampIndex. - outPos := newOutPos.] - ifNotNil: [ - outPos := outPos + 1. - outString at: outPos put: specialValue isoToSqueak.]. - - pos := scIndex + 1. ]. ]. - - - ^outString copyFrom: 1 to: outPos!
packages@lists.squeakfoundation.org