0

我在 OCaml 中编写了一些代码，它们执行类似于以下的操作

    let rec main() = 

      DO STUFF...

      let print_time() = 
        let time = Unix.localtime (Unix.time()) in
        let hour = string_of_int (time.Unix.tm_hour) in
        let minute = string_of_int (time.Unix.tim_min) in
        print_string ("\n Time -- " ^ hour ^ ":" ^ minute)
      in

      Lwt.bind(Lwt_unix.sleep 30.)
      (fun() -> (print_time(); main();)
    ;;

    main();;

此代码在顶层完美运行，但似乎时间正在打印到缓冲区而不是立即打印到屏幕上。当我给顶层另一个命令时，缓冲区中的所有时间都会立即打印到屏幕上。

如何更正此问题，以便每次print_time()调用时将时间打印到顶层，而不是在我给顶层命令时打印？

示例：如果我运行程序，然后等待 2 分钟，然后在顶层输入内容，我会得到以下输出。如果我没有在顶层输入任何内容，那么我只会收到第一次消息。

    # #use "this_program";;
    Time -- 12:03

    # let x = 1;;
    time -- 12:03
    time -- 12:04
    time -- 12:04
    time -- 12:05
    time -- 12:05
    val x : int = 1
    #

此外，这个“循环”main()在本机编译代码中只工作一次（不会递归调用自身），我不知道如何纠正它。

4

1 回答 1

1

我会尝试flush stdout在您致电后添加print_string。

于 2014-02-09T18:49:09.827 回答