mescc: Tinycc support: fgetc.
authorrain1 <rain1@openmailbox.org>
Sun, 30 Jul 2017 12:28:19 +0000 (08:28 -0400)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 30 Jul 2017 12:28:19 +0000 (08:28 -0400)
* mlibc/libc-mes.c (fgetc): Implement.

mlibc/libc-mes.c

index 9aaf3909cd318734c27d6759e794e000e4e91324..1a351eda5258af698f3422a69901604cba12c5e1 100644 (file)
@@ -216,6 +216,14 @@ getchar ()
   return i;
 }
 
+int
+fgetc (int fd)
+{
+  char c;
+  int r = read (fd, &c, 1);
+  return c == 1 ? c : (-1);
+}
+
 //#define assert(x) ((x) ? (void)0 : assert_fail (#x))
 int
 ungetc (int c, int fd)