open
Unix
let
kill_daemon
cmd
=
try
let
lockfile
=
Filename
.
concat
"/tmp/"
cmd
^
"_lock"
in
let
fd
=
open_in
lockfile
in
let
pid
=
input_binary_int
fd
in
close_in
fd
;
kill
pid
Sys
.
sigkill
;
unlink
lockfile
with
_
-> ()