;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
-;;; Copyright © 2016, 2018 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2016, 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 David Thompson <davet@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017, 2018 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
-;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2018, 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
(define-public geda-gaf
(package
(name "geda-gaf")
- (version "1.9.2")
+ (version "1.10.0")
(source (origin
(method url-fetch)
(uri (string-append
- "http://ftp.geda-project.org/geda-gaf/unstable/v"
+ "http://ftp.geda-project.org/geda-gaf/stable/v"
(version-major+minor version) "/"
version "/geda-gaf-" version ".tar.gz"))
(sha256
(base32
- "14mk45pfz11v54q66gafw2l68n1p5ssvvjmdm8ffgc8x1w5ajfrz"))))
+ "06ivgarvwbzjz2wigxzzkm8iszldi2p6x3a6jnlczjyrz4csddsy"))))
(build-system gnu-build-system)
(arguments
'(#:phases
(lambda _
(setenv "HOME" (getenv "TMPDIR"))
#t))
- ;; FIXME: These two tests fail for unknown reasons. They return "2"
- ;; when they should return "1".
(add-after 'unpack 'disable-failing-tests
(lambda _
- (substitute* "utils/tests/gxyrs/tests.list"
- (("^do_nothing.*") ""))
+ (substitute* "xorn/tests/Makefile.in"
+ (("-Werror") ""))
+ ;; This test returns its correct result in an unexpected order.
+ (substitute* "libgeda/scheme/unit-tests/t0402-config.scm"
+ (("\\(begin-config-test 'config-keys" m)
+ (string-append "#;" m)))
#t)))
#:configure-flags
(let ((pcb (assoc-ref %build-inputs "pcb")))
pcb "/share/pcb/pcblib-newlib:"
pcb "/share/pcb/newlib")))))
(inputs
- `(("glib" ,glib)
+ `(("gamin" ,gamin)
+ ("glib" ,glib)
("gtk" ,gtk+-2)
("guile" ,guile-2.0)
("desktop-file-utils" ,desktop-file-utils)
("shared-mime-info" ,shared-mime-info)
("m4" ,m4)
- ("pcb" ,pcb)))
+ ("pcb" ,pcb)
+ ("python" ,python-2))) ; for xorn
(native-inputs
`(("pkg-config" ,pkg-config)
("perl" ,perl))) ; for tests
(package
(inherit geda-gaf)
(name "lepton-eda")
- (version "1.9.5-20180820")
+ (version "1.9.9-20191003")
(home-page "https://github.com/lepton-eda/lepton-eda")
(source (origin
(method git-fetch)
(uri (git-reference (url home-page) (commit version)))
(sha256
(base32
- "1ayaccvw18zh4g7a4x5jf6yxkphi5xafb0hpc732g59qkgwfcmlr"))
+ "08cc3zfk84qq9mrkc9pp4r9jlavvm01wwy0yd9frql68w2zw6mip"))
(file-name (git-file-name name version))))
(native-inputs
`(("autoconf" ,autoconf)
("groff" ,groff)
("which" ,which)
,@(package-native-inputs geda-gaf)))
- ;; For now it's Guile 2.0, not 2.2.
+ (inputs
+ `(("glib" ,glib)
+ ("gtk" ,gtk+-2)
+ ("guile" ,guile-2.2)
+ ("desktop-file-utils" ,desktop-file-utils)
+ ("shared-mime-info" ,shared-mime-info)
+ ("m4" ,m4)
+ ("pcb" ,pcb)))
(arguments
(substitute-keyword-arguments (package-arguments geda-gaf)
((#:configure-flags flags ''())
;; never runs. See <https://bugs.debian.org/792687>.
`(cons "ac_cv_path_MSGMERGE=true" ,flags))
((#:phases phases '%standard-phases)
- `(modify-phases ,phases
+ `(modify-phases %standard-phases
(add-before 'bootstrap 'prepare
(lambda _
;; Some of the scripts there are invoked by autogen.sh.
,(string-take version
(string-index version #\-)))
(format port "#define PACKAGE_GIT_COMMIT \"cabbag3\"~%")))
+ #t))
+ (add-after 'install 'compile-scheme-files
+ (lambda* (#:key outputs #:allow-other-keys)
+ (invoke "make" "precompile")
+ (for-each (lambda (program)
+ (wrap-program program
+ `("GUILE_LOAD_COMPILED_PATH" ":" prefix
+ (,(string-append (assoc-ref outputs "out")
+ "/share/lepton-eda/ccache/")))))
+ (find-files (string-append (assoc-ref outputs "out") "/bin")
+ ".*"))
#t))))))
(description
"Lepton EDA ia an @dfn{electronic design automation} (EDA) tool set
("imagemagick" ,imagemagick)
("gerbv" ,gerbv)
("ghostscript" ,ghostscript)
- ("xvfb" ,xorg-server)))
+ ("xvfb" ,xorg-server-for-tests)))
(home-page "http://pcb.geda-project.org/")
(synopsis "Design printed circuit board layouts")
(description
(license license:gpl2+))))
(define-public libfive
- (let ((commit "9d857d1923abecb0e5935b9287d22661f6efaac5")
- (revision "2"))
+ (let ((commit "6e39254e57c179459bb929df49ae96a6017a0ed6")
+ (revision "3"))
(package
(name "libfive")
(version (git-version "0" revision commit))
(commit commit)))
(sha256
(base32
- "1r40kyx30wz31cwwlfvfh7fgqkxq3n8dxhswpi9qpf4r5h3l8wsn"))
+ "0ryv2hcbrwqc087w7rrs4a2irkcpmqync00g4dh8n7jn10w2jkim"))
(file-name (git-file-name name version))
(snippet
;; Remove bundled catch since we provide our own.
(add-after 'unpack 'remove-native-compilation
(lambda _
(substitute* "CMakeLists.txt" (("-march=native") ""))
+ #t))
+ (add-after 'unpack 'find-catch
+ (lambda* (#:key inputs #:allow-other-keys)
+ (setenv "CPLUS_INCLUDE_PATH"
+ (string-append (assoc-ref inputs "catch")
+ "/include/catch"))
#t)))))
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("boost" ,boost)
- ("catch" ,catch-framework)
+ ("catch" ,catch-framework2)
("libpng" ,libpng)
("qtbase" ,qtbase)
("eigen" ,eigen)
function calls into the geometry kernel: everything is visible to the user.
Even fundamental, primitive shapes are represented as code in the user-level
language.")
- (license (list license:lgpl2.1+ ;library
+ (license (list license:mpl2.0 ;library
license:gpl2+))))) ;Guile bindings and GUI
(define-public ao
(define-public kicad
(package
(name "kicad")
- (version "5.1.4")
+ (version "5.1.5")
(source
(origin
(method url-fetch)
"https://launchpad.net/kicad/" (version-major version)
".0/" version "/+download/kicad-" version ".tar.xz"))
(sha256
- (base32 "1r60dgh6aalbpq1wsmpyxkz0nn4ck8ydfdjcrblpl69k5rks5k2j"))))
+ (base32 "0x3417f2pa7p65s9f7l49rqbnrzy8gz6i0n07mlbxqbnm0fmlql0"))))
(build-system cmake-build-system)
(arguments
`(#:out-of-source? #t
("python" ,python)
("wxwidgets" ,wxwidgets)
("wxpython" ,python-wxpython)))
- (home-page "http://kicad-pcb.org/")
+ (home-page "https://kicad-pcb.org/")
(synopsis "Electronics Design Automation Suite")
(description "Kicad is a program for the formation of printed circuit
boards and electrical circuits. The software has a number of programs that
(sha256
(base32
"08qrz5zzsb5127jlnv24j0sgiryd5nqwg3lfnwi8j9a25agqk13j"))))))
- (home-page "http://kicad-pcb.org/")
+ (home-page "https://kicad-pcb.org/")
(synopsis "Libraries for kicad")
(description "This package provides Kicad component, footprint and 3D
render model libraries.")
(define-public kicad-symbols
(package
(name "kicad-symbols")
- (version "5.1.4")
+ (version "5.1.5")
(source (origin
(method git-fetch)
(uri (git-reference
(file-name (git-file-name name version))
(sha256
(base32
- "1lna4xlvzrxif3569pkp6mrg7fj62z3a3ri5j97lnmnnzhiddnh3"))))
+ "048b07ffsaav1ssrchw2p870lvb4rsyb5vnniy670k7q9p16qq6h"))))
(build-system cmake-build-system)
(arguments
- `(#:tests? #f)) ; No tests exist
- (home-page "http://kicad-pcb.org/")
+ `(#:tests? #f)) ; no tests exist
+ (home-page "https://kicad-pcb.org/")
(synopsis "Official KiCad schematic symbol libraries for KiCad 5")
(description "This package contains the official KiCad schematic symbol
libraries for KiCad 5.")
- ;; TODO: Exception: "To the extent that the creation of electronic designs that use 'Licensed Material' can be considered to be 'Adapted Material', then the copyright holder waives article 3 of the license with respect to these designs and any generated files which use data provided as part of the 'Licensed Material'."
+ ;; TODO: Exception: "To the extent that the creation of electronic designs
+ ;; that use 'Licensed Material' can be considered to be 'Adapted Material',
+ ;; then the copyright holder waives article 3 of the license with respect to
+ ;; these designs and any generated files which use data provided as part of
+ ;; the 'Licensed Material'."
;; See <https://github.com/KiCad/kicad-symbols/blob/master/LICENSE.md>.
(license license:cc-by-sa4.0)))
(name "capstone")
(version "3.0.5")
(source (origin
- (method url-fetch)
- (uri (string-append "https://github.com/aquynh/capstone/archive/"
- version ".tar.gz"))
- (file-name (string-append name "-" version ".tar.gz"))
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/aquynh/capstone")
+ (commit version)))
+ (file-name (git-file-name name version))
(sha256
(base32
- "1wbd1g3r32ni6zd9vwrq3kn7fdp9y8qwn9zllrrbk8n5wyaxcgci"))))
+ "0dgf82kxj4rs45d6s8sr984c38sll1n5scpypjlyh21gh2yl4qfw"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f
("libtool" ,libtool)))
(native-inputs
`(("pkg-config-native" ,pkg-config)
+ ("gcc" ,gcc-5)
("libtool-native" ,libtool)))
(home-page "http://www.freehdl.seul.org/")
(synopsis "VHDL simulator")
("python" ,python-2) ; for tests
("matplotlib" ,python2-matplotlib) ; for tests
("numpy" ,python2-numpy) ; for tests
- ("xorg-server" ,xorg-server))) ; for tests
+ ("xorg-server" ,xorg-server-for-tests))) ; for tests
(inputs
`(("adms" ,adms)
("asco" ,asco)
(define-public librepcb
(package
(name "librepcb")
- (version "0.1.2")
+ (version "0.1.3")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.librepcb.org/releases/"
version "/librepcb-" version "-source.zip"))
(sha256
- (base32
- "1xgk0r3nxdd2cy7d1k165d005gsngnz1v2wbwivacw7gis0i8ip7"))))
+ (base32 "1ich849dsx2hmcwlwbry4mkg374n940l3hy6srh4qms2rm7vd7x0"))))
(build-system gnu-build-system)
(inputs
`(("qtbase" ,qtbase)
("zlib" ,zlib)))
(native-inputs
- `(("qttools" ,qttools) ; for lrelease
+ `(("qttools" ,qttools) ; for lrelease
("unzip" ,unzip)))
(arguments
`(#:phases
(native-inputs
`(("googletest-source" ,(package-source googletest))))
(inputs
- `(("libuuid" ,util-linux)))
+ `(("libuuid" ,util-linux "lib")))
(arguments
`(#:phases
(modify-phases %standard-phases
("imagemagick" ,imagemagick)
("ps" ,procps)
("python" ,python)
- ("xvfb" ,xorg-server)))
+ ("xvfb" ,xorg-server-for-tests)))
(arguments
`(#:phases
(modify-phases %standard-phases
HCoop / jackhill / guix / guix.git / blobdiff