examples/signal_example.ml

   1 (*
   2  * Small example program
   3  *)
   4
   5 let signal_callback event called fd event_type =
   6   (* Print information on the signal we received *)
   7   Printf.printf "Got signal: %d\n" (Libevent.signal event);
   8   flush stdout;
   9
  10   called := !called - 1;
  11
  12   if !called <= 0 then
  13     Libevent.del event
  14
  15 let _ =
  16   let sigint = 2 in
  17
  18   (* Create an event *)
  19   let signal_event = Libevent.create () in
  20
  21   (* Set the sigint signal *)
  22   Libevent.set_signal signal_event sigint true
  23     (signal_callback signal_event (ref 2));
  24
  25   (* Add the signal to the event library *)
  26   Libevent.add signal_event None;
  27
  28   Printf.printf "SIGINT me please!\n";
  29   flush stdout;
  30
  31   (* Start the event dispatching mainloop *)
  32   Libevent.dispatch ()