Add FILE wrapper around FILEIOC library (Fix #78)

Author: mateoconlechuga

makefile

@@ -74,6 +74,7 @@ INSTALLBF  := $(call NATIVEPATH,$(INSTALLLOC)/$(RELEASE_NAME)/include/fasmg-ez80
 INSTALLINC := $(call NATIVEPATH,$(INSTALLLOC)/$(RELEASE_NAME)/include)
 INSTALLLIB := $(call NATIVEPATH,$(INSTALLLOC)/$(RELEASE_NAME)/lib)
 INSTALLLL  := $(call NATIVEPATH,$(INSTALLLOC)/$(RELEASE_NAME)/lib/libload)
+INSTALLIO  := $(call NATIVEPATH,$(INSTALLLOC)/$(RELEASE_NAME)/lib/fileio)
 INSTALLSH  := $(call NATIVEPATH,$(INSTALLLOC)/$(RELEASE_NAME)/lib/shared)
 INSTALLST  := $(call NATIVEPATH,$(INSTALLLOC)/$(RELEASE_NAME)/lib/static)
 INSTALLLI  := $(call NATIVEPATH,$(INSTALLLOC)/$(RELEASE_NAME)/lib/linked)
@@ -209,6 +210,7 @@ $(DIRS):
 	$(WINNCHKDIR) $(call WINCHKPATH,$(INSTALLINC)) $(MKDIR) $(INSTALLINC)
 	$(WINNCHKDIR) $(call WINCHKPATH,$(INSTALLBF)) $(MKDIR) $(INSTALLBF)
 	$(WINNCHKDIR) $(call WINCHKPATH,$(INSTALLLL)) $(MKDIR) $(INSTALLLL)
+	$(WINNCHKDIR) $(call WINCHKPATH,$(INSTALLIO)) $(MKDIR) $(INSTALLIO)
 	$(WINNCHKDIR) $(call WINCHKPATH,$(INSTALLSH)) $(MKDIR) $(INSTALLSH)
 	$(WINNCHKDIR) $(call WINCHKPATH,$(INSTALLST)) $(MKDIR) $(INSTALLST)
 	$(WINNCHKDIR) $(call WINCHKPATH,$(INSTALLLI)) $(MKDIR) $(INSTALLLI)

src/core_makefile

@@ -111,6 +111,7 @@ LINK_FILES    += $(call TOLOWER,$(LINK_CSOURCES))
 LINK_FILES    += $(call TOLOWER,$(LINK_CPPSOURCES))
 LINK_FILES    += $(LINK_ASMSOURCES)
 LINK_FILES    += $(call NATIVEPATH,$(wildcard $(CEDEV)/lib/shared/*.src))
+LINK_FILES    += $(call NATIVEPATH,$(wildcard $(CEDEV)/lib/fileio/*.src))
 LINK_LIBLOAD  := $(call NATIVEPATH,$(wildcard $(CEDEV)/lib/libload/*.asm))
 
 # check if there is an icon present that we can convert; if so, generate a recipe to build it properly

src/std/fileio/fclose.c

@@ -0,0 +1,8 @@
+#include <stdio.h>
+#include <fileioc.h>
+
+int fclose(FILE *stream) {
+    ti_var_t slot = stream->slot;
+    __stdio_files[slot].slot = 0;
+    return ti_Close(slot);
+}

src/std/fileio/feof.c

@@ -0,0 +1,11 @@
+#include <stdio.h>
+#include <fileioc.h>
+
+int feof(FILE *stream) {
+    char a;
+    int sz;
+
+    sz = fread(&a, 1, 1, stream);
+    fseek(stream, -sz, SEEK_CUR);
+    return !sz;
+}

src/std/fileio/fgetc.c

@@ -0,0 +1,6 @@
+#include <stdio.h>
+#include <fileioc.h>
+
+int fgetc(FILE *stream) {
+    return ti_GetC(stream->slot);
+}

src/std/fileio/fgets.c

@@ -0,0 +1,30 @@
+#include <stdio.h>
+#include <fileioc.h>
+
+char *fgets(char *str, int num, FILE *stream) {
+    int c;
+    char *p = str;
+
+    if (num == 1) {
+        *p = 0;
+        return str;
+    }
+
+    for (; num > 1; num--) {
+        if ((c = fgetc(stream)) == EOF) {
+            break;
+        }
+        *p++ = c;
+        if (c == '\n') {
+            break;
+        }
+    }
+
+    if (p == str) {
+        return NULL;
+    }
+
+    *p = 0;
+
+    return str;
+}

src/std/fileio/files.c

@@ -0,0 +1,3 @@
+#include <stdio.h>
+
+FILE __stdio_files[FOPEN_MAX];

src/std/fileio/fopen.c

@@ -0,0 +1,12 @@
+#include <stdio.h>
+#include <fileioc.h>
+
+FILE *fopen(const char *filename, const char *mode) {
+    ti_var_t f = ti_Open(filename, mode);
+    if (!f) {
+        return NULL;
+    }
+    __stdio_files[(unsigned char)f].slot = f;
+
+    return &__stdio_files[f];
+}

src/std/fileio/fputc.c

@@ -0,0 +1,6 @@
+#include <stdio.h>
+#include <fileioc.h>
+
+int fputc(int c, FILE *stream) {
+    return ti_PutC((char)c, stream->slot);
+}

src/std/fileio/fputs.c

@@ -0,0 +1,19 @@
+#include <stdio.h>
+#include <fileioc.h>
+
+int fputs(const char *str, FILE *stream) {
+    unsigned char slot = stream->slot;
+    unsigned int i = 0;
+    char c;
+    
+    while((c = str[i])) {
+        if(ti_PutC(c, slot) == EOF) { 
+            return EOF;
+        }
+        i++;
+    }
+    if(ti_PutC('\n', slot) == EOF) {
+        return EOF;
+    }
+    return 1;
+}