equal
deleted
inserted
replaced
1320 if (__offs > 0) \ |
1320 if (__offs > 0) \ |
1321 (ret) = __offs; \ |
1321 (ret) = __offs; \ |
1322 } \ |
1322 } \ |
1323 } |
1323 } |
1324 # else /* use STDIO */ |
1324 # else /* use STDIO */ |
|
1325 #error XXXX |
1325 # define __WRITEBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered, handleType) \ |
1326 # define __WRITEBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered, handleType) \ |
1326 { \ |
1327 { \ |
1327 int __ooffs = obj_offs; \ |
1328 int __ooffs = obj_offs; \ |
1328 int __offs = 0; \ |
1329 int __offs = 0; \ |
1329 char *buf = (char *)(obj); \ |
1330 char *buf = (char *)(obj); \ |
1800 "Created: 29.2.1996 / 18:14:43 / cg" |
1801 "Created: 29.2.1996 / 18:14:43 / cg" |
1801 "Modified: 29.2.1996 / 18:15:54 / cg" |
1802 "Modified: 29.2.1996 / 18:15:54 / cg" |
1802 ! |
1803 ! |
1803 |
1804 |
1804 new |
1805 new |
1805 |newStream| |
1806 "re-enable new - disabled in Stream superclass" |
1806 |
1807 |
1807 newStream := self basicNew. |
1808 ^ self basicNew initialize. |
1808 newStream text; buffered:true; eolMode:DefaultEOLMode; clearEOF. |
|
1809 ^ newStream |
|
1810 ! ! |
1809 ! ! |
1811 |
1810 |
1812 !ExternalStream class methodsFor:'Signal constants'! |
1811 !ExternalStream class methodsFor:'Signal constants'! |
1813 |
1812 |
1814 inaccessibleSignal |
1813 inaccessibleSignal |
2541 |
2540 |
2542 finalize |
2541 finalize |
2543 "some Stream has been collected - close the file if not already done" |
2542 "some Stream has been collected - close the file if not already done" |
2544 |
2543 |
2545 self closeFile |
2544 self closeFile |
|
2545 ! ! |
|
2546 |
|
2547 !ExternalStream methodsFor:'initialization'! |
|
2548 |
|
2549 initialize |
|
2550 self text; buffered:true; eolMode:DefaultEOLMode; clearEOF. |
2546 ! ! |
2551 ! ! |
2547 |
2552 |
2548 !ExternalStream methodsFor:'line reading/writing'! |
2553 !ExternalStream methodsFor:'line reading/writing'! |
2549 |
2554 |
2550 nextLine |
2555 nextLine |
5822 ! ! |
5827 ! ! |
5823 |
5828 |
5824 !ExternalStream class methodsFor:'documentation'! |
5829 !ExternalStream class methodsFor:'documentation'! |
5825 |
5830 |
5826 version |
5831 version |
5827 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.375 2014-01-15 10:39:54 stefan Exp $' |
5832 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.376 2014-01-28 22:21:02 stefan Exp $' |
5828 ! |
5833 ! |
5829 |
5834 |
5830 version_CVS |
5835 version_CVS |
5831 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.375 2014-01-15 10:39:54 stefan Exp $' |
5836 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.376 2014-01-28 22:21:02 stefan Exp $' |
5832 ! ! |
5837 ! ! |
5833 |
5838 |
5834 |
5839 |
5835 ExternalStream initialize! |
5840 ExternalStream initialize! |