From 0e7731ba801a581a00fdf6113c87c46236c673c5 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 30 Aug 2020 14:03:58 +0200 Subject: gnu: guile-studio: Update to 0.0.3-1.5c05b03. * gnu/packages/guile-xyz.scm (guile-studio): Update to 0.0.3-1.5c05b03. [inputs]: Add emacs-flycheck-guile. --- gnu/packages/guile-xyz.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'gnu/packages/guile-xyz.scm') diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index b8c104993f..9788770bd5 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -2437,11 +2437,11 @@ The picture values can directly be displayed in Geiser.") guile-picture-language)) (define-public guile-studio - (let ((commit "d24d59a68e3f1fa9477e3430fc48a2efe97b805d") + (let ((commit "5c05b03e8a5c450f7358ceec7ea602f29c49d54e") (revision "1")) (package (name "guile-studio") - (version (git-version "0.0.2" revision commit)) + (version (git-version "0.0.3" revision commit)) (source (origin (method git-fetch) (uri (git-reference @@ -2450,7 +2450,7 @@ The picture values can directly be displayed in Geiser.") (file-name (git-file-name name version)) (sha256 (base32 - "0kqi0q8a7si65n21b7gn8vbninwcg0fqy5hmvy3l1bi6iync20zr")))) + "11wyf6x7mhyhimv0cd57pl39zgav9hc9ljqi3g2g35b264hylpnx")))) (build-system gnu-build-system) (arguments `(#:modules @@ -2487,6 +2487,7 @@ The picture values can directly be displayed in Geiser.") ("emacs-geiser" ,emacs-geiser) ("emacs-company" ,emacs-company) ("emacs-flycheck" ,emacs-flycheck) + ("emacs-flycheck-guile" ,emacs-flycheck-guile) ("emacs-smart-mode-line" ,emacs-smart-mode-line) ("emacs-paren-face" ,emacs-paren-face) ("adwaita-icon-theme" ,adwaita-icon-theme))) -- cgit v1.2.3 From e060709354736c71ef6c5b0ad4da9934ded91622 Mon Sep 17 00:00:00 2001 From: Martin Becze Date: Sun, 30 Aug 2020 05:44:25 -0500 Subject: gnu: Add guile-srfi-158. * gnu/packages/guile-xyz.scm (guile-srfi-158): New variable. Signed-off-by: Mathieu Othacehe --- gnu/packages/guile-xyz.scm | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) (limited to 'gnu/packages/guile-xyz.scm') diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 9788770bd5..fd16304f3f 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -2828,6 +2828,36 @@ parameters, which define* and lambda* special forms") denote the invalidity of certain code paths in a Scheme program.") (license license:gpl3+))) +(define-public guile-srfi-158 + (package + (name "guile-srfi-158") + (version "0.0.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.com/mjbecze/guile-srfi-158.git") + (commit version))) + (sha256 + (base32 + "0b8hlv1bldbcwkcxi9y8mm6xp5gbgpg7b15bwqxv70iynl9d9a7c")) + (file-name (git-file-name name version)))) + (build-system gnu-build-system) + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("pkg-config" ,pkg-config))) + (inputs + `(("guile" ,guile-3.0))) + (home-page "https://gitlab.com/samplet/guile-srfi-158") + (synopsis "SRFI 158 (Generators and Accumulators) for Guile") + (description "This package provides an implementation of SRFI 158 +for Guile. SRFI 158 defines utility procedures that create, +transform, and consume generators. It also defines procedures that +return accumulators. It is implemented by wrapping the sample +implementation in a thin Guile compatibility layer.") + (license license:gpl3+))) + (define-public guile-srfi-159 (let ((commit "1bd98abda2ae4ef8f36761a167903e55c6bda7bb") (revision "0")) -- cgit v1.2.3 From 08a8872f7ffc3bf304e16423d23aef01c77eabcd Mon Sep 17 00:00:00 2001 From: Martin Becze Date: Sun, 30 Aug 2020 13:06:14 -0500 Subject: gnu: Add guile-srfi-180. * gnu/packages/guile-xyz.scm (guile-srfi-180): New variable. Signed-off-by: Mathieu Othacehe --- gnu/packages/guile-xyz.scm | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) (limited to 'gnu/packages/guile-xyz.scm') diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index fd16304f3f..fa6855f43d 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -2888,6 +2888,45 @@ formatting combinators specified by more expressive and flexible than the traditional @code{format} procedure.") (license license:bsd-3)))) +(define-public guile-srfi-180 + (let ((commit "9188bf9724c6d320ef804579d222e855b007b193") + (revision "0")) + (package + (name "guile-srfi-180") + (version (git-version "0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/scheme-requests-for-implementation/srfi-180.git") + (commit commit))) + (sha256 + (base32 + "08lf70rsak8mwfij55xc37pg9zg7c87fizmhz7ln46skzj68sl3y")) + (modules '((guix build utils))) + (snippet + '(begin + (delete-file-recursively "srfi/files") + (delete-file "srfi/run-r7rs-checks.guile.scm") + (delete-file "srfi/run-r7rs-checks.scm") + (delete-file "srfi/check.scm") + #t)) + (file-name (git-file-name name version)))) + (build-system guile-build-system) + (arguments + '(#:not-compiled-file-regexp "body\\.scm$")) + (native-inputs + `(("guile" ,guile-3.0))) + (propagated-inputs + `(("guile-srfi-145" ,guile-srfi-145))) + (home-page "https://srfi.schemers.org/srfi-180/") + (synopsis "JSON parser and printer for Guile") + (description + "This library implements a JavaScript Object Notation (JSON) parser and printer. +It also supports parsing JSON objects that may be bigger than memory with a streaming +API.") + (license license:expat)))) + (define-public emacsy (package (name "emacsy") -- cgit v1.2.3 From 15c3fe24c58ac86892a5bf66ce9e7ce733f27fcc Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 6 Sep 2020 12:24:35 +0100 Subject: gnu: Add guile-prometheus. * gnu/packages/guile-xyz.scm (guile-prometheus): New variable. --- gnu/packages/guile-xyz.scm | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) (limited to 'gnu/packages/guile-xyz.scm') diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index fa6855f43d..653e12b8ff 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -853,6 +853,36 @@ Vicare Scheme and IronScheme. Right now it contains: @end itemize\n") (license license:bsd-3))) +(define-public guile-prometheus + (let ((commit "cbc6e1b03512443a03d66414c426adb8470b5f2b") + (revision "0")) + (package + (name "guile-prometheus") + (version (git-version "0" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://git.cbaines.net/git/guile/prometheus") + (commit commit))) + (sha256 + (base32 + "1k1qg4ia87w2ipnf8cpikdc67lxi5bmahkhgk2x0i9ibdyvqb7np")) + (file-name (string-append name "-" version "-checkout")))) + (build-system gnu-build-system) + (native-inputs + `(("pkg-config" ,pkg-config) + ("autoconf" ,autoconf) + ("automake" ,automake))) + (inputs + `(("guile" ,guile-3.0))) + (home-page "https://git.cbaines.net/guile/prometheus") + (synopsis "Prometheus client library for Guile") + (description + "This Guile library provides instrumentation code intended to be used +with the Prometheus time series service. Counter, gauge and histogram metric +types are supported.") + (license license:gpl3+)))) + (define-public guile2.2-pfds (package (inherit guile-pfds) -- cgit v1.2.3 From bdcb287edde0fd8ad5b4b586e0a3800287b507e3 Mon Sep 17 00:00:00 2001 From: Mike Rosset Date: Fri, 4 Sep 2020 07:40:51 -0700 Subject: gnu: emacsy-minimal: Update to v0.4.1-31-g415d96f. Emacsy now includes trivial fixes for 'end-of-line to be on par with Emacs 'end-of-line. * gnu/packages/guile-xyz.scm (emacsy-minimal): Update to v0.4.1-31-g415d96f. Signed-off-by: Mathieu Othacehe --- gnu/packages/guile-xyz.scm | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'gnu/packages/guile-xyz.scm') diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 653e12b8ff..11f4761f96 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -3039,20 +3039,20 @@ in C using Gtk+-3 and WebKitGtk.") (license license:gpl3+))) (define-public emacsy-minimal - (let ((commit "v0.4.1-28-gd459ca1")) + (let ((commit "v0.4.1-31-g415d96f")) (package (inherit emacsy) (name "emacsy-minimal") (version (string-drop commit 1)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://git.savannah.gnu.org/git/emacsy.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1ps15w8cxj9kc18gmvys9jv9xa1qqa7m43ismv34l3cmhddrn0sr")))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://git.savannah.gnu.org/git/emacsy.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1cs1i1hxwrv0a512j54yrvfh743nci1chx6qjgp4jyzq98ncvxgg")))) (build-system gnu-build-system) (inputs `(("guile" ,guile-2.2) @@ -3063,10 +3063,10 @@ in C using Gtk+-3 and WebKitGtk.") `(#:configure-flags '("--without-examples") #:phases (modify-phases %standard-phases - (add-before 'configure 'setenv - (lambda _ - (setenv "GUILE_AUTO_COMPILE" "0") - #t)))))))) + (add-before 'configure 'setenv + (lambda _ + (setenv "GUILE_AUTO_COMPILE" "0") + #t)))))))) (define-public guile-jpeg (let ((commit "6a1673578b297c2c1b28e44a76bd5c49e76a5046") -- cgit v1.2.3 From 30d59b310df22b87bad64b1c9a0c5ff39b92e3b3 Mon Sep 17 00:00:00 2001 From: Mike Rosset Date: Fri, 4 Sep 2020 07:40:52 -0700 Subject: gnu: g-golf: Update to 0.1.0-822.84e894e. * gnu/packages/guile-xyz.scm (g-golf): Update to 0.1.0-822.84e894e. This also fixes the version to the correct one which is 0.1.0. Technically g-golf does not actually have a release yet. The author of g-golf confirmed versions will start at 0.1.0 as autotools currently has that version. Signed-off-by: Mathieu Othacehe --- gnu/packages/guile-xyz.scm | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) (limited to 'gnu/packages/guile-xyz.scm') diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 11f4761f96..de2aed1096 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -1759,19 +1759,20 @@ capabilities.") (license license:gpl3+))) (define-public g-golf - (let ((commit "5d2903afb4b6b65c22f587835d8fdff91916e5ee")) + (let ((commit "84e894eb7945c3bcdf7f8d5135c1be3efa524c92") + (revision "822")) (package (name "g-golf") - (version (git-version "1" "804" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://git.savannah.gnu.org/git/g-golf.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1xkb6a5d3i9s8lpb5cf06bd64p5srqnnhn5l0b2f5csbvyz8hmmh")))) + (version (git-version "0.1.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://git.savannah.gnu.org/git/g-golf.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1pkcij65zy2lkip5yrfzj85nq17pp9mrf0d4sk6hpjqr4kd0bxd5")))) (build-system gnu-build-system) (native-inputs `(("autoconf" ,autoconf) -- cgit v1.2.3 From 45231d17580bd1f6bc9c5d7b84e79c7f4cdc7b93 Mon Sep 17 00:00:00 2001 From: Martin Becze Date: Fri, 4 Sep 2020 15:25:14 -0500 Subject: gnu: guile-pfds: When using Guile 3, compile as a r6rs library. This allow the package to be resused by r6rs compliant scheme implementations that expect *.sls files. * gnu/packages/guile-xyz.scm (guile2.2-pfds): Rename *.sls files to *.scm since Guile 2 does not support the sls extension. (guile-pfds): Removed the renaming of files to *.sls to *.scm. Signed-off-by: Mathieu Othacehe --- gnu/packages/guile-xyz.scm | 26 ++++++++++++++------------ 1 file changed, 14 insertions(+), 12 deletions(-) (limited to 'gnu/packages/guile-xyz.scm') diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index de2aed1096..f88ebf2abf 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -798,6 +798,7 @@ using Guile's foreign function interface.") (build-system guile-build-system) (arguments '(#:source-directory "src" + #:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch") #:phases (modify-phases %standard-phases (add-after 'unpack 'move-files-around (lambda _ @@ -806,8 +807,7 @@ using Guile's foreign function interface.") (mkdir-p "src/pfds") (for-each (lambda (file) (rename-file file - (string-append "src/pfds/" - file))) + (string-append "src/pfds/" file))) '("bbtrees.sls" "deques" "deques.sls" @@ -821,15 +821,6 @@ using Guile's foreign function interface.") "queues.sls" "sequences.sls" "sets.sls")) - - ;; In Guile <= 2.2.4, there's no way to tell 'guild - ;; compile' to accept the ".sls" extension. So... - (for-each (lambda (file) - (rename-file file - (string-append - (string-drop-right file 4) - ".scm"))) - (find-files "." "\\.sls$")) #t))))) (native-inputs `(("guile" ,guile-3.0))) @@ -892,7 +883,18 @@ types are supported.") (substitute-keyword-arguments (package-arguments guile-pfds) ((#:phases phases) `(modify-phases ,phases - (delete 'work-around-guile-bug))))))) + (delete 'work-around-guile-bug) + (add-after 'move-files-around 'sls->scm + (lambda _ + ;; In Guile <= 2.2.4, there's no way to tell 'guild + ;; compile' to accept the ".sls" extension. So... + (for-each (lambda (file) + (rename-file file + (string-append + (string-drop-right file 4) + ".scm"))) + (find-files "." "\\.sls$")) + #t)))))))) (define-public guile3.0-pfds (deprecated-package "guile3.0-pfds" guile-pfds)) -- cgit v1.2.3 From 0e5a68a271ab4b6cfa566ff8ba8964aa3b653407 Mon Sep 17 00:00:00 2001 From: Mike Rosset Date: Mon, 7 Sep 2020 00:53:37 -0700 Subject: gnu: nomad: Update to 0.2.0-alpha-100-g6a565d3. * gnu/packages/guile-xyz.scm (nomad): Update to 0.2.0-alpha-100-g6a565d3. [source]: Use permanent redirect for source url. [native-inputs]: Add gnu-gettext. [inputs]: Add gstreamer, gst-plugins-base, gst-plugins-good, gst-plugins-bad, gst-plugins-ugly. [propagated-inputs]: Move to inputs gstreamer, gst-plugins-base, gst-plugins-good, gst-plugins-bad, gst-plugins-ugly. Removed gsettings-desktop-scheme. [arguments]: Set GST_PLUGINS_PATH, NOMAD_WEB_EXTENSION_DIR and GI_TYPELIB_PATH variables in 'wrap-binaries phase. [native-search-paths]: Remove it. Signed-off-by: Mathieu Othacehe --- gnu/packages/guile-xyz.scm | 104 ++++++++++++++++++++------------------------- 1 file changed, 47 insertions(+), 57 deletions(-) (limited to 'gnu/packages/guile-xyz.scm') diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index f88ebf2abf..80f792672c 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -3108,16 +3108,16 @@ perform geometrical transforms on JPEG images.") (define-public nomad (package (name "nomad") - (version "0.2.0-alpha") + (version "0.2.0-alpha-100-g6a565d3") (source (origin (method git-fetch) (uri (git-reference - (url "https://git.savannah.gnu.org/git/nomad.git") + (url "https://git.savannah.gnu.org/git/nomad.git/") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 - "1z2z5x37v1qrk2vb8qlz2yj030iirzzd0maa9fjxzlqkrg6krbaj")))) + "0anmprm63a88kii251rl296v1g4iq62r6n4nssx5jbc0hzkknanz")))) (build-system gnu-build-system) (native-inputs `(("autoconf" ,autoconf) @@ -3128,36 +3128,35 @@ perform geometrical transforms on JPEG images.") ("guile" ,guile-2.2) ("glib:bin" ,glib "bin") ("texinfo" ,texinfo) + ("gettext" ,gnu-gettext) ("perl" ,perl))) (inputs - `(("guile" ,guile-2.2) + `(;; Guile + ("guile" ,guile-2.2) ("guile-lib" ,guile2.2-lib) ("guile-readline" ,guile2.2-readline) ("guile-gcrypt" ,guile2.2-gcrypt) ("gnutls" ,gnutls) + ("g-golf" ,g-golf) ("shroud" ,shroud) ("emacsy" ,emacsy-minimal) + ;; Gtk ("glib" ,glib) ("dbus-glib" ,dbus-glib) + ("glib-networking" ,glib-networking) ("gtk+" ,gtk+) ("gtk+:bin" ,gtk+ "bin") - ("gtksourceview" ,gtksourceview) ("webkitgtk" ,webkitgtk) - ("g-golf" ,g-golf) - ("xorg-server" ,xorg-server))) - (propagated-inputs - `(("glib" ,glib) - ("glib-networking" ,glib-networking) + ("gtksourceview" ,gtksourceview) + ("vte" ,vte) + ;; Gstreamer ("gstreamer" ,gstreamer) ("gst-plugins-base" ,gst-plugins-base) ("gst-plugins-good" ,gst-plugins-good) ("gst-plugins-bad" ,gst-plugins-bad) ("gst-plugins-ugly" ,gst-plugins-ugly) - ("gtk+" ,gtk+) - ("gtksourceview" ,gtksourceview) - ("vte" ,vte) - ("webkitgtk" ,webkitgtk) - ("gsettings-desktop-schemas" ,gsettings-desktop-schemas))) + ;; Util + ("xorg-server" ,xorg-server))) (arguments `(#:modules ((guix build gnu-build-system) (guix build utils) @@ -3175,49 +3174,40 @@ perform geometrical transforms on JPEG images.") #t)) (add-after 'install 'wrap-binaries (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (gio-deps (map (cut assoc-ref inputs <>) - '("glib-networking" - "glib" - "gstreamer" - "gst-plugins-base" - "gst-plugins-good" - "gst-plugins-bad" - "gst-plugins-ugly"))) - (gio-mod-path (map (cut string-append <> - "/lib/gio/modules") - gio-deps)) - (effective (read-line (open-pipe* - OPEN_READ - "guile" "-c" - "(display (effective-version))"))) - (deps (map (cut assoc-ref inputs <>) - '("emacsy" "guile-lib" "guile-readline" - "g-golf" "shroud"))) - (scm-path (map (cut string-append <> - "/share/guile/site/" effective) - `(,out ,@deps))) - (go-path (map (cut string-append <> - "/lib/guile/" effective "/site-ccache") - `(,out ,@deps))) - (progs (map (cut string-append out "/bin/" <>) - '("nomad")))) - (map (cut wrap-program <> - `("GIO_EXTRA_MODULES" ":" prefix ,gio-mod-path) - `("GUILE_LOAD_PATH" ":" prefix ,scm-path) - `("GUILE_LOAD_COMPILED_PATH" ":" - prefix ,go-path)) - progs) + (let* ((out (assoc-ref outputs "out")) + (effective (read-line (open-pipe* + OPEN_READ + "guile" "-c" + "(display (effective-version))"))) + (gst-plugins (map (lambda (i) + (string-append (assoc-ref inputs i) + "/lib/gstreamer-1.0")) + `("gstreamer" + "gst-plugins-base" + "gst-plugins-good" + "gst-plugins-bad" + "gst-plugins-ugly"))) + (out-append (lambda (. args) + (apply string-append out args))) + (gi-path (out-append "/lib/girepository-1.0")) + (load-path (out-append "/share/guile/site/" effective)) + (comp-path (out-append "/lib/guile/" + effective "/site-ccache")) + (ext-path (out-append "/libexec/nomad"))) + (wrap-program (string-append out "/bin/nomad") + `("GUILE_LOAD_PATH" ":" prefix + (,load-path + ,(getenv "GUILE_LOAD_PATH"))) + `("GUILE_LOAD_COMPILED_PATH" ":" prefix + (,comp-path + ,(getenv "GUILE_LOAD_COMPILED_PATH"))) + `("GI_TYPELIB_PATH" ":" prefix + (,gi-path ,(getenv "GI_TYPELIB_PATH"))) + `("GIO_EXTRA_MODULES" ":" prefix + (,(getenv "GIO_EXTRA_MODULES"))) + `("GST_PLUGIN_SYSTEM_PATH" ":" prefix ,gst-plugins) + `("NOMAD_WEB_EXTENSION_DIR" ":" prefix (,ext-path))) #t)))))) - (native-search-paths - (list (search-path-specification - (variable "GI_TYPELIB_PATH") - (separator ":") - (files '("lib/girepository-1.0"))) - (search-path-specification - (variable "NOMAD_WEB_EXTENSION_DIR") - (separator ":") - (files '("libexec/nomad"))))) (home-page "https://savannah.nongnu.org/projects/nomad/") (synopsis "Extensible Web Browser in Guile Scheme") (description "Nomad is a Emacs-like web browser that consists of a modular -- cgit v1.2.3 From a684e6e269757f3ae5092bd2d9c4d5b6664e89c3 Mon Sep 17 00:00:00 2001 From: Martin Becze Date: Tue, 8 Sep 2020 10:59:43 -0500 Subject: gnu: Add guile-struct-pack. * gnu/packages/guile-xyz.scm (guile-struct-pack): New variable. Signed-off-by: Mathieu Othacehe --- gnu/packages/guile-xyz.scm | 44 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) (limited to 'gnu/packages/guile-xyz.scm') diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 80f792672c..4bfc86a073 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -3867,3 +3867,47 @@ between data, in a way that is very similar to WikiData or RDF for instance. An object can have relations (in the form of an IRI) that relates it to one or more objects or strings, represented by a Json object or an IRI.") (license license:gpl3+))) + +(define-public guile-struct-pack + (package + (name "guile-struct-pack") + (version "1.1.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/weinholt/struct-pack") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0hd72m821pahjphzyjn26i55542v8makr55xzjll2cycja4wsbc1")))) + (build-system guile-build-system) + (arguments + `(#:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch") + #:modules ((guix build guile-build-system) + (guix build utils) + (srfi srfi-26) + (ice-9 ftw)) + #:phases (modify-phases %standard-phases + (add-before 'build 'move-sls-files + (lambda _ + ;; Move files under a struct/ directory to reflect the + ;; module hierarchy. + (define dst-folder "struct") + (define (target file) + (string-append dst-folder "/" file)) + (define files + (scandir "." (negate (cut member <> '("." ".."))))) + (mkdir dst-folder) + (for-each (lambda (file) + (rename-file file (target file))) + files) + #t))))) + (native-inputs + `(("guile" ,guile-3.0))) + (home-page "https://github.com/weinholt/struct-pack") + (synopsis "R6RS library for working with packed byte structures") + (description + "This is an R6RS library for working with packed byte structures. It is +similar to struct in Python or pack and unpack in Perl.") + (license license:expat))) -- cgit v1.2.3 From 199da208eddc19a93e50e193f286875010aa77cf Mon Sep 17 00:00:00 2001 From: Martin Becze Date: Tue, 8 Sep 2020 10:59:44 -0500 Subject: gnu: Add guile-machine-code. * gnu/packages/guile-xyz.scm (guile-machine-code): New variable. Signed-off-by: Mathieu Othacehe --- gnu/packages/guile-xyz.scm | 48 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) (limited to 'gnu/packages/guile-xyz.scm') diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 4bfc86a073..fc164d7127 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -3911,3 +3911,51 @@ more objects or strings, represented by a Json object or an IRI.") "This is an R6RS library for working with packed byte structures. It is similar to struct in Python or pack and unpack in Perl.") (license license:expat))) + +(define-public guile-machine-code + (package + (name "guile-machine-code") + (version "2.1.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/weinholt/machine-code") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0wzj3caj2jypzyjqfkfqkvr3kkbjabsnhldv9kvnx9w9qnria5yd")))) + (build-system guile-build-system) + (arguments + `(#:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch") + #:modules ((guix build guile-build-system) + (guix build utils) + (srfi srfi-26) + (ice-9 ftw)) + #:phases (modify-phases %standard-phases + (add-before 'build 'move-sls-files + (lambda _ + ;; Move files under a struct/ directory to reflect the + ;; module hierarchy. + (define dst-folder "machine-code") + (define (target file) + (string-append dst-folder "/" file)) + (define files + (scandir "." (negate (cut member <> '("." ".."))))) + (mkdir dst-folder) + (for-each (lambda (file) + (rename-file file (target file))) + files) + #t))))) + (native-inputs + `(("guile" ,guile-3.0))) + (propagated-inputs + `(("guile-struct-pack" ,guile-struct-pack))) + (home-page "https://github.com/weinholt/machine-code") + (synopsis "Tools that relate to machine code and object formats") + (description + "This project is about the development of tools that relate to machine +code and object formats; for all architectures. Here you'll find libraries +for working with binary code: assembly, disassembly, instruction tables, +object formats and related areas.") + (license license:expat))) -- cgit v1.2.3 From 3826288f68582deeb33cbe736a5e8a5e9c83c87e Mon Sep 17 00:00:00 2001 From: Martin Becze Date: Tue, 8 Sep 2020 10:59:45 -0500 Subject: gnu: Add guile-laesare. * gnu/packages/guile-xyz.scm (guile-laesare): New variable. Signed-off-by: Mathieu Othacehe --- gnu/packages/guile-xyz.scm | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) (limited to 'gnu/packages/guile-xyz.scm') diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index fc164d7127..3090c6078b 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -3959,3 +3959,49 @@ code and object formats; for all architectures. Here you'll find libraries for working with binary code: assembly, disassembly, instruction tables, object formats and related areas.") (license license:expat))) + +(define-public guile-laesare + (package + (name "guile-laesare") + (version "1.0.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/weinholt/laesare") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "15q619gzw717r8r1ql23zfdaibpnp9qqs96032vdc3rj74msxc92")))) + (build-system guile-build-system) + (arguments + `(#:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch") + #:modules ((guix build guile-build-system) + (guix build utils) + (srfi srfi-26) + (ice-9 ftw)) + #:phases (modify-phases %standard-phases + (add-before 'build 'move-sls-files + (lambda _ + ;; Move files under a laesare directory to reflect + ;; the module hierarchy. + (define dst-folder "laesare") + (define (target file) + (string-append dst-folder "/" file)) + (define files + (scandir "." (negate (cut member <> '("." ".."))))) + (mkdir dst-folder) + (for-each (lambda (file) + (rename-file file (target file))) + files) + #t))))) + (native-inputs + `(("guile" ,guile-3.0))) + (home-page "https://github.com/weinholt/laesare") + (synopsis "R6RS Scheme library that provides a reader") + (description + "This is an R6RS Scheme library that provides a reader with some extra +features not found in the standard read procedure such as a compatible mode +with support for other RnRS standards and a tolerant mode that continues on +errors.") + (license license:expat))) -- cgit v1.2.3