14 lines
328 B
OCaml
14 lines
328 B
OCaml
|
let sighandler _ =
|
||
|
|
print_string "Got ctrl-C, exiting..."; print_newline();
|
||
|
|
exit 0
|
||
|
|
|
||
|
|
let print_message delay c =
|
||
|
|
while true do
|
||
|
|
print_char c; flush stdout; Thread.delay delay
|
||
|
|
done
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
Sys.signal Sys.sigint (Sys.Signal_handle sighandler);
|
||
|
|
Thread.create (print_message 0.6666666666) 'a';
|
||
|
|
print_message 1.0 'b'
|