From 53628d6e3b514ed0c5d651eea303e17932a1adfd Mon Sep 17 00:00:00 2001 From: "Jan (janneke) Nieuwenhuizen" Date: Thu, 5 May 2022 18:19:18 +0200 Subject: gnu: Add dezyne. * gnu/packages/dezyne.scm: New file. * gnu/local.mk (GNU_SYSTEM_MODULES): Add it. --- gnu/local.mk | 3 +- gnu/packages/dezyne.scm | 113 ++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 115 insertions(+), 1 deletion(-) create mode 100644 gnu/packages/dezyne.scm diff --git a/gnu/local.mk b/gnu/local.mk index f05f3638f9..c100b97cc1 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -11,7 +11,7 @@ # Copyright © 2016 Ben Woodcroft # Copyright © 2016, 2017, 2018, 2019 Alex Vong # Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Efraim Flashner -# Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Jan (janneke) Nieuwenhuizen +# Copyright © 2016, 2017, 2018, 2019, 2020, 2021, 2022 Jan (janneke) Nieuwenhuizen # Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice # Copyright © 2017, 2018 Clément Lassieur # Copyright © 2017, 2020 Mathieu Othacehe @@ -191,6 +191,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/debian.scm \ %D%/packages/debug.scm \ %D%/packages/dejagnu.scm \ + %D%/packages/dezyne.scm \ %D%/packages/dhall.scm \ %D%/packages/dico.scm \ %D%/packages/dictionaries.scm \ diff --git a/gnu/packages/dezyne.scm b/gnu/packages/dezyne.scm new file mode 100644 index 0000000000..494597e85c --- /dev/null +++ b/gnu/packages/dezyne.scm @@ -0,0 +1,113 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2022 Jan (janneke) Nieuwenhuizen +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see . + +(define-module (gnu packages dezyne) + #:use-module (guix build-system gnu) + #:use-module (guix download) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix packages) + #:use-module (gnu packages base) + #:use-module (gnu packages bash) + #:use-module (gnu packages guile) + #:use-module (gnu packages maths) + #:use-module (gnu packages pkg-config)) + +(define-public dezyne + (package + (name "dezyne") + (version "2.15.0") + (source + (origin + (method url-fetch) + (uri (string-append "https://dezyne.org/download/dezyne/" + name "-" version ".tar.gz")) + (sha256 + (base32 "1sh9chg5q10c3bzsmgl1pb7pmdf04j2lqszhw8jk5qlxr9y8ybcq")))) + (inputs `(("bash" ,bash-minimal) + ("guile" ,guile-3.0-latest) + ("guile-json" ,guile-json-4) + ("guile-readline" ,guile-readline) + ("mcrl2" ,mcrl2-minimal) + ("sed" ,sed))) + (native-inputs (list guile-3.0-latest pkg-config)) + (build-system gnu-build-system) + (arguments + `(#:modules ((ice-9 popen) + ,@%gnu-build-system-modules) + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'disable-tests + (lambda _ + ;; The mCRL2 output for these tests is unstable, i.e., varies + ;; between different builds. + (substitute* "Makefile.in" + (("test/all/compliance_blocking_double_release ") " ") + (("test/all/illegal_external_nonsynchronous ") " ") + (("test/all/livelock_synchronous_illegal ") " ") + (("test/all/queuefull_external_sync ") " ")))) + (add-before 'configure 'setenv + (lambda _ + (setenv "GUILE_AUTO_COMPILE" "0"))) + (add-after 'install 'install-readmes + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (base (string-append ,name "-" ,version)) + (doc (string-append out "/share/doc/" base))) + (mkdir-p doc) + (copy-file "NEWS" (string-append doc "/NEWS"))))) + (add-after 'install 'wrap-binaries + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bash (assoc-ref %build-inputs "bash")) + (guile (assoc-ref %build-inputs "guile")) + (json (assoc-ref %build-inputs "guile-json")) + (mcrl2 (assoc-ref %build-inputs "mcrl2")) + (readline (assoc-ref %build-inputs "guile-readline")) + (sed (assoc-ref %build-inputs "sed")) + (effective (read + (open-pipe* OPEN_READ + "guile" "-c" + "(write (effective-version))"))) + (path (list (string-append bash "/bin") + (string-append guile "/bin") + (string-append mcrl2 "/bin") + (string-append sed "/bin"))) + (scm-dir (string-append "/share/guile/site/" effective)) + (scm-path + (list (string-append out scm-dir) + (string-append json scm-dir) + (string-append readline scm-dir))) + (go-dir (string-append "/lib/guile/" effective + "/site-ccache/")) + (go-path (list (string-append out go-dir) + (string-append json go-dir) + (string-append readline go-dir)))) + (wrap-program (string-append out "/bin/dzn") + `("PATH" ":" prefix ,path) + `("GUILE_AUTO_COMPILE" ":" = ("0")) + `("GUILE_LOAD_PATH" ":" prefix ,scm-path) + `("GUILE_LOAD_COMPILED_PATH" ":" prefix ,go-path)))))))) + (synopsis "Programming language with verifyable formal semantics") + (description "Dezyne is a programming language and a set of tools to +specify, validate, verify, simulate, document, and implement concurrent +control software for embedded and cyber-physical systems. The Dezyne language +has formal semantics expressed in @url{https://mcrl2.org,mCRL2}.") + (home-page "https://dezyne.org") + (license (list license:agpl3+ ;Dezyne itself + license:lgpl3+ ;Dezyne runtime library + license:cc0)))) ;Code snippets, images, test data -- cgit v1.2.3