]> pd.if.org Git - pdclib.old/blob - functions/stdio/freopen.c
Move lconv definition for default locale inside of struct
[pdclib.old] / functions / stdio / freopen.c
1 /* $Id$ */
2
3 /* freopen( const char *, const char *, FILE * )
4
5    This file is part of the Public Domain C Library (PDCLib).
6    Permission is granted to use, modify, and / or redistribute at will.
7 */
8
9 #include <stdio.h>
10
11 #ifndef REGTEST
12 #include <_PDCLIB_io.h>
13 #include <_PDCLIB_glue.h>
14 #include <stdlib.h>
15 #include <string.h>
16
17 FILE * freopen( 
18     const char * _PDCLIB_restrict filename, 
19     const char * _PDCLIB_restrict mode, 
20     FILE * _PDCLIB_restrict stream 
21 )
22 {
23     flockfile( stream );
24
25     unsigned int status = stream->status & 
26         ( _IONBF | _IOLBF | _IOFBF | _PDCLIB_FREEBUFFER 
27         | _PDCLIB_DELONCLOSE | _PDCLIB_STATIC );
28
29     /* TODO: This function can change wide orientation of a stream */
30     if ( stream->status & _PDCLIB_FWRITE )
31     {
32         _PDCLIB_flushbuffer( stream );
33     }
34     if ( ( filename == NULL ) && ( stream->filename == NULL ) )
35     {
36         /* TODO: Special handling for mode changes on std-streams */
37         funlockfile( stream );
38         return NULL;
39     }
40     stream->ops->close(stream->handle);
41     
42     /* TODO: It is not nice to do this on a stream we just closed.
43        It does not matter with the current implementation of clearerr(),
44        but it might start to matter if someone replaced that implementation.
45     */
46     clearerr( stream );
47     /* The new filename might not fit the old buffer */
48     if ( filename == NULL )
49     {
50         /* Use previous filename */
51         filename = stream->filename;
52     }
53     else if ( ( stream->filename != NULL ) && ( strlen( stream->filename ) >= strlen( filename ) ) )
54     {
55         /* Copy new filename into existing buffer */
56         strcpy( stream->filename, filename );
57     }
58     else
59     {
60         /* Allocate new buffer */
61         if ( ( stream->filename = (char *)malloc( strlen( filename ) ) ) == NULL )
62         {
63             funlockfile( stream );
64             return NULL;
65         }
66         strcpy( stream->filename, filename );
67     }
68     if ( ( mode == NULL ) || ( filename[0] == '\0' ) )
69     {
70         funlockfile( stream );
71         return NULL;
72     }
73     if ( ( stream->status = _PDCLIB_filemode( mode ) ) == 0 )
74     {
75         funlockfile( stream );
76         return NULL;
77     }
78     /* Re-add the flags we saved above */
79     stream->status |= status;
80     stream->bufidx = 0;
81     stream->bufend = 0;
82     stream->ungetidx = 0;
83     /* TODO: Setting mbstate */
84     if ( ! _PDCLIB_open( &stream->handle, &stream->ops, filename, 
85                          stream->status ) )
86     {
87         funlockfile( stream );
88         return NULL;
89     }
90     funlockfile( stream );
91     return stream;
92 }
93
94 #endif
95
96 #ifdef TEST
97 #include <_PDCLIB_test.h>
98
99 int main( void )
100 {
101     FILE * fin;
102     FILE * fout;
103     TESTCASE( ( fin = fopen( testfile1, "wb+" ) ) != NULL );
104     TESTCASE( fputc( 'x', fin ) == 'x' );
105     TESTCASE( fclose( fin ) == 0 );
106     TESTCASE( ( fin = freopen( testfile1, "rb", stdin ) ) != NULL );
107     TESTCASE( getchar() == 'x' );
108
109     TESTCASE( ( fout = freopen( testfile2, "wb+", stdout ) ) != NULL );
110     TESTCASE( putchar( 'x' ) == 'x' );
111     rewind( fout );
112     TESTCASE( fgetc( fout ) == 'x' );
113
114     TESTCASE( fclose( fin ) == 0 );
115     TESTCASE( fclose( fout ) == 0 );
116     TESTCASE( remove( testfile1 ) == 0 );
117     TESTCASE( remove( testfile2 ) == 0 );
118
119     return TEST_RESULTS;
120 }
121
122 #endif