gnu: coin3D: Use a specific changeset.

* gnu/packages/graphics.scm (coin3D)[source]: Use HG-FETCH and…
GIT-FILE-NAME.
This commit is contained in:
Tobias Geerinckx-Rice 2019-10-07 23:13:51 +02:00
parent 9be266116b
commit 24268ec418
No known key found for this signature in database
GPG Key ID: D889B0F018C5493C

View File

@ -7,7 +7,7 @@
;;; Copyright © 2016 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2016 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com> ;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2017, 2018 Ben Woodcroft <donttrustben@gmail.com> ;;; Copyright © 2017, 2018 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2018 Alex Kost <alezost@gmail.com> ;;; Copyright © 2018 Alex Kost <alezost@gmail.com>
;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net>
@ -79,6 +79,7 @@
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix hg-download)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils)) #:use-module (guix utils))
@ -1106,47 +1107,52 @@ or by subtracting one shape from the other.")
(license license:gpl2)))) (license license:gpl2))))
(define-public coin3D (define-public coin3D
(package ;; The 4.0.0 zip archive isn't stable, nor in fact a release. See:
(name "coin3D") ;; https://bitbucket.org/Coin3D/coin/issues/179/coin-400-srczip-has-been-modified
(version "4.0.0") (let ((revision 1)
(source (changeset "ab8d0e47a4de3230a8137feb39c142d6ba45f97d"))
(origin (package
(method url-fetch) (name "coin3D")
(uri (string-append (version
"https://bitbucket.org/Coin3D/coin/downloads/coin-" (simple-format #f "3.1.3-~A-~A" revision (string-take changeset 7)))
version "-src.zip")) (source
(sha256 (origin
(base32 (method hg-fetch)
"1mqwlqzvc9ydfxi0bfskwlil16mbnkphfz36p0zl2mvw6h05aqh0")) (uri (hg-reference
(modules '((guix build utils))) (url "https://bitbucket.org/Coin3D/coin")
(snippet (changeset changeset)))
'(begin (file-name (git-file-name name version))
(for-each delete-file (sha256
'("cfg/csubst.exe" (base32 "1ff44jz6lg4rylljvy69n1hcjh9y6achbv9jpn1cv2sf8cxn3r2j"))
"cfg/wrapmsvc.exe")) (modules '((guix build utils)))
#t)))) (snippet
(build-system cmake-build-system) '(begin
(native-inputs (for-each delete-file
`(("doxygen" ,doxygen) '("cfg/csubst.exe"
("graphviz" ,graphviz))) "cfg/wrapmsvc.exe"))
(inputs #t))))
`(("boost" ,boost) (build-system cmake-build-system)
("freeglut" ,freeglut) (native-inputs
("glew" ,glew))) `(("doxygen" ,doxygen)
(arguments ("graphviz" ,graphviz)))
`(#:configure-flags (inputs
(list `(("boost" ,boost)
"-DCOIN_BUILD_DOCUMENTATION_MAN=ON" ("freeglut" ,freeglut)
(string-append "-DBOOST_ROOT=" ("glew" ,glew)))
(assoc-ref %build-inputs "boost"))))) (arguments
(home-page "https://bitbucket.org/Coin3D/coin/wiki/Home") `(#:configure-flags
(synopsis (list
"High-level 3D visualization library with Open Inventor 2.1 API") "-DCOIN_BUILD_DOCUMENTATION_MAN=ON"
(description (string-append "-DBOOST_ROOT="
"Coin is a 3D graphics library with an Application Programming Interface (assoc-ref %build-inputs "boost")))))
(home-page "https://bitbucket.org/Coin3D/coin/wiki/Home")
(synopsis
"High-level 3D visualization library with Open Inventor 2.1 API")
(description
"Coin is a 3D graphics library with an Application Programming Interface
based on the Open Inventor 2.1 API. For those who are not familiar with based on the Open Inventor 2.1 API. For those who are not familiar with
Open Inventor, it is a scene-graph based retain-mode rendering and model Open Inventor, it is a scene-graph based retain-mode rendering and model
interaction library, written in C++, which has become the de facto interaction library, written in C++, which has become the de facto
standard graphics library for 3D visualization and visual simulation standard graphics library for 3D visualization and visual simulation
software in the scientific and engineering community.") software in the scientific and engineering community.")
(license license:bsd-3))) (license license:bsd-3))))