package comby

  1. Overview
  2. Docs
A tool for structural code search and replace that supports ~every language

Install 

dune-project
 Dependency

github.com Readme Edit opam file Versions (5)

Authors

  1. R
    Rijnard van Tonder

Maintainers

  1. R
    rvantonder@gmail.com

Sources

1.4.0.tar.gz
md5=58295a68289d68231cb3c9e0377e44ef
sha512=3f0154f26cc6016c12f57d0b8e43da32b9329572bf67fb5719008eaf3377b8d5a2ab6f775ffe8d16bc85f2c4db52f567ef64da52ccb77d6ba8e496a0dc9eddf7

doc/src/comby.statistics/time.ml.html

Source file time.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
let start () = Unix.gettimeofday ()

let stop start =
  (Unix.gettimeofday () -. start) *. 1000.0

exception Time_out

let time_out ~after f args =
  let behavior =
    Sys.(signal sigalrm @@ Signal_handle (fun _ -> raise Time_out))
  in
  let cancel_alarm () =
    Unix.alarm 0 |> ignore;
    Sys.(set_signal sigalrm behavior)
  in
  Unix.alarm after |> ignore;
  match f args with
  | result ->
    cancel_alarm ();
    result
  | exception exc ->
    cancel_alarm ();
    raise exc