50 lines
1.5 KiB
OCaml
50 lines
1.5 KiB
OCaml
|
(***********************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Objective Caml *)
|
||
|
|
(* *)
|
||
|
|
(* Jerome Vouillon, projet Cristal, INRIA Rocquencourt *)
|
||
|
|
(* Objective Caml port by John Malecki and Xavier Leroy *)
|
||
|
|
(* *)
|
||
|
|
(* Copyright 1996 Institut National de Recherche en Informatique et *)
|
||
|
|
(* Automatique. Distributed only by permission. *)
|
||
|
|
(* *)
|
||
|
|
(***********************************************************************)
|
||
|
|
|
||
|
|
(* $Id$ *)
|
||
|
|
|
||
|
|
(* Handling of keyboard interrupts *)
|
||
|
|
|
||
|
|
let interrupted = ref false
|
||
|
|
|
||
|
|
let protect = ref false
|
||
|
|
|
||
|
|
let break signum =
|
||
|
|
if !protect
|
||
|
|
then interrupted := true
|
||
|
|
else raise Sys.Break
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
Sys.signal Sys.sigint (Sys.Signal_handle break);
|
||
|
|
Sys.signal Sys.sigpipe (Sys.Signal_handle (fun _ -> raise End_of_file))
|
||
|
|
|
||
|
|
let protected f =
|
||
|
|
if !protect then
|
||
|
|
f ()
|
||
|
|
else begin
|
||
|
|
protect := true;
|
||
|
|
if not !interrupted then
|
||
|
|
f ();
|
||
|
|
protect := false;
|
||
|
|
if !interrupted then begin interrupted := false; raise Sys.Break end
|
||
|
|
end
|
||
|
|
|
||
|
|
let unprotected f =
|
||
|
|
if not !protect then
|
||
|
|
f ()
|
||
|
|
else begin
|
||
|
|
protect := false;
|
||
|
|
if !interrupted then begin interrupted := false; raise Sys.Break end;
|
||
|
|
f ();
|
||
|
|
protect := true
|
||
|
|
end
|