1 /* Copyright (C) 1993, 1997, 1998, 1999 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 2.1 of the License, or (at your option) any later version.
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
14 You should have received a copy of the GNU Lesser General Public
15 License along with the GNU C Library; if not, write to the Free
16 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19 As a special exception, if you link the code in this file with
20 files compiled with a GNU compiler to produce an executable,
21 that does not cause the resulting executable to be covered by
22 the GNU Lesser General Public License. This exception does not
23 however invalidate any other reasons why the executable file
24 might be covered by the GNU Lesser General Public License.
25 This exception applies to code released by its copyright holders
26 in files containing the exception. */
34 /* The following definitions are for exposition only.
35 They map the terminology used in the ANSI/ISO C++ draft standard
36 to the implementation. */
38 /* allocated: set when a dynamic array object has been allocated, and
39 hence should be freed by the destructor for the strstreambuf object. */
40 #define ALLOCATED(FP) ((FP)->_f._IO_buf_base && DYNAMIC(FP))
42 /* constant: set when the array object has const elements,
43 so the output sequence cannot be written. */
44 #define CONSTANT(FP) ((FP)->_f._IO_file_flags & _IO_NO_WRITES)
46 /* alsize: the suggested minimum size for a dynamic array object. */
47 #define ALSIZE(FP) ??? /* not stored */
49 /* palloc: points to the function to call to allocate a dynamic array object.*/
51 ((FP)->_s._allocate_buffer == default_alloc ? 0 : (FP)->_s._allocate_buffer)
53 /* pfree: points to the function to call to free a dynamic array object. */
55 ((FP)->_s._free_buffer == default_free ? 0 : (FP)->_s._free_buffer)
60 /* An "unbounded buffer" is when a buffer is supplied, but with no
61 specified length. An example is the buffer argument to sprintf.
66 _IO_wstr_init_static (fp
, ptr
, size
, pstart
)
73 size
= __wcslen (ptr
);
76 /* If size is negative 'the characters are assumed to
77 continue indefinitely.' This is kind of messy ... */
80 /* Try increasing powers of 2, as long as we don't wrap around. */
81 for (; s
= 2*size
, s
> 0 && ptr
+ s
> ptr
&& s
< 0x4000000L
; )
83 /* Try increasing size as much as we can without wrapping around. */
84 for (s
= size
>> 1; s
> 0; s
>>= 1)
86 if (ptr
+ size
+ s
> ptr
)
90 _IO_wsetb (fp
, ptr
, ptr
+ size
, 0);
92 fp
->_wide_data
->_IO_write_base
= ptr
;
93 fp
->_wide_data
->_IO_read_base
= ptr
;
94 fp
->_wide_data
->_IO_read_ptr
= ptr
;
97 fp
->_wide_data
->_IO_write_ptr
= pstart
;
98 fp
->_wide_data
->_IO_write_end
= ptr
+ size
;
99 fp
->_wide_data
->_IO_read_end
= pstart
;
103 fp
->_wide_data
->_IO_write_ptr
= ptr
;
104 fp
->_wide_data
->_IO_write_end
= ptr
;
105 fp
->_wide_data
->_IO_read_end
= ptr
+ size
;
107 /* A null _allocate_buffer function flags the strfile as being static. */
108 (((_IO_strfile
*) fp
)->_s
._allocate_buffer
) = (_IO_alloc_type
)0;
112 _IO_wstr_init_readonly (fp
, ptr
, size
)
117 _IO_wstr_init_static (fp
, (wchar_t *) ptr
, size
, NULL
);
118 fp
->_IO_file_flags
|= _IO_NO_WRITES
;
122 _IO_wstr_overflow (fp
, c
)
126 int flush_only
= c
== WEOF
;
128 if (fp
->_flags
& _IO_NO_WRITES
)
129 return flush_only
? 0 : WEOF
;
130 if ((fp
->_flags
& _IO_TIED_PUT_GET
) && !(fp
->_flags
& _IO_CURRENTLY_PUTTING
))
132 fp
->_flags
|= _IO_CURRENTLY_PUTTING
;
133 fp
->_wide_data
->_IO_write_ptr
= fp
->_wide_data
->_IO_read_ptr
;
134 fp
->_wide_data
->_IO_read_ptr
= fp
->_wide_data
->_IO_read_end
;
136 pos
= fp
->_wide_data
->_IO_write_ptr
- fp
->_wide_data
->_IO_write_base
;
137 if (pos
>= (_IO_size_t
) (_IO_wblen (fp
) + flush_only
))
139 if (fp
->_flags
& _IO_USER_BUF
) /* not allowed to enlarge */
144 wchar_t *old_buf
= fp
->_wide_data
->_IO_buf_base
;
145 _IO_size_t new_size
= 2 * _IO_wblen (fp
) + 100;
147 = (wchar_t *) (*((_IO_strfile
*) fp
)->_s
._allocate_buffer
) (new_size
151 /* __ferror(fp) = 1; */
156 __wmemcpy (new_buf
, old_buf
, _IO_wblen (fp
));
157 (*((_IO_strfile
*) fp
)->_s
._free_buffer
) (old_buf
);
158 /* Make sure _IO_setb won't try to delete _IO_buf_base. */
159 fp
->_wide_data
->_IO_buf_base
= NULL
;
161 _IO_wsetb (fp
, new_buf
, new_buf
+ new_size
, 1);
162 fp
->_wide_data
->_IO_read_base
=
163 new_buf
+ (fp
->_wide_data
->_IO_read_base
- old_buf
);
164 fp
->_wide_data
->_IO_read_ptr
=
165 new_buf
+ (fp
->_wide_data
->_IO_read_ptr
- old_buf
);
166 fp
->_wide_data
->_IO_read_end
=
167 new_buf
+ (fp
->_wide_data
->_IO_read_end
- old_buf
);
168 fp
->_wide_data
->_IO_write_ptr
=
169 new_buf
+ (fp
->_wide_data
->_IO_write_ptr
- old_buf
);
171 fp
->_wide_data
->_IO_write_base
= new_buf
;
172 fp
->_wide_data
->_IO_write_end
= fp
->_wide_data
->_IO_buf_end
;
177 *fp
->_wide_data
->_IO_write_ptr
++ = c
;
178 if (fp
->_wide_data
->_IO_write_ptr
> fp
->_wide_data
->_IO_read_end
)
179 fp
->_wide_data
->_IO_read_end
= fp
->_wide_data
->_IO_write_ptr
;
184 _IO_wstr_underflow (fp
)
187 if (fp
->_wide_data
->_IO_write_ptr
> fp
->_wide_data
->_IO_read_end
)
188 fp
->_wide_data
->_IO_read_end
= fp
->_wide_data
->_IO_write_ptr
;
189 if ((fp
->_flags
& _IO_TIED_PUT_GET
) && (fp
->_flags
& _IO_CURRENTLY_PUTTING
))
191 fp
->_flags
&= ~_IO_CURRENTLY_PUTTING
;
192 fp
->_wide_data
->_IO_read_ptr
= fp
->_wide_data
->_IO_write_ptr
;
193 fp
->_wide_data
->_IO_write_ptr
= fp
->_wide_data
->_IO_write_end
;
195 if (fp
->_wide_data
->_IO_read_ptr
< fp
->_wide_data
->_IO_read_end
)
196 return *fp
->_wide_data
->_IO_read_ptr
;
201 /* The size of the valid part of the buffer. */
207 return ((fp
->_wide_data
->_IO_write_ptr
> fp
->_wide_data
->_IO_read_end
208 ? fp
->_wide_data
->_IO_write_ptr
: fp
->_wide_data
->_IO_read_end
)
209 - fp
->_wide_data
->_IO_read_base
);
213 _IO_wstr_seekoff (fp
, offset
, dir
, mode
)
221 if (mode
== 0 && (fp
->_flags
& _IO_TIED_PUT_GET
))
222 mode
= (fp
->_flags
& _IO_CURRENTLY_PUTTING
? _IOS_OUTPUT
: _IOS_INPUT
);
226 /* Don't move any pointers. But there is no clear indication what
227 mode FP is in. Let's guess. */
228 if (fp
->_IO_file_flags
& _IO_NO_WRITES
)
229 new_pos
= fp
->_wide_data
->_IO_read_ptr
- fp
->_wide_data
->_IO_read_base
;
231 new_pos
= (fp
->_wide_data
->_IO_write_ptr
232 - fp
->_wide_data
->_IO_write_base
);
236 _IO_ssize_t cur_size
= _IO_wstr_count (fp
);
239 /* Move the get pointer, if requested. */
240 if (mode
& _IOS_INPUT
)
248 offset
+= (fp
->_wide_data
->_IO_read_ptr
249 - fp
->_wide_data
->_IO_read_base
);
251 default: /* case _IO_seek_set: */
254 if (offset
< 0 || (_IO_ssize_t
) offset
> cur_size
)
256 fp
->_wide_data
->_IO_read_ptr
= (fp
->_wide_data
->_IO_read_base
258 fp
->_wide_data
->_IO_read_end
= (fp
->_wide_data
->_IO_read_base
263 /* Move the put pointer, if requested. */
264 if (mode
& _IOS_OUTPUT
)
272 offset
+= (fp
->_wide_data
->_IO_write_ptr
273 - fp
->_wide_data
->_IO_write_base
);
275 default: /* case _IO_seek_set: */
278 if (offset
< 0 || (_IO_ssize_t
) offset
> cur_size
)
280 fp
->_wide_data
->_IO_write_ptr
= (fp
->_wide_data
->_IO_write_base
289 _IO_wstr_pbackfail (fp
, c
)
293 if ((fp
->_flags
& _IO_NO_WRITES
) && c
!= EOF
)
295 return _IO_wdefault_pbackfail (fp
, c
);
299 _IO_wstr_finish (fp
, dummy
)
303 if (fp
->_wide_data
->_IO_buf_base
&& !(fp
->_flags
& _IO_USER_BUF
))
304 (((_IO_strfile
*) fp
)->_s
._free_buffer
) (fp
->_wide_data
->_IO_buf_base
);
305 fp
->_wide_data
->_IO_buf_base
= NULL
;
307 _IO_wdefault_finish (fp
, 0);
310 struct _IO_jump_t _IO_wstr_jumps
=
313 JUMP_INIT(finish
, _IO_wstr_finish
),
314 JUMP_INIT(overflow
, (_IO_overflow_t
) _IO_wstr_overflow
),
315 JUMP_INIT(underflow
, (_IO_underflow_t
) _IO_wstr_underflow
),
316 JUMP_INIT(uflow
, (_IO_underflow_t
) _IO_wdefault_uflow
),
317 JUMP_INIT(pbackfail
, (_IO_pbackfail_t
) _IO_wstr_pbackfail
),
318 JUMP_INIT(xsputn
, _IO_wdefault_xsputn
),
319 JUMP_INIT(xsgetn
, _IO_wdefault_xsgetn
),
320 JUMP_INIT(seekoff
, _IO_wstr_seekoff
),
321 JUMP_INIT(seekpos
, _IO_default_seekpos
),
322 JUMP_INIT(setbuf
, (_IO_setbuf_t
) _IO_wdefault_setbuf
),
323 JUMP_INIT(sync
, _IO_default_sync
),
324 JUMP_INIT(doallocate
, _IO_wdefault_doallocate
),
325 JUMP_INIT(read
, _IO_default_read
),
326 JUMP_INIT(write
, _IO_default_write
),
327 JUMP_INIT(seek
, _IO_default_seek
),
328 JUMP_INIT(close
, _IO_default_close
),
329 JUMP_INIT(stat
, _IO_default_stat
),
330 JUMP_INIT(showmanyc
, _IO_default_showmanyc
),
331 JUMP_INIT(imbue
, _IO_default_imbue
)