equal
deleted
inserted
replaced
4118 idx2 := self indexOf:$> startingAt:idx+2. |
4118 idx2 := self indexOf:$> startingAt:idx+2. |
4119 key := self copyFrom:idx+2 to:idx2-1. |
4119 key := self copyFrom:idx+2 to:idx2-1. |
4120 idx := idx2 - 1. |
4120 idx := idx2 - 1. |
4121 key := key asSymbolIfInterned. |
4121 key := key asSymbolIfInterned. |
4122 (#(cr tab nl return lf ff null) includesIdentical:key) ifTrue:[ |
4122 (#(cr tab nl return lf ff null) includesIdentical:key) ifTrue:[ |
4123 aStream perform:key. |
4123 aStream nextPut:(Character perform:key). |
4124 ]. |
4124 ]. |
4125 ] ifFalse:[ |
4125 ] ifFalse:[ |
4126 (next between:$1 and:$9) ifTrue:[ |
4126 (next between:$1 and:$9) ifTrue:[ |
4127 v := argArrayOrDictionary at:(next digitValue) ifAbsent:nil |
4127 v := argArrayOrDictionary at:(next digitValue) ifAbsent:nil |
4128 ] ifFalse:[next == $( ifTrue:[ |
4128 ] ifFalse:[next == $( ifTrue:[ |
4147 argArrayOrDictionary at:next asSymbol ifAbsent:[String with:$% with:next]. |
4147 argArrayOrDictionary at:next asSymbol ifAbsent:[String with:$% with:next]. |
4148 ]. |
4148 ]. |
4149 ] ifTrue:[ |
4149 ] ifTrue:[ |
4150 v := String with:$% with:next. "No match, keep original sequence" |
4150 v := String with:$% with:next. "No match, keep original sequence" |
4151 ]. |
4151 ]. |
4152 ]]]. |
4152 ]]. |
4153 v notNil ifTrue:[ |
4153 v notNil ifTrue:[ |
4154 v isBlock ifTrue:[ |
4154 v isBlock ifTrue:[ |
4155 v := v value |
4155 v := v value |
4156 ]. |
4156 ]. |
4157 v printOn:aStream. |
4157 v printOn:aStream. |
4158 ]. |
4158 ]. |
4159 ]. |
4159 ]]. |
4160 start := idx + 2 |
4160 start := idx + 2 |
4161 ]. |
4161 ]. |
4162 |
4162 |
4163 " |
4163 " |
4164 String streamContents:[:s| |
4164 String streamContents:[:s| |
5439 ! ! |
5439 ! ! |
5440 |
5440 |
5441 !CharacterArray class methodsFor:'documentation'! |
5441 !CharacterArray class methodsFor:'documentation'! |
5442 |
5442 |
5443 version |
5443 version |
5444 ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.372 2008-04-09 13:46:57 stefan Exp $' |
5444 ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.373 2008-04-09 13:58:21 stefan Exp $' |
5445 ! ! |
5445 ! ! |
5446 |
5446 |
5447 CharacterArray initialize! |
5447 CharacterArray initialize! |