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

#include <stdio.h>
#include "../sys/_conio.h"
#include <sys/ksys.h>
#include <errno.h>
#include <shell_api.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) {
        console_write((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;
}