]> pd.if.org Git - pdclib.old/blob - functions/stdio/setbuf.c
_PDCLIB_flushbuffer for win32. correct seeking behaviour.
[pdclib.old] / functions / stdio / setbuf.c
1 /* $Id$ */
2
3 /* setbuf( FILE *, char * )
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
13 void setbuf( struct _PDCLIB_file_t * _PDCLIB_restrict stream, char * _PDCLIB_restrict buf )
14 {
15     if ( buf == NULL )
16     {
17         setvbuf( stream, buf, _IONBF, BUFSIZ );
18     }
19     else
20     {
21         setvbuf( stream, buf, _IOFBF, BUFSIZ );
22     }
23 }
24
25 #endif
26
27 #ifdef TEST
28 #include <_PDCLIB_test.h>
29 #include <stdlib.h>
30
31 int main( void )
32 {
33     /* TODO: Extend testing once setvbuf() is finished. */
34 #ifndef REGTEST
35     char buffer[ BUFSIZ + 1 ];
36     FILE * fh;
37     /* full buffered */
38     TESTCASE( ( fh = tmpfile() ) != NULL );
39     setbuf( fh, buffer );
40     TESTCASE( fh->buffer == buffer );
41     TESTCASE( fh->bufsize == BUFSIZ );
42     TESTCASE( ( fh->status & ( _IOFBF | _IONBF | _IOLBF ) ) == _IOFBF );
43     TESTCASE( fclose( fh ) == 0 );
44     /* not buffered */
45     TESTCASE( ( fh = tmpfile() ) != NULL );
46     setbuf( fh, NULL );
47     TESTCASE( ( fh->status & ( _IOFBF | _IONBF | _IOLBF ) ) == _IONBF );
48     TESTCASE( fclose( fh ) == 0 );
49 #else
50     puts( " NOTEST setbuf() test driver is PDCLib-specific." );
51 #endif
52     return TEST_RESULTS;
53 }
54
55 #endif