15 #include "cl_spushstring.h"
17 #if ((defined(__sparc__) || defined(__rs6000__) || defined(__mips__)) && !defined(__GNUC__))
18 // Sun C++ doesn't have istream::unget().
19 #define unget() putback(c)
22 const cl_string cl_fget (cl_istream stream, char delim)
24 var cl_spushstring buffer;
25 // Handling of eofp is tricky: EOF is reached when (!stream.good()) || (stream.get()==EOF).
26 while (stream.good()) {
27 var int c = stream.get();
29 break; // ios::eofbit already set
36 return buffer.contents();