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