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!
Locked
