about summary refs log tree commit diff stats
path: root/030translate.cc
diff options
context:
space:
mode:
Diffstat (limited to '030translate.cc')
0 files changed, 0 insertions, 0 deletions
 

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-11-16 05:57:08 +0000


 


n&id=dff1abb2e10ca2dd064a505dfb3d67635f680a9a'>dff1abb2 ^

734eef7c ^

dff1abb2 ^



192d59d3 ^

dff1abb2 ^

9458918f ^

dff1abb2 ^

734eef7c ^

dff1abb2 ^

734eef7c ^

dff1abb2 ^

734eef7c ^


dff1abb2 ^



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?:bool <- $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
]