;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Paul Garlick <pgarlick@tourbillion-technology.com>
;;;
;;; 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 (gnu packages opencascade)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system cmake)
  #:use-module (gnu packages)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages file)
  #:use-module (gnu packages fontutils)
  #:use-module (gnu packages gl)
  #:use-module (gnu packages python)
  #:use-module (gnu packages qt)
  #:use-module (gnu packages tcl)
  #:use-module (gnu packages xorg))

(define-public opencascade-oce
  (package
    (name "opencascade-oce")
    (version "0.17.2")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "https://github.com/tpaviot/oce/archive/OCE-"
               version
               ".tar.gz"))
        (sha256
          (base32
            "0vpmnb0k5y2f7lpmwx9pg9yfq24zjvnsak5alzacncfm1hv9b6cd"))))
    (build-system cmake-build-system)
    (arguments
     '(#:configure-flags
        (list
          (string-append
            "-DOCE_INSTALL_PREFIX:PATH=" (assoc-ref %outputs "out"))
          "-DOCE_TESTING:BOOL=ON")
       #:tests? #t))
    (inputs
      `(("freetype" ,freetype)
        ("ftgl" ,ftgl)
        ("glu" ,glu)
        ("qt" ,qt)
        ("libtool" ,libtool)
        ("libxmu" ,libxmu)
        ("file" ,file)
        ("tk" ,tk)
        ("tcl" ,tcl)
        ("mesa" ,mesa)))
    (native-inputs
      `(("python" ,python-wrapper)))
    (home-page "http://www.opencascade.org/")
    (synopsis
      "Open CASCADE OCE; libraries for 3D modeling and numerical simulation")
    (description "OCE stands for Open CASCADE Community Edition.  The project
gathers patches/improvements/experiments contributed by users over the official
Open CASCADE library.")
    (license license:lgpl2.1))) ; plus header files exception