equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 COPYRIGHT (c) 2017 Jan Vrany |
5 COPYRIGHT (c) 2017 Jan Vrany |
4 All Rights Reserved |
6 All Rights Reserved |
5 |
7 |
2043 self nextPutUtf16Bytes:(aString at:idx) MSB:msb. |
2045 self nextPutUtf16Bytes:(aString at:idx) MSB:msb. |
2044 ]. |
2046 ]. |
2045 |
2047 |
2046 " |
2048 " |
2047 (#[] writeStream |
2049 (#[] writeStream |
2048 nextPutAllUtf16Bytes:'BÄxxx' MSB:true; |
2050 nextPutAllUtf16Bytes:'BÄxxx' MSB:true; |
2049 nextPutUtf16:(Character codePoint:16r10CCCC) MSB:true; |
2051 nextPutUtf16:(Character codePoint:16r10CCCC) MSB:true; |
2050 contents) |
2052 contents) |
2051 " |
2053 " |
2052 ! |
2054 ! |
2053 |
2055 |
2464 ]. |
2466 ]. |
2465 |
2467 |
2466 " |
2468 " |
2467 ((WriteStream on:Unicode16String new) |
2469 ((WriteStream on:Unicode16String new) |
2468 nextPutUtf16:$B; |
2470 nextPutUtf16:$B; |
2469 nextPutUtf16:$Ä; |
2471 nextPutUtf16:$Ä; |
2470 nextPutUtf16:(Character codePoint:16r10CCCC) |
2472 nextPutUtf16:(Character codePoint:16r10CCCC) |
2471 yourself) contents |
2473 yourself) contents |
2472 " |
2474 " |
2473 ! |
2475 ! |
2474 |
2476 |
2500 ]. |
2502 ]. |
2501 |
2503 |
2502 " |
2504 " |
2503 (#[] writeStream |
2505 (#[] writeStream |
2504 nextPutUtf16:$B MSB:true; |
2506 nextPutUtf16:$B MSB:true; |
2505 nextPutUtf16:$Ä MSB:true; |
2507 nextPutUtf16:$Ä MSB:true; |
2506 nextPutUtf16:(Character codePoint:16r10CCCC) MSB:true; |
2508 nextPutUtf16:(Character codePoint:16r10CCCC) MSB:true; |
2507 contents) |
2509 contents) |
2508 |
2510 |
2509 (FileStream newTemporary |
2511 (FileStream newTemporary |
2510 nextPutUtf16:$B MSB:false; |
2512 nextPutUtf16:$B MSB:false; |
2511 nextPutUtf16:$Ä MSB:false; |
2513 nextPutUtf16:$Ä MSB:false; |
2512 nextPutUtf16:(Character codePoint:16r10CCCC) MSB:false; |
2514 nextPutUtf16:(Character codePoint:16r10CCCC) MSB:false; |
2513 reset; |
2515 reset; |
2514 binary; |
2516 binary; |
2515 contents)" |
2517 contents)" |
2516 ! |
2518 ! |
2617 EncodingError raiseWith:aCharacter errorString:'codePoint > 31bit in #nextPutUtf8:'. |
2619 EncodingError raiseWith:aCharacter errorString:'codePoint > 31bit in #nextPutUtf8:'. |
2618 |
2620 |
2619 " |
2621 " |
2620 (String streamContents:[:s| |
2622 (String streamContents:[:s| |
2621 s nextPutUtf8:$a. |
2623 s nextPutUtf8:$a. |
2622 s nextPutUtf8:$ü. |
2624 s nextPutUtf8:$ü. |
2623 s nextPutUtf8: (Character value:16r1fff). |
2625 s nextPutUtf8: (Character value:16r1fff). |
2624 s nextPutUtf8: (Character value:16rffff). |
2626 s nextPutUtf8: (Character value:16rffff). |
2625 s nextPutUtf8: (Character value:16r1ffffff). |
2627 s nextPutUtf8: (Character value:16r1ffffff). |
2626 s nextPutUtf8: (Character value:16r800). |
2628 s nextPutUtf8: (Character value:16r800). |
2627 ]) |
2629 ]) |