equal
deleted
inserted
replaced
290 this is a first-class candidate for a primitive." |
290 this is a first-class candidate for a primitive." |
291 |
291 |
292 |s anyAbove7BitAscii| |
292 |s anyAbove7BitAscii| |
293 |
293 |
294 anyAbove7BitAscii := false. |
294 anyAbove7BitAscii := false. |
295 s := (String uninitializedNew:aUnicodeString size) writeStream. |
295 s := WriteStream on:(String uninitializedNew:aUnicodeString size). |
296 aUnicodeString do:[:eachCharacter | |
296 aUnicodeString do:[:eachCharacter | |
297 |codePoint b1 b2 b3 b4 b5 v "{Class: SmallInteger }"| |
297 |codePoint b1 b2 b3 b4 b5 v "{Class: SmallInteger }"| |
298 |
298 |
299 codePoint := eachCharacter codePoint. |
299 codePoint := eachCharacter codePoint. |
300 codePoint <= 16r7F ifTrue:[ |
300 codePoint <= 16r7F ifTrue:[ |
369 ! ! |
369 ! ! |
370 |
370 |
371 !ISO10646_to_UTF8 class methodsFor:'documentation'! |
371 !ISO10646_to_UTF8 class methodsFor:'documentation'! |
372 |
372 |
373 version |
373 version |
374 ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__ISO10646_to_UTF8.st,v 1.5 2004-03-12 09:15:01 ca Exp $' |
374 ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__ISO10646_to_UTF8.st,v 1.6 2004-03-17 16:16:31 cg Exp $' |
375 ! ! |
375 ! ! |