kolibrios/programs/develop/ktcc/trunk/libc.obj/source/stdio/fwrite.c

#include <stdio.h>
#include "conio.h"
#include <sys/ksys.h>
#include <errno.h>

size_t fwrite(const void *restrict ptr, size_t size, size_t nmemb, FILE *restrict stream) {
	unsigned bytes_written = 0;
	unsigned bytes_count = size * nmemb;
	
	if(!stream){
		errno = EBADF;
		return 0;
	}
	
	if(size<=0 || nmemb<=0){
		errno = EINVAL;
		stream->error=errno;
		return 0;
	}
	
	if(stream==stdout){
		con_init();
		con_write_string((char*)ptr, bytes_count);
		return nmemb;
	}
	
	if(stream==stderr){
		for (size_t i = 0; i < bytes_count; i++) {
			char c = *(char*)(ptr+i);
			_ksys_debug_putc(c);
		}
		return nmemb;
	}
	
	if(stream->mode != _FILEMODE_R){
		unsigned status = _ksys_file_write_file(stream->name, stream->position, bytes_count, ptr, &bytes_written);
		if (status != KSYS_FS_ERR_SUCCESS) {
			errno = EIO;
			stream->error = errno;
			return 0;
		}
		stream->position+=bytes_written;
	}
	return bytes_written/size;
}