hg/stx-libbasic: comparison Stream.st

equal deleted inserted replaced

-:d41c73151593
+:187ad70cdb1c
+"{ Encoding: utf8 }"
 "
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 This software is furnished under a license and may be used
 isAbstract
 ^ self == Stream
 ! !
 !Stream methodsFor:'Compatibility-Dolphin'!
 display:someObject
 "dolphin compatibility"
 This is only allowed, if the receiver supports writing."
 self nextPut:(Character nl)
 ! !
-!Stream methodsFor:'JS syntactic sugar'!
-log:something
-"same as showCR:.
-Added to allow for Transcript.log(...) to be used in a similar way as
-console.log(...).
-Not for non-JavaScript usage"
-self showCR:something.
-"Created: / 30-08-2018 / 13:29:50 / Claus Gittinger"
-! !
 !Stream methodsFor:'accessing'!
 contents
 "return the entire contents of the stream.
 self nextPutUtf16Bytes:(aString at:idx) MSB:msb.
 ].
 "
 (#[] writeStream
-nextPutAllUtf16Bytes:'BÄxxx' MSB:true;
+nextPutAllUtf16Bytes:'BÃxxx' MSB:true;
 nextPutUtf16:(Character codePoint:16r10CCCC) MSB:true;
 contents)
 "
 !
 ByteArray streamContents:[:s|
 s nextPutAllUtf8:'hallo'
 ].
 String streamContents:[:s|
-s nextPutAllUtf8:'abcdeäöüß' asUnicode32String
+s nextPutAllUtf8:'abcdeÃ¤Ã¶Ã¼Ã' asUnicode32String
 ].
 .
 ByteArray streamContents:[:s|
-s nextPutAllUtf8:'abcdeäöüß' asUnicode32String
+s nextPutAllUtf8:'abcdeÃ¤Ã¶Ã¼Ã' asUnicode32String
 ].
 '/tmp/bytes' asFilename writingFileDo:[:s|
-s nextPutAllUtf8:'abcdeäöüß'
+s nextPutAllUtf8:'abcdeÃ¤Ã¶Ã¼Ã'
 ].
 "
 "Modified (format): / 16-02-2017 / 20:28:52 / stefan"
 !
 ].
 "
 ((WriteStream on:Unicode16String new)
 nextPutUtf16:$B;
-nextPutUtf16:$Ä;
+nextPutUtf16:$Ã;
 nextPutUtf16:(Character codePoint:16r10CCCC)
 yourself) contents
 "
 !
 ].
 "
 (#[] writeStream
 nextPutUtf16Bytes:$B MSB:true;
-nextPutUtf16Bytes:$Ä MSB:true;
+nextPutUtf16Bytes:$Ã MSB:true;
 nextPutUtf16Bytes:(Character codePoint:16r10CCCC) MSB:true;
 contents)
 ('' writeStream
 nextPutUtf16Bytes:$B MSB:true;
-nextPutUtf16Bytes:$Ä MSB:true;
+nextPutUtf16Bytes:$Ã MSB:true;
 nextPutUtf16Bytes:(Character codePoint:16r10CCCC) MSB:true;
 contents)
 (FileStream newTemporary
 nextPutUtf16Bytes:$B MSB:false;
-nextPutUtf16Bytes:$Ä MSB:false;
+nextPutUtf16Bytes:$Ã MSB:false;
 nextPutUtf16Bytes:(Character codePoint:16r10CCCC) MSB:false;
 reset;
 binary;
 contents)
 "
 EncodingError raiseWith:aCharacter errorString:'codePoint > 31bit in #nextPutUtf8:'.
 "
 (String streamContents:[:s|
 s nextPutUtf8:$a.
-s nextPutUtf8:$ü.
+s nextPutUtf8:$Ã¼.
 s nextPutUtf8: (Character value:16r1fff).
 s nextPutUtf8: (Character value:16rffff).
 s nextPutUtf8: (Character value:16r1ffffff).
 s nextPutUtf8: (Character value:16r800).
 ])
 "append the elements with index from first to last
 of the argument, aCollection onto the receiver.
 This is only allowed, if the receiver supports writing."
 aCollection from:first to:last do:[:element |
-	self nextPut:element
+self nextPut:element
 ].
-^ aCollection
 "
 |s|
 s := WriteStream on:#().
 s nextPutAll:#('one' 'two' 'three' 'four' 'five') startingAt:2 to:4.
 s contents
 "
-"Modified: 11.7.1996 / 10:00:32 / cg"
+"Modified: / 11-07-1996 / 10:00:32 / cg"
+"Modified: / 22-11-2018 / 12:52:25 / Stefan Vogel"
 !
 nextPutAllLines:aCollectionOfStrings
 "put all elements of the argument, aCollection as individual lines
 onto the receiver, append a cr (carriage return) after each.

changeset 23540	187ad70cdb1c
parent 23320	50cd7d7c8750
child 23729	772ddbedfb9d