gnu/packages/engineering.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2015, 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
   3 ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
   4 ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
   5 ;;; Copyright © 2016 David Thompson <davet@gnu.org>
   6 ;;; Copyright © 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
   7 ;;; Copyright © 2016, 2017 Theodoros Foradis <theodoros@foradis.org>
   8 ;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
   9 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
  10 ;;;
  11 ;;; This file is part of GNU Guix.
  12 ;;;
  13 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  14 ;;; under the terms of the GNU General Public License as published by
  15 ;;; the Free Software Foundation; either version 3 of the License, or (at
  16 ;;; your option) any later version.
  17 ;;;
  18 ;;; GNU Guix is distributed in the hope that it will be useful, but
  19 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;;; GNU General Public License for more details.
  22 ;;;
  23 ;;; You should have received a copy of the GNU General Public License
  24 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  25
  26 (define-module (gnu packages engineering)
  27   #:use-module (guix packages)
  28   #:use-module (guix download)
  29   #:use-module (guix gexp)
  30   #:use-module (guix git-download)
  31   #:use-module (guix monads)
  32   #:use-module (guix store)
  33   #:use-module (guix utils)
  34   #:use-module ((srfi srfi-1) #:hide (zip))
  35   #:use-module ((guix licenses) #:prefix license:)
  36   #:use-module (guix build-system cmake)
  37   #:use-module (guix build-system gnu)
  38   #:use-module (guix build-system python)
  39   #:use-module (gnu packages)
  40   #:use-module (gnu packages algebra)
  41   #:use-module (gnu packages autotools)
  42   #:use-module (gnu packages base)
  43   #:use-module (gnu packages bison)
  44   #:use-module (gnu packages boost)
  45   #:use-module (gnu packages check)
  46   #:use-module (gnu packages commencement)
  47   #:use-module (gnu packages compression)
  48   #:use-module (gnu packages curl)
  49   #:use-module (gnu packages flex)
  50   #:use-module (gnu packages fontutils)
  51   #:use-module (gnu packages fpga)
  52   #:use-module (gnu packages freedesktop)
  53   #:use-module (gnu packages gcc)
  54   #:use-module (gnu packages gd)
  55   #:use-module (gnu packages gettext)
  56   #:use-module (gnu packages ghostscript)
  57   #:use-module (gnu packages gl)
  58   #:use-module (gnu packages glib)
  59   #:use-module (gnu packages gnome)
  60   #:use-module (gnu packages gperf)
  61   #:use-module (gnu packages gtk)
  62   #:use-module (gnu packages guile)
  63   #:use-module (gnu packages image)
  64   #:use-module (gnu packages imagemagick)
  65   #:use-module (gnu packages linux)               ;FIXME: for pcb
  66   #:use-module (gnu packages m4)
  67   #:use-module (gnu packages maths)
  68   #:use-module (gnu packages multiprecision)
  69   #:use-module (gnu packages mpi)
  70   #:use-module (gnu packages ncurses)
  71   #:use-module (gnu packages perl)
  72   #:use-module (gnu packages pkg-config)
  73   #:use-module (gnu packages python)
  74   #:use-module (gnu packages qt)
  75   #:use-module (gnu packages readline)
  76   #:use-module (gnu packages swig)
  77   #:use-module (gnu packages tcl)
  78   #:use-module (gnu packages tls)
  79   #:use-module (gnu packages tex)
  80   #:use-module (gnu packages wxwidgets)
  81   #:use-module (gnu packages xorg))
  82
  83 (define-public librecad
  84   (package
  85     (name "librecad")
  86     (version "2.1.3")
  87     (source (origin
  88               (method url-fetch)
  89               (uri (string-append
  90                     "https://github.com/LibreCAD/LibreCAD/archive/"
  91                     version ".tar.gz"))
  92               (file-name (string-append name "-" version ".tar.gz"))
  93               (sha256
  94                (base32
  95                 "01nvc1g3si05r5np1pzn62ah9w84p8nxa32wqrjh6gdi17jfvi3l"))))
  96     (build-system gnu-build-system)
  97     (arguments
  98      '(#:phases
  99        (modify-phases %standard-phases
 100          ;; Without this patch boost complains that "make_array" is not a
 101          ;; member of "boost::serialization".
 102          (add-after 'unpack 'patch-boost-error
 103            (lambda _
 104              (substitute* "librecad/src/lib/math/lc_quadratic.h"
 105                (("#include \"rs_vector.h\"" line)
 106                 (string-append line
 107                                "\n#include <boost/serialization/array_wrapper.hpp>")))
 108              (substitute* "librecad/src/lib/math/rs_math.cpp"
 109                (("#include <boost/numeric/ublas/matrix.hpp>" line)
 110                 (string-append "#include <boost/serialization/array_wrapper.hpp>\n"
 111                                line)))
 112              #t))
 113          (add-after 'unpack 'patch-paths
 114            (lambda* (#:key outputs #:allow-other-keys)
 115              (let ((out (assoc-ref outputs "out")))
 116                (substitute* "librecad/src/lib/engine/rs_system.cpp"
 117                  (("/usr/share") (string-append out "/share"))))))
 118          (replace 'configure
 119            (lambda* (#:key inputs #:allow-other-keys)
 120              (system* "qmake" (string-append "BOOST_DIR="
 121                                              (assoc-ref inputs "boost")))))
 122          (replace 'install
 123            (lambda* (#:key outputs #:allow-other-keys)
 124              (let* ((out   (assoc-ref outputs "out"))
 125                     (bin   (string-append out "/bin"))
 126                     (share (string-append out "/share/librecad")))
 127                (mkdir-p bin)
 128                (install-file "unix/librecad" bin)
 129                (mkdir-p share)
 130                (copy-recursively "unix/resources" share))
 131              #t))
 132          ;; Ensure that icons are found at runtime
 133          (add-after 'install 'wrap-executable
 134            (lambda* (#:key inputs outputs #:allow-other-keys)
 135              (let* ((out (assoc-ref outputs "out"))
 136                     (qt '("qtbase" "qtsvg")))
 137                (wrap-program (string-append out "/bin/librecad")
 138                  `("QT_PLUGIN_PATH" ":" prefix
 139                    ,(map (lambda (label)
 140                            (string-append (assoc-ref inputs label)
 141                                           "/lib/qt5/plugins/"))
 142                          qt)))
 143                #t))))))
 144     (inputs
 145      `(("boost" ,boost)
 146        ("muparser" ,muparser)
 147        ("freetype" ,freetype)
 148        ("qtbase" ,qtbase)
 149        ("qtsvg" ,qtsvg)))
 150     (native-inputs
 151      `(("pkg-config" ,pkg-config)
 152        ("which" ,which)))
 153     (home-page "http://librecad.org/")
 154     (synopsis "Computer-aided design (CAD) application")
 155     (description
 156      "LibreCAD is a 2D Computer-aided design (CAD) application for creating
 157 plans and designs.")
 158     (license license:gpl2)))
 159
 160 (define-public geda-gaf
 161   (package
 162     (name "geda-gaf")
 163     (version "1.9.2")
 164     (source (origin
 165               (method url-fetch)
 166               (uri (string-append
 167                     "http://ftp.geda-project.org/geda-gaf/unstable/v"
 168                     (version-major+minor version) "/"
 169                     version "/geda-gaf-" version ".tar.gz"))
 170               (sha256
 171                (base32
 172                 "14mk45pfz11v54q66gafw2l68n1p5ssvvjmdm8ffgc8x1w5ajfrz"))))
 173     (build-system gnu-build-system)
 174     (arguments
 175      '(#:phases
 176        (modify-phases %standard-phases
 177          ;; tests require a writable HOME
 178          (add-before 'check 'set-home
 179            (lambda _
 180              (setenv "HOME" (getenv "TMPDIR"))
 181              #t))
 182          ;; FIXME: These two tests fail for unknown reasons.  They return "2"
 183          ;; when they should return "1".
 184          (add-after 'unpack 'disable-failing-tests
 185            (lambda _
 186              (substitute* "utils/tests/gxyrs/tests.list"
 187                (("^do_nothing.*") ""))
 188              #t)))
 189        #:configure-flags
 190        (let ((pcb (assoc-ref %build-inputs "pcb")))
 191          (list (string-append "--with-pcb-datadir=" pcb "/share")
 192                (string-append "--with-pcb-lib-path="
 193                               pcb "/share/pcb/pcblib-newlib:"
 194                               pcb "/share/pcb/newlib")))))
 195     (inputs
 196      `(("glib" ,glib)
 197        ("gtk" ,gtk+-2)
 198        ("guile" ,guile-2.0)
 199        ("desktop-file-utils" ,desktop-file-utils)
 200        ("shared-mime-info" ,shared-mime-info)
 201        ("m4" ,m4)
 202        ("pcb" ,pcb)))
 203     (native-inputs
 204      `(("pkg-config" ,pkg-config)
 205        ("perl" ,perl))) ; for tests
 206     (home-page "http://geda-project.org/")
 207     (synopsis "Schematic capture, netlister, symbols, symbol checker, and utils")
 208     (description
 209      "Gaf stands for “gschem and friends”.  It is a subset of the entire tool
 210 suite grouped together under the gEDA name.  gEDA/gaf is a collection of tools
 211 which currently includes: gschem, a schematic capture program; gnetlist, a
 212 netlist generation program; gsymcheck, a syntax checker for schematic symbols;
 213 gattrib, a spreadsheet programm that manipulates the properties of symbols of
 214 a schematic; libgeda, libraries for gschem gnetlist and gsymcheck; gsch2pcb, a
 215 tool to forward annotation from your schematic to layout using PCB; some minor
 216 utilities.")
 217     (license license:gpl2+)))
 218
 219 (define-public pcb
 220   (package
 221     (name "pcb")
 222     (version "4.0.2")
 223     (source (origin
 224               (method url-fetch)
 225               (uri (string-append "mirror://sourceforge/pcb/pcb/pcb-" version
 226                                   "/pcb-" version ".tar.gz"))
 227               (sha256
 228                (base32
 229                 "1a7rilp75faidny0r4fdwdxkflyrqp6svxv9lbg7h868293962iz"))))
 230     (build-system gnu-build-system)
 231     (arguments
 232      `(#:phases
 233        (modify-phases %standard-phases
 234          (add-after 'unpack 'use-wish8.6
 235            (lambda _
 236              (substitute* "configure"
 237                (("wish85") "wish8.6"))
 238              #t))
 239          ;; It checks for "xhost", which we don't have.  This shouldn't
 240          ;; matter, because the test is supposed to be skipped, but it causes
 241          ;; "run_tests.sh" (and thus the "check" phase) to fail.
 242          (add-after 'unpack 'fix-check-for-display
 243            (lambda _
 244              (substitute* "tests/run_tests.sh"
 245                (("have_display=no") "have_display=yes"))
 246              #t))
 247          (add-after 'install 'wrap
 248            (lambda* (#:key inputs outputs #:allow-other-keys)
 249              ;; FIXME: Mesa tries to dlopen libudev.so.0 and fails.  Pending a
 250              ;; fix of the mesa package we wrap the pcb executable such that
 251              ;; Mesa can find libudev.so.0 through LD_LIBRARY_PATH.
 252              (let* ((out (assoc-ref outputs "out"))
 253                     (path (string-append (assoc-ref inputs "udev") "/lib")))
 254                (wrap-program (string-append out "/bin/pcb")
 255                  `("LD_LIBRARY_PATH" ":" prefix (,path))))
 256              #t))
 257          (add-before 'check 'pre-check
 258            (lambda _
 259              (system "Xvfb :1 &")
 260              (setenv "DISPLAY" ":1")
 261              #t)))))
 262     (inputs
 263      `(("dbus" ,dbus)
 264        ("mesa" ,mesa)
 265        ("udev" ,eudev) ;FIXME: required by mesa
 266        ("glu" ,glu)
 267        ("gd" ,gd)
 268        ("gtk" ,gtk+-2)
 269        ("gtkglext" ,gtkglext)
 270        ("desktop-file-utils" ,desktop-file-utils)
 271        ("shared-mime-info" ,shared-mime-info)
 272        ("tk" ,tk)))
 273     (native-inputs
 274      `(("pkg-config" ,pkg-config)
 275        ("intltool" ,intltool)
 276        ("bison" ,bison)
 277        ("flex" ,flex)
 278        ;; For tests
 279        ("imagemagick" ,imagemagick)
 280        ("gerbv" ,gerbv)
 281        ("ghostscript" ,ghostscript)
 282        ("xvfb" ,xorg-server)))
 283     (home-page "http://pcb.geda-project.org/")
 284     (synopsis "Design printed circuit board layouts")
 285     (description
 286      "GNU PCB is an interactive tool for editing printed circuit board
 287 layouts.  It features a rats-nest implementation, schematic/netlist import,
 288 and design rule checking.  It also includes an autorouter and a trace
 289 optimizer; and it can produce photorealistic and design review images.")
 290     (license license:gpl2+)))
 291
 292 (define-public pcb-rnd
 293   (package (inherit pcb)
 294     (name "pcb-rnd")
 295     (version "1.1.3")
 296     (source (origin
 297               (method url-fetch)
 298               (uri (string-append "http://repo.hu/projects/pcb-rnd/releases/"
 299                                   "pcb-rnd-" version ".tar.gz"))
 300               (sha256
 301                (base32
 302                 "0pycynla60b96jkb6fh6f4sx663pqbzjwnixhw5ym8sym2absm09"))))
 303     (arguments
 304      `(#:tests? #f ; no check target
 305        #:phases
 306        (modify-phases %standard-phases
 307          (add-after 'unpack 'cc-is-gcc
 308            (lambda _ (setenv "CC" "gcc") #t))
 309          (replace 'configure
 310            ;; The configure script doesn't tolerate most of our configure flags.
 311            (lambda* (#:key outputs #:allow-other-keys)
 312              (zero? (system* "sh" "configure"
 313                              (string-append "--prefix="
 314                                             (assoc-ref outputs "out")))))))))
 315     (home-page "http://repo.hu/projects/pcb-rnd/")
 316     (description "PCB RND is a fork of the GNU PCB circuit board editing tool
 317 featuring various improvements and bug fixes.")))
 318
 319 (define-public fastcap
 320   (package
 321     (name "fastcap")
 322     (version "2.0-18Sep92")
 323     (source (origin
 324               (method url-fetch/tarbomb)
 325               (uri (string-append "http://www.rle.mit.edu/cpg/codes/"
 326                                   name "-" version ".tgz"))
 327               (sha256
 328                (base32
 329                 "0x37vfp6k0d2z3gnig0hbicvi0jp8v267xjnn3z8jdllpiaa6p3k"))
 330               (snippet
 331                ;; Remove a non-free file.
 332                '(begin
 333                   (delete-file "doc/psfig.sty")
 334                   #t))
 335               (patches (search-patches "fastcap-mulSetup.patch"
 336                                        "fastcap-mulGlobal.patch"))))
 337     (build-system gnu-build-system)
 338     (native-inputs
 339      ;; FIXME: with texlive-tiny citation references are rendered as question
 340      ;; marks.  During the build warnings like these are printed:
 341      ;; LaTeX Warning: Citation `nabors91' on page 2 undefined on input line 3.
 342      `(("texlive" ,texlive-tiny)
 343        ("ghostscript" ,ghostscript)))
 344     (arguments
 345      `(#:make-flags '("CC=gcc" "RM=rm" "SHELL=sh" "all")
 346        #:parallel-build? #f
 347        #:tests? #f ;; no tests-suite
 348        #:modules ((srfi srfi-1)
 349                   ,@%gnu-build-system-modules)
 350        #:phases
 351        (modify-phases %standard-phases
 352          (add-after 'build 'make-doc
 353            (lambda _
 354              (zero? (system* "make" "CC=gcc" "RM=rm" "SHELL=sh"
 355                              "manual"))))
 356          (add-before 'make-doc 'fix-doc
 357            (lambda _
 358              (substitute* "doc/Makefile" (("/bin/rm") (which "rm")))
 359              (substitute* (find-files "doc" "\\.tex")
 360                (("\\\\special\\{psfile=([^,]*),.*scale=([#0-9.]*).*\\}"
 361                  all file scale)
 362                 (string-append "\\includegraphics[scale=" scale "]{"
 363                                file "}"))
 364                (("\\\\psfig\\{figure=([^,]*),.*width=([#0-9.]*in).*\\}"
 365                  all file width)
 366                 (string-append "\\includegraphics[width=" width "]{"
 367                                file "}"))
 368                (("\\\\psfig\\{figure=([^,]*),.*height=([#0-9.]*in).*\\}"
 369                  all file height)
 370                 (string-append "\\includegraphics[height=" height "]{"
 371                                file "}"))
 372                (("\\\\psfig\\{figure=([^,]*)\\}" all file)
 373                 (string-append "\\includegraphics{" file "}")))
 374              (substitute* '("doc/mtt.tex" "doc/tcad.tex" "doc/ug.tex")
 375                (("^\\\\documentstyle\\[(.*)\\]\\{(.*)\\}"
 376                  all options class)
 377                 (string-append "\\documentclass[" options "]{"
 378                                class "}\n"
 379                                "\\usepackage{graphicx}\n"
 380                                "\\usepackage{robinspace}"))
 381                (("\\\\setlength\\{\\\\footheight\\}\\{.*\\}" all)
 382                 (string-append "%" all))
 383                (("\\\\setstretch\\{.*\\}" all)
 384                 (string-append "%" all)))
 385              #t))
 386          (delete 'configure)
 387          (add-before 'install 'clean-bin
 388            (lambda _
 389              (delete-file (string-append (getcwd) "/bin/README"))
 390              #t))
 391          (add-before 'install 'make-pdf
 392            (lambda _
 393              (setenv "HOME" "/tmp")     ; FIXME: for texlive font cache
 394              (with-directory-excursion "doc"
 395                (and
 396                 (every (lambda (file)
 397                          (zero? (system* "dvips" file "-o")))
 398                        (find-files "." "\\.dvi"))
 399                 (every (lambda (file)
 400                          (zero? (system* "ps2pdf" file)))
 401                        '("mtt.ps" "ug.ps" "tcad.ps"))
 402                 (zero? (system* "make" "clean"))))))
 403          (replace 'install
 404            (lambda* (#:key outputs #:allow-other-keys)
 405              (let* ((out (assoc-ref outputs "out"))
 406                     (data (string-append out "/share"))
 407                     (bin (string-append out "/bin"))
 408                     (doc (string-append data "/doc/" ,name "-" ,version))
 409                     (examples (string-append doc "/examples")))
 410                (with-directory-excursion "bin"
 411                  (for-each (lambda (f)
 412                              (install-file f bin))
 413                            (find-files "." ".*")))
 414                (copy-recursively "doc" doc)
 415                (copy-recursively "examples" examples)
 416                #t))))))
 417     (home-page "http://www.rle.mit.edu/cpg/research_codes.htm")
 418     (synopsis "Multipole-accelerated capacitance extraction program")
 419     (description
 420      "Fastcap is a capacitance extraction program based on a
 421 multipole-accelerated algorithm.")
 422     (license (license:non-copyleft #f "See fastcap.c."))))
 423
 424 (define-public fasthenry
 425   (package
 426     (name "fasthenry")
 427     (version "3.0-12Nov96")
 428     (source (origin
 429               (method url-fetch)
 430               (file-name (string-append name "-" version ".tar.gz"))
 431               (uri (string-append
 432                     "http://www.rle.mit.edu/cpg/codes/" name
 433                     "-" version ".tar.z"))
 434               (sha256
 435                (base32 "1a06xyyd40zhknrkz17xppl2zd5ig4w9g1grc8qrs0zqqcl5hpzi"))
 436               (patches (search-patches "fasthenry-spAllocate.patch"
 437                                        "fasthenry-spBuild.patch"
 438                                        "fasthenry-spUtils.patch"
 439                                        "fasthenry-spSolve.patch"
 440                                        "fasthenry-spFactor.patch"))))
 441     (build-system gnu-build-system)
 442     (arguments
 443      `(#:make-flags '("CC=gcc" "RM=rm" "SHELL=sh" "all")
 444        #:parallel-build? #f
 445        #:tests? #f ;; no tests-suite
 446        #:modules ((srfi srfi-1)
 447                   ,@%gnu-build-system-modules)
 448        #:phases
 449        (modify-phases %standard-phases
 450          (delete 'configure)
 451          (replace 'install
 452                   (lambda* (#:key outputs #:allow-other-keys)
 453                     (let* ((out (assoc-ref outputs "out"))
 454                            (data (string-append out "/share"))
 455                            (bin (string-append out "/bin"))
 456                            (doc (string-append data "/doc/" ,name "-" ,version))
 457                            (examples (string-append doc "/examples")))
 458                       (with-directory-excursion "bin"
 459                         (for-each (lambda (f)
 460                                     (install-file f bin))
 461                                   (find-files "." ".*")))
 462                       (copy-recursively "doc" doc)
 463                       (copy-recursively "examples" examples)
 464                       #t))))))
 465     (home-page "http://www.rle.mit.edu/cpg/research_codes.htm")
 466     (synopsis "Multipole-accelerated inductance analysis program")
 467     (description
 468      "Fasthenry is an inductance extraction program based on a
 469 multipole-accelerated algorithm.")
 470     (license (license:non-copyleft #f "See induct.c."))))
 471
 472 (define-public fritzing
 473   (package
 474     (name "fritzing")
 475     (version "0.9.2b")
 476     (source (origin
 477               (method url-fetch)
 478               (uri (string-append "https://github.com/fritzing/"
 479                                   "fritzing-app/archive/" version ".tar.gz"))
 480               (file-name (string-append name "-" version ".tar.gz"))
 481               (sha256
 482                (base32
 483                 "15rwjp4xdj9w1z9f709rz9p0k2mi9k9idma9hvzkj5j8p04mg7yd"))))
 484     (build-system gnu-build-system)
 485     (arguments
 486      `(#:phases
 487        (modify-phases %standard-phases
 488          (replace 'configure
 489            (lambda* (#:key inputs outputs #:allow-other-keys)
 490              (and (zero? (system* "tar"
 491                                   "-xvf" (assoc-ref inputs "fritzing-parts-db")
 492                                   "-C" "parts"))
 493                   (zero? (system* "qmake"
 494                                   (string-append "PREFIX="
 495                                                  (assoc-ref outputs "out"))
 496                                   "phoenix.pro"))))))))
 497     (inputs
 498      `(("qtbase" ,qtbase)
 499        ("qtserialport" ,qtserialport)
 500        ("qtsvg" ,qtsvg)
 501        ("boost" ,boost)
 502        ("zlib" ,zlib)
 503        ("fritzing-parts-db"
 504         ,(origin
 505            (method url-fetch)
 506            (uri (string-append "https://github.com/fritzing/"
 507                                "fritzing-parts/archive/" version ".tar.gz"))
 508            (file-name (string-append "fritzing-parts-" version ".tar.gz"))
 509            (sha256
 510             (base32
 511              "0jqr8yjg7177f3pk1fcns584r0qavwpr280nggsi2ff3pwk5wpsz"))))))
 512     (home-page "http://fritzing.org")
 513     (synopsis "Electronic circuit design")
 514     (description
 515      "The Fritzing application is @dfn{Electronic Design Automation} (EDA)
 516 software with a low entry barrier, suited for the needs of makers and
 517 hobbyists.  It offers a unique real-life \"breadboard\" view, and a parts
 518 library with many commonly used high-level components.  Fritzing makes it very
 519 easy to communicate about circuits, as well as to turn them into PCB layouts
 520 ready for production.")
 521     ;; Documentation and parts are released under CC-BY-SA 3.0; source code is
 522     ;; released under GPLv3+.
 523     (license (list license:gpl3+ license:cc-by-sa3.0))))
 524
 525 (define-public gerbv
 526   (package
 527     (name "gerbv")
 528     (version "2.6.1")
 529     (source (origin
 530               (method url-fetch)
 531               (uri (string-append "mirror://sourceforge/gerbv/gerbv/gerbv-"
 532                                   version "/gerbv-" version ".tar.gz"))
 533               (sha256
 534                (base32
 535                 "0v6ry0mxi5qym4z0y0lpblxsw9dfjpgxs4c4v2ngg7yw4b3a59ks"))))
 536     (build-system gnu-build-system)
 537     (arguments
 538      `(#:phases
 539        (modify-phases %standard-phases
 540          (add-after 'unpack 'autoconf
 541            (lambda _
 542              ;; Build rules contain references to Russian translation, but the
 543              ;; needed files are missing; see
 544              ;; http://sourceforge.net/p/gerbv/bugs/174/
 545              (delete-file "po/LINGUAS")
 546              (substitute* "man/Makefile.am"
 547                (("PO_FILES= gerbv.ru.1.in.po") "")
 548                (("man_MANS = gerbv.1 gerbv.ru.1") "man_MANS = gerbv.1"))
 549              (zero? (system* "autoreconf" "-vfi")))))))
 550     (native-inputs
 551      `(("autoconf" ,autoconf)
 552        ("automake" ,automake)
 553        ("libtool" ,libtool)
 554        ("gettext" ,gettext-minimal)
 555        ("po4a" ,po4a)
 556        ("pkg-config" ,pkg-config)))
 557     (inputs
 558      `(("cairo" ,cairo)
 559        ("gtk" ,gtk+-2)
 560        ("desktop-file-utils" ,desktop-file-utils)))
 561     (home-page "http://gerbv.geda-project.org/")
 562     (synopsis "Gerber file viewer")
 563     (description
 564      "Gerbv is a viewer for files in the Gerber format (RS-274X only), which
 565 is commonly used to represent printed circuit board (PCB) layouts.  Gerbv lets
 566 you load several files on top of each other, do measurements on the displayed
 567 image, etc.  Besides viewing Gerbers, you may also view Excellon drill files
 568 as well as pick-place files.")
 569     (license license:gpl2+)))
 570
 571 (define-public libfive
 572   (let ((commit "9d857d1923abecb0e5935b9287d22661f6efaac5")
 573         (revision "2"))
 574     (package
 575       (name "libfive")
 576       (version (git-version "0" revision commit))
 577       (source (origin
 578                 (method git-fetch)
 579                 (uri (git-reference
 580                       (url "https://github.com/libfive/libfive")
 581                       (commit commit)))
 582                 (sha256
 583                  (base32
 584                   "1r40kyx30wz31cwwlfvfh7fgqkxq3n8dxhswpi9qpf4r5h3l8wsn"))
 585                 (file-name (git-file-name name version))
 586                 (snippet
 587                  ;; Remove bundled catch since we provide our own.
 588                  '(begin
 589                     (delete-file "libfive/test/catch.hpp")
 590                     #t))))
 591       (build-system cmake-build-system)
 592       (arguments
 593        `(#:test-target "libfive-test"
 594          #:phases
 595          (modify-phases %standard-phases
 596            (add-after 'unpack 'remove-native-compilation
 597              (lambda _
 598                (substitute* "CMakeLists.txt" (("-march=native") ""))
 599                #t)))))
 600       (native-inputs
 601        `(("pkg-config" ,pkg-config)))
 602       (inputs
 603        `(("boost" ,boost)
 604          ("catch" ,catch-framework)
 605          ("libpng" ,libpng)
 606          ("qtbase" ,qtbase)
 607          ("eigen" ,eigen)
 608          ("guile" ,guile-2.2)))
 609       (home-page "https://libfive.com")
 610       (synopsis "Tool for programmatic computer-aided design")
 611       (description
 612        "Libfive is a tool for programmatic computer-aided design (CAD).  In
 613 libfive, solid models are defined as Scheme scripts, and there are no opaque
 614 function calls into the geometry kernel: everything is visible to the user.
 615 Even fundamental, primitive shapes are represented as code in the user-level
 616 language.")
 617       (license (list license:lgpl2.1+             ;library
 618                      license:gpl2+)))))           ;Guile bindings and GUI
 619
 620 (define-public ao
 621   (deprecated-package "ao-cad" libfive))
 622
 623 ;; We use kicad from a git commit, because support for boost 1.61.0 has been
 624 ;; recently added.
 625 (define-public kicad
 626   (let ((commit "5f4599fb56da4dd748845ab10abec02961d477f3")
 627         (revision "2"))
 628     (package
 629       (name "kicad")
 630       (version (string-append "4.0-" revision "."
 631                               (string-take commit 7)))
 632       (source
 633        (origin
 634          (method git-fetch)
 635          (uri (git-reference
 636                (url "https://git.launchpad.net/kicad")
 637                (commit commit)))
 638          (sha256
 639           (base32 "1833pln2975gmc5s18xf7s8m9vg834lmxxdjk0wlk3lq7bvjjnff"))
 640          (file-name (string-append name "-" version "-checkout"))))
 641       (build-system cmake-build-system)
 642       (arguments
 643        `(#:out-of-source? #t
 644          #:tests? #f ; no tests
 645          #:build-type "Release"
 646          #:configure-flags
 647          (list "-DKICAD_STABLE_VERSION=ON"
 648                "-DKICAD_REPO_NAME=stable"
 649                ,(string-append "-DKICAD_BUILD_VERSION=4.0-"
 650                                (string-take commit 7))
 651                "-DKICAD_SKIP_BOOST=ON"; Use our system's boost library.
 652                "-DKICAD_SCRIPTING=ON"
 653                "-DKICAD_SCRIPTING_MODULES=ON"
 654                "-DKICAD_SCRIPTING_WXPYTHON=ON"
 655                ;; Has to be set explicitely, as we don't have the wxPython
 656                ;; headers in the wxwidgets store item, but in wxPython.
 657                (string-append "-DCMAKE_CXX_FLAGS=-I"
 658                               (assoc-ref %build-inputs "wxpython")
 659                               "/include/wx-3.0")
 660                "-DCMAKE_BUILD_WITH_INSTALL_RPATH=TRUE"
 661                "-DKICAD_SPICE=TRUE"
 662                ;; TODO: Enable this when CA certs are working with curl.
 663                "-DBUILD_GITHUB_PLUGIN=OFF")
 664          #:phases
 665          (modify-phases %standard-phases
 666            (add-after 'install 'wrap-program
 667              ;; Ensure correct Python at runtime.
 668              (lambda* (#:key inputs outputs #:allow-other-keys)
 669                (let* ((out (assoc-ref outputs "out"))
 670                       (python (assoc-ref inputs "python"))
 671                       (file (string-append out "/bin/kicad"))
 672                       (path (string-append
 673                              out
 674                              "/lib/python2.7/site-packages:"
 675                              (getenv "PYTHONPATH"))))
 676                  (wrap-program file
 677                    `("PYTHONPATH" ":" prefix (,path))
 678                    `("PATH" ":" prefix
 679                      (,(string-append python "/bin:")))))
 680                #t)))))
 681       (native-inputs
 682        `(("boost" ,boost)
 683          ("gettext" ,gnu-gettext)
 684          ("pkg-config" ,pkg-config)
 685          ("swig" ,swig)
 686          ("zlib" ,zlib)))
 687       (inputs
 688        `(("cairo" ,cairo)
 689          ("curl" ,curl)
 690          ("desktop-file-utils" ,desktop-file-utils)
 691          ("glew" ,glew)
 692          ("glm" ,glm)
 693          ("hicolor-icon-theme" ,hicolor-icon-theme)
 694          ("libngspice" ,libngspice)
 695          ("libsm" ,libsm)
 696          ("mesa" ,mesa)
 697          ("openssl" ,openssl)
 698          ("python" ,python-2)
 699          ("wxwidgets" ,wxwidgets-gtk2)
 700          ("wxpython" ,python2-wxpython)))
 701       (home-page "http://kicad-pcb.org/")
 702       (synopsis "Electronics Design Automation Suite")
 703       (description "Kicad is a program for the formation of printed circuit
 704 boards and electrical circuits.  The software has a number of programs that
 705 perform specific functions, for example, pcbnew (Editing PCB), eeschema (editing
 706 electrical diagrams), gerbview (viewing Gerber files) and others.")
 707       (license license:gpl3+))))
 708
 709 (define-public kicad-library
 710   (let ((version "4.0.6"))
 711     (package
 712       (name "kicad-library")
 713       (version version)
 714       (source (origin
 715                 (method url-fetch)
 716                 (uri (string-append
 717                       "http://downloads.kicad-pcb.org/libraries/kicad-library-"
 718                       version ".tar.gz"))
 719                 (sha256
 720                  (base32
 721                   "16f47pd6f0ddsdxdrp327nr9v05gl8c24d0qypq2aqx5hdjmkp7f"))))
 722       (build-system cmake-build-system)
 723       (arguments
 724        `(#:out-of-source? #t
 725          #:tests? #f ; no tests
 726          #:phases
 727          (modify-phases %standard-phases
 728            (add-after 'install 'install-footprints ; from footprints tarball
 729              (lambda* (#:key inputs outputs #:allow-other-keys)
 730                (zero? (system* "tar" "xvf"
 731                                (assoc-ref inputs "kicad-footprints")
 732                                "-C" (string-append (assoc-ref outputs "out")
 733                                                    "/share/kicad/modules")
 734                                "--strip-components=1"))))
 735            ;; We change the default global footprint file, which is generated if
 736            ;; it doesn't exist in user's home directory, from the one using the
 737            ;; github plugin, to the one using the KISYSMOD environment path.
 738            (add-after 'install-footprints 'use-pretty-footprint-table
 739              (lambda* (#:key outputs #:allow-other-keys)
 740                (let* ((out (assoc-ref outputs "out"))
 741                       (template-dir (string-append out "/share/kicad/template"))
 742                       (fp-lib-table (string-append template-dir "/fp-lib-table")))
 743                  (delete-file fp-lib-table)
 744                  (copy-file (string-append fp-lib-table ".for-pretty")
 745                               fp-lib-table))
 746                #t)))))
 747       (native-search-paths
 748        (list (search-path-specification
 749               (variable "KISYSMOD") ; footprint path
 750               (files '("share/kicad/modules")))
 751              (search-path-specification
 752               (variable "KISYS3DMOD") ; 3D model path
 753               (files '("share/kicad/modules/packages3d")))))
 754       ;; Kicad distributes footprints in a separate tarball
 755       (native-inputs
 756        `(("kicad-footprints"
 757           ,(origin
 758              (method url-fetch)
 759              (uri (string-append
 760                    "http://downloads.kicad-pcb.org/libraries/kicad-footprints-"
 761                    version ".tar.gz"))
 762              (sha256
 763               (base32
 764                "0vmgqhdw05k5fdnqv42grnvlz7v75g9md82jp2d3dvw2zw050lfb"))))))
 765       (home-page "http://kicad-pcb.org/")
 766       (synopsis "Libraries for kicad")
 767       (description "This package provides Kicad component, footprint and 3D
 768 render model libraries.")
 769       (license license:lgpl2.0+))))
 770
 771 (define-public linsmith
 772   (package
 773     (name "linsmith")
 774     (version "0.99.30")
 775     (source (origin
 776               (method url-fetch)
 777               (uri (string-append
 778                     "mirror://sourceforge/linsmith/linsmith/linsmith-"
 779                     version "/linsmith-" version ".tar.gz"))
 780               (sha256
 781                (base32
 782                 "18qslhr2r45rhpj4v6bjcqx189vs0bflvsj271wr7w8kvh69qwvn"))))
 783     (build-system gnu-build-system)
 784     (native-inputs
 785      `(("pkg-config" ,pkg-config)
 786        ("gtk" ,gtk+-2)
 787        ("libgnome" ,libgnomeui)))
 788     (home-page "http://jcoppens.com/soft/linsmith/index.en.php")
 789     (synopsis "Smith Charting program")
 790     (description "LinSmith is a Smith Charting program, mainly designed for
 791 educational use.  As such, there is an emphasis on capabilities that improve
 792 the 'showing the effect of'-style of operation.")
 793     (license license:gpl2+)))
 794
 795 (define-public volk
 796   (package
 797     (name "volk")
 798     (version "1.3")
 799     (source
 800      (origin
 801        (method url-fetch)
 802        (uri (string-append "http://libvolk.org/releases/volk-"
 803                            version ".tar.gz"))
 804        (sha256
 805         (base32
 806          "1bz3ywc6y5wmz3i8p4z2wbzhns8bc0ywdkl9qnxpcvfcscarbdlh"))))
 807     (build-system cmake-build-system)
 808     (inputs
 809      `(("boost" ,boost)))
 810     (native-inputs
 811      `(("python-2" ,python-2)
 812        ("python2-cheetah" ,python2-cheetah)))
 813     (home-page "http://libvolk.org/")
 814     (synopsis "Vector-Optimized Library of Kernels")
 815     (description
 816      "@code{volk} contains procedures with machine-specific optimizations
 817 for mathematical functions.  It also provides an machine-independent
 818 interface to select the best such procedures to use on a given system.")
 819     (license license:gpl3+)))
 820
 821 (define-public minicom
 822   (package
 823     (name "minicom")
 824     (version "2.7.1")
 825     (source
 826      (origin
 827        (method url-fetch)
 828        (uri (string-append "https://alioth.debian.org/frs/download.php/"
 829                            "file/4215/" name "-" version ".tar.gz"))
 830        (sha256
 831         (base32
 832          "1wa1l36fa4npd21xa9nz60yrqwkk5cq713fa3p5v0zk7g9mq6bsk"))))
 833     (build-system gnu-build-system)
 834     (arguments
 835      `(#:configure-flags '("--enable-lock-dir=/var/lock")
 836        #:phases
 837        (modify-phases %standard-phases
 838          (add-after 'unpack 'patch-lock-check
 839            (lambda _
 840              (substitute* "configure"
 841                (("test -d [$]UUCPLOCK") "true"))
 842              #t)))))
 843     (inputs
 844      `(("ncurses" ,ncurses)))
 845     (home-page "https://alioth.debian.org/projects/minicom/")
 846     (synopsis "Serial terminal emulator")
 847     (description "@code{minicom} is a serial terminal emulator.")
 848     (license license:gpl2+)))
 849
 850 (define-public harminv
 851   (package
 852     (name "harminv")
 853     (version "1.4.1")
 854     (source (origin
 855               (method url-fetch)
 856               (uri
 857                (string-append "https://github.com/stevengj/harminv/"
 858                               "releases/download/v" version "/"
 859                               name "-" version ".tar.gz"))
 860               (sha256
 861                (base32
 862                 "0w1n4d249vlpda0hi6z1v13qp21vlbp3ykn0m8qg4rd5132j7fg1"))))
 863     (build-system gnu-build-system)
 864     (arguments
 865      `(#:phases
 866        (modify-phases %standard-phases
 867          (add-before 'configure 'fix-tests
 868            (lambda _
 869              (substitute* "./sines-test.sh"
 870                ; change test frequency range - default fails
 871                (("0\\.15") "0.16"))
 872              #t)))))
 873     (native-inputs
 874      `(("fortran" ,gfortran)))
 875     (inputs
 876      `(("lapack" ,lapack)))
 877     (home-page "https://github.com/stevengj/harminv")
 878     (synopsis "Harmonic inversion solver")
 879     (description
 880      "Harminv is a free program (and accompanying library) to solve the problem of
 881 harmonic inversion — given a discrete-time, finite-length signal that consists of a sum
 882 of finitely-many sinusoids (possibly exponentially decaying) in a given bandwidth, it
 883 determines the frequencies, decay constants, amplitudes, and phases of those sinusoids.")
 884     (license license:gpl2+)))
 885
 886 (define-public guile-libctl
 887   (package
 888     (name "guile-libctl")
 889     (version "3.2.2")
 890     (source (origin
 891               (method url-fetch)
 892               (uri
 893                (string-append
 894                 "http://ab-initio.mit.edu/libctl/libctl-"
 895                 version ".tar.gz"))
 896               (sha256
 897                (base32
 898                 "1g7gqybq20jhdnw5vg18bgbj9jz0408gfmjvs8b4xs30pic8pgca"))))
 899     (build-system gnu-build-system)
 900     (native-inputs
 901      `(("fortran" ,gfortran)))
 902     (inputs
 903      `(("guile" ,guile-2.2)))
 904     (home-page "http://ab-initio.mit.edu/wiki/index.php/Libctl")
 905     (synopsis "Flexible control files implementation for scientific simulations")
 906     (description
 907      "Libctl is a Guile-based library implementing flexible control files
 908 for scientific simulations.")
 909     (license license:gpl2+)))
 910
 911 (define-public mpb
 912   (package
 913     (name "mpb")
 914     (version "1.5")
 915     (source (origin
 916               (method url-fetch)
 917               (uri
 918                (string-append
 919                 "http://ab-initio.mit.edu/mpb/mpb-"
 920                 version ".tar.gz"))
 921               (sha256
 922                (base32
 923                 "1mqb2d8jq957nksayjygq58iy8i42vjryzg9iy5fpfay31wzxsix"))))
 924     (build-system gnu-build-system)
 925     (arguments
 926      `(#:configure-flags
 927        (list (string-append "--with-libctl="
 928                             (assoc-ref %build-inputs "libctl")
 929                             "/share/libctl"))))
 930     (native-inputs
 931      `(("fortran" ,gfortran)
 932        ("pkg-config" ,pkg-config)
 933        ("swig" ,swig)))
 934     (inputs
 935      `(("fftw" ,fftw)
 936        ("gsl" ,gsl)
 937        ("guile" ,guile-2.2)
 938        ("hdf5" ,hdf5)
 939        ("lapack" ,lapack)
 940        ("libctl" ,guile-libctl)
 941        ("readline" ,readline)
 942        ("zlib" ,zlib)))
 943     (home-page "http://ab-initio.mit.edu/wiki/index.php/MIT_Photonic_Bands")
 944     (synopsis "Computes band structures and electromagnetic modes of dielectric
 945 structures")
 946     (description
 947      "MIT Photonic-Bands (MPB) computes definite-frequency eigenstates (harmonic modes)
 948 of Maxwell's equations in periodic dielectric structures for arbitrary wavevectors, using
 949 fully-vectorial and three-dimensional methods.")
 950     (license license:gpl2+)))
 951
 952 (define-public meep
 953   (package
 954     (name "meep")
 955     (version "1.3")
 956     (source (origin
 957               (method url-fetch)
 958               (uri
 959                (string-append
 960                 "http://ab-initio.mit.edu/meep/meep-"
 961                 version ".tar.gz"))
 962               (sha256
 963                (base32
 964                 "0f6lbw2hrksg7xscwdqs78jc9nmzx9fs8j0hz1y4i8qknkqiyk2n"))))
 965     (build-system gnu-build-system)
 966     (arguments
 967      `(#:configure-flags
 968        (list (string-append "--with-libctl="
 969                             (assoc-ref %build-inputs "libctl")
 970                             "/share/libctl"))))
 971     (native-inputs
 972      `(("fortran" ,gfortran)
 973        ("pkg-config" ,pkg-config)
 974        ("swig" ,swig)))
 975     (inputs
 976      `(("fftw" ,fftw)
 977        ("gsl" ,gsl)
 978        ("guile" ,guile-2.0)             ; doesn't build with guile-2.2
 979        ("harminv" ,harminv)
 980        ("hdf5" ,hdf5)
 981        ("lapack" ,lapack)
 982        ("libctl" ,guile-libctl)
 983        ("mpb" ,mpb)
 984        ("zlib" ,zlib)))
 985     (home-page "http://ab-initio.mit.edu/wiki/index.php/Meep")
 986     (synopsis "Finite-difference time-domain (FDTD) simulation software")
 987     (description
 988      "Meep is a finite-difference time-domain (FDTD) simulation software package
 989 developed at MIT to model electromagnetic systems.")
 990     (license license:gpl2+)))
 991
 992 (define-public adms
 993   (package
 994     (name "adms")
 995     (version "2.3.6")
 996     (source (origin
 997               (method url-fetch)
 998               (uri
 999                (string-append
1000                 "mirror://sourceforge/mot-adms/adms-source/"
1001                 (version-major+minor version) "/adms-" version ".tar.gz"))
1002               (sha256
1003                (base32
1004                 "1rn98l6jxcjhi6ai5f7p588khra9z80m0m0lql4n4sb7773fh1vk"))))
1005     (build-system gnu-build-system)
1006     (native-inputs
1007      `(("flex" ,flex)
1008        ("bison" ,bison)))
1009     (home-page "https://sourceforge.net/projects/mot-adms")
1010     (synopsis "Automatic device model synthesizer")
1011     (description
1012      "ADMS is a code generator that converts electrical compact device models
1013 specified in high-level description language into ready-to-compile C code for
1014 the API of spice simulators.  Based on transformations specified in XML
1015 language, ADMS transforms Verilog-AMS code into other target languages.")
1016     (license license:gpl3)))
1017
1018 (define-public capstone
1019   (package
1020     (name "capstone")
1021     (version "3.0.5-rc2")
1022     (source (origin
1023               (method url-fetch)
1024               (uri (string-append "https://github.com/aquynh/capstone/archive/"
1025                                   version ".tar.gz"))
1026               (file-name (string-append name "-" version ".tar.gz"))
1027               (sha256
1028                (base32
1029                 "1cqms9r2p43aiwp5spd84zaccp16ih03r7sjhrv16nddahj0jz2q"))))
1030     (build-system gnu-build-system)
1031     (arguments
1032      `(#:tests? #f
1033        #:make-flags (list (string-append "PREFIX=" %output)
1034                           "CC=gcc")
1035        #:phases
1036        (modify-phases %standard-phases
1037          (delete 'configure)
1038          ;; cstool's Makefile overrides LDFLAGS, so we cannot pass it as a make flag.
1039          (add-before 'build 'fix-cstool-ldflags
1040            (lambda* (#:key outputs #:allow-other-keys)
1041              (substitute* "cstool/Makefile"
1042                (("LDFLAGS =")
1043                 (string-append "LDFLAGS = -Wl,-rpath=" (assoc-ref outputs "out")
1044                                "/lib")))
1045              #t)))))
1046     (home-page "http://www.capstone-engine.org")
1047     (synopsis "Lightweight multi-platform, multi-architecture disassembly framework")
1048     (description
1049      "Capstone is a lightweight multi-platform, multi-architecture disassembly
1050 framework.  Capstone can disassemble machine code for many supported architectures
1051 such as x86, x86_64, arm, arm64, mips, ppc, sparc, sysz and xcore.  It provides
1052 bindings for Python, Java, OCaml and more.")
1053     (license license:bsd-3)))
1054
1055 ;; FIXME: This package has a timestamp embedded in
1056 ;; lib/python3.5/site-packages/capstone/__pycache__/__iti__.cpython-35.pyc
1057 (define-public python-capstone
1058   (package
1059     (inherit capstone)
1060     (name "python-capstone")
1061     (propagated-inputs
1062      `(("capstone" ,capstone)))
1063     (build-system python-build-system)
1064     (arguments
1065      `(#:phases
1066        (modify-phases %standard-phases
1067          (add-after 'unpack 'chdir-and-fix-setup-py
1068            (lambda _
1069              (chdir "bindings/python")
1070              ;; Do not build the library again, because we already have it.
1071              (substitute* "setup.py" ((".*   build_libraries.*") ""))
1072              ;; This substitution tells python-capstone where to find the
1073              ;; library.
1074              (substitute* "capstone/__init__.py"
1075                (("pkg_resources.resource_filename.*")
1076                 (string-append "'" (assoc-ref %build-inputs "capstone") "/lib',\n")))
1077              #t)))))))
1078
1079 (define-public python2-capstone
1080   (package-with-python2 python-capstone))
1081
1082 (define-public radare2
1083   (package
1084     (name "radare2")
1085     (version "1.6.0")
1086     (source (origin
1087               (method url-fetch)
1088               (uri (string-append "http://radare.mikelloc.com/get/" version "/"
1089                                   name "-" version ".tar.gz"))
1090               (sha256
1091                (base32
1092                 "16ggsk40zz6hyvclvqj1r4bh4hb78jf0d6ppry1jk4r0j30wm7cm"))
1093               (modules '((guix build utils)))
1094               (snippet
1095                 '(begin
1096                   (substitute* "libr/asm/p/Makefile"
1097                     (("LDFLAGS\\+=") "LDFLAGS+=-Wl,-rpath=$(LIBDIR) "))
1098                   (substitute* "libr/parse/p/Makefile"
1099                     (("LDFLAGS\\+=") "LDFLAGS+=-Wl,-rpath=$(LIBDIR) "))
1100                   (substitute* "libr/bin/p/Makefile"
1101                     (("LDFLAGS\\+=") "LDFLAGS+=-Wl,-rpath=$(LIBDIR) "))
1102                   #t))))
1103     (build-system gnu-build-system)
1104     (arguments
1105      '(#:tests? #f; tests require git and network access
1106        #:phases
1107        (modify-phases %standard-phases
1108          (add-before 'configure 'mklibdir
1109            (lambda* (#:key inputs #:allow-other-keys)
1110              (mkdir-p (string-append (assoc-ref %outputs "out") "/lib"))
1111              #t)))
1112        #:configure-flags
1113        (list "--with-sysmagic" "--with-syszip" "--with-openssl"
1114              "--without-nonpic" "--with-rpath" "--with-syscapstone")
1115        #:make-flags
1116        (list "CC=gcc")))
1117     (inputs
1118      `(("openssl" ,openssl)
1119        ("zip" ,zip)
1120        ("gmp" ,gmp)
1121        ("capstone" ,capstone)))
1122     (native-inputs
1123      `(("pkg-config" ,pkg-config)))
1124     (home-page "https://radare.org/")
1125     (synopsis "Portable reversing framework")
1126     (description
1127       "Radare project started as a forensics tool, a scriptable commandline
1128 hexadecimal editor able to open disk files, but later support for analyzing
1129 binaries, disassembling code, debugging programs, attaching to remote gdb
1130 servers, ...")
1131     (license license:lgpl3)))
1132
1133 (define-public asco
1134   (package
1135     (name "asco")
1136     (version "0.4.10")
1137     (source (origin
1138               (method url-fetch)
1139               (uri (string-append "mirror://sourceforge/asco/asco/" version "/ASCO-"
1140                                   version ".tar.gz"))
1141               (sha256
1142                (base32
1143                 "119rbc2dc8xzwxvykgji0v0nrzvymjmlizr1bc2mihspj686kxsl"))))
1144     (build-system gnu-build-system)
1145     (arguments
1146      `(#:tests? #f                                ; no tests
1147        #:make-flags '("all" "asco-mpi")
1148        #:phases
1149        (modify-phases %standard-phases
1150          (delete 'configure)
1151          (add-before 'build 'fix-paths
1152            (lambda* (#:key inputs #:allow-other-keys)
1153              (let ((coreutils (assoc-ref inputs "coreutils-minimal")))
1154                (substitute* '("errfunc.c" "asco.c")
1155                  (("cp ")
1156                   (string-append coreutils "/bin/cp "))
1157                  (("nice")
1158                   (string-append coreutils "/bin/nice")))
1159                (substitute* "Makefile"
1160                  (("<FULL_PATH_TO_MPICH>/bin/mpicc") (which "mpicc")))
1161                #t)))
1162          (replace 'install                        ; no install target
1163            (lambda* (#:key outputs #:allow-other-keys)
1164              (for-each (lambda (file)
1165                          (install-file file (string-append
1166                                              (assoc-ref outputs "out")
1167                                              "/bin")))
1168                        '("asco" "asco-mpi" "asco-test"
1169                          "tools/alter/alter" "tools/log/log"))
1170              #t)))))
1171     (native-inputs
1172      `(("mpi" ,openmpi)))
1173     (inputs
1174      `(("coreutils-minimal" ,coreutils-minimal)))
1175     (home-page "http://asco.sourceforge.net/")
1176     (synopsis "SPICE circuit optimizer")
1177     (description
1178      "ASCO brings circuit optimization capabilities to existing SPICE simulators using a
1179 high-performance parallel differential evolution (DE) optimization algorithm.")
1180     (license license:gpl2+)))
1181
1182 (define-public libngspice
1183   ;; Note: The ngspice's build system does not allow us to build both the
1184   ;; library and the executables in one go.  Thus, we have two packages.
1185   ;; See <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=27344#236>.
1186   (package
1187     (name "libngspice")
1188     (version "26")
1189     (source (origin
1190               (method url-fetch)
1191               (uri (string-append "mirror://sourceforge/ngspice/ng-spice-rework/"
1192                                   version "/ngspice-" version ".tar.gz"))
1193               (sha256
1194                (base32
1195                 "02019ndcl057nq9z41nxycqba7wxlb081ibvfj9jv010nz431qji"))
1196               (modules '((guix build utils)))
1197               ;; We remove the non-free cider and build without it.
1198               (snippet
1199                '(begin
1200                   (delete-file-recursively "src/ciderlib")
1201                   (delete-file "src/ciderinit")
1202                   (substitute* "configure"
1203                     (("src/ciderlib/Makefile") "")
1204                     (("src/ciderlib/input/Makefile") "")
1205                     (("src/ciderlib/support/Makefile") "")
1206                     (("src/ciderlib/oned/Makefile") "")
1207                     (("src/ciderlib/twod/Makefile") ""))
1208                   #t))))
1209     (build-system gnu-build-system)
1210     (arguments
1211      `(;; No tests for libngspice exist.
1212        ;; The transient tests for ngspice fail.
1213        #:tests? #f
1214        #:phases
1215        (modify-phases %standard-phases
1216          (add-after 'unpack 'patch-timestamps
1217            (lambda _
1218              (substitute* "configure"
1219                (("`date`") "Do 1. Jan 00:00:00 UTC 1970"))
1220              #t))
1221          (add-after 'unpack 'delete-program-manuals
1222            (lambda _
1223              (substitute* "man/man1/Makefile.in"
1224                (("^man_MANS = ngspice\\.1 ngnutmeg\\.1 ngsconvert\\.1 ngmultidec\\.1")
1225                 "man_MANS = "))
1226              #t))
1227          (add-after 'install 'delete-script-files
1228            (lambda* (#:key outputs #:allow-other-keys)
1229              (delete-file-recursively
1230               (string-append (assoc-ref outputs "out")
1231                              "/share/ngspice/scripts")))))
1232        #:configure-flags
1233        (list "--enable-openmp"
1234              "--enable-xspice"
1235              "--with-ngshared"
1236              "--with-readline=yes")))
1237     (native-inputs
1238      `(("bison" ,bison)
1239        ("flex" ,flex)))
1240     (inputs
1241      `(("libxaw" ,libxaw)
1242        ("mpi" ,openmpi)
1243        ("readline" ,readline)))
1244     (home-page "http://ngspice.sourceforge.net/")
1245     (synopsis "Mixed-level/mixed-signal circuit simulator")
1246     (description
1247      "Ngspice is a mixed-level/mixed-signal circuit simulator.  It includes
1248 @code{Spice3f5}, a circuit simulator, and @code{Xspice}, an extension that
1249 provides code modeling support and simulation of digital components through
1250 an embedded event driven algorithm.")
1251     (license (list license:lgpl2.0+ ; code in frontend/numparam
1252                    (license:non-copyleft "file:///COPYING") ; spice3 bsd-style
1253                    license:public-domain)))) ; xspice
1254
1255 (define-public ngspice
1256   ;; The ngspice executables (see libngpsice above.)
1257   (package (inherit libngspice)
1258     (name "ngspice")
1259     (arguments
1260      (substitute-keyword-arguments (package-arguments libngspice)
1261        ((#:configure-flags flags)
1262         `(delete "--with-ngshared" ,flags))
1263        ((#:phases phases)
1264         `(modify-phases ,phases
1265            (add-after 'unpack 'delete-include-files
1266              (lambda _
1267                (substitute* "src/Makefile.in"
1268                  (("^SUBDIRS = misc maths frontend spicelib include/ngspice")
1269                   "SUBDIRS = misc maths frontend spicelib"))
1270                #t))
1271            (add-after 'install 'delete-cmpp-dlmain
1272              (lambda* (#:key outputs #:allow-other-keys)
1273                (for-each (lambda (file)
1274                            (delete-file
1275                             (string-append (assoc-ref outputs "out")
1276                                            file)))
1277                          '("/bin/cmpp" "/share/ngspice/dlmain.c"))
1278                #t))
1279            (delete 'delete-program-manuals)
1280            (delete 'delete-script-files)))))
1281     (inputs
1282      `(("libngspice" ,libngspice)
1283        ("readline" ,readline)))))
1284
1285 (define trilinos-serial-xyce
1286   ;; Note: This is a Trilinos containing only the packages Xyce needs, so we
1287   ;; keep it private.  See
1288   ;; <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=27344#248>.
1289   ;; TODO: Remove when we have modular Trilinos packages?
1290   (package
1291     (name "trilinos-serial-xyce")
1292     (version "12.6.3")
1293     (source
1294      (origin (method url-fetch)
1295              (uri (string-append "https://trilinos.org/oldsite/download/files/trilinos-"
1296                                  version "-Source.tar.gz"))
1297              (sha256
1298               (base32
1299                "07jd1qpsbf31cmbyyngr4l67xzwyan24dyx5wlcahgbw7x6my3wn"))))
1300     (build-system cmake-build-system)
1301     (arguments
1302      `(#:out-of-source? #t
1303        #:configure-flags
1304        (list "-DCMAKE_CXX_FLAGS=-O3 -fPIC"
1305              "-DCMAKE_C_FLAGS=-O3 -fPIC"
1306              "-DCMAKE_Fortran_FLAGS=-O3 -fPIC"
1307              "-DTrilinos_ENABLE_NOX=ON"
1308              "-DNOX_ENABLE_LOCA=ON"
1309              "-DTrilinos_ENABLE_EpetraExt=ON"
1310              "-DEpetraExt_BUILD_BTF=ON"
1311              "-DEpetraExt_BUILD_EXPERIMENTAL=ON"
1312              "-DEpetraExt_BUILD_GRAPH_REORDERINGS=ON"
1313              "-DTrilinos_ENABLE_TrilinosCouplings=ON"
1314              "-DTrilinos_ENABLE_Ifpack=ON"
1315              "-DTrilinos_ENABLE_Isorropia=ON"
1316              "-DTrilinos_ENABLE_AztecOO=ON"
1317              "-DTrilinos_ENABLE_Belos=ON"
1318              "-DTrilinos_ENABLE_Teuchos=ON"
1319              "-DTeuchos_ENABLE_COMPLEX=ON"
1320              "-DTrilinos_ENABLE_Amesos=ON"
1321              "-DAmesos_ENABLE_KLU=ON"
1322              "-DAmesos_ENABLE_UMFPACK=ON"
1323              "-DTrilinos_ENABLE_Sacado=ON"
1324              "-DTrilinos_ENABLE_Kokkos=OFF"
1325              "-DTrilinos_ENABLE_ALL_OPTIONAL_PACKAGES=OFF"
1326              "-DTPL_ENABLE_AMD=ON"
1327              "-DTPL_ENABLE_UMFPACK=ON"
1328              "-DTPL_ENABLE_BLAS=ON"
1329              "-DTPL_ENABLE_LAPACK=ON")))
1330     (native-inputs
1331      `(("fortran" ,gfortran)
1332        ("swig" ,swig)))
1333     (inputs
1334      `(("boost" ,boost)
1335        ("lapack" ,lapack-3.5)
1336        ("suitesparse" ,suitesparse)))
1337     (home-page "https://trilinos.org")
1338     (synopsis "Engineering and scientific problems algorithms")
1339     (description
1340      "The Trilinos Project is an effort to develop algorithms and enabling
1341 technologies within an object-oriented software framework for the solution of
1342 large-scale, complex multi-physics engineering and scientific problems.  A
1343 unique design feature of Trilinos is its focus on packages.")
1344     (license (list license:lgpl2.1+
1345                    license:bsd-3))))
1346
1347 (define-public xyce-serial
1348   (package
1349     (name "xyce-serial")
1350     (version "6.7")
1351     (source
1352      (origin (method url-fetch)
1353              (uri (string-append "https://archive.org/download/Xyce-"
1354                                  version "/Xyce-" version ".tar.gz"))
1355              (sha256
1356               (base32
1357                "02k952mnvrnc5kv7r65fdrn7khwq1lbyhwyvd7jznafzdpsvgm4x"))))
1358     (build-system gnu-build-system)
1359     (arguments
1360      `(#:tests? #f
1361        #:configure-flags
1362        (list
1363         "CXXFLAGS=-O3 -std=c++11"
1364         (string-append "ARCHDIR="
1365                        (assoc-ref %build-inputs "trilinos")))))
1366     (native-inputs
1367      `(("bison" ,bison)
1368        ("flex" ,flex)
1369        ("fortran" ,gfortran)))
1370     (inputs
1371      `(("fftw" ,fftw)
1372        ("suitesparse" ,suitesparse)
1373        ("lapack" ,lapack-3.5)
1374        ("trilinos" ,trilinos-serial-xyce)))
1375     (home-page "https://xyce.sandia.gov/")
1376     (synopsis "High-performance analog circuit simulator")
1377     (description
1378      "Xyce is a SPICE-compatible, high-performance analog circuit simulator,
1379 capable of solving extremely large circuit problems by supporting large-scale
1380 parallel computing platforms.  It also supports serial execution.")
1381     (license license:gpl3+)))
1382
1383 (define trilinos-parallel-xyce
1384   (package (inherit trilinos-serial-xyce)
1385     (name "trilinos-parallel-xyce")
1386     (arguments
1387      `(,@(substitute-keyword-arguments (package-arguments trilinos-serial-xyce)
1388            ((#:configure-flags flags)
1389             `(append (list "-DTrilinos_ENABLE_ShyLU=ON"
1390                            "-DTrilinos_ENABLE_Zoltan=ON"
1391                            "-DTPL_ENABLE_MPI=ON")
1392                      ,flags)))))
1393     (inputs
1394      `(("mpi" ,openmpi)
1395        ,@(package-inputs trilinos-serial-xyce)))))
1396
1397 (define-public xyce-parallel
1398   (package (inherit xyce-serial)
1399     (name "xyce-parallel")
1400     (arguments
1401      `(,@(substitute-keyword-arguments (package-arguments xyce-serial)
1402            ((#:configure-flags flags)
1403             `(list "CXXFLAGS=-O3 -std=c++11"
1404                    "CXX=mpiCC"
1405                    "CC=mpicc"
1406                    "F77=mpif77"
1407                    "--enable-mpi"
1408                    "--enable-isorropia=no"
1409                    "--enable-zoltan=no"
1410                    (string-append
1411                     "ARCHDIR="
1412                     (assoc-ref %build-inputs "trilinos")))))))
1413     (propagated-inputs
1414      `(("mpi" ,openmpi)))
1415     (inputs
1416      `(("trilinos" ,trilinos-parallel-xyce)
1417        ,@(alist-delete "trilinos"
1418                        (package-inputs xyce-serial))))))
1419
1420 (define-public freehdl
1421   (package
1422     (name "freehdl")
1423     (version "0.0.8")
1424     (source (origin
1425               (method url-fetch)
1426               (uri (string-append "http://downloads.sourceforge.net/qucs/freehdl-"
1427                                   version ".tar.gz"))
1428               (sha256
1429                (base32
1430                 "117dqs0d4pcgbzvr3jn5ppra7n7x2m6c161ywh6laa934pw7h2bz"))))
1431     (build-system gnu-build-system)
1432     (arguments
1433      `(#:phases
1434        (modify-phases %standard-phases
1435          (add-before 'configure 'patch-pkg-config
1436            (lambda* (#:key inputs #:allow-other-keys)
1437              (substitute* "freehdl/freehdl-config"
1438                (("pkg-config")
1439                 (string-append (assoc-ref inputs "pkg-config")
1440                                "/bin/pkg-config"))
1441                (("cat")
1442                 (string-append (assoc-ref inputs "coreutils")
1443                                "/bin/cat")))
1444              #t))
1445          (add-after 'patch-pkg-config 'setenv
1446            (lambda* (#:key inputs #:allow-other-keys)
1447              (setenv "CXX" (string-append (assoc-ref inputs "gcc")
1448                                           "/bin/g++"))
1449              (setenv "SYSTEM_LIBTOOL" (string-append (assoc-ref inputs "libtool")
1450                                                      "/bin/libtool"))
1451              #t))
1452          (add-after 'setenv 'patch-gvhdl
1453            (lambda _
1454              (substitute* "v2cc/gvhdl.in"
1455                (("--mode=link") "--mode=link --tag=CXX")
1456                (("-lm") "-lm FREEHDL/lib/freehdl/libieee.la"))
1457              #t))
1458          (add-after 'patch-gvhdl 'patch-freehdl-gennodes
1459            (lambda* (#:key inputs #:allow-other-keys)
1460              (substitute* "freehdl/freehdl-gennodes.in"
1461                (("guile")
1462                 (string-append (assoc-ref inputs "guile") "/bin/guile"))
1463                (("\\(debug") ";(debug")
1464                (("\\(@ ") "(apply-emit")
1465                (("\\(@@ ") "(apply-mini-format"))
1466              #t))
1467          (add-after 'configure 'patch-freehdl-pc
1468            (lambda* (#:key inputs #:allow-other-keys)
1469              (substitute* "freehdl.pc"
1470                (("=g\\+\\+")
1471                 (string-append "=" (assoc-ref inputs "gcc-toolchain")
1472                                "/bin/g++"))
1473                (("=libtool")
1474                 (string-append "=" (assoc-ref inputs "libtool")
1475                                "/bin/libtool")))
1476              #t))
1477          (add-after 'install-scripts 'make-wrapper
1478            (lambda* (#:key inputs outputs #:allow-other-keys)
1479              (let ((out (assoc-ref outputs "out")))
1480                ;; 'gvhdl' invokes the C compiler directly, so hard-code its
1481                ;; file name.
1482                (wrap-program (string-append out "/bin/gvhdl")
1483                  `("CPLUS_INCLUDE_PATH" ":" prefix
1484                    (,(string-append (assoc-ref inputs "gcc-toolchain")
1485                                     "/include")))
1486                  `("LIBRARY_PATH" ":" prefix
1487                    (,(string-append (assoc-ref inputs "gcc-toolchain")
1488                                     "/lib")))
1489                  `("PATH" ":" prefix
1490                    (,(string-append (assoc-ref inputs "gcc-toolchain")
1491                                     "/bin")
1492                     ,(string-append (assoc-ref inputs "coreutils")
1493                                     "/bin"))))
1494                (wrap-program (string-append out "/bin/freehdl-config")
1495                  `("PKG_CONFIG_PATH" ":" prefix (,(string-append out "/lib/pkgconfig")))))
1496              #t)))))
1497     (inputs
1498      `(("coreutils" ,coreutils)
1499        ("gcc-toolchain" ,gcc-toolchain)
1500        ("guile" ,guile-2.2)
1501        ("perl" ,perl)
1502        ("pkg-config" ,pkg-config)
1503        ("libtool" ,libtool)))
1504     (native-inputs
1505      `(("pkg-config-native" ,pkg-config)
1506        ("libtool-native" ,libtool)))
1507     (home-page "http://www.freehdl.seul.org/")
1508     (synopsis "VHDL simulator")
1509     (description
1510      "FreeHDL is a compiler/simulator suite for the hardware description language VHDL.
1511   VHDL'93 as well as VHDL'87 standards are supported.")
1512     (license (list license:gpl2+
1513                    license:lgpl2.0+)))) ; freehdl's libraries
1514
1515 (define-public qucs
1516   (package
1517     (name "qucs")
1518     (version "0.0.19")
1519     (source (origin
1520               (method url-fetch)
1521               (uri
1522                (string-append
1523                 "https://sourceforge.net/projects/qucs/files/qucs/" version
1524                 "/qucs-" version ".tar.gz"))
1525               (sha256
1526                (base32
1527                 "0giv9gfyfdizvjhq56x2pdncrlyv3k15lrsh6pk37i94vr7l7ij5"))))
1528     (build-system gnu-build-system)
1529     (arguments
1530      `(#:phases
1531        (modify-phases %standard-phases
1532          (add-before 'configure 'patch-configure
1533            (lambda* (#:key inputs #:allow-other-keys)
1534              (substitute* "qucs/configure"
1535                (("\\$QTDIR") (assoc-ref inputs "qt4")))
1536              #t))
1537          (add-after 'patch-configure 'patch-scripts
1538            (lambda* (#:key inputs outputs #:allow-other-keys)
1539              (substitute* '("qucs/qucs/qucsdigi"
1540                             "qucs/qucs/qucsdigilib"
1541                             "qucs/qucs/qucsveri")
1542                (("\\$BINDIR")
1543                 (string-append (assoc-ref outputs "out") "/bin"))
1544                (("freehdl-config")
1545                 (string-append (assoc-ref inputs "freehdl") "/bin/freehdl-config"))
1546                (("freehdl-v2cc")
1547                 (string-append (assoc-ref inputs "freehdl") "/bin/freehdl-v2cc"))
1548                (("cp ")
1549                 (string-append (assoc-ref inputs "coreutils") "/bin/cp "))
1550                (("glibtool")
1551                 (string-append (assoc-ref inputs "libtool") "/bin/libtool"))
1552                (("sed")
1553                 (string-append (assoc-ref inputs "sed") "/bin/sed"))
1554                (("iverilog")
1555                 (string-append (assoc-ref inputs "iverilog") "/bin/iverilog"))
1556                (("vvp")
1557                 (string-append (assoc-ref inputs "iverilog") "/bin/vvp")))
1558              #t))
1559          (add-before 'check 'pre-check
1560            (lambda _
1561              ;; The test suite requires a running X server.
1562              (system "Xvfb :1 &")
1563              (setenv "DISPLAY" ":1")
1564              #t))
1565          (add-after 'install 'make-wrapper
1566            (lambda* (#:key inputs outputs #:allow-other-keys)
1567              (let ((out (assoc-ref outputs "out")))
1568                ;; 'qucs' directly invokes gcc, hence this wrapping.
1569                (wrap-program (string-append out "/bin/qucs")
1570                  `("CPLUS_INCLUDE_PATH" ":" prefix
1571                    (,(string-append (assoc-ref inputs "gcc-toolchain")
1572                                     "/include")))
1573                  `("PATH" ":" prefix
1574                    (,(string-append (assoc-ref inputs "gcc-toolchain")
1575                                     "/bin")))
1576                  `("LIBRARY_PATH" ":" prefix
1577                    (,(string-append (assoc-ref inputs "gcc-toolchain")
1578                                     "/lib")))
1579                  `("ADMSXMLBINDIR" ":" prefix
1580                    (,(string-append (assoc-ref inputs "adms") "/bin")))
1581                  `("ASCOBINDIR" ":" prefix
1582                    (,(string-append (assoc-ref inputs "asco") "/bin")))
1583                  `("QUCS_OCTAVE" ":" prefix
1584                    (,(string-append (assoc-ref inputs "octave") "/bin/octave")))))
1585              #t)))
1586        #:parallel-build? #f ; race condition
1587        #:configure-flags '("--disable-doc"))) ; we need octave-epstk
1588     (native-inputs
1589      `(("gperf" ,gperf)
1590        ("libtool-native" ,libtool)
1591        ("python" ,python-2) ; for tests
1592        ("matplotlib" ,python2-matplotlib) ; for tests
1593        ("numpy" ,python2-numpy) ; for tests
1594        ("xorg-server" ,xorg-server))) ; for tests
1595     (inputs
1596      `(("adms" ,adms)
1597        ("asco" ,asco)
1598        ("coreutils" ,coreutils)
1599        ("freehdl" ,freehdl)
1600        ("gcc-toolchain" ,gcc-toolchain)
1601        ("iverilog" ,iverilog)
1602        ("libtool" ,libtool)
1603        ("octave" ,octave)
1604        ("qt4" ,qt-4)
1605        ("sed" ,sed)))
1606     (home-page "http://qucs.sourceforge.net/")
1607     (synopsis "Circuit simulator with graphical user interface")
1608     (description
1609      "Qucs is a circuit simulator with graphical user interface.  The software
1610 aims to support all kinds of circuit simulation types---e.g. DC, AC,
1611 S-parameter, transient, noise and harmonic balance analysis.  Pure digital
1612 simulations are also supported.")
1613     (license license:gpl2+)))
1614
1615 (define-public qucs-s
1616   (package
1617     (name "qucs-s")
1618     (version "0.0.19S")
1619     (source (origin
1620               (method url-fetch)
1621               (uri (string-append "https://github.com/ra3xdh/qucs/releases/download/"
1622                                   version "/qucs-" version ".tar.gz"))
1623               (sha256
1624                (base32
1625                 "1bhahvdqmayaw0306fxz1ghmjhd4fq05yk3rk7zi0z703w5imgjv"))))
1626     (build-system cmake-build-system)
1627     (arguments
1628      `(#:tests? #f ; no tests
1629        #:phases
1630        (modify-phases %standard-phases
1631          (add-before 'configure 'patch-scripts
1632            (lambda* (#:key inputs #:allow-other-keys)
1633              (substitute* '("qucs/qucsdigi"
1634                             "qucs/qucsdigilib"
1635                             "qucs/qucsveri")
1636                (("\\$BINDIR")
1637                 (string-append (assoc-ref inputs "qucs") "/bin"))
1638                (("freehdl-config")
1639                 (string-append (assoc-ref inputs "freehdl") "/bin/freehdl-config"))
1640                (("freehdl-v2cc")
1641                 (string-append (assoc-ref inputs "freehdl") "/bin/freehdl-v2cc"))
1642                (("cp ")
1643                 (string-append (assoc-ref inputs "coreutils") "/bin/cp "))
1644                (("glibtool")
1645                 (string-append (assoc-ref inputs "libtool") "/bin/libtool"))
1646                (("sed")
1647                 (string-append (assoc-ref inputs "sed") "/bin/sed"))
1648                (("iverilog")
1649                 (string-append (assoc-ref inputs "iverilog") "/bin/iverilog"))
1650                (("vvp")
1651                 (string-append (assoc-ref inputs "iverilog") "/bin/vvp")))
1652              #t))
1653          (add-after 'patch-scripts 'patch-paths
1654            (lambda* (#:key inputs #:allow-other-keys)
1655              (substitute* "qucs/main.cpp"
1656                (((string-append "QucsSettings\\.Qucsator = QucsSettings\\.BinDir "
1657                                 "\\+ \"qucsator\" \\+ executableSuffix"))
1658                 (string-append "}{ QucsSettings.Qucsator = \""
1659                                (assoc-ref inputs "qucs") "/bin/qucsator\""))
1660                (((string-append "else QucsSettings\\.XyceExecutable = "
1661                                 "\"/usr/local/Xyce-Release-6.2.0-OPENSOURCE/bin/runxyce"))
1662                 (string-append "QucsSettings.XyceExecutable = \""
1663                                (assoc-ref inputs "xyce-serial") "/bin/Xyce"))
1664                (((string-append "else QucsSettings\\.XyceParExecutable = \"/usr/local"
1665                                 "/Xyce-Release-6.2.0-OPENMPI-OPENSOURCE/bin/xmpirun"))
1666                 (string-append "QucsSettings.XyceParExecutable = \""
1667                                (assoc-ref inputs "mpi") "/bin/mpirun"))
1668                (("%p")
1669                 (string-append "%p "(assoc-ref inputs "xyce-parallel") "/bin/Xyce"))
1670                (("else QucsSettings\\.NgspiceExecutable = \"ngspice\"")
1671                 (string-append "QucsSettings.NgspiceExecutable = " "\""
1672                                (assoc-ref inputs "ngspice") "/bin/ngspice\"")))
1673              (substitute* "qucs/qucs_actions.cpp"
1674                (("qucstrans")
1675                 (string-append (assoc-ref inputs "qucs") "/bin/qucstrans"))
1676                (("qucsattenuator")
1677                 (string-append (assoc-ref inputs "qucs") "/bin/qucsattenuator"))
1678                (("qucsrescodes")
1679                 (string-append (assoc-ref inputs "qucs") "/bin/qucsrescodes")))
1680              #t))
1681          (add-after 'install 'install-scripts
1682            (lambda* (#:key inputs outputs #:allow-other-keys)
1683              (for-each
1684               (lambda (script)
1685                 (let ((file (string-append "../qucs-" ,version
1686                                            "/qucs/" script))
1687                       (out (assoc-ref outputs "out")))
1688                   (install-file file (string-append out "/bin"))
1689                   (chmod (string-append out "/bin/" script) #o555)))
1690               '("qucsdigi" "qucsdigilib" "qucsveri"))
1691              #t))
1692          (add-after 'install-scripts 'make-wrapper
1693            (lambda* (#:key inputs outputs #:allow-other-keys)
1694              (let* ((out (assoc-ref outputs "out"))
1695                     (file (string-append out "/bin/qucs-s"))
1696                     (qucs (assoc-ref inputs "qucs"))
1697                     (qucsator (string-append qucs "/bin/qucsator")))
1698                (wrap-program file
1699                  `("CPLUS_INCLUDE_PATH" ":" prefix
1700                    (,(string-append (assoc-ref inputs "gcc-toolchain")
1701                                     "/include")))
1702                  `("PATH" ":" prefix
1703                    (,(string-append (assoc-ref inputs "gcc-toolchain")
1704                                     "/bin")))
1705                  `("LIBRARY_PATH" ":" prefix
1706                    (,(string-append (assoc-ref inputs "gcc-toolchain")
1707                                     "/lib")))
1708                  `("QUCSATOR" ":" prefix (,qucsator))
1709                  `("QUCSCONV" ":" prefix (,(string-append qucsator "/bin/qucsconv")))
1710                  `("ADMSXMLBINDIR" ":" prefix (,(string-append (assoc-ref inputs "adms")
1711                                                                "/bin")))
1712                  `("ASCOBINDIR" ":" prefix (,(string-append (assoc-ref inputs "asco")
1713                                                             "/bin")))
1714                  `("QUCS_OCTAVE" ":" prefix (,(string-append (assoc-ref inputs "octave")
1715                                                              "/bin/octave"))))
1716                (symlink qucsator (string-append out "/bin/qucsator"))
1717                #t))))))
1718     (native-inputs
1719      `(("libtool-native" ,libtool)))
1720     (inputs
1721      `(("adms" ,adms)
1722        ("asco" ,asco)
1723        ("coreutils" ,coreutils)
1724        ("freehdl" ,freehdl)
1725        ("gcc-toolchain" ,gcc-toolchain)
1726        ("iverilog" ,iverilog)
1727        ("libtool" ,libtool)
1728        ("mpi" ,openmpi)
1729        ("ngspice" ,ngspice)
1730        ("octave" ,octave)
1731        ("qt4" ,qt-4)
1732        ("qucs" ,qucs)
1733        ("sed" ,sed)
1734        ("xyce-serial" ,xyce-serial)
1735        ("xyce-parallel" ,xyce-parallel)))
1736     (home-page "https://ra3xdh.github.io/")
1737     (synopsis "Circuit simulator with graphical user interface")
1738     (description
1739      "Qucs-S is a spin-off of the Qucs cross-platform circuit simulator.
1740 The S letter indicates SPICE.  The purpose of the Qucs-S subproject is to use
1741 free SPICE circuit simulation kernels with the Qucs GUI.  It provides the
1742 simulator backends @code{Qucsator}, @code{ngspice} and @code{Xyce}.")
1743     (license license:gpl2+)))