Implement 'bychar' for iterating characters.

1 files changed, 24 insertions, 0 deletions

diff --git a/lib/bio/iter.myr b/lib/bio/iter.myr
index ba7d765..c54b342 100644
--- a/lib/bio/iter.myr
+++ b/lib/bio/iter.myr
@@ -3,9 +3,12 @@ use "bio"
 
 pkg bio =
 	type lineiter = file#
+	type chariter = file#
 	impl iterable lineiter -> byte[:]
+	impl iterable chariter -> char
 
 	const byline	: (f : file# -> lineiter)
+	const bychar	: (f : file# -> chariter)
 ;;
 
 const byline = {f
@@ -29,3 +32,24 @@ impl iterable lineiter -> byte[:] =
 		std.slfree(outp#)
 	}
 ;;
+
+const bychar = {f
+	-> (f : chariter)
+}
+
+impl iterable chariter -> char =
+	__iternext__ = {itp, outp : char#
+		match bio.getc((itp# : file#))
+		| `Ok c:
+			outp# = c
+			-> true
+		| `Eof:
+			-> false
+		| `Err _:
+			-> false
+		;;
+	}
+
+	__iterfin__ = {itp, outp
+	}
+;;