gnu: coin3D: Use a specific changeset.
* gnu/packages/graphics.scm (coin3D)[source]: Use HG-FETCH and… GIT-FILE-NAME.
This commit is contained in:
		
							parent
							
								
									9be266116b
								
							
						
					
					
						commit
						24268ec418
					
				
					 1 changed files with 46 additions and 40 deletions
				
			
		| 
						 | 
					@ -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,18 +1107,23 @@ or by subtracting one shape from the other.")
 | 
				
			||||||
      (license license:gpl2))))
 | 
					      (license license:gpl2))))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
(define-public coin3D
 | 
					(define-public coin3D
 | 
				
			||||||
 | 
					  ;; The ‘4.0.0’ zip archive isn't stable, nor in fact a release.  See:
 | 
				
			||||||
 | 
					  ;; https://bitbucket.org/Coin3D/coin/issues/179/coin-400-srczip-has-been-modified
 | 
				
			||||||
 | 
					  (let ((revision 1)
 | 
				
			||||||
 | 
					        (changeset "ab8d0e47a4de3230a8137feb39c142d6ba45f97d"))
 | 
				
			||||||
    (package
 | 
					    (package
 | 
				
			||||||
      (name "coin3D")
 | 
					      (name "coin3D")
 | 
				
			||||||
    (version "4.0.0")
 | 
					      (version
 | 
				
			||||||
 | 
					       (simple-format #f "3.1.3-~A-~A" revision (string-take changeset 7)))
 | 
				
			||||||
      (source
 | 
					      (source
 | 
				
			||||||
       (origin
 | 
					       (origin
 | 
				
			||||||
       (method url-fetch)
 | 
					         (method hg-fetch)
 | 
				
			||||||
       (uri (string-append
 | 
					         (uri (hg-reference
 | 
				
			||||||
             "https://bitbucket.org/Coin3D/coin/downloads/coin-"
 | 
					               (url "https://bitbucket.org/Coin3D/coin")
 | 
				
			||||||
             version "-src.zip"))
 | 
					               (changeset changeset)))
 | 
				
			||||||
 | 
					         (file-name (git-file-name name version))
 | 
				
			||||||
         (sha256
 | 
					         (sha256
 | 
				
			||||||
        (base32
 | 
					          (base32 "1ff44jz6lg4rylljvy69n1hcjh9y6achbv9jpn1cv2sf8cxn3r2j"))
 | 
				
			||||||
         "1mqwlqzvc9ydfxi0bfskwlil16mbnkphfz36p0zl2mvw6h05aqh0"))
 | 
					 | 
				
			||||||
         (modules '((guix build utils)))
 | 
					         (modules '((guix build utils)))
 | 
				
			||||||
         (snippet
 | 
					         (snippet
 | 
				
			||||||
          '(begin
 | 
					          '(begin
 | 
				
			||||||
| 
						 | 
					@ -1149,4 +1155,4 @@ 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))))
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue