nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: geda-gaf: Make gsch2pcb work out-of-the-box. 

* gnu/packages/engineering.scm (geda-gaf)[inputs]: Add m4 and pcb.
[arguments]: Add configure flags that point to PCB data files.
This commit is contained in:
David Thompson 2016-04-13 10:41:57 -04:00
parent 57c9c349b7
commit 0de9813905
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnu/packages/engineering.scm
View File

@ -2,6 +2,7 @@
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 David Thompson <davet@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -45,6 +46,7 @@
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module (gnu packages linux) ;FIXME: for pcb #:use-module (gnu packages linux) ;FIXME: for pcb
#:use-module (gnu packages m4)
#:use-module (gnu packages maths) #:use-module (gnu packages maths)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
@ -124,13 +126,22 @@ plans and designs.")
'check 'set-home 'check 'set-home
(lambda _ (lambda _
(setenv "HOME" (getenv "TMPDIR"))) (setenv "HOME" (getenv "TMPDIR")))
%standard-phases))) %standard-phases
)
#:configure-flags
(let ((pcb (assoc-ref %build-inputs "pcb")))
(list (string-append "--with-pcb-datadir=" pcb "/share")
(string-append "--with-pcb-lib-path="
pcb "/share/pcb/pcblib-newlib:"
pcb "/share/pcb/newlib")))))
(inputs (inputs
`(("glib" ,glib) `(("glib" ,glib)
("gtk" ,gtk+-2) ("gtk" ,gtk+-2)
("guile" ,guile-2.0) ("guile" ,guile-2.0)
("desktop-file-utils" ,desktop-file-utils) ("desktop-file-utils" ,desktop-file-utils)
("shared-mime-info" ,shared-mime-info))) ("shared-mime-info" ,shared-mime-info)
("m4" ,m4)
("pcb" ,pcb)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("perl" ,perl))) ; for tests ("perl" ,perl))) ; for tests