;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2020 Ekaitz Zarraga <ekaitz@elenq.tech> ;;; Copyright © 2020 Evan Hanson <evhan@foldling.org> ;;; Copyright © 2020 raingloom <raingloom@riseup.net> ;;; ;;; 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 <http://www.gnu.org/licenses/>. (define-module (gnu packages chicken) #:use-module (gnu packages) #:use-module (guix packages) #:use-module (guix build-system chicken) #:use-module (guix build-system gnu) #:use-module (guix download) #:use-module (guix git-download) #:use-module (guix svn-download) #:use-module (gnu packages commencement) #:use-module ((guix licenses) #:prefix license:)) (define-public chicken (package (name "chicken") (version "5.2.0") (source (origin (method url-fetch) (uri (string-append "https://code.call-cc.org/releases/" version "/chicken-" version ".tar.gz")) (sha256 (base32 "1yl0hxm9cirgcp8jgxp6vv29lpswfvaw3zfkh6rsj0vkrv44k4c1")))) (build-system gnu-build-system) (arguments `(#:modules ((guix build gnu-build-system) (guix build utils) (srfi srfi-1)) ;; No `configure' script; run "make check" after "make install" as ;; prescribed by README. #:phases (modify-phases %standard-phases (delete 'configure) (delete 'check) (add-after 'install 'check (assoc-ref %standard-phases 'check))) #:make-flags (let ((out (assoc-ref %outputs "out"))) (list "PLATFORM=linux" (string-append "PREFIX=" out) (string-append "VARDIR=" out "/var/lib"))) ;; Parallel builds are not supported, as noted in README. #:parallel-build? #f)) (native-search-paths (list (search-path-specification (variable "CHICKEN_REPOSITORY_PATH") ;; TODO extract binary version into a module level definition. (files (list "var/lib/chicken/11"))))) (propagated-inputs `(("gcc-toolchain" ,gcc-toolchain))) (home-page "https://www.call-cc.org/") (synopsis "R5RS Scheme implementation that compiles native code via C") (description "CHICKEN is a compiler for the Scheme programming language. CHICKEN produces portable and efficient C, supports almost all of the R5RS Scheme language standard, and includes many enhancements and extensions.") (license license:bsd-3))) (define-public chicken-srfi-1 (package (name "chicken-srfi-1") (version "0.5.1") (source (origin (method svn-fetch) (uri (svn-reference (url (string-append "https://code.call-cc.org/svn/chicken-eggs/" "release/5/srfi-1/tags/" version)) (revision 39055) (user-name "anonymous") (password ""))) (file-name (string-append "chicken-srfi-1" version "-checkout")) (sha256 (base32 "02940zsjrmn7c34rnp1rllm2nahh9jvszlzrw8ak4pf31q09cmq1")))) (build-system chicken-build-system) (arguments '(#:egg-name "srfi-1")) (inputs `(("chicken-test" ,chicken-test))) (home-page "https://wiki.call-cc.org/eggref/5/srfi-1") (synopsis "SRFI-1 list library") (description "The list library defined in @uref{https://srfi.schemers.org/srfi-1/srfi-1.html, SRFI-1} contains a lot of useful list processing procedures for construction, examining, destructuring and manipulating lists and pairs.") (license license:bsd-3))) (define-public chicken-srfi-14 (package (name "chicken-srfi-14") (version "0.2.1") (source (origin (method svn-fetch) (uri (svn-reference (url (string-append "https://code.call-cc.org/svn/chicken-eggs/" "release/5/srfi-14/tags/" version)) (revision 39057) (user-name "anonymous") (password ""))) (file-name (string-append "chicken-srfi-14-" version "-checkout")) (sha256 (base32 "0wjsqfwawh9bx6vvii1gwag166bxkflc0ib374fbws14914g2ac1")))) (build-system chicken-build-system) (arguments '(#:egg-name "srfi-14")) (home-page "https://wiki.call-cc.org/eggref/5/srfi-14") (synopsis "Character set library") (description "Character sets can be created, extended, tested for the membership of a characters and be compared to other character sets") (license (license:non-copyleft "http://wiki.call-cc.org/eggref/5/srfi-14#license")))) (define-public chicken-srfi-69 (package (name "chicken-srfi-69") (version "0.4.1") (source (origin (method svn-fetch) (uri (svn-reference (url (string-append "https://code.call-cc.org/svn/chicken-eggs/" "release/5/srfi-69/tags/" version)) (revision 39057) (user-name "anonymous") (password ""))) (file-name (string-append "chicken-srfi-69-" version "-checkout")) (sha256 (base32 "1z0m9vmg9bj9z0a941pls6igvg8nmhq4mj5psjjidbp0fac572mp")))) (arguments '(#:egg-name "srfi-69")) (build-system chicken-build-system) (home-page "https://wiki.call-cc.org/eggref/5/srfi-69") (synopsis "Implementation of SRFI 69 with SRFI 90 extensions") (description "This package provides an implementation of @uref{https://srfi.schemers.org/srfi-69/srfi-69.html, SRFI-69 hash tables} for CHICKEN Scheme, along with @uref{https://srfi.schemers.org/srfi-90/srfi-90.html, SRFI-90} extensions.") (license license:bsd-3))) (define-public chicken-agrep (package (name "chicken-agrep") (version "1.7") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/iraikov/chicken-agrep") (commit version))) (file-name (string-append "chicken-agrep-" version "-checkout")) (sha256 (base32 "0z05x7f154n9bgmainrsmncf5i6dil43r9ymr3rdgwbg4wnxmz4s")))) ;; TODO do we really have to make these propagated? ;; I don't know Chicken's module system well enough to tell (propagated-inputs `(("chicken-datatype" ,chicken-datatype) ("chicken-srfi-1" ,chicken-srfi-1) ("chicken-srfi-14" ,chicken-srfi-14))) (inputs `(("chicken-test" ,chicken-test))) (build-system chicken-build-system) (arguments '(#:egg-name "agrep")) (synopsis "Approximate string matching library") (home-page "https://wiki.call-cc.org/eggref/5/agrep") (description "This library implements the Wu-Manber algorithm for approximate string searching with errors, popularized by the agrep Unix command and the glimpse file indexing tool.") (license license:gpl3+))) (define-public chicken-datatype (package (name "chicken-datatype") (version "1.6") (source (origin (method svn-fetch) (uri (svn-reference (url (string-append "https://code.call-cc.org/svn/chicken-eggs/" "release/5/datatype/tags/" version)) (revision 39266) (user-name "anonymous") (password ""))) (file-name (string-append "chicken-datatype-" version "-checkout")) (sha256 (base32 "1a58q8ypjkjz6wdv25247wixds4179239d36nnvsfn6gp70s9jfq")))) (build-system chicken-build-system) (arguments '(#:egg-name "datatype")) (inputs `(("chicken-srfi-1" ,chicken-srfi-1) ("chicken-test" ,chicken-test))) (home-page "https://wiki.call-cc.org/eggref/5/datatype") (synopsis "Facility for creating and using variant records") (description "This CHICKEN Scheme library provides a facility for creating and using variant records, as described in the book @i{Essentials of Programming Languages} by Friedman, Wand, and Haynes.") (license license:bsd-3))) (define-public chicken-iset (package (name "chicken-iset") (version "2.2") (source (origin (method svn-fetch) (uri (svn-reference (url (string-append "https://code.call-cc.org/svn/chicken-eggs/" "release/5/iset/tags/" version)) (revision 39057) (user-name "anonymous") (password ""))) (file-name (string-append "chicken-iset-" version "-checkout")) (sha256 (base32 "0gz50n5i561n5sk9prry0lrxz6bfrq9if5bclaq6a0f7lzinhnzb")))) (inputs `(("chicken-test" ,chicken-test))) (build-system chicken-build-system) (arguments '(#:egg-name "iset")) (synopsis "Integer set library") (home-page "https://wiki.call-cc.org/eggref/5/iset") (description "This ``integer set'' CHICKEN Scheme library implements bit vectors. Bit-vectors provide an abstract interface to bitwise operations typically done with integers.") (license license:bsd-3))) (define-public chicken-test (package (name "chicken-test") (version "1.1") (source (origin (method svn-fetch) (uri (svn-reference (url (string-append "https://code.call-cc.org/svn/chicken-eggs/" "release/5/test/tags/" version)) (revision 39263) (user-name "anonymous") (password ""))) (file-name (string-append "chicken-test-" version "-checkout")) (sha256 (base32 "14i91cxsn6hjkx6kqf7i9syck73cw71jik61jmhg87vpxx5kfnzx")))) (build-system chicken-build-system) (arguments '(#:egg-name "test")) (home-page "https://wiki.call-cc.org/eggref/5/test") (synopsis "Yet another testing utility") (description "This package provides a simple testing utility for CHICKEN Scheme.") (license license:bsd-3)))