30 lines
472 B
Text
30 lines
472 B
Text
import system.io
|
|
open io
|
|
variable [io.interface]
|
|
|
|
def tst1 : io unit :=
|
|
do out ← stdout,
|
|
-- fs.put_str_ln out "hello",
|
|
fs.close out
|
|
|
|
#eval tst1
|
|
#eval tst1
|
|
|
|
def tst2 : io unit :=
|
|
do out ← stderr,
|
|
-- fs.put_str_ln out "world",
|
|
fs.close out
|
|
|
|
#eval tst2
|
|
|
|
def tst3 : io unit :=
|
|
do h ← mk_file_handle "io_fs_error.lean" io.mode.read,
|
|
fs.close h,
|
|
fs.close h
|
|
|
|
#eval tst3
|
|
|
|
def tst4 : io handle :=
|
|
mk_file_handle "bad_file_name.txt" io.mode.read
|
|
|
|
#eval tst4
|