diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2016-08-14 05:28:30 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2016-08-14 05:28:30 -0700 |
commit | 9fb5a1a98d5e57c145d7375c8dc66e3988497af8 (patch) | |
tree | d2f4a111dd89ac8681305978ff1da9fbdf298664 /real-files.mu | |
parent | df32a04c40832fe3d3092b35233a58af74af00f9 (diff) | |
download | mu-9fb5a1a98d5e57c145d7375c8dc66e3988497af8.tar.gz |
3187
Diffstat (limited to 'real-files.mu')
-rw-r--r-- | real-files.mu | 18 |
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 +] |