kolibri-libc:

Move to folder with tcc. Part 1

git-svn-id: svn://kolibrios.org@8793 a494cfbc-eb01-0410-851d-a64ba20cac60

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

@@ -0,0 +1,39 @@
+#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(stream==stdout){
+		con_init();
+		con_write_string((char*)ptr, bytes_count);
+		return nmemb;
+	}
+	else if(stream==stderr){
+		for (size_t i = 0; i < bytes_count; i++) {
+			char c = *(char*)(ptr+i);
+			_ksys_debug_putc(c);
+		}
+	}
+	else{
+		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;
+        	}else {
+    			stream->position+=bytes_written;
+			}
+		}
+	}
+	return bytes_written;
+}