1 /*
2 * Copyright (c) 1999
3 * Silicon Graphics Computer Systems, Inc.
4 *
5 * Copyright (c) 1999
6 * Boris Fomitchev
7 *
8 * This material is provided "as is", with absolutely no warranty expressed
9 * or implied. Any use is at your own risk.
10 *
11 * Permission to use or copy this software for any purpose is hereby granted
12 * without fee, provided the above notices are retained on all copies.
13 * Permission to modify the code and to distribute modified code is granted,
14 * provided the above notices are retained, and a notice that the code was
15 * modified is included with the above copyright notice.
16 *
17 */
18
19 #ifndef _STLP_SSTREAM_C
20 #define _STLP_SSTREAM_C
21
22 #ifndef _STLP_INTERNAL_SSTREAM
23 # include <stl/_sstream.h>
24 #endif
25
26 #if defined ( _STLP_NESTED_TYPE_PARAM_BUG )
27 // no wint_t is supported for this mode
28 # define __BSB_int_type__ int
29 # define __BSB_pos_type__ streampos
30 #else
31 # define __BSB_int_type__ _STLP_TYPENAME_ON_RETURN_TYPE basic_stringbuf<_CharT, _Traits, _Alloc>::int_type
32 # define __BSB_pos_type__ _STLP_TYPENAME_ON_RETURN_TYPE basic_stringbuf<_CharT, _Traits, _Alloc>::pos_type
33 #endif
34
35 _STLP_BEGIN_NAMESPACE
36
37 //----------------------------------------------------------------------
38 // Non-inline stringbuf member functions.
39
40 // Constructors. Note that the base class constructor sets all of the
41 // get and area pointers to null.
42
43 template <class _CharT, class _Traits, class _Alloc>
44 basic_stringbuf<_CharT, _Traits, _Alloc>
basic_stringbuf(ios_base::openmode __mode)45 ::basic_stringbuf(ios_base::openmode __mode)
46 : basic_streambuf<_CharT, _Traits>(), _M_mode(__mode), _M_str()
47 {}
48
49 template <class _CharT, class _Traits, class _Alloc>
50 basic_stringbuf<_CharT, _Traits, _Alloc>
basic_stringbuf(const basic_string<_CharT,_Traits,_Alloc> & __s,ios_base::openmode __mode)51 ::basic_stringbuf(const basic_string<_CharT, _Traits, _Alloc>& __s, ios_base::openmode __mode)
52 : basic_streambuf<_CharT, _Traits>(), _M_mode(__mode), _M_str(__s)
53 {
54 _M_set_ptrs();
55 }
56
57 template <class _CharT, class _Traits, class _Alloc>
~basic_stringbuf()58 basic_stringbuf<_CharT, _Traits, _Alloc>::~basic_stringbuf()
59 {}
60
61 // Set the underlying string to a new value.
62 template <class _CharT, class _Traits, class _Alloc>
63 void
str(const basic_string<_CharT,_Traits,_Alloc> & __s)64 basic_stringbuf<_CharT, _Traits, _Alloc>::str(const basic_string<_CharT, _Traits, _Alloc>& __s)
65 {
66 _M_str = __s;
67 _M_set_ptrs();
68 }
69
70 template <class _CharT, class _Traits, class _Alloc>
71 void
_M_set_ptrs()72 basic_stringbuf<_CharT, _Traits, _Alloc>::_M_set_ptrs()
73 {
74 _CharT* __data_ptr = _S_start(_M_str);
75 _CharT* __data_end = _S_finish(_M_str);
76 // The initial read position is the beginning of the string.
77 if (_M_mode & ios_base::in) {
78 this->setg(__data_ptr, (_M_mode & ios_base::ate) ? __data_end : __data_ptr, __data_end);
79 }
80
81 // The initial write position is the beginning of the string.
82 if (_M_mode & ios_base::out) {
83 if ( _M_mode & (ios_base::app | ios_base::ate) ) {
84 this->setp( __data_end, __data_end );
85 } else {
86 this->setp( __data_ptr, __data_end );
87 this->pbump((int)_M_str.size()); // initial write position, if we initialized with string
88 }
89 // this->setp((_M_mode & (ios_base::app | ios_base::ate))? __data_end : __data_ptr, __data_end);
90 }
91 }
92
93 // Precondition: gptr() >= egptr(). Returns a character, if one is available.
94 template <class _CharT, class _Traits, class _Alloc>
95 __BSB_int_type__
underflow()96 basic_stringbuf<_CharT, _Traits, _Alloc>::underflow() {
97 return this->gptr() != this->egptr()
98 ? _Traits::to_int_type(*this->gptr())
99 : _Traits::eof();
100 }
101
102 // Precondition: gptr() >= egptr().
103 template <class _CharT, class _Traits, class _Alloc>
104 __BSB_int_type__
uflow()105 basic_stringbuf<_CharT, _Traits, _Alloc>::uflow() {
106 if (this->gptr() != this->egptr()) {
107 int_type __c = _Traits::to_int_type(*this->gptr());
108 this->gbump(1);
109 return __c;
110 }
111 else
112 return _Traits::eof();
113 }
114
115 template <class _CharT, class _Traits, class _Alloc>
116 __BSB_int_type__
pbackfail(int_type __c)117 basic_stringbuf<_CharT, _Traits, _Alloc>::pbackfail(int_type __c) {
118 if (this->gptr() != this->eback()) {
119 if (!_Traits::eq_int_type(__c, _Traits::eof())) {
120 if (_Traits::eq(_Traits::to_char_type(__c), this->gptr()[-1])) {
121 this->gbump(-1);
122 return __c;
123 }
124 else if (_M_mode & ios_base::out) {
125 this->gbump(-1);
126 *this->gptr() = _Traits::to_char_type(__c);
127 return __c;
128 }
129 else
130 return _Traits::eof();
131 }
132 else {
133 this->gbump(-1);
134 return _Traits::not_eof(__c);
135 }
136 }
137 else
138 return _Traits::eof();
139 }
140
141 template <class _CharT, class _Traits, class _Alloc>
overflow(int_type __c)142 __BSB_int_type__ basic_stringbuf<_CharT, _Traits, _Alloc>::overflow(int_type __c)
143 {
144 if (!_Traits::eq_int_type(__c, _Traits::eof())) {
145 if (_M_mode & ios_base::out) {
146 if ( this->pptr() < this->epptr() ) { // just put back in any case
147 _M_str.push_back( _Traits::to_char_type(__c) );
148 this->pbump(1);
149 } else if ( _M_mode & ios_base::in ) {
150 ptrdiff_t __offset = this->gptr() - this->eback();
151 _M_str.push_back(_Traits::to_char_type(__c));
152 _CharT* __data_ptr = _S_start(_M_str);
153 this->setg(__data_ptr, __data_ptr + __offset, _S_finish(_M_str));
154 this->setp(__data_ptr, _S_finish(_M_str));
155 this->pbump((int)_M_str.size());
156 } else {
157 _M_str.push_back( _Traits::to_char_type(__c) );
158 this->setp(_S_start(_M_str), _S_finish(_M_str));
159 this->pbump((int)_M_str.size());
160 }
161 return __c;
162 }
163 return _Traits::eof(); // Overflow always fails if it's read-only
164 }
165 return _Traits::not_eof(__c); // __c is EOF, so we don't have to do anything
166 }
167
168 template <class _CharT, class _Traits, class _Alloc>
169 streamsize
xsputn(const char_type * __s,streamsize __n)170 basic_stringbuf<_CharT, _Traits, _Alloc>::xsputn(const char_type* __s,
171 streamsize __n) {
172 streamsize __nwritten = 0;
173
174 if ((_M_mode & ios_base::out) && __n > 0) {
175 // If the put pointer is somewhere in the middle of the string,
176 // then overwrite instead of append.
177 if ( !_M_str.empty() && this->pbase() == _S_start(_M_str)) {
178 ptrdiff_t __avail = _S_finish(_M_str) - this->pptr();
179 if (__avail > __n) {
180 _Traits::copy(this->pptr(), __s, __STATIC_CAST(size_t, __n));
181 this->pbump((int)__n);
182 return __n;
183 } else {
184 _Traits::copy(this->pptr(), __s, __avail);
185 __nwritten += __avail;
186 __n -= __avail;
187 __s += __avail;
188 }
189 }
190
191 // At this point we know we're appending.
192 _CharT* __data_ptr;
193 if (_M_mode & ios_base::in) {
194 ptrdiff_t __get_offset = this->gptr() - this->eback();
195 _M_str.append(__s, __s + __STATIC_CAST(ptrdiff_t, __n));
196 __data_ptr = _S_start(_M_str);
197 this->setg(__data_ptr, __data_ptr + __get_offset, _S_finish(_M_str));
198 } else {
199 _M_str.append(__s, __s + __STATIC_CAST(ptrdiff_t, __n));
200 __data_ptr = _S_start(_M_str);
201 }
202
203 this->setp(__data_ptr, _S_finish(_M_str));
204 this->pbump((int)_M_str.size());
205 __nwritten += __n;
206 }
207
208 return __nwritten;
209 }
210
211 template <class _CharT, class _Traits, class _Alloc>
212 streamsize
_M_xsputnc(char_type __c,streamsize __n)213 basic_stringbuf<_CharT, _Traits, _Alloc>::_M_xsputnc(char_type __c,
214 streamsize __n) {
215 streamsize __nwritten = 0;
216
217 if ((_M_mode & ios_base::out) && __n > 0) {
218 // If the put pointer is somewhere in the middle of the string,
219 // then overwrite instead of append.
220 if (this->pbase() == _S_start(_M_str)) {
221 ptrdiff_t __avail = _S_finish(_M_str) - this->pptr();
222 if (__avail > __n) {
223 _Traits::assign(this->pptr(), __STATIC_CAST(size_t, __n), __c);
224 this->pbump(__STATIC_CAST(int, __n));
225 return __n;
226 }
227 else {
228 _Traits::assign(this->pptr(), __avail, __c);
229 __nwritten += __avail;
230 __n -= __avail;
231 }
232 }
233
234 // At this point we know we're appending.
235 size_t __app_size = sizeof(streamsize) > sizeof(size_t) ? __STATIC_CAST(size_t, (min)(__n, __STATIC_CAST(streamsize, _M_str.max_size())))
236 : __STATIC_CAST(size_t, __n);
237 _CharT* __data_ptr;
238 if (this->_M_mode & ios_base::in) {
239 ptrdiff_t __get_offset = this->gptr() - this->eback();
240 _M_str.append(__app_size, __c);
241 __data_ptr = _S_start(_M_str);
242 this->setg(__data_ptr, __data_ptr + __get_offset, _S_finish(_M_str));
243 } else {
244 _M_str.append(__app_size, __c);
245 __data_ptr = _S_start(_M_str);
246 }
247
248 this->setp(__data_ptr, _S_finish(_M_str));
249 this->pbump((int)_M_str.size());
250 __nwritten += __app_size;
251 }
252
253 return __nwritten;
254 }
255
256 // According to the C++ standard the effects of setbuf are implementation
257 // defined, except that setbuf(0, 0) has no effect. In this implementation,
258 // setbuf(<anything>, n), for n > 0, calls reserve(n) on the underlying
259 // string.
260 template <class _CharT, class _Traits, class _Alloc>
261 basic_streambuf<_CharT, _Traits>*
setbuf(_CharT *,streamsize __n)262 basic_stringbuf<_CharT, _Traits, _Alloc>::setbuf(_CharT*, streamsize __n) {
263 if (__n > 0) {
264 bool __do_get_area = false;
265 bool __do_put_area = false;
266 ptrdiff_t __offg = 0;
267 ptrdiff_t __offp = 0;
268
269 if (this->pbase() == _S_start(_M_str)) {
270 __do_put_area = true;
271 __offp = this->pptr() - this->pbase();
272 }
273
274 if (this->eback() == _S_start(_M_str)) {
275 __do_get_area = true;
276 __offg = this->gptr() - this->eback();
277 }
278
279 _M_str.reserve(sizeof(streamsize) > sizeof(size_t) ? __STATIC_CAST(size_t, (min)(__n, __STATIC_CAST(streamsize, _M_str.max_size())))
280 : __STATIC_CAST(size_t, __n));
281
282 _CharT* __data_ptr = _S_start(_M_str);
283
284 if (__do_get_area) {
285 this->setg(__data_ptr, __data_ptr + __offg, _S_finish(_M_str));
286 }
287
288 if (__do_put_area) {
289 this->setp(__data_ptr, _S_finish(_M_str));
290 this->pbump((int)__offp);
291 }
292 }
293
294 return this;
295 }
296
297 template <class _CharT, class _Traits, class _Alloc>
298 __BSB_pos_type__
299 basic_stringbuf<_CharT, _Traits, _Alloc>
seekoff(off_type __off,ios_base::seekdir __dir,ios_base::openmode __mode)300 ::seekoff(off_type __off,
301 ios_base::seekdir __dir,
302 ios_base::openmode __mode) {
303 __mode &= _M_mode;
304
305 bool __imode = (__mode & ios_base::in) != 0;
306 bool __omode = (__mode & ios_base::out) != 0;
307
308 if ( !(__imode || __omode) )
309 return pos_type(off_type(-1));
310
311 if ( (__imode && (this->gptr() == 0)) || (__omode && (this->pptr() == 0)) )
312 return pos_type(off_type(-1));
313
314 streamoff __newoff;
315 switch(__dir) {
316 case ios_base::beg:
317 __newoff = 0;
318 break;
319 case ios_base::end:
320 __newoff = _M_str.size();
321 break;
322 case ios_base::cur:
323 __newoff = __imode ? this->gptr() - this->eback() : this->pptr() - this->pbase();
324 if ( __off == 0 ) {
325 return pos_type(__newoff);
326 }
327 break;
328 default:
329 return pos_type(off_type(-1));
330 }
331
332 __off += __newoff;
333
334 if (__imode) {
335 ptrdiff_t __n = this->egptr() - this->eback();
336
337 if (__off < 0 || __off > __n)
338 return pos_type(off_type(-1));
339 this->setg(this->eback(), this->eback() + __STATIC_CAST(ptrdiff_t, __off),
340 this->eback() + __STATIC_CAST(ptrdiff_t, __n));
341 }
342
343 if (__omode) {
344 ptrdiff_t __n = this->epptr() - this->pbase();
345
346 if (__off < 0 || __off > __n)
347 return pos_type(off_type(-1));
348 this->setp(this->pbase(), this->pbase() + __n);
349 this->pbump((int)__off);
350 }
351
352 return pos_type(__off);
353 }
354
355 template <class _CharT, class _Traits, class _Alloc>
356 __BSB_pos_type__
357 basic_stringbuf<_CharT, _Traits, _Alloc>
seekpos(pos_type __pos,ios_base::openmode __mode)358 ::seekpos(pos_type __pos, ios_base::openmode __mode) {
359 __mode &= _M_mode;
360
361 bool __imode = (__mode & ios_base::in) != 0;
362 bool __omode = (__mode & ios_base::out) != 0;
363
364 if ( !(__imode || __omode) )
365 return pos_type(off_type(-1));
366
367 if ( (__imode && (this->gptr() == 0)) || (__omode && (this->pptr() == 0)) )
368 return pos_type(off_type(-1));
369
370 const off_type __n = __pos - pos_type(off_type(0));
371
372 if (__imode) {
373 if (__n < 0 || __n > this->egptr() - this->eback())
374 return pos_type(off_type(-1));
375 this->setg(this->eback(), this->eback() + __STATIC_CAST(ptrdiff_t, __n), this->egptr());
376 }
377
378 if (__omode) {
379 if (__n < 0 || size_t(__n) > _M_str.size())
380 return pos_type(off_type(-1));
381
382 this->setp(_S_start(_M_str), _S_finish(_M_str));
383 this->pbump((int)__n);
384 }
385
386 return __pos;
387 }
388
389 //----------------------------------------------------------------------
390 // Non-inline istringstream member functions.
391
392 template <class _CharT, class _Traits, class _Alloc>
393 basic_istringstream<_CharT, _Traits, _Alloc>
basic_istringstream(ios_base::openmode __mode)394 ::basic_istringstream(ios_base::openmode __mode)
395 : basic_istream<_CharT, _Traits>(0),
396 _M_buf(__mode | ios_base::in) {
397 this->init(&_M_buf);
398 }
399
400 template <class _CharT, class _Traits, class _Alloc>
401 basic_istringstream<_CharT, _Traits, _Alloc>
basic_istringstream(const _String & __str,ios_base::openmode __mode)402 ::basic_istringstream(const _String& __str,ios_base::openmode __mode)
403 : basic_istream<_CharT, _Traits>(0),
404 _M_buf(__str, __mode | ios_base::in) {
405 this->init(&_M_buf);
406 }
407
408 template <class _CharT, class _Traits, class _Alloc>
~basic_istringstream()409 basic_istringstream<_CharT, _Traits, _Alloc>::~basic_istringstream()
410 {}
411
412 //----------------------------------------------------------------------
413 // Non-inline ostringstream member functions.
414
415 template <class _CharT, class _Traits, class _Alloc>
416 basic_ostringstream<_CharT, _Traits, _Alloc>
basic_ostringstream(ios_base::openmode __mode)417 ::basic_ostringstream(ios_base::openmode __mode)
418 : basic_ostream<_CharT, _Traits>(0),
419 _M_buf(__mode | ios_base::out) {
420 this->init(&_M_buf);
421 }
422
423 template <class _CharT, class _Traits, class _Alloc>
424 basic_ostringstream<_CharT, _Traits, _Alloc>
basic_ostringstream(const _String & __str,ios_base::openmode __mode)425 ::basic_ostringstream(const _String& __str, ios_base::openmode __mode)
426 : basic_ostream<_CharT, _Traits>(0),
427 _M_buf(__str, __mode | ios_base::out) {
428 this->init(&_M_buf);
429 }
430
431 template <class _CharT, class _Traits, class _Alloc>
~basic_ostringstream()432 basic_ostringstream<_CharT, _Traits, _Alloc>::~basic_ostringstream()
433 {}
434
435 //----------------------------------------------------------------------
436 // Non-inline stringstream member functions.
437
438 template <class _CharT, class _Traits, class _Alloc>
439 basic_stringstream<_CharT, _Traits, _Alloc>
basic_stringstream(ios_base::openmode __mode)440 ::basic_stringstream(ios_base::openmode __mode)
441 : basic_iostream<_CharT, _Traits>(0), _M_buf(__mode) {
442 this->init(&_M_buf);
443 }
444
445 template <class _CharT, class _Traits, class _Alloc>
446 basic_stringstream<_CharT, _Traits, _Alloc>
basic_stringstream(const _String & __str,ios_base::openmode __mode)447 ::basic_stringstream(const _String& __str, ios_base::openmode __mode)
448 : basic_iostream<_CharT, _Traits>(0), _M_buf(__str, __mode) {
449 this->init(&_M_buf);
450 }
451
452 template <class _CharT, class _Traits, class _Alloc>
~basic_stringstream()453 basic_stringstream<_CharT, _Traits, _Alloc>::~basic_stringstream()
454 {}
455
456 _STLP_END_NAMESPACE
457
458 # undef __BSB_int_type__
459 # undef __BSB_pos_type__
460
461 #endif /* _STLP_SSTREAM_C */
462
463 // Local Variables:
464 // mode:C++
465 // End:
466