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 #include "stlport_prefix.h"
19
20 #include <memory>
21 #include <istream>
22 #include <fstream>
23 #if defined (_STLP_MSVC) || defined (__MWERKS__) || defined (__ICL) || defined (__ISCPP__)
24 # define _STLP_USE_NOT_INIT_SEGMENT
25 # include <iostream>
26 #endif
27
28 #include "stdio_streambuf.h"
29 #include "aligned_buffer.h"
30 #include "_stdio_file.h"
31 #include "c_locale.h"
32
33 // boris : note this is repeated in <iostream>
34 #ifndef _STLP_USE_NAMESPACES
35 // in case of SGI iostreams, we have to rename our streams not to clash with those
36 // provided in native lib
37 # define cin _STLP_cin
38 # define cout _STLP_cout
39 # define cerr _STLP_cerr
40 # define clog _STLP_clog
41 #endif
42
43 _STLP_BEGIN_NAMESPACE
44
45 // This file handles iostream initialization. It is inherently
46 // nonportable, since the C++ language definition provides no mechanism
47 // for controlling order of initialization of nonlocal objects.
48 // Initialization has three parts, which must be performed in the following
49 // order:
50 // (1) Initialize the locale system
51 // (2) Call the constructors for the eight global stream objects.
52 // (3) Create streambufs for the global stream objects, and initialize
53 // the stream objects by calling the init() member function.
54
55
56 #if defined (_STLP_USE_NOT_INIT_SEGMENT)
57
58 // Definitions of the eight global I/O objects that are declared in
59 // <iostream>. For some compilers we use pragmas to put the global I/O
60 // objects into an initialization segment that will not
61 // be executed. We then explicitly invoke the constructors
62 // with placement new in ios_base::_S_initialize()
63
64 # if defined (__MWERKS__)
65 # pragma suppress_init_code on
66 # else
67 # pragma init_seg("STLPORT_NO_INIT")
68 # endif
69
70 _STLP_DECLSPEC istream cin(0);
71 _STLP_DECLSPEC ostream cout(0);
72 _STLP_DECLSPEC ostream cerr(0);
73 _STLP_DECLSPEC ostream clog(0);
74
75 # ifndef _STLP_NO_WCHAR_T
76 _STLP_DECLSPEC wistream wcin(0);
77 _STLP_DECLSPEC wostream wcout(0);
78 _STLP_DECLSPEC wostream wcerr(0);
79 _STLP_DECLSPEC wostream wclog(0);
80 # endif
81
82 # if defined (__MWERKS__)
83 # pragma suppress_init_code off
84 # endif
85
86 #else
87
88 // Definitions of the eight global I/O objects that are declared in
89 // <iostream>. Disgusting hack: we deliberately define them with the
90 // wrong types so that the constructors don't get run automatically.
91 // We need special tricks to make sure that these objects are struct-
92 // aligned rather than byte-aligned.
93
94 // This is not portable. Declaring a variable with different types in
95 // two translations units is "undefined", according to the C++ standard.
96 // Most compilers, however, silently accept this instead of diagnosing
97 // it as an error.
98
99 # ifndef __DMC__
100 _STLP_DECLSPEC _Stl_aligned_buffer<istream> cin;
101 _STLP_DECLSPEC _Stl_aligned_buffer<ostream> cout;
102 _STLP_DECLSPEC _Stl_aligned_buffer<ostream> cerr;
103 _STLP_DECLSPEC _Stl_aligned_buffer<ostream> clog;
104 # else
105 _Stl_aligned_buffer<istream> cin;
106 _Stl_aligned_buffer<ostream> cout;
107 _Stl_aligned_buffer<ostream> cerr;
108 _Stl_aligned_buffer<ostream> clog;
109
110 # pragma alias("?cin@std@@3V?$basic_istream@std@DV?$char_traits@std@D@1@@1@A", "?cin@std@@3T?$_Stl_aligned_buffer@std@V?$basic_istream@std@DV?$char_traits@std@D@1@@1@@1@A")
111 # pragma alias("?cout@std@@3V?$basic_ostream@std@DV?$char_traits@std@D@1@@1@A", "?cout@std@@3T?$_Stl_aligned_buffer@std@V?$basic_ostream@std@DV?$char_traits@std@D@1@@1@@1@A")
112 # pragma alias("?cerr@std@@3V?$basic_ostream@std@DV?$char_traits@std@D@1@@1@A", "?cerr@std@@3T?$_Stl_aligned_buffer@std@V?$basic_ostream@std@DV?$char_traits@std@D@1@@1@@1@A")
113 # pragma alias("?clog@std@@3V?$basic_ostream@std@DV?$char_traits@std@D@1@@1@A", "?clog@std@@3T?$_Stl_aligned_buffer@std@V?$basic_ostream@std@DV?$char_traits@std@D@1@@1@@1@A")
114 # endif
115
116 # ifndef _STLP_NO_WCHAR_T
117
118 # ifndef __DMC__
119 _STLP_DECLSPEC _Stl_aligned_buffer<wistream> wcin;
120 _STLP_DECLSPEC _Stl_aligned_buffer<wostream> wcout;
121 _STLP_DECLSPEC _Stl_aligned_buffer<wostream> wcerr;
122 _STLP_DECLSPEC _Stl_aligned_buffer<wostream> wclog;
123 # else
124 _Stl_aligned_buffer<wistream> wcin;
125 _Stl_aligned_buffer<wostream> wcout;
126 _Stl_aligned_buffer<wostream> wcerr;
127 _Stl_aligned_buffer<wostream> wclog;
128
129 # pragma alias("?wcin@std@@3V?$basic_istream@std@_YV?$char_traits@std@_Y@1@@1@A", "?wcin@std@@3T?$_Stl_aligned_buffer@std@V?$basic_istream@std@_YV?$char_traits@std@_Y@1@@1@@1@A")
130 # pragma alias("?wcout@std@@3V?$basic_ostream@std@_YV?$char_traits@std@_Y@1@@1@A", "?wcout@std@@3T?$_Stl_aligned_buffer@std@V?$basic_ostream@std@_YV?$char_traits@std@_Y@1@@1@@1@A")
131 # pragma alias("?wcerr@std@@3V?$basic_ostream@std@_YV?$char_traits@std@_Y@1@@1@A", "?wcerr@std@@3T?$_Stl_aligned_buffer@std@V?$basic_ostream@std@_YV?$char_traits@std@_Y@1@@1@@1@A")
132 # pragma alias("?wclog@std@@3V?$basic_ostream@std@_YV?$char_traits@std@_Y@1@@1@A", "?wclog@std@@3T?$_Stl_aligned_buffer@std@V?$basic_ostream@std@_YV?$char_traits@std@_Y@1@@1@@1@A")
133 # endif
134 # endif
135 #endif /* STL_MSVC || __MWERKS__ */
136
137 // Member functions from class ios_base and ios_base::Init
138
139 long ios_base::Init::_S_count = 0;
140 // by default, those are synced
141 bool ios_base::_S_is_synced = true;
142
Init()143 ios_base::Init::Init() {
144 if (_S_count++ == 0) {
145 _Locale_init();
146 ios_base::_S_initialize();
147 _Filebuf_base::_S_initialize();
148 }
149 }
150
~Init()151 ios_base::Init::~Init() {
152 if (--_S_count == 0) {
153 ios_base::_S_uninitialize();
154 _Locale_final();
155 }
156 }
157
_Stl_extract_open_param(FILE * f)158 static int _Stl_extract_open_param(FILE* f)
159 { return _FILE_fd(f); }
160
161 #ifdef _STLP_REDIRECT_STDSTREAMS
_Stl_extract_open_param(const char * name)162 static const char* _Stl_extract_open_param(const char* name)
163 { return name; }
164 #endif
165
166 template <class _Tp>
167 static filebuf*
_Stl_create_filebuf(_Tp x,ios_base::openmode mode)168 _Stl_create_filebuf(_Tp x, ios_base::openmode mode ) {
169 auto_ptr<filebuf> result(new basic_filebuf<char, char_traits<char> >());
170 result->open(_Stl_extract_open_param(x), mode);
171
172 if (result->is_open())
173 return result.release();
174
175 return 0;
176 }
177
178 #if !defined (_STLP_NO_WCHAR_T)
179 static wfilebuf*
_Stl_create_wfilebuf(FILE * f,ios_base::openmode mode)180 _Stl_create_wfilebuf(FILE* f, ios_base::openmode mode) {
181 auto_ptr<wfilebuf> result(new basic_filebuf<wchar_t, char_traits<wchar_t> >());
182 result->_M_open(_FILE_fd(f), mode);
183
184 if (result->is_open())
185 return result.release();
186
187 return 0;
188 }
189 #endif
190
_S_initialize()191 void _STLP_CALL ios_base::_S_initialize() {
192 #if !defined (_STLP_HAS_NO_NAMESPACES) && !defined (_STLP_DONT_USE_PRIV_NAMESPACE)
193 using _STLP_PRIV stdio_istreambuf;
194 using _STLP_PRIV stdio_ostreambuf;
195 #endif
196
197 auto_ptr<streambuf> cin_buf;
198 auto_ptr<streambuf> cout_buf;
199 auto_ptr<streambuf> cerr_buf;
200 auto_ptr<streambuf> clog_buf;
201
202 if (_S_is_synced)
203 cin_buf.reset(new stdio_istreambuf(stdin));
204 else
205 cin_buf.reset(_Stl_create_filebuf(stdin, ios_base::in));
206
207 if (_S_is_synced) {
208 #ifdef _STLP_REDIRECT_STDSTREAMS
209 cout_buf.reset(_Stl_create_filebuf("/stdout.txt", ios::out));
210 cerr_buf.reset(_Stl_create_filebuf("/stderr.txt", ios::out));
211 clog_buf.reset(_Stl_create_filebuf("/stdlog.txt", ios::out));
212 #else
213 cout_buf.reset(new stdio_ostreambuf(stdout));
214 cerr_buf.reset(new stdio_ostreambuf(stderr));
215 clog_buf.reset(new stdio_ostreambuf(stderr));
216 #endif
217 }
218 else {
219 cout_buf.reset(_Stl_create_filebuf(stdout, ios_base::out));
220 cerr_buf.reset(_Stl_create_filebuf(stderr, ios_base::out));
221 clog_buf.reset(_Stl_create_filebuf(stderr, ios_base::out));
222 }
223
224 istream* ptr_cin = new(&cin) istream(cin_buf.get()); cin_buf.release();
225 ostream* ptr_cout = new(&cout) ostream(cout_buf.get()); cout_buf.release();
226 ostream* ptr_cerr = new(&cerr) ostream(cerr_buf.get()); cerr_buf.release();
227 /*ostream* ptr_clog = */ new(&clog) ostream(clog_buf.get()); clog_buf.release();
228 ptr_cin->tie(ptr_cout);
229 ptr_cerr->setf(ios_base::unitbuf);
230
231 #ifndef _STLP_NO_WCHAR_T
232 auto_ptr<wfilebuf> win(_Stl_create_wfilebuf(stdin, ios_base::in));
233 auto_ptr<wfilebuf> wout(_Stl_create_wfilebuf(stdout, ios_base::out));
234 auto_ptr<wfilebuf> werr(_Stl_create_wfilebuf(stderr, ios_base::out));
235 auto_ptr<wfilebuf> wlog(_Stl_create_wfilebuf(stderr, ios_base::out));
236
237 // Run constructors for the four wide stream objects.
238 wistream* ptr_wcin = new(&wcin) wistream(win.get()); win.release();
239 wostream* ptr_wcout = new(&wcout) wostream(wout.get()); wout.release();
240 wostream* ptr_wcerr = new(&wcerr) wostream(werr.get()); werr.release();
241 /*wostream* ptr_wclog = */ new(&wclog) wostream(wlog.get()); wlog.release();
242
243 ptr_wcin->tie(ptr_wcout);
244 ptr_wcerr->setf(ios_base::unitbuf);
245 #endif
246 }
247
_S_uninitialize()248 void _STLP_CALL ios_base::_S_uninitialize() {
249 // Note that destroying output streambufs flushes the buffers.
250 istream* ptr_cin = &cin;
251 ostream* ptr_cout = &cout;
252 ostream* ptr_cerr = &cerr;
253 ostream* ptr_clog = &clog;
254
255 // We don't want any exceptions being thrown here
256 ptr_cin->exceptions(0);
257 ptr_cout->exceptions(0);
258 ptr_cerr->exceptions(0);
259 ptr_clog->exceptions(0);
260
261 delete ptr_cin->rdbuf(0);
262 delete ptr_cout->rdbuf(0);
263 delete ptr_cerr->rdbuf(0);
264 delete ptr_clog->rdbuf(0);
265
266 _Destroy(ptr_cin);
267 _Destroy(ptr_cout);
268 _Destroy(ptr_cerr);
269 _Destroy(ptr_clog);
270
271 #ifndef _STLP_NO_WCHAR_T
272 wistream* ptr_wcin = &wcin;
273 wostream* ptr_wcout = &wcout;
274 wostream* ptr_wcerr = &wcerr;
275 wostream* ptr_wclog = &wclog;
276
277 // We don't want any exceptions being thrown here
278 ptr_wcin->exceptions(0);
279 ptr_wcout->exceptions(0);
280 ptr_wcerr->exceptions(0);
281 ptr_wclog->exceptions(0);
282
283 delete ptr_wcin->rdbuf(0);
284 delete ptr_wcout->rdbuf(0);
285 delete ptr_wcerr->rdbuf(0);
286 delete ptr_wclog->rdbuf(0);
287
288 _Destroy(ptr_wcin);
289 _Destroy(ptr_wcout);
290 _Destroy(ptr_wcerr);
291 _Destroy(ptr_wclog);
292 #endif
293 }
294
295
sync_with_stdio(bool sync)296 bool _STLP_CALL ios_base::sync_with_stdio(bool sync) {
297 # if !defined (_STLP_HAS_NO_NAMESPACES) && !defined (_STLP_DONT_USE_PRIV_NAMESPACE)
298 using _STLP_PRIV stdio_istreambuf;
299 using _STLP_PRIV stdio_ostreambuf;
300 # endif
301
302 if (sync == _S_is_synced) return sync;
303
304 // if by any chance we got there before std streams initialization,
305 // just set the sync flag and exit
306 if (Init::_S_count == 0) {
307 _S_is_synced = sync;
308 return sync;
309 }
310
311 auto_ptr<streambuf> cin_buf;
312 auto_ptr<streambuf> cout_buf;
313 auto_ptr<streambuf> cerr_buf;
314 auto_ptr<streambuf> clog_buf;
315
316 if (sync)
317 cin_buf.reset(new stdio_istreambuf(stdin));
318 else
319 cin_buf.reset(_Stl_create_filebuf(stdin, ios_base::in));
320
321 if (sync) {
322 #ifdef _STLP_REDIRECT_STDSTREAMS
323 cout_buf.reset(_Stl_create_filebuf("/stdout.txt", ios::out));
324 cerr_buf.reset(_Stl_create_filebuf("/stderr.txt", ios::out));
325 clog_buf.reset(_Stl_create_filebuf("/stdlog.txt", ios::out));
326 #else
327 cout_buf.reset(new stdio_ostreambuf(stdout));
328 cerr_buf.reset(new stdio_ostreambuf(stderr));
329 clog_buf.reset(new stdio_ostreambuf(stderr));
330 #endif
331 }
332 else {
333 cout_buf.reset(_Stl_create_filebuf(stdout, ios_base::out));
334 cerr_buf.reset(_Stl_create_filebuf(stderr, ios_base::out));
335 clog_buf.reset(_Stl_create_filebuf(stderr, ios_base::out));
336 }
337
338 if (cin_buf.get() != 0 && cout_buf.get() != 0 && cerr_buf.get() != 0 && clog_buf.get() != 0) {
339 // When streambuf passed to rdbuf is not null, rdbuf is exception safe:
340 delete (&cin)->rdbuf(cin_buf.release());
341 delete (&cout)->rdbuf(cout_buf.release());
342 delete (&cerr)->rdbuf(cerr_buf.release());
343 delete (&clog)->rdbuf(clog_buf.release());
344 _S_is_synced = sync;
345 }
346
347 return _S_is_synced;
348 }
349
350 _STLP_END_NAMESPACE
351
352 // Local Variables:
353 // mode:C++
354 // End:
355