3203 - testable interface for reading a file

This commit was written by Stephen Malina. Thanks also to Stephen for
running into the bug of commit 3202.

1 files changed, 16 insertions, 0 deletions

diff --git a/filesystem.mu b/filesystem.mu
new file mode 100644
index 00000000..7aa919e6
--- /dev/null
+++ b/filesystem.mu
@@ -0,0 +1,16 @@
+def main [
+  local-scope
+  $print [file to read from: ], [/tmp/mu-fs]
+  # initialize filesystem
+  fs:address:filesystem <- copy 0/real-filesystem
+  content-source:address:source:character <- start-reading fs, [/tmp/mu-fs]
+  # read from channel until exhausted and print out characters
+  {
+    c:character, done?:boolean, content-source <- read content-source
+    break-if done?
+    $print [Next: ], c, 10/newline
+    loop
+  }
+  $print [Done reading], 10/newline
+  # TODO: writing to file
+]