equal
deleted
inserted
replaced
22 |
22 |
23 ExternalStream comment:' |
23 ExternalStream comment:' |
24 COPYRIGHT (c) 1988 by Claus Gittinger |
24 COPYRIGHT (c) 1988 by Claus Gittinger |
25 All Rights Reserved |
25 All Rights Reserved |
26 |
26 |
27 $Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.35 1995-05-01 21:29:31 claus Exp $ |
27 $Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.36 1995-05-08 03:29:22 claus Exp $ |
28 '! |
28 '! |
29 |
29 |
30 !ExternalStream primitiveDefinitions! |
30 !ExternalStream primitiveDefinitions! |
31 |
31 |
32 %{ |
32 %{ |
85 " |
85 " |
86 ! |
86 ! |
87 |
87 |
88 version |
88 version |
89 " |
89 " |
90 $Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.35 1995-05-01 21:29:31 claus Exp $ |
90 $Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.36 1995-05-08 03:29:22 claus Exp $ |
91 " |
91 " |
92 ! |
92 ! |
93 |
93 |
94 documentation |
94 documentation |
95 " |
95 " |
543 |
543 |
544 argumentMustBeString |
544 argumentMustBeString |
545 "report an error, that the argument must be a string" |
545 "report an error, that the argument must be a string" |
546 |
546 |
547 ^ self error:'argument must be a string' |
547 ^ self error:'argument must be a string' |
|
548 ! ! |
|
549 |
|
550 !ExternalStream methodsFor:'queries'! |
|
551 |
|
552 isBinary |
|
553 "return true, if the stream is in binary (as opposed to text-) mode. |
|
554 The default when created is false." |
|
555 |
|
556 ^ binary |
548 ! ! |
557 ! ! |
549 |
558 |
550 !ExternalStream methodsFor:'accessing'! |
559 !ExternalStream methodsFor:'accessing'! |
551 |
560 |
552 readonly |
561 readonly |
1729 ^ coll |
1738 ^ coll |
1730 ! ! |
1739 ! ! |
1731 |
1740 |
1732 !ExternalStream methodsFor:'writing'! |
1741 !ExternalStream methodsFor:'writing'! |
1733 |
1742 |
|
1743 commit |
|
1744 "write all buffered date - ignored if unbuffered" |
|
1745 |
|
1746 self synchronizeOutput |
|
1747 ! |
|
1748 |
1734 synchronizeOutput |
1749 synchronizeOutput |
1735 "write all buffered data - for buffered mode only" |
1750 "write all buffered data - ignored if unbuffered" |
1736 |
1751 |
1737 %{ /* NOCONTEXT */ |
1752 %{ /* NOCONTEXT */ |
1738 OBJ fp; |
1753 OBJ fp; |
1739 |
1754 |
1740 _INST(lastErrorNumber) = nil; |
1755 _INST(lastErrorNumber) = nil; |