simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-10 13:14:09 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

get rid of dependency on unix

Browse source
This commit is contained in:
Simon Cruanes 2016-01-20 20:13:32 +01:00
parent facfe336a1
commit 6e5d737b42
5 changed files with 4 additions and 59 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
META
View file

@ -1,7 +1,7 @@
name="msat"
version="dev"
description="MSAT is a modular SAT solver, plus extensions"
requires="num unix"
requires=""
archive(byte) = "msat.cma"
archive(byte, plugin) = "msat.cma"
archive(native) = "msat.cmxa"

4
_tags
View file

@ -1,5 +1,5 @@
<util/*.cmx>: for-pack(Msat), package(unix)
<util/*.native>: package(unix)
<util/*.cmx>: for-pack(Msat)
#<util/*.native>:
<smt/*.cmx>: for-pack(Msat)
<sat/*.cmx>: for-pack(Msat)
<solver/*.cmx>: for-pack(Msat)

2
opam
View file

@ -15,7 +15,7 @@ remove: [
]
depends: [
"ocamlfind" {build}
"base-unix"
"ocamlbuild" {build}
]
available: [
ocaml-version >= "4.02.1"

35
util/timer.ml
View file

@ -1,35 +0,0 @@
(**************************************************************************)
(* *)
(* Cubicle *)
(* Combining model checking algorithms and SMT solvers *)
(* *)
(* Sylvain Conchon and Alain Mebsout *)
(* Universite Paris-Sud 11 *)
(* *)
(* Copyright 2011. This file is distributed under the terms of the *)
(* Apache Software License version 2.0 *)
(* *)
(**************************************************************************)
module type S = sig
val start : unit -> unit
val pause : unit -> unit
val get : unit -> float
end
module Make (X : sig end) = struct
open Unix
let u = ref 0.0
let cpt = ref 0.0
let start () = u:=(times()).tms_utime
let pause () = cpt := !cpt +. ((times()).tms_utime -. !u)
let get () =
!cpt
end

20
util/timer.mli
View file

@ -1,20 +0,0 @@
(**************************************************************************)
(* *)
(* Cubicle *)
(* Combining model checking algorithms and SMT solvers *)
(* *)
(* Sylvain Conchon and Alain Mebsout *)
(* Universite Paris-Sud 11 *)
(* *)
(* Copyright 2011. This file is distributed under the terms of the *)
(* Apache Software License version 2.0 *)
(* *)
(**************************************************************************)
module type S = sig
val start : unit -> unit
val pause : unit -> unit
val get : unit -> float
end
module Make (X : sig end) : S