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.53 1995-09-17 17:56:12 claus Exp $ |
27 $Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.54 1995-09-21 12:30:21 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.53 1995-09-17 17:56:12 claus Exp $ |
94 $Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.54 1995-09-21 12:30:21 claus Exp $ |
95 " |
95 " |
96 ! |
96 ! |
97 |
97 |
98 documentation |
98 documentation |
99 " |
99 " |
2150 #endif |
2150 #endif |
2151 if (ch == EOF) { |
2151 if (ch == EOF) { |
2152 if (ferror(f)) { |
2152 if (ferror(f)) { |
2153 if (errno == EINTR) { |
2153 if (errno == EINTR) { |
2154 clearerr(f); |
2154 clearerr(f); |
2155 continue; |
2155 if (! feof(f)) { |
|
2156 continue; |
|
2157 } |
2156 } |
2158 } |
2157 _INST(lastErrorNumber) = __MKSMALLINT(errno); |
2159 _INST(lastErrorNumber) = __MKSMALLINT(errno); |
2158 } |
2160 } |
2159 len = 0; |
2161 len = 0; |
2160 } else { |
2162 } else { |