ocaml-gstreamer should run a loop in the thread where it is created.

[crocket]

At the end of liquidsoap/src/tools/gstreamer_utils.ml, Gstreamer.Loop.create () creates a loop in the global-default glib main context which runs the loop in the main thread instead of gstreamer_main_loop thread.

Tutils.create main () "gstreamer_main_loop" seems to intend to run the gstreamer loop in gstreamer_main_loop thread.

To run a gstreamer loop in gstreamer_main_loop thread,

• Merge Prevent ocaml_gstreamer_loop_quit from freezing during shutdown #11
• call Gstreamer.Loop.create () in main which is, in turn, called in gstreamer_main_loop thread.
• In ocaml_gstreamer_loop_create
  • thread_context = g_main_context_new ()
  • g_main_context_push_thread_default(thread_context)
  • GMainLoop* loop = g_main_loop_new(thread_context, FALSE)
  • return { loop, thread_context }
• In ocaml_gstreamer_loop_run
  • g_main_loop_run(loop)
  • g_main_loop_unref(loop)
  • g_main_context_pop_thread_default(thread_context)
  • g_main_context_unref(thread_context)
• In ocaml_gstreamer_loop_quit
  • Call g_source_attach(idle_source, thread_context) instead of g_source_attach(idle_source, NULL)

I don't know whether creating a new thread-default glib main context for gstreamer_main_loop thread breaks ocaml-gstreamer or liquidsoap.

ocaml-gstreamer needs to stop depending on the global-default glib main context if it does.