From 1a2688c9ba7d8a7c992b71b35ffe01f8c4e697c3 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Thu, 21 Dec 1995 11:00:19 +0000 Subject: [PATCH] Test des signaux git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@562 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- test/Moretest/signals.ml | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 test/Moretest/signals.ml diff --git a/test/Moretest/signals.ml b/test/Moretest/signals.ml new file mode 100644 index 000000000000..3abf7477cae9 --- /dev/null +++ b/test/Moretest/signals.ml @@ -0,0 +1,19 @@ +let rec tak (x, y, z) = + if x > y then tak(tak (x-1, y, z), tak (y-1, z, x), tak (z-1, x, y)) + else z + +let break_handler _ = + print_string "Thank you for pressing ctrl-C."; print_newline(); + print_string "Allocating a bit..."; flush stdout; + tak(18,12,6); print_string "done."; print_newline() + +let _ = + Sys.signal Sys.sigint (Sys.Signal_handle break_handler); + print_string "Computing like crazy..."; print_newline(); + for i = 1 to 100 do tak(18,12,6) done; + print_string "Reading on input..."; print_newline(); + for i = 1 to 5 do + let s = read_line () in + print_string ">> "; print_string s; print_newline() + done; + exit 0