about summary refs log tree commit diff stats
path: root/themes/original_bright
blob: 8f073610dafbf12ffe5e7b6ee89a071f0e4b9ff2 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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:num/file <- $open-file-for-reading [/tmp/mu-x]
  $print [file to read from: ], f, 10/newline
  c:char, eof?
nv">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 ]