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/ExternalStream.st,v 1.52 1995-09-16 17:13:10 claus Exp $ |
27 $Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.53 1995-09-17 17:56:12 claus Exp $ |
28 '! |
28 '! |
29 |
29 |
30 !ExternalStream primitiveDefinitions! |
30 !ExternalStream primitiveDefinitions! |
31 |
31 |
32 %{ |
32 %{ |
89 " |
89 " |
90 ! |
90 ! |
91 |
91 |
92 version |
92 version |
93 " |
93 " |
94 $Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.52 1995-09-16 17:13:10 claus Exp $ |
94 $Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.53 1995-09-17 17:56:12 claus Exp $ |
95 " |
95 " |
96 ! |
96 ! |
97 |
97 |
98 documentation |
98 documentation |
99 " |
99 " |
532 |
532 |
533 ^ self error:'argument must be a string' |
533 ^ self error:'argument must be a string' |
534 ! ! |
534 ! ! |
535 |
535 |
536 !ExternalStream methodsFor:'queries'! |
536 !ExternalStream methodsFor:'queries'! |
|
537 |
|
538 isExternalStream |
|
539 "return true, if the receiver is some kind of externalStream; |
|
540 true is returned here - the method redefined from Object." |
|
541 |
|
542 ^ true |
|
543 ! |
537 |
544 |
538 isReadable |
545 isReadable |
539 "return true, if this stream can be read from" |
546 "return true, if this stream can be read from" |
540 |
547 |
541 ^ (mode ~~ #writeonly) |
548 ^ (mode ~~ #writeonly) |
2995 if (((fp = _INST(filePointer)) != nil) |
3002 if (((fp = _INST(filePointer)) != nil) |
2996 && (_INST(mode) != @symbol(writeonly))) { |
3003 && (_INST(mode) != @symbol(writeonly))) { |
2997 if (_INST(binary) != true) { |
3004 if (_INST(binary) != true) { |
2998 f = MKFD(fp); |
3005 f = MKFD(fp); |
2999 |
3006 |
3000 if (feof(f)) { |
3007 if (feof(f)) { |
3001 _INST(hitEOF) = true; |
3008 _INST(hitEOF) = true; |
3002 RETURN ( nil ); |
3009 RETURN ( nil ); |
3003 } |
3010 } |
3004 |
3011 |
3005 __READING__(f) |
3012 __READING__(f) |