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 |
483 advancePositionAndReturn: ; |
481 advancePositionAndReturn: ; |
484 if ((__readLimit >= 0) && (pos > __readLimit)) { |
482 if ((__readLimit >= 0) && (pos > __readLimit)) { |
485 __INST(readLimit) = __mkSmallInteger(pos); |
483 __INST(readLimit) = __mkSmallInteger(pos); |
486 } |
484 } |
487 __INST(position) = __mkSmallInteger(pos); |
485 __INST(position) = __mkSmallInteger(pos); |
488 RETURN ( self ); |
486 RETURN ( anObject ); |
489 } |
487 } |
490 } else if (cls == @global(ByteArray)) { |
488 } else if (cls == @global(ByteArray)) { |
491 if (__isSmallInteger(anObject) |
489 if (__isSmallInteger(anObject) |
492 && ((ch = __intVal(anObject)) <= 0xFF) /* ch is unsigned */ |
490 && ((ch = __intVal(anObject)) <= 0xFF) /* ch is unsigned */ |
493 && (pos <= __byteArraySize(coll))) { |
491 && (pos <= __byteArraySize(coll))) { |
524 position := position + 1. |
522 position := position + 1. |
525 (position > readLimit) ifTrue:[readLimit := position]. |
523 (position > readLimit) ifTrue:[readLimit := position]. |
526 ] ifFalse:[ |
524 ] ifFalse:[ |
527 WriteError raiseErrorString:'write beyond writeLimit' |
525 WriteError raiseErrorString:'write beyond writeLimit' |
528 ]. |
526 ]. |
|
527 ^ anObject |
529 ! |
528 ! |
530 |
529 |
531 nextPutAll:aCollection |
530 nextPutAll:aCollection |
532 "append all elements of the argument, aCollection to the stream. |
531 "append all elements of the argument, aCollection to the stream. |
533 Answer the receiver. |
532 Answer the receiver. |