equal
deleted
inserted
replaced
272 |
272 |
273 ^ self nextPutInt16:aNumber MSB:true |
273 ^ self nextPutInt16:aNumber MSB:true |
274 |
274 |
275 "Modified: 10.1.1996 / 19:39:19 / cg" |
275 "Modified: 10.1.1996 / 19:39:19 / cg" |
276 ! ! |
276 ! ! |
277 |
|
278 |
|
279 |
277 |
280 !Stream methodsFor:'accessing'! |
278 !Stream methodsFor:'accessing'! |
281 |
279 |
282 contents |
280 contents |
283 "return the entire contents of the stream. |
281 "return the entire contents of the stream. |
1775 |
1773 |
1776 "Created: 10.1.1996 / 19:50:02 / cg" |
1774 "Created: 10.1.1996 / 19:50:02 / cg" |
1777 ! ! |
1775 ! ! |
1778 |
1776 |
1779 !Stream methodsFor:'non homogenous writing'! |
1777 !Stream methodsFor:'non homogenous writing'! |
|
1778 |
|
1779 next:count putByte:aByteValue |
|
1780 "write a byte n times" |
|
1781 |
|
1782 |n "{ Class: SmallInteger }"| |
|
1783 |
|
1784 n := count. |
|
1785 n timesRepeat:[self nextPutByte:aByteValue]. |
|
1786 |
|
1787 " |
|
1788 |s| |
|
1789 s := ByteArray new writeStream. |
|
1790 s nextPutByte:1. |
|
1791 s next:10 putByte:99. |
|
1792 s nextPutByte:2. |
|
1793 s contents |
|
1794 " |
|
1795 ! |
1780 |
1796 |
1781 nextNumber:n put:v |
1797 nextNumber:n put:v |
1782 "Append to the receiver the argument, v, which is a positive Integer, |
1798 "Append to the receiver the argument, v, which is a positive Integer, |
1783 as the next n bytes. Bytes are written msb first. |
1799 as the next n bytes. Bytes are written msb first. |
1784 Possibly pad with leading zeros. |
1800 Possibly pad with leading zeros. |