45 lines
1.3 KiB
Text
45 lines
1.3 KiB
Text
|
(* The printing module *)
|
||
|
|
|
||
|
|
(*
|
||
|
|
type file
|
||
|
|
|
||
|
|
const file stdout
|
||
|
|
const file stdin
|
||
|
|
const file stderr
|
||
|
|
|
||
|
|
(* Basic Printing *)
|
||
|
|
|
||
|
|
unsafe val fun open(name :string) returns (file)
|
||
|
|
unsafe val fun flush(file) returns ()
|
||
|
|
unsafe val fun print_int(file,int) returns ()
|
||
|
|
unsafe val fun print_float(file,float) returns ()
|
||
|
|
unsafe val fun print_string(file,string) returns ()
|
||
|
|
unsafe val fun print_bool(file, bool) returns ()
|
||
|
|
unsafe val fun print_nl(file) returns ()
|
||
|
|
*)
|
||
|
|
unsafe val fun out_flush() returns ()
|
||
|
|
unsafe val fun out_int(int) returns ()
|
||
|
|
unsafe val fun out_float(float) returns ()
|
||
|
|
unsafe val fun out_string(string) returns ()
|
||
|
|
unsafe val fun out_bool( bool) returns ()
|
||
|
|
unsafe val fun out_nl() returns ()
|
||
|
|
|
||
|
|
unsafe val fun err_flush() returns ()
|
||
|
|
unsafe val fun err_int(int) returns ()
|
||
|
|
unsafe val fun err_float(float) returns ()
|
||
|
|
unsafe val fun err_string(string) returns ()
|
||
|
|
unsafe val fun err_bool( bool) returns ()
|
||
|
|
unsafe val fun err_nl() returns ()
|
||
|
|
|
||
|
|
(* Basic Parsing *)
|
||
|
|
(*
|
||
|
|
val fun read_int(file) returns (int)
|
||
|
|
val fun read_float(file) returns (float)
|
||
|
|
val fun read_string(file) returns (string)
|
||
|
|
val fun read_bool(file) returns (bool)
|
||
|
|
*)
|
||
|
|
unsafe val fun in_int() returns (int)
|
||
|
|
unsafe val fun in_float() returns (float)
|
||
|
|
unsafe val fun in_string() returns (string)
|
||
|
|
unsafe val fun in_bool() returns (bool)
|