about summary refs log tree commit diff stats
path: root/real-files.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2016-08-14 05:28:30 -0700
committerKartik K. Agaram <vc@akkartik.com>2016-08-14 05:28:30 -0700
commit9fb5a1a98d5e57c145d7375c8dc66e3988497af8 (patch)
treed2f4a111dd89ac8681305978ff1da9fbdf298664 /real-files.mu
parentdf32a04c40832fe3d3092b35233a58af74af00f9 (diff)
downloadmu-9fb5a1a98d5e57c145d7375c8dc66e3988497af8.tar.gz
3187
Diffstat (limited to 'real-files.mu')
-rw-r--r--real-files.mu18
1 files changed, 18 insertions, 0 deletions
diff --git a/real-files.mu b/real-files.mu
new file mode 100644
index 00000000..d521b774
--- /dev/null
+++ b/real-files.mu
@@ -0,0 +1,18 @@
+# example program: read a character from one file and write it to another
+# BEWARE: this will modify your file system
+# before running it, put a character into /tmp/mu-x
+# after running it, check /tmp/mu-y
+
+def main [
+  local-scope
+  f:number/file <- $open-file-for-reading [/tmp/mu-x]
+  $print [file to read from: ], f, 10/newline
+  c:character <- $read-from-file f
+  $print [copying ], c, 10/newline
+  f <- $close-file f
+  $print [file after closing: ], f, 10/newline
+  f <- $open-file-for-writing [/tmp/mu-y]
+  $print [file to write to: ], f, 10/newline
+  $write-to-file f, c
+  f <- $close-file f
+]