src/lua_stdlib_io.ml

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20

open Ast.Value

let flush _v env =
  flush_all ();
  ([ Vnil () ], env)

let write v env =
  let sl =
    List.map
      (fun v ->
        let s, _env = Lua_stdlib_basic.tostring_value v env in
        s )
      v
  in
  List.iter
    (fun s ->
      print_string s;
      Format.print_flush () )
    sl;
  ([ Vnil () ], env)