;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012-2024 Ludovic Courtès ;;; Copyright © 2014 Cyril Roelandt ;;; Copyright © 2014, 2016, 2018 David Thompson ;;; Copyright © 2014, 2017, 2018 Mark H Weaver ;;; Copyright © 2015, 2017 Christine Lemmer-Webber ;;; Copyright © 2016, 2023 Janneke Nieuwenhuizen ;;; Copyright © 2016, 2017 Leo Famulari ;;; Copyright © 2016, 2019, 2020 Ricardo Wurmus ;;; Copyright © 2017 Andy Wingo ;;; Copyright © 2017, 2022 Marius Bakke ;;; Copyright © 2017, 2019 Mathieu Othacehe ;;; Copyright © 2017, 2022 Tobias Geerinckx-Rice ;;; Copyright © 2017, 2018 Amirouche ;;; Copyright © 2018 Danny Milosavljevic ;;; Copyright © 2018 Eric Bavier ;;; Copyright © 2019 Taylan Kammer ;;; Copyright © 2020-2023 Efraim Flashner ;;; Copyright © 2021 Maxime Devos ;;; Copyright © 2021, 2024 Timothy Sample ;;; ;;; 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 . (defin
Important: to avoid polarizing/hurtful discussions in our public spaces, any
matter pertaining to our use of this Code of Conduct should be brought
privately to the Guix maintainers at guix-maintainers@gnu.org.  Failure to do
so will be considered as a violation of this Code of Conduct.

Contributor Covenant Code of Conduct

Our Pledge
We as members, contributors, and leaders pledge to make participation in our
community a harassment-free experience for everyone, regardless of age, body
size, visible or invisible disability, ethnicity, sex characteristics, gender
identity and expression, level of experience, education, socio-economic status,
nationality, personal appearance, race, caste, color, religion, or sexual
identity and orientation.
We pledge to act and interact in ways that contribute to an open, welcoming,
diverse, inclusive, and healthy community.
Our Standards
Examples of behavior that contributes to a positive environment for our
community include:

* Demonstrating empathy and kindness toward other people
* Being respectful of differing opinions, viewpoints, and experiences
* Giving and gracefully accepting constructive feedback
* Accepting responsibility and apologizing to those affected by our mistakes,
and learning from the experience
* Focusing on what is best not just for us as individuals, but for the overall
community

Examples of unacceptable behavior include:

* The use of sexualized language or imagery, and sexual attention or advances of
any kind
* Trolling, insulting or derogatory comments, and personal or political attacks
* Public or private harassment
* Publishing others’ private information, such as a physical or email address,
without their explicit permission
* Other conduct which could reasonably be considered inappropriate in a
professional setting

Enforcement Responsibilities
Community leaders are responsible for clarifying and enforcing our standards of
acceptable behavior and will take appropriate and fair corrective action in
response to any behavior that they deem inappropriate, threatening, offensive,
or harmful.
Community leaders have the right and responsibility to remove, edit, or reject
comments, commits, code, wiki edits, issues, and other contributions that are
not aligned to this Code of Conduct, and will communicate reasons for moderation
decisions when appropriate.
Scope
This Code of Conduct applies within all community spaces, and also applies when
an individual is officially representing the community in public spaces.
Examples of representing our community include using an official e-mail address,
posting via an official social media account, or acting as an appointed
representative at an online or offline event.
Enforcement
Instances of abusive, harassing, or otherwise unacceptable behavior may be
reported to the community leaders responsible for enforcement at
guix-maintainers@gnu.org.
All complaints will be reviewed and investigated promptly and fairly.
All community leaders are obligated to respect the privacy and security of the
reporter of any incident.
Enforcement Guidelines
Community leaders will follow these Community Impact Guidelines in determining
the consequences for any action they deem in violation of this Code of Conduct:
1. Correction
Community Impact: Use of inappropriate language or other behavior deemed
unprofessional or unwelcome in the community.
Consequence: A private, written warning from community leaders, providing
clarity around the nature of the violation and an explanation of why the
behavior was inappropriate. A public apology may be requested.
2. Warning
Community Impact: A violation through a single incident or series of
actions.
Consequence: A warning with consequences for continued behavior. No
interaction with the people involved, including unsolicited interaction with
those enforcing the Code of Conduct, for a specified period of time. This
includes avoiding interactions in community spaces as well as external channels
like social media. Violating these terms may lead to a temporary or permanent
ban.
3. Temporary Ban
Community Impact: A serious violation of community standards, including
sustained inappropriate behavior.
Consequence: A temporary ban from any sort of interaction or public
communication with the community for a specified period of time. No public or
private interaction with the people involved, including unsolicited interaction
with those enforcing the Code of Conduct, is allowed during this period.
Violating these terms may lead to a permanent ban.
4. Permanent Ban
Community Impact: Demonstrating a pattern of violation of community
standards, including sustained inappropriate behavior, harassment of an
individual, or aggression toward or disparagement of classes of individuals.
Consequence: A permanent ban from any sort of public interaction within the
community.
Attribution
This Code of Conduct is adapted from the Contributor Covenant,
version 2.1, available at
https://www.contributor-covenant.org/version/2/1/code_of_conduct.html.
Community Impact Guidelines were inspired by
Mozilla’s code of conduct enforcement ladder.
For answers to common questions about this code of conduct, see the FAQ at
https://www.contributor-covenant.org/faq. Translations are available at
https://www.contributor-covenant.org/translations.
generated by cgit
e need Bash when cross-compiling because some of the scripts ;; in bin/ refer to it. Use 'bash-minimal' because we don't need ;; an interactive Bash with Readline and all. (if (target-mingw?) '() (list bash-minimal)))) (propagated-inputs (list ;; These ones aren't normally needed here, but since `libguile-2.0.la' ;; reads `-lltdl -lunistring', adding them here will add the needed ;; `-L' flags. As for why the `.la' file lacks the `-L' flags, see ;; . libunistring ;; Depend on LIBLTDL, not LIBTOOL. That way, we avoid some the extra ;; dependencies that LIBTOOL has, which is helpful during bootstrap. libltdl ;; The headers and/or `guile-2.0.pc' refer to these packages, so they ;; must be propagated. libgc gmp)) (outputs '("out" "debug")) (arguments `(#:configure-flags ,(if (target-x86-32?) ; ''("--disable-static" "CFLAGS=-g -O2 -fexcess-precision=standard") ''("--disable-static")) ;saves 3 MiB ;; Work around non-reproducible .go files as described in ;; , which affects 2.0, 2.2, and 3.0 so far. #:parallel-build? #f #:phases (modify-phases %standard-phases ,@(if (system-hurd?) '((add-after 'unpack 'disable-tests (lambda _ ;; Hangs at: "Running 00-repl-server.test" (rename-file "test-suite/tests/00-repl-server.test" "00-repl-server.test") ;; Sometimes Hangs at: "Running 00-socket.test" (rename-file "test-suite/tests/00-socket.test" "00-socket.test") ;; FAIL: srfi-18.test: thread-sleep!: thread sleeps fractions of a second (rename-file "test-suite/tests/srfi-18.test" "srfi-18.test") ;; failed to remove 't-guild-compile-7215.go.tdL7yC (substitute* "test-suite/standalone/Makefile.in" (("test-guild-compile ") ""))))) '()) ,@(if (system-hurd?) '((add-after 'unpack 'disable-threads.tests (lambda _ ;; Many tests hang, esp. (join-thread ..), also others. (rename-file "test-suite/tests/threads.test" "threads.test")))) '()) (add-before 'configure 'pre-configure (lambda* (#:key inputs #:allow-other-keys) ;; Tell (ice-9 popen) the file name of Bash. ;; TODO: On the next rebuild cycle, unconditionally use ;; 'search-input-file' instead of 'assoc-ref'. (let ((bash (assoc-ref inputs "bash"))) (substitute* "module/ice-9/popen.scm" ;; If bash is #f allow fallback for user to provide ;; "bash" in PATH. This happens when cross-building to ;; MinGW for which we do not have Bash yet. (("/bin/sh") ,(cond ((target-mingw?) "bash") ((%current-target-system) '(search-input-file inputs "/bin/bash")) (else '(string-append bash "/bin/bash"))))) #t))) (add-after 'install 'add-libxcrypt-reference-pkgconfig (lambda* (#:key inputs outputs #:allow-other-keys) (define out (assoc-ref outputs "out")) (define libxcrypt (false-if-exception (dirname (search-input-file inputs "lib/libcrypt.so.1")))) (when libxcrypt (substitute* (find-files (string-append out "/lib/pkgconfig") ".*\\.pc") (("-lcrypt") (string-append "-L" libxcrypt " -lcrypt"))))))))) (native-search-paths (list (search-path-specification (variable "GUILE_LOAD_PATH") (files '("share/guile/site/2.0"))) (search-path-specification (variable "GUILE_LOAD_COMPILED_PATH") (files '("lib/guile/2.0/site-ccache"))))) (synopsis "Scheme implementation intended especially for extensions") (description "Guile is the GNU Ubiquitous Intelligent Language for Extensions, the official extension language of the GNU system. It is an implementation of the Scheme language which can be easily embedded in other applications to provide a convenient means of extending the functionality of the application without requiring the source code to be rewritten.") (home-page "https://www.gnu.org/software/guile/") (license license:lgpl3+))) (define-public guile-2.2 (package (inherit guile-2.0) (name "guile") (version "2.2.7") (source (origin (method url-fetch) ;; Note: we are limited to one of the compression formats ;; supported by the bootstrap binaries, so no lzip here. (uri (string-append "mirror://gnu/guile/guile-" version ".tar.xz")) (sha256 (base32 "013mydzhfswqci6xmyc1ajzd59pfbdak15i0b090nhr9bzm7dxyd")) (modules '((guix build utils))) (patches (search-patches "guile-2.2-skip-oom-test.patch" "guile-2.2-skip-so-test.patch")) ;; Remove the pre-built object files. Instead, build everything ;; from source, at the expense of significantly longer build ;; times (almost 3 hours on a 4-core Intel i5). (snippet '(begin (for-each delete-file (find-files "prebuilt" "\\.go$")) #t)))) (arguments (substitute-keyword-arguments (package-arguments guile-2.0) ((#:configure-flags flags ''()) (if (target-x86-32?) ; `(append '("--disable-static") '("CFLAGS=-g -O2 -fexcess-precision=standard")) flags)) ((#:phases phases '%standard-phases) #~(modify-phases #$phases #$@(if (system-hurd?) #~((delete 'disable-threads.tests)) '()))))) (properties '((timeout . 72000) ;20 hours (max-silent-time . 36000))) ;10 hours (needed on ARM ; when heavily loaded) (native-search-paths (list (search-path-specification (variable "GUILE_LOAD_PATH") (files '("share/guile/site/2.2"))) (search-path-specification (variable "GUILE_LOAD_COMPILED_PATH") (files '("lib/guile/2.2/site-ccache"))))))) (define-public guile-2.2.4 (package (inherit guile-2.2) (version "2.2.4") (source (origin (inherit (package-source guile-2.2)) (uri (string-append "mirror://gnu/guile/guile-" version ".tar.xz")) (sha256 (base32 "07p3g0v2ba2vlfbfidqzlgbhnzdx46wh2rgc5gszq1mjyx5bks6r")))))) (define-public guile-3.0 ;; This is the latest Guile stable version. (package (inherit guile-2.2) (name "guile") (version "3.0.9") (source (origin (inherit (package-source guile-2.2)) (uri (string-append "mirror://gnu/guile/guile-" version ".tar.xz")) (sha256 (base32 "03bm1mnfc9kkg2ls942a0js7bxrdzmcffgrgg6anwdmjfan2a9hs")) (patches '()) ;; Replace the snippet because the oom-test still ;; fails on some 32-bit architectures. (snippet '(for-each delete-file (find-files "prebuilt" "\\.go$"))))) ;; Build with the bundled mini-GMP to avoid interference with GnuTLS' own ;; use of GMP via Nettle: . (propagated-inputs (modify-inputs (package-propagated-inputs guile-2.2) (delete "gmp" "libltdl"))) (arguments (substitute-keyword-arguments (package-arguments guile-2.0) ;; Guile 3.0.9 is bit-reproducible when built in parallel, thanks to ;; its multi-stage build process for cross-module inlining, except when ;; cross-compiling. ((#:parallel-build? _ #f) (not (%current-target-system))) ((#:configure-flags flags #~'()) ;; XXX: JIT-enabled Guile crashes in obscure ways on GNU/Hurd. #~(cons* #$@(if (target-hurd?) #~("--disable-jit") #~()) ;; -fexcess-precision=standard is required when compiling for ;; i686-linux, otherwise "numbers.test" will fail ;; (see and ;; ). ;; TODO: Keep this in GUILE-2.2 and remove from here on next ;; rebuild cycle. #$@(if (target-x86-32?) #~("CFLAGS=-g -O2 -fexcess-precision=standard") #~()) "--enable-mini-gmp" '("--disable-static"))) ((#:phases phases) #~(modify-phases #$phases (add-before 'check 'disable-stack-overflow-test (lambda _ ;; This test can invoke the "OOM killer", especially when ;; running on emulated hardware (QEMU). Skip it. (substitute* "test-suite/standalone/test-stack-overflow" (("!#") "!#\n(exit 77)\n")))) #$@(if (target-hurd?) #~((add-before 'build 'patch-posix-spawn-usage (lambda _ ;; TODO: Move patch to 'source' on next rebuild ;; cycle. (define patch #$(local-file (search-patch "guile-hurd-posix-spawn.patch"))) (invoke "patch" "--force" "-p1" "-i" patch)))) #~()) #$@(if (system-hurd?) #~((add-after 'unpack 'disable-popen.test-no-duplicate ;; This test hangs on the Hurd. (lambda _ (substitute* "test-suite/tests/popen.test" (("\\(pass-if \"no duplicate\".*" all) (string-append all (object->string '(when (string-ci= "GNU" (vector-ref (uname) 0)) (throw 'unresolved))))))))) #~()) #$@(if (target-ppc32?) #~((add-after 'unpack 'adjust-bootstrap-flags (lambda _ ;; Upstream knows about suggested solution. ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45214 ;; https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=977223#46 (substitute* "stage0/Makefile.in" (("^GUILE_OPTIMIZATIONS.*") "GUILE_OPTIMIZATIONS = -O1 -Oresolve-primitives -Ocps\n"))))) #~()) #$@(if (target-powerpc?) #~((add-after 'unpack 'skip-oom-test (lambda _ ;; This test hangs with guile-3.0.9 and libgc-8.2.2 and ;; fails completely on powerpc-linux. (substitute* "test-suite/standalone/test-out-of-memory" (("!#") "!#\n\n(exit 77)\n"))))) #~()) #$@(if (or (target-ppc32?) (target-riscv64?)) #~((add-after 'unpack 'skip-failing-fdes-test (lambda _ ;; ERROR: ((system-error "seek" "~A" ("Bad file descriptor") (9))) (substitute* "test-suite/tests/ports.test" (("fdes not closed\"" all) (string-append all "(exit 77)"))) #t))) #~()))))) (native-search-paths (list (search-path-specification (variable "GUILE_LOAD_PATH") (files '("share/guile/site/3.0"))) (search-path-specification (variable "GUILE_LOAD_COMPILED_PATH") (files '("lib/guile/3.0/site-ccache" "share/guile/site/3.0"))))))) (define-public guile-3.0-latest guile-3.0) ;;; The symbol guile-3.0/fixed should be used when guile-3.0 needs fixes ;;; (security or else) and this deprecation could be removed. (define-deprecated/public-alias guile-3.0/fixed guile-3.0/pinned) (define-public guile-3.0/pinned ;; A package of Guile that's rarely changed. It is the one used in the ;; `base' module, and thus changing it entails a full rebuild. (package (inherit guile-3.0) (properties '((hidden? . #t) ;people should install 'guile-2.2' (timeout . 72000) ;20 hours (max-silent-time . 36000))))) ;10 hours (needed on ARM ; when heavily loaded) (define-public guile-next (let ((version "3.0.9") (revision "0") (commit "3b76a30e3ca1f0b7ee7944836c2fc5660596b3bd")) (package (inherit guile-3.0) (name "guile-next") (version (git-version version revision commit)) (source (origin ;; The main goal here is to allow for '--with-branch'. (method git-fetch) (uri (git-reference (url "https://git.savannah.gnu.org/git/guile.git") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1cgyjz1x8zpfhsw8gsqkak1lnmi780gps6874ks0bi8dwk0lwx6f")))) (arguments (substitute-keyword-arguments (package-arguments guile-3.0) ((#:phases phases '%standard-phases) #~(modify-phases #$phases (add-before 'bootstrap 'set-version (lambda _ ;; Tell 'git-version-gen' what version this is, or it will ;; just pick "UNKNOWN", making it unusable as a replacement ;; for 'guile-3.0'. XXX: This is inaccurate when using ;; '--with-branch' but using (package-version this-package) ;; wouldn't give us a valid version string. (call-with-output-file ".tarball-version" (lambda (port) (display #$version port))))) (add-before 'check 'skip-failing-tests (lambda _ (delete-file "test-suite/tests/version.test"))) #$@(if (target-hurd?) #~((delete 'patch-posix-spawn-usage)) #~()))))) (native-inputs (modify-inputs (package-native-inputs guile-3.0) (prepend autoconf automake libtool flex gnu-gettext texinfo gperf) (replace "guile" this-package))) (synopsis "Development version of GNU Guile")))) (define* (make-guile-readline guile #:optional (name "guile-readline")) (package (name name) (version (package-version guile)) (source (package-source guile)) (build-system gnu-build-system) (arguments (list #:configure-flags #~'("--disable-silent-rules" "--enable-mini-gmp") ;for Guile >= 3.0.6 #:phases #~(modify-phases %standard-phases (add-before 'build 'chdir (lambda* (#:key outputs #:allow-other-keys) (invoke "make" "-C" "libguile" "scmconfig.h") (invoke "make" "-C" "lib") (chdir "guile-readline") (substitute* "Makefile" (("../libguile/libguile-[[:graph:]]+\\.la") ;; Remove dependency on libguile-X.Y.la. "") (("^READLINE_LIBS = (.*)$" _ libs) ;; Link against the provided libguile. (string-append "READLINE_LIBS = " "-lguile-$(GUILE_EFFECTIVE_VERSION) " libs "\n")) (("\\$\\(top_builddir\\)/meta/build-env") ;; Use the provided Guile, not the one from ;; $(builddir). "") ;; Install modules to the 'site' directories. (("^moddir = .*$") "moddir = $(pkgdatadir)/site/$(GUILE_EFFECTIVE_VERSION)\n") (("^ccachedir = .*$") "ccachedir = $(pkglibdir)/$(GUILE_EFFECTIVE_VERSION)/site-ccache\n")) ;; Load 'guile-readline.so' from the right place. (substitute* "ice-9/readline.scm" (("load-extension \"guile-readline\"") (format #f "load-extension \ (string-append ~s \"/lib/guile/\" (effective-version) \"/extensions/guile-readline\")" (assoc-ref outputs "out")))) #t))))) (home-page (package-home-page guile)) (native-inputs (package-native-inputs guile)) (propagated-inputs (package-propagated-inputs guile)) (inputs (modify-inputs (package-inputs guile) (prepend guile readline))) (synopsis "Line editing support for GNU Guile") (description "This module provides line editing support via the Readline library for GNU@tie{}Guile. Use the @code{(ice-9 readline)} module and call its @code{activate-readline} procedure to enable it.") (license license:gpl3+))) (define-public guile-readline (make-guile-readline guile-3.0)) (define-public guile2.2-readline (make-guile-readline guile-2.2 "guile2.2-readline")) (define (guile-variant-package-name prefix) (lambda (name) "Return NAME with PREFIX instead of \"guile-\", when applicable." (if (string-prefix? "guile-" name) (string-append prefix "-" (string-drop name (string-length "guile-"))) name))) (define package-for-guile-2.0 ;; A procedure that rewrites the dependency tree of the given package to use ;; GUILE-2.0 instead of GUILE-3.0. (package-input-rewriting `((,guile-3.0 . ,guile-2.0)) (guile-variant-package-name "guile2.0") #:deep? #f)) (define package-for-guile-2.2 (package-input-rewriting `((,guile-3.0 . ,guile-2.2)) (guile-variant-package-name "guile2.2") #:deep? #f)) (define-public guile-for-guile-emacs (let ((commit "15ca78482ac0dd2e3eb36dcb31765d8652d7106d") (revision "1")) (package (inherit guile-2.2) (name "guile-for-guile-emacs") (version (git-version "2.1.2" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "git://git.savannah.gnu.org/guile.git") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1l7ik4q4zk7vq4m3gnwizc0b64b1mdr31hxqlzxs94xaf2lvi7s2")))) (arguments (substitute-keyword-arguments (package-arguments guile-2.2) ((#:phases phases) #~(modify-phases #$phases (replace 'bootstrap (lambda _ ;; Disable broken tests. ;; TODO: Fix them! (substitute* "test-suite/tests/gc.test" (("\\(pass-if \"after-gc-hook gets called\"" m) (string-append "#;" m))) (substitute* "test-suite/tests/version.test" (("\\(pass-if \"version reporting works\"" m) (string-append "#;" m))) (patch-shebang "build-aux/git-version-gen") (invoke "sh" "autogen.sh"))))))) (native-inputs (modify-inputs (package-native-inputs guile-2.2) (prepend autoconf automake libtool flex texinfo gettext-minimal)))))) ;;; ;;; Extensions. ;;; (define-public guile-json-1 (package (name "guile-json") (version "1.3.2") (home-page "https://github.com/aconchillo/guile-json") (source (origin (method url-fetch) (uri (string-append "mirror://savannah/guile-json/guile-json-" version ".tar.gz")) (sha256 (base32 "0m6yzb169r6iz56k3nkncjaiijwi4p0x9ijn1p5ax3s77jklxy9k")))) (build-system gnu-build-system) (arguments `(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings (native-inputs (list pkg-config guile-2.2)) (inputs (list guile-2.2)) (synopsis "JSON module for Guile") (description "Guile-JSON supports parsing and building JSON documents according to the specification. These are the main features: @itemize @item Strictly complies to @uref{http://json.org, specification}. @item Build JSON documents programmatically via macros. @item Unicode support for strings. @item Allows JSON pretty printing. @end itemize\n") ;; Version 1.2.0 switched to GPLv3+ (from LGPLv3+). (license license:gpl3+))) (define-public guile2.0-json (package-for-guile-2.0 guile-json-1)) (define-public guile-json-3 ;; This version is incompatible with 1.x; see the 'NEWS' file. (package (inherit guile-json-1) (name "guile-json") (version "3.5.0") (source (origin (method url-fetch) (uri (string-append "mirror://savannah/guile-json/guile-json-" version ".tar.gz")) (sha256 (base32 "0nj0684qgh6ppkbdyxqfyjwsv2qbyairxpi8fzrhsi3xnc7jn4im")))) (native-inputs (list pkg-config guile-3.0)) (inputs (list guile-3.0)))) (define-public guile-json-4 (package (inherit guile-json-3) (name "guile-json") (version "4.7.3") (source (origin (method url-fetch) (uri (string-append "mirror://savannah/guile-json/guile-json-" version ".tar.gz")) (sha256 (base32 "127k2xc07w1gnyqs40z4865l8p3ra5xgpcn569dz04lxsa709fiq")))))) (define-public guile2.2-json (package-for-guile-2.2 guile-json-4)) ;; There are two guile-gdbm packages, one using the FFI and one with ;; direct C bindings, hence the verbose name. (define-public guile-gdbm-ffi (package (name "guile-gdbm-ffi") (version "20120209.fa1d5b6") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/ijp/guile-gdbm") (commit "fa1d5b6231d0e4d096687b378c025f2148c5f246"))) (file-name (string-append name "-" version "-checkout")) (patches (search-patches "guile-gdbm-ffi-support-gdbm-1.14.patch")) (sha256 (base32 "1j8wrsw7v9w6qkl47xz0rdikg50v16nn6kbs3lgzcymjzpa7babj")))) (build-system guile-build-system) (arguments '(#:phases (modify-phases %standard-phases (add-after 'unpack 'move-examples (lambda* (#:key outputs #:allow-other-keys) ;; Move examples where they belong. (let* ((out (assoc-ref outputs "out")) (doc (string-append out "/share/doc/" (strip-store-file-name out) "/examples"))) (copy-recursively "examples" doc) (delete-file-recursively "examples") #t))) (add-after 'unpack 'set-libgdbm-file-name (lambda* (#:key inputs #:allow-other-keys) (substitute* "gdbm.scm" (("\\(dynamic-link \"libgdbm\"\\)") (format #f "(dynamic-link \"~a/lib/libgdbm.so\")" (assoc-ref inputs "gdbm")))) #t))))) (native-inputs (list guile-3.0)) (inputs (list gdbm)) (home-page "https://github.com/ijp/guile-gdbm") (synopsis "Guile bindings to the GDBM library via Guile's FFI") (description "Guile bindings to the GDBM key-value storage system, using Guile's foreign function interface.") (license license:gpl3+))) (define-public guile2.0-gdbm-ffi (package-for-guile-2.0 guile-gdbm-ffi)) (define-public guile2.2-gdbm-ffi (package-for-guile-2.2 guile-gdbm-ffi)) (define-public guile-sqlite3 (package (name "guile-sqlite3") (version "0.1.3") (home-page "https://notabug.org/guile-sqlite3/guile-sqlite3.git") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit (string-append "v" version)))) (sha256 (base32 "0qqygvlpz63phdi2p5p8ncp80dci230qfa3pwds8yfxqqaablmhb")) (file-name (string-append name "-" version "-checkout")))) (build-system gnu-build-system) (native-inputs (list autoconf automake guile-3.0 pkg-config)) (inputs (list guile-3.0 sqlite)) (synopsis "Access SQLite databases from Guile") (description "This package provides Guile bindings to the SQLite database system.") (license license:gpl3+))) (define-public guile2.0-sqlite3 (package-for-guile-2.0 guile-sqlite3)) (define-public guile2.2-sqlite3 (package-for-guile-2.2 guile-sqlite3)) (define-public guile-bytestructures (package (name "guile-bytestructures") (version "1.0.10") (home-page "https://github.com/TaylanUB/scheme-bytestructures") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "14k50jln32kkxv41hvsdgjkkfj6xlv06vc1caz01qkgk1fzh72nk")))) (build-system gnu-build-system) (arguments `(#:make-flags '("GUILE_AUTO_COMPILE=0") ;to prevent guild warnings #:phases (modify-phases %standard-phases (add-after 'install 'install-doc (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (package ,(package-full-name this-package "-")) (doc (string-append out "/share/doc/" package))) (install-file "README.md" doc) #t)))))) (native-inputs (list autoconf automake pkg-config guile-3.0)) (inputs (list guile-3.0)) (synopsis "Structured access to bytevector contents for Guile") (description "Guile bytestructures offers a system imitating the type system of the C programming language, to be used on bytevectors. C's type system works on raw memory, and Guile works on bytevectors which are an abstraction over raw memory. It's also more powerful than the C type system, elevating types to first-class status.") (license license:gpl3+) (properties '((upstream-name . "bytestructures"))))) (define-public guile2.0-bytestructures (package-for-guile-2.0 guile-bytestructures)) (define-public guile2.2-bytestructures (package-for-guile-2.2 guile-bytestructures)) (define-public guile-git (package (name "guile-git") (version "0.8.0") (home-page "https://gitlab.com/guile-git/guile-git.git") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "15k5gcx5clckw9r38602xw8q4bmfr8s16fzmjw16carm54dsx78i")))) (build-system gnu-build-system) (arguments `(#:make-flags '("GUILE_AUTO_COMPILE=0") ; to prevent guild warnings ;; https://gitlab.com/guile-git/guile-git/-/issues/20 ,@(if (target-ppc32?) `(#:phases (modify-phases %standard-phases (add-after 'unpack 'skip-failing-test (lambda _ (substitute* "Makefile.am" ((".*tests/blob\\.scm.*") "")))))) '()) ,@(if (system-hurd?) (list #:phases #~(modify-phases %standard-phases (add-after 'unpack 'skip-tests/hurd (lambda _ (substitute* "tests/proxy.scm" (("\\(test-begin.*" all) (string-append all "(when (string-ci= \"GNU\" (vector-ref (uname) 0))\n" " (test-skip 1))\n"))))))) '()))) (native-inputs (list pkg-config autoconf automake texinfo guile-3.0 guile-bytestructures)) (inputs (list guile-3.0 libgit2-1.8)) (propagated-inputs (list guile-bytestructures)) (synopsis "Guile bindings for libgit2") (description "This package provides Guile bindings to libgit2, a library to manipulate repositories of the Git version control system.") (license license:gpl3+))) (define-public guile2.2-git (package-for-guile-2.2 guile-git)) (define-public guile2.0-git ;; Guile-Git 0.8.0 no longer supports Guile 2.0. (deprecated-package "guile2.0-git" guile2.2-git)) (define-public guile-zlib (package (name "guile-zlib") (version "0.2.1") (source (origin ;; XXX: Do not use "git-fetch" method here that would create and ;; endless inclusion loop, because this package is used as an extension ;; in the same method. (method url-fetch) (uri (string-append "https://notabug.org/guile-zlib/guile-zlib/archive/v" version ".tar.gz")) (file-name (string-append name "-" version ".tar.gz")) (sha256 ;; content hash: 09zfka3js7dp39fnplxbp90x98s5nj0pc93p1l9cmgrbj8nyn2sv (base32 "0wqva23zrxcsj9cp3xqmqpxqyd7a4nnja3dc7v7g0i9yfixi7xd5")))) (build-system gnu-build-system) (native-inputs (list autoconf automake pkg-config guile-3.0)) (inputs (list guile-3.0 zlib)) (synopsis "Guile bindings to zlib") (description "This package provides Guile bindings for zlib, a lossless data-compression library. The bindings are written in pure Scheme by using Guile's foreign function interface.") (home-page "https://notabug.org/guile-zlib/guile-zlib") (license license:gpl3+))) (define-public guile2.2-zlib (package-for-guile-2.2 guile-zlib)) (define-public guile-lzlib (package (name "guile-lzlib") (version "0.3.0") (home-page "https://notabug.org/guile-lzlib/guile-lzlib") (source (origin ;; Note: Until "builtin:git-download" can be taken for granted, this ;; must be 'url-fetch', not 'git-fetch', to avoid a circular dependency ;; with the 'git-fetch' derivation on systems that lack ;; "builtin:git-download". (method url-fetch) (uri (string-append home-page "/archive/" version ".tar.gz")) ;; content nar-sha256: 19870njb3q5h6zy239gvra92ji077c6s8xm0hgcn42z74q5wqnk6 (file-name (string-append "guile-lzlib-" version ".tar.gz")) (sha256 (base32 "1whgmwkr1v8m63p4aaqn8blwl9vcrswwhbfv4bm0aghl5a6rryd7")))) (build-system gnu-build-system) (arguments '(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings (native-inputs (list autoconf automake pkg-config guile-3.0)) (inputs (list guile-3.0 lzlib)) (synopsis "Guile bindings to lzlib") (description "This package provides Guile bindings for lzlib, a C library for in-memory LZMA compression and decompression. The bindings are written in pure Scheme by using Guile's foreign function interface.") (license license:gpl3+))) (define-public guile2.2-lzlib (package-for-guile-2.2 guile-lzlib)) (define-public guile-zstd (package (name "guile-zstd") (version "0.1.1") (home-page "https://notabug.org/guile-zstd/guile-zstd") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1c8l7829b5yx8wdc0mrhzjfwb6h9hb7cd8dfxcr71a7vlsi86310")))) (build-system gnu-build-system) (native-inputs (list autoconf automake pkg-config guile-3.0)) (inputs (list `(,zstd "lib") guile-3.0)) (synopsis "GNU Guile bindings to the zstd compression library") (description "This package provides a GNU Guile interface to the zstd (``zstandard'') compression library.") (license license:gpl3+))) (define-public guile-lzma (package (name "guile-lzma") (version "0.1.1") (source (origin (method url-fetch) (uri (string-append "https://files.ngyro.com/guile-lzma/guile-lzma-" version ".tar.gz")) (sha256 (base32 "0pnfzk92p9y5ymjq6rq619b9fy0dflv56jwg00wlvvbjssb6i1ib")))) (build-system gnu-build-system) (native-inputs (list autoconf automake guile-3.0 guile-bytestructures pkg-config)) (inputs (list guile-3.0 xz)) (propagated-inputs (list guile-bytestructures)) (home-page "https://ngyro.com/software/guile-lzma.html") (synopsis "Guile bindings for liblzma (XZ)") (description "Guile-LZMA is a Guile wrapper for the liblzma (XZ) library. It exposes an interface similar to other Guile compression libraries, like Guile-zlib.") (license license:gpl3+))) (define-public guile-bzip2 (package (name "guile-bzip2") (version "0.1.0") (source (origin (method url-fetch) (uri (string-append "https://files.ngyro.com/guile-bzip2/guile-bzip2-" version ".tar.gz")) (sha256 (base32 "1qnxk5fzg8m9ik1ckhjvi22kkhd810mrg8jzxiizhk920b69wbdh")))) (build-system gnu-build-system) (native-inputs (list guile-3.0 guile-bytestructures pkg-config)) (inputs (list guile-3.0 bzip2)) (propagated-inputs (list guile-bytestructures)) (home-page "https://ngyro.com/software/guile-bzip2.html") (synopsis "Guile bindings for libbzip2") (description "Guile-bzip2 is a Guile wrapper for the libbzip2 library. It exposes an interface similar to other Guile compression libraries, like Guile-zlib.") (license license:gpl3+))) ;;; guile.scm ends here