;;; GNU Guix --- Functional package management for GNU

;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>

;;;

;;; This file is part of GNU Guix.

;;;

;;; GNU Guix is free software; you can redistribute it and/or modify it

;;; under the terms of the GNU General Public License as published by

;;; the Free Software Foundation; either version 3 of the License, or (at

;;; your option) any later version.

;;;

;;; GNU Guix is distributed in the hope that it will be useful, but

;;; WITHOUT ANY WARRANTY; without even the implied warranty of

;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

;;; GNU General Public License for more details.

;;;

;;; You should have received a copy of the GNU General Public License

;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (more packages smt)

  #:use-module (guix packages)

  #:use-module (guix download)

  #:use-module (guix build-system gnu)

  #:use-module (guix build-system python)

  #:use-module ((guix licenses) #:prefix license:)

  #:use-module (gnu packages)

  #:use-module (gnu packages ocaml)

  #:use-module (gnu packages python)

  #:use-module (more packages python))

(define-public z3-solver

  (package

    (name "z3-solver")

    (version "4.5.0")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/Z3Prover/z3/archive/z3-"

                                  version ".tar.gz"))

              (sha256

               (base32

                "032a5lvji2liwmc25jv52bdrhimqflvqbpg77ccaq1jykhiivbmf"))

              (file-name (string-append name "-" version ".tar.gz"))))

    (build-system gnu-build-system)

    (arguments

     `(#:phases

       (modify-phases %standard-phases

         (delete 'configure)

         (add-before 'build 'generate-make

           (lambda _

             (system* "python" "scripts/mk_make.py")

             (chdir "build"))))

       #:test-target "test"

       #:make-flags

       (list (string-append "PREFIX=" (assoc-ref %outputs "out")))))

    (native-inputs

     `(("python" ,python-2)))

    (home-page "https://github.com/Z3Prover/z3")

    (synopsis "SMT solver library")

    (description "Z3 is a theorem prover from Microsoft Research.")

    (license license:expat)))

(define-public python2-z3-solver

  (package

    (inherit z3-solver)

    (name "python2-z3-solver")

    (build-system python-build-system)

    (propagated-inputs

     `(("z3" ,z3-solver)))

    (arguments

     `(#:python ,python-2

       #:phases

       (modify-phases %standard-phases

         (add-before 'build 'prepare

           (lambda* (#:key inputs #:allow-other-keys)

             (system* "python" "scripts/mk_make.py")

             (copy-file "build/python/z3/z3core.py" "src/api/python/z3/z3core.py")

             (copy-file "build/python/z3/z3consts.py" "src/api/python/z3/z3consts.py")

             (chdir "src/api/python")

             (substitute* "z3/z3core.py"

               (("_dirs = \\[")

                (string-append "_dirs = ['" (assoc-ref inputs "z3")

                                            "/lib', ")))

             (substitute* "MANIFEST.in"

               ((".*") ""))

             (substitute* "setup.py"

               (("self.execute\\(.*") "\n")

               (("scripts=.*") "\n")))))))))

(define-public python2-claripy

  (package

    (name "python2-claripy")

    (version "6.7.4.12")

    (source (origin

              (method url-fetch)

              (uri (pypi-uri "claripy" version))

              (sha256

               (base32

                "0w6f2jvqajmw1mmdbdzvvs71fsv62z73w0q6jz3sap7mhlwj3vrd"))

              (modules '((guix build utils)))

              (snippet

               `(substitute* "setup.py"

                  (("angr-only-z3-custom==9002") "z3-solver")))))

    (build-system python-build-system)

    (propagated-inputs

     `(("ana" ,python2-ana)

       ("z3" ,python2-z3-solver)))

    (arguments

     `(#:python ,python-2))

    (home-page "https://github.com/angr/claripy")

    (synopsis "Claripy is a abstracted constraint-solving wrapper")

    (description "Claripy is a abstracted constraint-solving wrapper.")

    (license license:bsd-2)))

(define-public why3

  (package

    (name "why3")

    (version "0.87.3")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://gforge.inria.fr/frs/download.php/file/36398/why3-"

                                  version ".tar.gz"))

              (sha256

               (base32

                "1fn9v6w1ilkrm2n4rz31w8qvjnchyvwxiqs67z3f59b5k99wb2ka"))))

    (build-system gnu-build-system)

    (native-inputs

     `(("ocaml" ,ocaml)))

    (propagated-inputs

     `(("menhir" ,ocaml-menhir)))

    (arguments

     `(#:tests? #f)) ;; Need Alt-Ergo

       ;#:phases

       ;(modify-phases %standard-phases

       ;  (replace 'check

       ;    (lambda _

       ;      (zero? (system* "make" ;"test-ocaml-extraction"

       ;                      "test-runstrat" "test-coq-tactic.opt"

       ;                      "test-coq-tactic.byte" "test-session.opt"

       ;                      "test-session.byte" "test-api-mlw.opt"

       ;                      "test-api-mlw.byte" "test-api-mlw-tree.opt"

       ;                      "test-mlw-tree.byte" "test-api-logic.opt"

       ;                      "test-api-logic.byte")))))))

    (home-page "http://why3.lri.fr")

    (synopsis "")

    (description "")

    (license license:lgpl2.1)))