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/freopen.c

@@ -0,0 +1,53 @@
+#include "stddef.h"
+#include "sys/ksys.h"
+#include <errno.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#define CREATE_FILE()   if(_ksys_file_create(_name)){ \
+                            errno= EIO; \
+                            free(out); \
+                            out = NULL; \
+                        }
+
+FILE *freopen(const char *restrict _name, const char *restrict _mode, FILE *restrict out) {
+    if(!_name || !_mode || !out){
+        errno = EINVAL;
+        return NULL;
+    }
+
+    if (strchr(_mode, 'r')) { out->mode = _FILEMODE_R; }
+    if (strchr(_mode, 'a')) { out->mode = _FILEMODE_A; }
+    if (strchr(_mode, 'w')) { out->mode = _FILEMODE_W; }
+
+    ksys_bdfe_t info;
+    int no_file = _ksys_file_get_info(_name, &info);
+    out->eof=0;
+    out->error=0;
+    out->position=0;
+    out->name = strdup(_name);
+    
+    switch (out->mode) {
+    case _FILEMODE_A :
+        if(no_file){
+            CREATE_FILE();
+        }
+        out->position = info.size;
+        break;
+    case _FILEMODE_W :
+        CREATE_FILE();
+        break;
+    case _FILEMODE_R :
+        if(no_file){
+            free(out);
+            out = NULL;
+        }
+        break;
+    default:
+        free(out);
+        out = NULL;
+        break;
+    }
+    return out;
+}