equal
deleted
inserted
replaced
403 self nextPutBytes:(ByteArray with:anObject codePoint). |
403 self nextPutBytes:(ByteArray with:anObject codePoint). |
404 ^ self. |
404 ^ self. |
405 ]. |
405 ]. |
406 |
406 |
407 anObject isInteger ifTrue:[ |
407 anObject isInteger ifTrue:[ |
408 "/ only 0..255 allowed !! |
408 self nextPutBytes:anObject digitBytes. |
409 anObject < 256 ifTrue:[ |
409 ^ self. |
410 self nextPutAll:(ByteArray with:anObject). |
|
411 ^ self. |
|
412 ]. |
|
413 ]. |
410 ]. |
414 |
411 |
415 self error:'unsupported argument'. |
412 self error:'unsupported argument'. |
416 |
413 |
417 "Modified (comment): / 09-01-2012 / 16:54:05 / cg" |
414 "Modified (comment): / 09-01-2012 / 16:54:05 / cg" |
442 ! ! |
439 ! ! |
443 |
440 |
444 !HashStream class methodsFor:'documentation'! |
441 !HashStream class methodsFor:'documentation'! |
445 |
442 |
446 version |
443 version |
447 ^ '$Header: /cvs/stx/stx/libbasic/HashStream.st,v 1.29 2013-08-11 22:25:34 stefan Exp $' |
444 ^ '$Header: /cvs/stx/stx/libbasic/HashStream.st,v 1.30 2014-10-02 17:48:04 stefan Exp $' |
448 ! |
445 ! |
449 |
446 |
450 version_CVS |
447 version_CVS |
451 ^ '$Header: /cvs/stx/stx/libbasic/HashStream.st,v 1.29 2013-08-11 22:25:34 stefan Exp $' |
448 ^ '$Header: /cvs/stx/stx/libbasic/HashStream.st,v 1.30 2014-10-02 17:48:04 stefan Exp $' |
452 ! ! |
449 ! ! |
453 |
450 |