equal
deleted
inserted
replaced
1364 } \ |
1364 } \ |
1365 (ret) = __offs = -1; \ |
1365 (ret) = __offs = -1; \ |
1366 } \ |
1366 } \ |
1367 break; \ |
1367 break; \ |
1368 } \ |
1368 } \ |
1369 __offs += (ret); \ |
1369 __offs += (ret); break; \ |
1370 } \ |
1370 } \ |
1371 } \ |
1371 } \ |
1372 if (__offs > 0) \ |
1372 if (__offs > 0) \ |
1373 (ret) = __offs; \ |
1373 (ret) = __offs; \ |
1374 } |
1374 } |
1800 "Created: 29.2.1996 / 18:14:43 / cg" |
1800 "Created: 29.2.1996 / 18:14:43 / cg" |
1801 "Modified: 29.2.1996 / 18:15:54 / cg" |
1801 "Modified: 29.2.1996 / 18:15:54 / cg" |
1802 ! |
1802 ! |
1803 |
1803 |
1804 new |
1804 new |
1805 |newStream| |
1805 "re-enable new - disabled in Stream superclass" |
1806 |
1806 |
1807 newStream := self basicNew. |
1807 ^ self basicNew initialize. |
1808 newStream text; buffered:true; eolMode:DefaultEOLMode; clearEOF. |
|
1809 ^ newStream |
|
1810 ! ! |
1808 ! ! |
1811 |
1809 |
1812 !ExternalStream class methodsFor:'Signal constants'! |
1810 !ExternalStream class methodsFor:'Signal constants'! |
1813 |
1811 |
1814 inaccessibleSignal |
1812 inaccessibleSignal |
2541 |
2539 |
2542 finalize |
2540 finalize |
2543 "some Stream has been collected - close the file if not already done" |
2541 "some Stream has been collected - close the file if not already done" |
2544 |
2542 |
2545 self closeFile |
2543 self closeFile |
|
2544 ! ! |
|
2545 |
|
2546 !ExternalStream methodsFor:'initialization'! |
|
2547 |
|
2548 initialize |
|
2549 position := 0. |
|
2550 binary := false. |
|
2551 buffered := true. |
|
2552 eolMode := DefaultEOLMode. |
|
2553 hitEOF := false. |
2546 ! ! |
2554 ! ! |
2547 |
2555 |
2548 !ExternalStream methodsFor:'line reading/writing'! |
2556 !ExternalStream methodsFor:'line reading/writing'! |
2549 |
2557 |
2550 nextLine |
2558 nextLine |
5822 ! ! |
5830 ! ! |
5823 |
5831 |
5824 !ExternalStream class methodsFor:'documentation'! |
5832 !ExternalStream class methodsFor:'documentation'! |
5825 |
5833 |
5826 version |
5834 version |
5827 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.374 2013-12-04 14:24:56 stefan Exp $' |
5835 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.378 2014-01-29 13:35:20 stefan Exp $' |
5828 ! |
5836 ! |
5829 |
5837 |
5830 version_CVS |
5838 version_CVS |
5831 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.374 2013-12-04 14:24:56 stefan Exp $' |
5839 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.378 2014-01-29 13:35:20 stefan Exp $' |
5832 ! ! |
5840 ! ! |
5833 |
5841 |
5834 |
5842 |
5835 ExternalStream initialize! |
5843 ExternalStream initialize! |