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

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

size_t fread(void *restrict ptr, size_t size, size_t nmemb, FILE *restrict stream) {
	unsigned bytes_read = 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==stdin){
		con_init();
		con_gets((char*)ptr, bytes_count+1);
		return nmemb;
	}

    if(stream->mode != _FILEMODE_W && stream->mode != _FILEMODE_A){
        if(!stream->__ungetc_emu_buff){
			((char*) ptr)[0]=(char)stream->__ungetc_emu_buff;
			//debug_printf("Ungetc: %x\n", ((char*) ptr)[0]);
		}
		unsigned status = _ksys_file_read_file(stream->name, stream->position, bytes_count, ptr , &bytes_read);
		if (status != KSYS_FS_ERR_SUCCESS) {
			if(status == KSYS_FS_ERR_EOF){
				stream->eof=1;
			}else{
				errno = EIO;
				stream->error = errno;
				return 0;
			}
		}
		stream->position+=bytes_read;
	}
	return bytes_read/size;
}