equal
deleted
inserted
replaced
1727 |
1727 |
1728 "Created: / 5.3.1998 / 02:56:49 / cg" |
1728 "Created: / 5.3.1998 / 02:56:49 / cg" |
1729 "Modified: / 5.3.1998 / 13:45:07 / cg" |
1729 "Modified: / 5.3.1998 / 13:45:07 / cg" |
1730 ! |
1730 ! |
1731 |
1731 |
1732 skip:count |
1732 skip:numberToSkip |
1733 "skip count objects, return the receiver" |
1733 "skip numberToSkip objects, return the receiver" |
1734 |
|
1735 |n "{ Class: SmallInteger }"| |
|
1736 |
|
1737 n := count. |
|
1738 |
1734 |
1739 "dont know how to unread ..." |
1735 "dont know how to unread ..." |
1740 n < 0 ifTrue:[ |
1736 numberToSkip < 0 ifTrue:[ |
1741 PositionErrorSignal raiseRequest. |
1737 PositionErrorSignal raiseRequest. |
1742 ^ self |
1738 ^ self |
1743 ]. |
1739 ]. |
1744 n timesRepeat:self next |
1740 numberToSkip timesRepeat:self next |
1745 |
1741 |
1746 " |
1742 " |
1747 |s| |
1743 |s| |
1748 s := ReadStream on:#(1 2 3 4 5 6 7 8). |
1744 s := ReadStream on:#(1 2 3 4 5 6 7 8). |
1749 s skip:4. |
1745 s skip:4. |
2534 ! ! |
2530 ! ! |
2535 |
2531 |
2536 !Stream class methodsFor:'documentation'! |
2532 !Stream class methodsFor:'documentation'! |
2537 |
2533 |
2538 version |
2534 version |
2539 ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.110 2003-04-10 14:45:42 cg Exp $' |
2535 ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.111 2003-04-28 10:16:57 cg Exp $' |
2540 ! ! |
2536 ! ! |
2541 |
2537 |
2542 Stream initialize! |
2538 Stream initialize! |