gnu: ncdu: Use zig-build-system.
* gnu/packages/ncdu.scm (ncdu)[build-system]: Use zig-build-system. [arguments]<#:make-flags>: Remove argument. <#:phases>: Delegate phase manipulation to the build-system. Remove 'validate-runpath. [native-inputs]: Remove zig-0.10. Change-Id: I9027a1cbd925cfb0c135740e81a33b62cb9d91ca Signed-off-by: Hilton Chain <hako@ultrarare.space>
This commit is contained in:
		
							parent
							
								
									92640eedca
								
							
						
					
					
						commit
						20223da2f2
					
				
					 1 changed files with 6 additions and 18 deletions
				
			
		| 
						 | 
					@ -21,14 +21,14 @@
 | 
				
			||||||
(define-module (gnu packages ncdu)
 | 
					(define-module (gnu packages ncdu)
 | 
				
			||||||
  #:use-module (gnu packages)
 | 
					  #:use-module (gnu packages)
 | 
				
			||||||
  #:use-module (gnu packages ncurses)
 | 
					  #:use-module (gnu packages ncurses)
 | 
				
			||||||
 | 
					  #:use-module (gnu packages perl)
 | 
				
			||||||
  #:use-module (guix licenses)
 | 
					  #:use-module (guix licenses)
 | 
				
			||||||
  #:use-module (guix packages)
 | 
					  #:use-module (guix packages)
 | 
				
			||||||
  #:use-module (guix download)
 | 
					  #:use-module (guix download)
 | 
				
			||||||
  #:use-module (guix utils)
 | 
					  #:use-module (guix utils)
 | 
				
			||||||
  #:use-module (guix gexp)
 | 
					  #:use-module (guix gexp)
 | 
				
			||||||
  #:use-module (guix build-system gnu)
 | 
					  #:use-module (guix build-system gnu)
 | 
				
			||||||
  #:use-module (gnu packages perl)
 | 
					  #:use-module (guix build-system zig))
 | 
				
			||||||
  #:use-module (gnu packages zig))
 | 
					 | 
				
			||||||
 | 
					
 | 
				
			||||||
(define-public ncdu-1
 | 
					(define-public ncdu-1
 | 
				
			||||||
  ;; This old version is ‘LTS’.  Version 2 works fine and has more features,
 | 
					  ;; This old version is ‘LTS’.  Version 2 works fine and has more features,
 | 
				
			||||||
| 
						 | 
					@ -73,28 +73,16 @@ ncurses installed.")
 | 
				
			||||||
               #~(begin
 | 
					               #~(begin
 | 
				
			||||||
                   ;; Delete a pregenerated man page.  We'll build it ourselves.
 | 
					                   ;; Delete a pregenerated man page.  We'll build it ourselves.
 | 
				
			||||||
                   (delete-file "ncdu.1")))))
 | 
					                   (delete-file "ncdu.1")))))
 | 
				
			||||||
 | 
					    (build-system zig-build-system)
 | 
				
			||||||
    (arguments
 | 
					    (arguments
 | 
				
			||||||
     (list
 | 
					     (list
 | 
				
			||||||
       #:make-flags
 | 
					 | 
				
			||||||
       #~(list (string-append "PREFIX=" #$output)
 | 
					 | 
				
			||||||
               (string-append "CC=" #$(cc-for-target))
 | 
					 | 
				
			||||||
               (string-append "ZIG_FLAGS=-Drelease-fast"))
 | 
					 | 
				
			||||||
       #:phases
 | 
					       #:phases
 | 
				
			||||||
       #~(modify-phases %standard-phases
 | 
					       #~(modify-phases %standard-phases
 | 
				
			||||||
           (delete 'configure)      ; No configure script.
 | 
					           (delete 'validate-runpath)
 | 
				
			||||||
           (add-before 'build 'pre-build
 | 
					 | 
				
			||||||
             (lambda _
 | 
					 | 
				
			||||||
               (setenv "ZIG_GLOBAL_CACHE_DIR"
 | 
					 | 
				
			||||||
                       (mkdtemp "/tmp/zig-cache-XXXXXX"))))
 | 
					 | 
				
			||||||
           (add-after 'build 'build-manpage
 | 
					           (add-after 'build 'build-manpage
 | 
				
			||||||
             (lambda _
 | 
					             (lambda _
 | 
				
			||||||
               (invoke "make" "doc")))
 | 
					               (invoke "make" "doc"))))))
 | 
				
			||||||
           (replace 'check
 | 
					    (native-inputs (list perl))
 | 
				
			||||||
             (lambda* (#:key tests? #:allow-other-keys)
 | 
					 | 
				
			||||||
               (when tests?
 | 
					 | 
				
			||||||
                 (invoke "zig" "test" "build.zig")))))))
 | 
					 | 
				
			||||||
    (native-inputs
 | 
					 | 
				
			||||||
     (list perl zig-0.10))
 | 
					 | 
				
			||||||
    (properties `((tunable? . #t)))))
 | 
					    (properties `((tunable? . #t)))))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
(define-public ncdu-2
 | 
					(define-public ncdu-2
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue