+#if 0\r
+ stream->ops->write( stream->handle, &r, 1, &justWrote );\r
+#endif\r
+\r
+ stream->bufidx -= written;\r
+#ifdef _PDCLIB_NEED_EOL_TRANSLATION\r
+ stream->bufnlexp -= written;\r
+#endif\r
+ memmove( stream->buffer, stream->buffer + written, stream->bufidx );\r
+\r
+ return rv;\r
+}\r
+\r
+int _PDCLIB_flushbuffer( FILE * stream )\r
+{\r
+#ifdef _PDCLIB_NEED_EOL_TRANSLATION\r
+ // if a text stream, and this platform needs EOL translation, well...\r
+ if ( ! ( stream->status & _PDCLIB_FBIN ) )\r
+ {\r
+ // Special case: buffer is full and we start with a \n\r
+ if ( stream->bufnlexp == 0\r
+ && stream->bufidx == stream->bufend\r
+ && stream->buffer[0] == '\n' )\r
+ {\r
+ char cr = '\r';\r
+ size_t written = 0;\r
+ bool res = stream->ops->write( stream->handle, &cr, 1, &written );\r
+\r
+ if (!res) {\r
+ stream->status |= _PDCLIB_ERRORFLAG;\r
+ return EOF;\r
+ }\r
+\r
+ }\r
+\r
+ for ( ; stream->bufnlexp < stream->bufidx; stream->bufnlexp++ )\r
+ {\r
+ if (stream->buffer[stream->bufnlexp] == '\n' ) {\r
+ if ( stream->bufidx == stream->bufend ) {\r
+ // buffer is full. Need to print out everything up till now\r
+ if( flushsubbuffer( stream, stream->bufnlexp - 1 ) )\r
+ {\r
+ return EOF;\r
+ }\r
+ }\r
+\r
+ // we have spare space in buffer. Shift everything 1char and\r
+ // insert \r\r
+ memmove( &stream->buffer[stream->bufnlexp + 1],\r
+ &stream->buffer[stream->bufnlexp],\r
+ stream->bufidx - stream->bufnlexp );\r
+ stream->buffer[stream->bufnlexp] = '\r';\r
+\r
+ stream->bufnlexp++;\r
+ stream->bufidx++;\r
+ }\r
+ }\r
+ }\r
+#endif\r
+ return flushsubbuffer( stream, stream->bufidx );\r