]> pd.if.org Git - pdclib.old/blob - platform/example/functions/_PDCLIB/flushbuffer.c
Uncovered severe formatting bug with one-digit numbers. Not fixed yet, but better...
[pdclib.old] / platform / example / functions / _PDCLIB / flushbuffer.c
1 /* $Id$ */
2
3 /* _PDCLIB_flushbuffer( struct _PDCLIB_file_t * )
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 /* This is an example implementation of _PDCLIB_flushbuffer() fit for
10    use with POSIX kernels.
11 */
12
13 #include <stdio.h>
14 #include <string.h>
15
16 #ifndef REGTEST
17 #include <_PDCLIB_glue.h>
18
19 #include </usr/include/errno.h>
20
21 typedef long ssize_t;
22 extern ssize_t write( int fd, const void * buf, size_t count );
23
24 /* The number of attempts to complete an output buffer flushing before giving
25  *    up.
26  *    */
27 #define _PDCLIB_IO_RETRIES 1
28
29 /* What the system should do after an I/O operation did not succeed, before   */
30 /* trying again. (Empty by default.)                                          */
31 #define _PDCLIB_IO_RETRY_OP( stream )
32
33 int _PDCLIB_flushbuffer( struct _PDCLIB_file_t * stream )
34 {
35     if ( ! ( stream->status & _PDCLIB_FBIN ) )
36     {
37         /* TODO: Text stream conversion here */
38     }
39     /* No need to handle buffers > INT_MAX, as PDCLib doesn't allow them */
40     _PDCLIB_size_t written = 0;
41     int rc;
42     /* Keep trying to write data until everything is written, an error
43        occurs, or the configured number of retries is exceeded.
44     */
45     for ( unsigned int retries = _PDCLIB_IO_RETRIES; retries > 0; --retries )
46     {
47         rc = (int)write( stream->handle, stream->buffer + written, stream->bufidx - written );
48         if ( rc < 0 )
49         {
50             /* Write error */
51             switch ( errno )
52             {
53                 case EBADF:
54                 case EFAULT:
55                 case EFBIG:
56                 case EINTR:
57                 case EINVAL:
58                 case EIO:
59                 case ENOSPC:
60                 case EPIPE:
61                     _PDCLIB_errno = _PDCLIB_EIO;
62                     break;
63                 default:
64                     _PDCLIB_errno = _PDCLIB_EUNKNOWN;
65                     break;
66             }
67             stream->status |= _PDCLIB_ERRORFLAG;
68             /* Move unwritten remains to begin of buffer. */
69             stream->bufidx -= written;
70             memmove( stream->buffer, stream->buffer + written, stream->bufidx );
71             return EOF;
72         }
73         written += (_PDCLIB_size_t)rc;
74         stream->pos.offset += rc;
75         if ( written == stream->bufidx )
76         {
77             /* Buffer written completely. */
78             stream->bufidx = 0;
79             return 0;
80         }
81     }
82     _PDCLIB_errno = _PDCLIB_ERETRY;
83     stream->status |= _PDCLIB_ERRORFLAG;
84     /* Move unwritten remains to begin of buffer. */
85     stream->bufidx -= written;
86     memmove( stream->buffer, stream->buffer + written, stream->bufidx );
87     return EOF;
88 }
89
90 #endif
91
92
93 #ifdef TEST
94 #include <_PDCLIB_test.h>
95
96 int main( void )
97 {
98     /* Testing covered by ftell.c */
99     return TEST_RESULTS;
100 }
101
102 #endif
103