equal
deleted
inserted
replaced
2235 ] ifTrue:[ |
2235 ] ifTrue:[ |
2236 "/ start an argument expansion ... |
2236 "/ start an argument expansion ... |
2237 nr := Integer readFrom:in onError:nil. |
2237 nr := Integer readFrom:in onError:nil. |
2238 nr isNil ifTrue:[ |
2238 nr isNil ifTrue:[ |
2239 "/ what does VW do here ? |
2239 "/ what does VW do here ? |
2240 self halt:'invalid format'. |
2240 self error:'invalid format' mayProceed:true. |
2241 ^ self |
2241 ^ self |
2242 ]. |
2242 ]. |
2243 (nr between:1 and:argArray size) ifFalse:[ |
2243 (nr between:1 and:argArray size) ifFalse:[ |
2244 "/ what does VW do here ? |
2244 "/ what does VW do here ? |
2245 self halt:'invalid format - bad argNr'. |
2245 self error:'invalid format - bad argNr' mayProceed:true. |
2246 ^ self |
2246 ^ self |
2247 ]. |
2247 ]. |
2248 ]. |
2248 ]. |
2249 arg := argArray at:nr. |
2249 arg := argArray at:nr. |
2250 |
2250 |
2263 ] ifFalse:[ |
2263 ] ifFalse:[ |
2264 out nextPutAll:s2 |
2264 out nextPutAll:s2 |
2265 ]. |
2265 ]. |
2266 ] ifFalse:[ |
2266 ] ifFalse:[ |
2267 "/ what does VW do here ? |
2267 "/ what does VW do here ? |
2268 self halt:'invalid format'. |
2268 self error:'invalid format' mayProceed:true. |
2269 ^ self |
2269 ^ self |
2270 ]]]. |
2270 ]]]. |
2271 ]]. |
2271 ]]. |
2272 c := in next. |
2272 c := in next. |
2273 c ~~ $> ifTrue:[ |
2273 c ~~ $> ifTrue:[ |
2274 "/ what does VW do here ? |
2274 "/ what does VW do here ? |
2275 self halt:'invalid format'. |
2275 self error:'invalid format' mayProceed:true. |
2276 ^ self |
2276 ^ self |
2277 ] |
2277 ] |
2278 ] ifFalse:[ |
2278 ] ifFalse:[ |
2279 out nextPut:c |
2279 out nextPut:c |
2280 ]. |
2280 ]. |
5650 ! ! |
5650 ! ! |
5651 |
5651 |
5652 !CharacterArray class methodsFor:'documentation'! |
5652 !CharacterArray class methodsFor:'documentation'! |
5653 |
5653 |
5654 version |
5654 version |
5655 ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.190 2000-09-26 12:49:23 cg Exp $' |
5655 ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.191 2000-11-16 16:00:58 cg Exp $' |
5656 ! ! |
5656 ! ! |
5657 CharacterArray initialize! |
5657 CharacterArray initialize! |