equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
2792 "append a printed representation from which the receiver can be |
2790 "append a printed representation from which the receiver can be |
2793 reconstructed to aStream. (reimplemented to make it look better)" |
2791 reconstructed to aStream. (reimplemented to make it look better)" |
2794 |
2792 |
2795 |cls| |
2793 |cls| |
2796 |
2794 |
2797 ((cls := self class) == ByteArray or:[cls == ImmutableByteArray]) ifTrue:[ |
2795 cls := self class. |
2798 "/ care for subclasses |
2796 (cls == ByteArray or:[cls == ImmutableByteArray]) ifTrue:[ |
2799 aStream nextPutAll:'#['. |
2797 "/ care for subclasses |
2800 self |
2798 aStream nextPutAll:'#['. |
2801 do:[:byte | byte storeOn:aStream] |
2799 self |
2802 separatedBy:[aStream space]. |
2800 do:[:byte | byte storeOn:aStream] |
2803 aStream nextPutAll:']'. |
2801 separatedBy:[aStream space]. |
2804 ^ self |
2802 aStream nextPut:$]. |
|
2803 ^ self |
2805 ]. |
2804 ]. |
2806 ^ super storeOn:aStream |
2805 ^ super storeOn:aStream |
2807 |
2806 |
2808 " |
2807 " |
2809 #[1 2 3 4 5] storeOn:Transcript |
2808 #[1 2 3 4 5] storeOn:Transcript |
2811 #[1 2 3 4 5] storeString |
2810 #[1 2 3 4 5] storeString |
2812 #[1 2 3 4 5] displayString |
2811 #[1 2 3 4 5] displayString |
2813 #[1 2 3 4 5] printString |
2812 #[1 2 3 4 5] printString |
2814 " |
2813 " |
2815 |
2814 |
2816 "Modified: 12.9.1997 / 22:11:33 / cg" |
2815 "Modified: / 12-09-1997 / 22:11:33 / cg" |
|
2816 "Modified: / 17-02-2017 / 10:50:37 / stefan" |
2817 ! ! |
2817 ! ! |
2818 |
2818 |
2819 !ByteArray methodsFor:'queries'! |
2819 !ByteArray methodsFor:'queries'! |
2820 |
2820 |
2821 containsNon7BitAscii |
2821 containsNon7BitAscii |