Add character input/output

1 files changed, 23 insertions, 0 deletions

diff --git a/streams.c b/streams.c
index e090cdb..63a7099 100644
--- a/streams.c
+++ b/streams.c
@@ -283,3 +283,26 @@ getstream(Term *t)
 	return s;
 }
 
+Rune
+getchar(Term *t)
+{
+	Stream *s = getstream(t);
+	return Bgetrune(s->bio);
+}
+
+Rune
+peekchar(Term *t)
+{
+	Stream *s = getstream(t);
+	Rune r = Bgetrune(s->bio);
+	Bungetrune(s->bio);
+	return r;
+}
+
+void
+putchar(Term *t, Rune r)
+{
+	Stream *s = getstream(t);
+	Bprint(s->bio, "%C", r);
+	Bflush(s->bio);
+}
\ No newline at end of file