[Caml-list] Is there some builtin function that flushes buffers on shutdown?

["Christoph Höger" <christoph.hoeger@celeraone.com>]

[-- Attachment #1.1: Type: text/plain, Size: 937 bytes --]

Dear all,

I managed to manually link and run an object file generated by ocamlopt. A
small part seems to be missing, however:

➜  llvmlink ocamlfind opt -package ANSITerminal -linkpkg -verbose
-output-obj -o test.object.o test.ml

➜  llvmlink clang -I$(ocamlc -where) -lm wrapper.c test.object.o -o wrapper
~/.opam/4.04.0/lib/ocaml/libunix.a -ldl
~/.opam/4.04.0/lib/ocaml/libasmrun.a
/home/choeger/.opam/4.04.0/lib/ANSITerminal/libANSITerminal_stubs.a

These commands produce an executable output, but the screen remains empty.
This changes, when I manually flush the stdout buffer in the code (I obtain
the desired results then).

Find attached the test sources. When I uncomment the Printf.printf in
test.ml, everything seems to work fine. But when I compile the test using
ocamlopt solely, this is not necessary. It seems some buffers do not get
flushed here. Does anyone know, why?

regards,

Christoph

[-- Attachment #1.2: Type: text/html, Size: 1145 bytes --]

[-- Attachment #2: wrapper.c --]
[-- Type: text/x-csrc, Size: 196 bytes --]

#include <caml/callback.h>
#include <stdio.h>

int main(int argc, char ** argv)
{
    int result;
    /* Initialize OCaml code */
    caml_startup(argv);
    printf("finished\n");
    return 0;
}

[-- Attachment #3: test.ml --]
[-- Type: application/octet-stream, Size: 1165 bytes --]

module T = ANSITerminal
open Printf

let colors =
  [T.Black; T.Red; T.Green; T.Yellow; T.Blue; T.Magenta; T.Cyan;
   T.White; T.Default]

let color_to_string = function
  | T.Black -> "black"
  | T.Red -> "red"
  | T.Green -> "green"
  | T.Yellow -> "yellow"
  | T.Blue -> "blue"
  | T.Magenta -> "magent"
  | T.Cyan -> "cyan"
  | T.White -> "white"
  | T.Default -> "def"

let () =
  (* Table *)
  let print_line fore =
    printf "%6s " (color_to_string fore);
    List.iter (fun back ->
                 T.print_string [T.Foreground fore; T.Background back; ]
                 " !Text! ";
              ) colors;
    print_string "\n" in

  Printf.eprintf "starting\n" ;
  T.erase T.Screen;
  T.set_cursor 1 1;
  print_string "        ";
  List.iter (fun back -> printf "%6s  " (color_to_string back)) colors;
  print_string "\n";
  List.iter print_line colors;
  (* Effects *)
  T.print_string [T.Bold] "Bold ";
  T.print_string [T.Underlined] "Underlined ";
  T.print_string [T.Blink] "Blink ";
  T.print_string [T.Inverse] "Inverse ";
  T.print_string [T.Hidden] "Hidden";
  (* uncomment to see results Printf.printf "%!"; *)
  print_string "<-- hidden\n" ;