New module fileio-test.c

git-svn-id: svn://svn.cc65.org/cc65/trunk@1534 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/testcode/lib/fileio-test.c b/testcode/lib/fileio-test.c
new file mode 100644 (file)
index 0000000..013d939
--- /dev/null
+++ b/testcode/lib/fileio-test.c
@@ -0,0 +1,97 @@
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+#include <fcntl.h>
+
+
+
+FILE* Fopen (const char* Name, const char* Mode)
+{
+    FILE* F;
+    printf ("Opening %s(%s): ", Name, Mode);
+    F = fopen (Name, Mode);
+    if (F) {
+        printf ("Ok (%d)\n", fileno (F));
+    } else {
+        printf (strerror (errno));
+    }
+    return F;
+}
+
+
+
+void Fwrite (FILE* F, const void* Buf, unsigned Size)
+{
+    size_t Res;
+    Res = fwrite (Buf, 1, Size, F);
+    printf ("Writing %u bytes to %d: %u\n", Size, fileno (F), Res);
+}
+
+
+
+int Fread (FILE* F, void* Buf, unsigned Size)
+{
+    size_t Res;
+    Res = fread (Buf, 1, Size, F);
+    printf ("Reading %u bytes from %d: %u\n", Size, fileno (F), Res);
+    return Res > 0? Res : 0;
+}
+
+
+
+void Fclose (FILE* F)
+{
+    printf ("Closing %d:", fileno (F));
+    if (fclose (F) == 0) {
+        printf ("Ok\n");
+    } else {
+        printf (strerror (errno));
+    }
+}
+
+
+
+int main (void)
+{
+    FILE* F1;
+    FILE* F2;
+    int Res;
+    static const char text1[] = "This goes into file #1\n";
+    static const char text2[] = "This goes into file #2\n";
+    static const char text3[] = "This goes into file #3\n";
+    static const char text4[] = "This goes into file #4\n";
+    static char Buf[200];
+
+
+    F1 = Fopen ("foobar1", "w");
+    F2 = Fopen ("foobar2", "w");
+
+    Fwrite (F1, text1, sizeof (text1) - 1);
+    Fwrite (F2, text2, sizeof (text2) - 1);
+    Fwrite (F1, text1, sizeof (text1) - 1);
+    Fwrite (F2, text2, sizeof (text2) - 1);
+
+    Fclose (F1);
+    Fclose (F2);
+
+    F1 = Fopen ("foobar3", "w");
+    F2 = Fopen ("foobar4", "w");
+
+    Fwrite (F1, text3, sizeof (text3) - 1);
+    Fwrite (F2, text4, sizeof (text4) - 1);
+    Fwrite (F1, text3, sizeof (text3) - 1);
+    Fwrite (F2, text4, sizeof (text4) - 1);
+
+    Fclose (F1);
+    Fclose (F2);
+
+    F1 = Fopen ("foobar1", "r");
+    Res = Fread (F1, Buf, sizeof (Buf));
+    printf ("%.*s", Res, Buf);
+    Res = Fread (F1, Buf, sizeof (Buf));
+    Fclose (F1);
+
+    return 0;
+}
+
+

diff --git a/testcode/lib/files.txt b/testcode/lib/files.txt
index 5ed34133497154455e5a83ed1c20a3df32f3006e..0751b14952eedc7a0c76f3935bba6ff33c7e5609 100644 (file)
--- a/testcode/lib/files.txt
+++ b/testcode/lib/files.txt
@@ -7,6 +7,7 @@ cprintf.c       -       test program for cprintf \n and \r operators
 cursor.c       -       test the cursor() function
 deb.c          -       test program for the library debugger
 div-test.c     -       test division/modulus and the div() routine
+fileio-test.c   -       test C file i/o routines (fopen/fread/fwrite/fclose)
 ft.c           -       file I/O test program (open + read functions)
 getsp.s                -       helper routine for ft.c
 joytest.c      -       readjoy function test program