gnu: gn: Use G-expression.
* gnu/packages/build-tools.scm (gn)[arguments]: Convert to G-expression.
This commit is contained in:
		
							parent
							
								
									e069db7e30
								
							
						
					
					
						commit
						6f0a8371fe
					
				
					 1 changed files with 35 additions and 33 deletions
				
			
		| 
						 | 
				
			
			@ -219,10 +219,12 @@ programs and other files depend.")
 | 
			
		|||
                (file-name (git-file-name name version))))
 | 
			
		||||
      (build-system gnu-build-system)
 | 
			
		||||
      (arguments
 | 
			
		||||
       `(#:phases (modify-phases %standard-phases
 | 
			
		||||
       (list #:phases
 | 
			
		||||
             #~(modify-phases %standard-phases
 | 
			
		||||
                 (add-before 'configure 'set-build-environment
 | 
			
		||||
                   (lambda _
 | 
			
		||||
                        (setenv "CC" "gcc") (setenv "CXX" "g++")
 | 
			
		||||
                     (setenv "CC" "gcc")
 | 
			
		||||
                     (setenv "CXX" "g++")
 | 
			
		||||
                     (setenv "AR" "ar")))
 | 
			
		||||
                 (replace 'configure
 | 
			
		||||
                   (lambda _
 | 
			
		||||
| 
						 | 
				
			
			@ -244,7 +246,8 @@ programs and other files depend.")
 | 
			
		|||
 | 
			
		||||
#endif  // OUT_LAST_COMMIT_POSITION_H_
 | 
			
		||||
"
 | 
			
		||||
                                    ,revision ,revision ,(string-take commit 12))))))
 | 
			
		||||
                                 #$revision #$revision
 | 
			
		||||
                                 #$(string-take commit 12))))))
 | 
			
		||||
                 (replace 'build
 | 
			
		||||
                   (lambda _
 | 
			
		||||
                     (invoke "ninja" "-C" "out" "gn"
 | 
			
		||||
| 
						 | 
				
			
			@ -258,9 +261,8 @@ programs and other files depend.")
 | 
			
		|||
                           (invoke "./out/gn_unittests"))
 | 
			
		||||
                         (format #t "test suite not run~%"))))
 | 
			
		||||
                 (replace 'install
 | 
			
		||||
                      (lambda* (#:key outputs #:allow-other-keys)
 | 
			
		||||
                        (let ((out (assoc-ref outputs "out")))
 | 
			
		||||
                          (install-file "out/gn" (string-append out "/bin"))))))))
 | 
			
		||||
                   (lambda _
 | 
			
		||||
                     (install-file "out/gn" (string-append #$output "/bin")))))))
 | 
			
		||||
      (native-inputs
 | 
			
		||||
       (list ninja python-wrapper))
 | 
			
		||||
      (synopsis "Generate Ninja build files")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue