2014-07-05 12:30:51 +00:00
|
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
|
|
|
|
;;; Copyright © 2014 John Darrington <jmd@gnu.org>
|
2015-02-11 23:15:02 +00:00
|
|
|
|
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
|
2015-03-08 01:42:01 +00:00
|
|
|
|
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
|
2016-01-10 09:41:23 +00:00
|
|
|
|
;;; Copyright © 2016 Federico Beffa <beffa@fbengineering.ch>
|
Correct name and Email for ng0.
* .mailmap: Correct name and Email for ng0.
* Makefile.am, doc/guix.texi, etc/completion/fish/guix.fish
gnu/packages/accessibility.scm, gnu/packages/admin.scm,
gnu/packages/audio.scm, gnu/packages/autotools.scm,
gnu/packages/cdrom.scm, gnu/packages/check.scm,
gnu/packages/cinnamon.scm, gnu/packages/compression.scm,
gnu/packages/crypto.scm, gnu/packages/databases.scm,
gnu/packages/django.scm, gnu/packages/dns.scm,
gnu/packages/emacs.scm, gnu/packages/enlightenment.scm,
gnu/packages/fonts.scm, gnu/packages/fontutils.scm,
gnu/packages/forth.scm, gnu/packages/fvwm.scm,
gnu/packages/games.scm, gnu/packages/gl.scm,
gnu/packages/gnome.scm, gnu/packages/gnunet.scm,
gnu/packages/gnupg.scm, gnu/packages/gnuzilla.scm,
gnu/packages/gtk.scm, gnu/packages/guile-wm.scm,
gnu/packages/guile.scm, gnu/packages/haskell-check.scm,
gnu/packages/haskell-crypto.scm, gnu/packages/haskell.scm,
gnu/packages/image-viewers.scm, gnu/packages/image.scm,
gnu/packages/irc.scm, gnu/packages/language.scm,
gnu/packages/libcanberra.scm, gnu/packages/linux.scm,
gnu/packages/lisp.scm, gnu/packages/lolcode.scm,
gnu/packages/lxde.scm, gnu/packages/lxqt.scm,
gnu/packages/mail.scm, gnu/packages/markup.scm,
gnu/packages/mate.scm, gnu/packages/maths.scm,
gnu/packages/mc.scm, gnu/packages/messaging.scm,
gnu/packages/music.scm, gnu/packages/ncurses.scm,
gnu/packages/networking.scm, gnu/packages/nickle.scm,
gnu/packages/openbox.scm, gnu/packages/pdf.scm,
gnu/packages/perl-check.scm, gnu/packages/perl.scm,
gnu/packages/python-crypto.scm, gnu/packages/python-web.scm,
gnu/packages/python.scm, gnu/packages/qt.scm,
gnu/packages/ruby.scm, gnu/packages/rust.scm,
gnu/packages/scheme.scm, gnu/packages/serialization.scm,
gnu/packages/shells.scm, gnu/packages/ssh.scm,
gnu/packages/suckless.scm, gnu/packages/tbb.scm,
gnu/packages/telephony.scm, gnu/packages/text-editors.scm,
gnu/packages/textutils.scm, gnu/packages/time.scm,
gnu/packages/tls.scm, gnu/packages/tor.scm,
gnu/packages/version-control.scm, gnu/packages/video.scm,
gnu/packages/vim.scm, gnu/packages/web.scm,
gnu/packages/wm.scm, gnu/packages/xdisorg.scm,
gnu/packages/xfce.scm, gnu/packages/xml.scm,
gnu/packages/xorg.scm, gnu/services/certbot.scm,
gnu/services/desktop.scm, gnu/services/version-control.scm,
gnu/services/web.scm, guix/import/hackage.scm,
guix/licenses.scm: Likewise.
Signed-off-by: Tobias Geerinckx-Rice <me@tobias.gr>
2018-03-20 15:39:45 +00:00
|
|
|
|
;;; Copyright © 2016, 2017 Nils Gillmann <ng0@n0.is>
|
2017-04-03 13:01:18 +00:00
|
|
|
|
;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca>
|
2017-01-01 10:12:29 +00:00
|
|
|
|
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
|
2018-01-22 10:46:17 +00:00
|
|
|
|
;;; Copyright © 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
|
2017-12-13 20:06:08 +00:00
|
|
|
|
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
|
2018-09-17 21:18:08 +00:00
|
|
|
|
;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
|
2014-07-05 12:30:51 +00:00
|
|
|
|
;;;
|
|
|
|
|
;;; 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 lisp)
|
|
|
|
|
#:use-module (gnu packages)
|
Use #:prefix instead of #:renamer with 'symbol-prefix-proc'.
* gnu/packages/abiword.scm, gnu/packages/admin.scm, gnu/packages/aidc.scm,
gnu/packages/backup.scm, gnu/packages/bittorrent.scm,
gnu/packages/boost.scm, gnu/packages/compression.scm,
gnu/packages/cryptsetup.scm, gnu/packages/curl.scm,
gnu/packages/cyrus-sasl.scm, gnu/packages/dc.scm, gnu/packages/emacs.scm,
gnu/packages/fonts.scm, gnu/packages/fontutils.scm, gnu/packages/geeqie.scm,
gnu/packages/ghostscript.scm, gnu/packages/gimp.scm,
gnu/packages/gkrellm.scm, gnu/packages/gl.scm, gnu/packages/glib.scm,
gnu/packages/gnome.scm, gnu/packages/gnunet.scm, gnu/packages/gnupg.scm,
gnu/packages/gnutls.scm, gnu/packages/gnuzilla.scm, gnu/packages/gsasl.scm,
gnu/packages/gtk.scm, gnu/packages/gv.scm, gnu/packages/image.scm,
gnu/packages/indent.scm, gnu/packages/inkscape.scm,
gnu/packages/lesstif.scm, gnu/packages/links.scm, gnu/packages/lisp.scm,
gnu/packages/lsh.scm, gnu/packages/lsof.scm, gnu/packages/maths.scm,
gnu/packages/mp3.scm, gnu/packages/openssl.scm, gnu/packages/ots.scm,
gnu/packages/pciutils.scm, gnu/packages/pcre.scm, gnu/packages/pdf.scm,
gnu/packages/pulseaudio.scm, gnu/packages/python.scm, gnu/packages/slim.scm,
gnu/packages/ssh.scm, gnu/packages/texlive.scm, gnu/packages/vim.scm,
gnu/packages/vpn.scm, gnu/packages/web.scm, gnu/packages/wv.scm,
gnu/packages/xiph.scm, gnu/packages/xml.scm, gnu/packages/xorg.scm,
gnu/packages/yasm.scm, gnu/packages/zip.scm,
guix/build/cmake-build-system.scm, guix/build/perl-build-system.scm,
guix/build/python-build-system.scm, guix/download.scm: Replaces uses of
#:renamer and 'symbol-prefix-proc' with #:prefix.
2014-09-23 20:44:22 +00:00
|
|
|
|
#:use-module ((guix licenses) #:prefix license:)
|
2014-07-05 12:30:51 +00:00
|
|
|
|
#:use-module (guix packages)
|
|
|
|
|
#:use-module (guix download)
|
2016-02-07 16:50:12 +00:00
|
|
|
|
#:use-module (guix git-download)
|
2018-08-24 09:36:22 +00:00
|
|
|
|
#:use-module (guix hg-download)
|
2014-07-05 12:30:51 +00:00
|
|
|
|
#:use-module (guix utils)
|
2015-02-11 23:15:02 +00:00
|
|
|
|
#:use-module (guix build-system gnu)
|
2016-10-03 02:41:30 +00:00
|
|
|
|
#:use-module (guix build-system asdf)
|
2016-10-07 08:07:49 +00:00
|
|
|
|
#:use-module (guix build-system trivial)
|
2018-10-09 17:30:35 +00:00
|
|
|
|
#:use-module (gnu packages admin)
|
gnu: Move 'which' to (gnu packages base).
* gnu/packages/which.scm: Remove.
* gnu-system.am (GNU_SYSTEM_MODULES): Remove it.
* gnu/packages/base.scm (which): New variable.
* gnu/packages/aspell.scm, gnu/packages/audio.scm,
gnu/packages/autogen.scm, gnu/packages/cdrom.scm,
gnu/packages/compression.scm, gnu/packages/datamash.scm,
gnu/packages/games.scm, gnu/packages/glib.scm,
gnu/packages/gnu-pw-mgr.scm, gnu/packages/gnutls.scm,
gnu/packages/gps.scm, gnu/packages/guile.scm,
gnu/packages/java.scm, gnu/packages/libevent.scm,
gnu/packages/linux.scm, gnu/packages/lisp.scm,
gnu/packages/node.scm, gnu/packages/ntp.scm,
gnu/packages/orpheus.scm, gnu/packages/pciutils.scm,
gnu/packages/python.scm, gnu/packages/qt.scm,
gnu/packages/rsync.scm, gnu/packages/sawfish.scm,
gnu/packages/scheme.scm, gnu/packages/ssh.scm,
gnu/packages/statistics.scm, gnu/packages/texlive.scm,
gnu/packages/wdiff.scm: Adjust accordingly.
2015-03-04 16:21:21 +00:00
|
|
|
|
#:use-module (gnu packages base)
|
2018-10-09 17:30:35 +00:00
|
|
|
|
#:use-module (gnu packages bdw-gc)
|
2017-02-14 18:56:44 +00:00
|
|
|
|
#:use-module (gnu packages compression)
|
2018-10-09 17:30:35 +00:00
|
|
|
|
#:use-module (gnu packages ed)
|
2017-02-14 18:56:44 +00:00
|
|
|
|
#:use-module (gnu packages fontutils)
|
2018-10-09 17:30:35 +00:00
|
|
|
|
#:use-module (gnu packages gcc)
|
|
|
|
|
#:use-module (gnu packages gettext)
|
|
|
|
|
#:use-module (gnu packages gl)
|
|
|
|
|
#:use-module (gnu packages glib)
|
|
|
|
|
#:use-module (gnu packages m4)
|
2017-02-14 18:56:44 +00:00
|
|
|
|
#:use-module (gnu packages maths)
|
2015-02-11 23:15:02 +00:00
|
|
|
|
#:use-module (gnu packages multiprecision)
|
2017-10-03 19:46:40 +00:00
|
|
|
|
#:use-module (gnu packages ncurses)
|
2015-02-12 21:19:52 +00:00
|
|
|
|
#:use-module (gnu packages libffcall)
|
2018-10-09 17:30:35 +00:00
|
|
|
|
#:use-module (gnu packages libffi)
|
2015-02-14 18:04:12 +00:00
|
|
|
|
#:use-module (gnu packages libsigsegv)
|
2017-02-14 18:56:44 +00:00
|
|
|
|
#:use-module (gnu packages linux)
|
2018-10-09 17:30:35 +00:00
|
|
|
|
#:use-module (gnu packages perl)
|
2017-02-14 18:56:44 +00:00
|
|
|
|
#:use-module (gnu packages pkg-config)
|
2018-10-09 17:30:35 +00:00
|
|
|
|
#:use-module (gnu packages readline)
|
|
|
|
|
#:use-module (gnu packages sdl)
|
|
|
|
|
#:use-module (gnu packages tex)
|
|
|
|
|
#:use-module (gnu packages texinfo)
|
2015-02-15 23:46:12 +00:00
|
|
|
|
#:use-module (gnu packages version-control)
|
2017-02-14 18:56:44 +00:00
|
|
|
|
#:use-module (gnu packages xorg)
|
2018-10-03 18:18:13 +00:00
|
|
|
|
#:use-module (gnu packages databases)
|
2018-10-19 14:52:22 +00:00
|
|
|
|
#:use-module (gnu packages gtk)
|
2018-10-10 13:07:01 +00:00
|
|
|
|
#:use-module (gnu packages webkit)
|
2016-09-22 09:08:03 +00:00
|
|
|
|
#:use-module (ice-9 match)
|
2018-10-01 20:37:26 +00:00
|
|
|
|
#:use-module (srfi srfi-1)
|
|
|
|
|
#:use-module (srfi srfi-19))
|
2014-07-05 12:30:51 +00:00
|
|
|
|
|
2016-10-03 02:41:28 +00:00
|
|
|
|
(define (asdf-substitutions lisp)
|
|
|
|
|
;; Prepend XDG_DATA_DIRS/LISP-bundle-systems to ASDF's
|
|
|
|
|
;; 'default-system-source-registry'.
|
|
|
|
|
`((("\\(,dir \"systems/\"\\)\\)")
|
|
|
|
|
(format #f
|
|
|
|
|
"(,dir \"~a-bundle-systems\")))
|
|
|
|
|
|
|
|
|
|
,@(loop :for dir :in (xdg-data-dirs \"common-lisp/\")
|
|
|
|
|
:collect `(:directory (,dir \"systems\"))"
|
|
|
|
|
,lisp))))
|
|
|
|
|
|
2014-07-05 12:30:51 +00:00
|
|
|
|
(define-public gcl
|
2017-11-22 18:47:33 +00:00
|
|
|
|
(let ((commit "5956140b1083e2302a59d7ce2054b0b7c2cbb417")
|
|
|
|
|
(revision "1")) ;Guix package revision
|
|
|
|
|
(package
|
|
|
|
|
(name "gcl")
|
|
|
|
|
(version (string-append "2.6.12-" revision "."
|
|
|
|
|
(string-take commit 7)))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://git.savannah.gnu.org/r/gcl.git")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(file-name (string-append "gcl-" version "-checkout"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "0mwclf2879mh3d9xqkqhghf58lwy7srsnsq9x0f1cc6j302sy4hb"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:parallel-build? #f ; The build system seems not to be thread safe.
|
|
|
|
|
#:tests? #f ; There does not seem to be make check or anything similar.
|
|
|
|
|
#:configure-flags '("--enable-ansi") ; required for use by the maxima package
|
|
|
|
|
#:make-flags (list
|
|
|
|
|
(string-append "GCL_CC=" (assoc-ref %build-inputs "gcc")
|
|
|
|
|
"/bin/gcc")
|
|
|
|
|
(string-append "CC=" (assoc-ref %build-inputs "gcc")
|
|
|
|
|
"/bin/gcc"))
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-before 'configure 'pre-conf
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(chdir "gcl")
|
|
|
|
|
(substitute*
|
|
|
|
|
(append
|
|
|
|
|
'("pcl/impl/kcl/makefile.akcl"
|
|
|
|
|
"add-defs"
|
|
|
|
|
"unixport/makefile.dos"
|
|
|
|
|
"add-defs.bat"
|
|
|
|
|
"gcl-tk/makefile.prev"
|
|
|
|
|
"add-defs1")
|
|
|
|
|
(find-files "h" "\\.defs"))
|
|
|
|
|
(("SHELL=/bin/bash")
|
|
|
|
|
(string-append "SHELL=" (which "bash")))
|
|
|
|
|
(("SHELL=/bin/sh")
|
|
|
|
|
(string-append "SHELL=" (which "sh"))))
|
|
|
|
|
(substitute* "h/linux.defs"
|
|
|
|
|
(("#CC") "CC")
|
|
|
|
|
(("-fwritable-strings") "")
|
|
|
|
|
(("-Werror") ""))
|
|
|
|
|
(substitute* "lsp/gcl_top.lsp"
|
|
|
|
|
(("\"cc\"")
|
|
|
|
|
(string-append "\"" (assoc-ref %build-inputs "gcc")
|
|
|
|
|
"/bin/gcc\""))
|
|
|
|
|
(("\\(or \\(get-path \\*cc\\*\\) \\*cc\\*\\)") "*cc*")
|
|
|
|
|
(("\"ld\"")
|
|
|
|
|
(string-append "\"" (assoc-ref %build-inputs "binutils")
|
|
|
|
|
"/bin/ld\""))
|
|
|
|
|
(("\\(or \\(get-path \\*ld\\*\\) \\*ld\\*\\)") "*ld*")
|
|
|
|
|
(("\\(get-path \"objdump --source \"\\)")
|
|
|
|
|
(string-append "\"" (assoc-ref %build-inputs "binutils")
|
|
|
|
|
"/bin/objdump --source \"")))
|
|
|
|
|
#t))
|
|
|
|
|
(add-after 'install 'wrap
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let* ((gcl (assoc-ref outputs "out"))
|
|
|
|
|
(input-path (lambda (lib path)
|
|
|
|
|
(string-append
|
|
|
|
|
(assoc-ref inputs lib) path)))
|
|
|
|
|
(binaries '("binutils")))
|
|
|
|
|
;; GCC and the GNU binutils are necessary for GCL to be
|
|
|
|
|
;; able to compile Lisp functions and programs (this is
|
|
|
|
|
;; a standard feature in Common Lisp). While the
|
|
|
|
|
;; the location of GCC is specified in the make-flags,
|
|
|
|
|
;; the GNU binutils must be available in GCL's $PATH.
|
|
|
|
|
(wrap-program (string-append gcl "/bin/gcl")
|
|
|
|
|
`("PATH" prefix ,(map (lambda (binary)
|
|
|
|
|
(input-path binary "/bin"))
|
|
|
|
|
binaries))))
|
|
|
|
|
#t))
|
|
|
|
|
;; drop strip phase to make maxima build, see
|
|
|
|
|
;; https://www.ma.utexas.edu/pipermail/maxima/2008/009769.html
|
|
|
|
|
(delete 'strip))))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("gmp" ,gmp)
|
|
|
|
|
("readline" ,readline)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("gcc" ,gcc-4.9)
|
|
|
|
|
("m4" ,m4)
|
|
|
|
|
("texinfo" ,texinfo)
|
|
|
|
|
("texlive" ,texlive)))
|
|
|
|
|
(home-page "https://www.gnu.org/software/gcl/")
|
|
|
|
|
(synopsis "A Common Lisp implementation")
|
|
|
|
|
(description "GCL is an implementation of the Common Lisp language. It
|
2014-07-05 12:30:51 +00:00
|
|
|
|
features the ability to compile to native object code and to load native
|
|
|
|
|
object code modules directly into its lisp core. It also features a
|
|
|
|
|
stratified garbage collection strategy, a source-level debugger and a built-in
|
|
|
|
|
interface to the Tk widget system.")
|
2017-11-22 18:47:33 +00:00
|
|
|
|
(license license:lgpl2.0+))))
|
2014-07-05 12:30:51 +00:00
|
|
|
|
|
2015-02-11 23:15:02 +00:00
|
|
|
|
(define-public ecl
|
|
|
|
|
(package
|
|
|
|
|
(name "ecl")
|
2017-03-12 00:10:56 +00:00
|
|
|
|
(version "16.1.3")
|
2015-02-11 23:15:02 +00:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
2016-07-25 01:05:37 +00:00
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://common-lisp.net/project/ecl/static/files/release/"
|
|
|
|
|
name "-" version ".tgz"))
|
2015-02-11 23:15:02 +00:00
|
|
|
|
(sha256
|
2017-03-12 00:10:56 +00:00
|
|
|
|
(base32 "0m0j24w5d5a9dwwqyrg0d35c0nys16ijb4r0nyk87yp82v38b9bn"))
|
2016-10-03 02:41:29 +00:00
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
;; Add ecl-bundle-systems to 'default-system-source-registry'.
|
gnu: All snippets report errors using exceptions, else return #t.
* gnu/packages/admin.scm, gnu/packages/algebra.scm, gnu/packages/audio.scm,
gnu/packages/backup.scm, gnu/packages/base.scm,
gnu/packages/bioinformatics.scm, gnu/packages/cdrom.scm,
gnu/packages/chez.scm, gnu/packages/code.scm, gnu/packages/compression.scm,
gnu/packages/cross-base.scm, gnu/packages/crypto.scm, gnu/packages/cups.scm,
gnu/packages/databases.scm, gnu/packages/dns.scm, gnu/packages/emacs.scm,
gnu/packages/emulators.scm, gnu/packages/engineering.scm,
gnu/packages/enlightenment.scm, gnu/packages/fpga.scm,
gnu/packages/freedesktop.scm, gnu/packages/ftp.scm, gnu/packages/games.scm,
gnu/packages/gcc.scm, gnu/packages/geo.scm, gnu/packages/ghostscript.scm,
gnu/packages/gl.scm, gnu/packages/glib.scm, gnu/packages/gnome.scm,
gnu/packages/gnuzilla.scm, gnu/packages/graphics.scm, gnu/packages/gtk.scm,
gnu/packages/guile.scm, gnu/packages/irc.scm, gnu/packages/java.scm,
gnu/packages/kerberos.scm, gnu/packages/linux.scm, gnu/packages/lisp.scm,
gnu/packages/lxde.scm, gnu/packages/machine-learning.scm,
gnu/packages/mail.scm, gnu/packages/maths.scm, gnu/packages/messaging.scm,
gnu/packages/monitoring.scm, gnu/packages/mp3.scm, gnu/packages/music.scm,
gnu/packages/netpbm.scm, gnu/packages/networking.scm, gnu/packages/node.scm,
gnu/packages/nvi.scm, gnu/packages/ocaml.scm, gnu/packages/pdf.scm,
gnu/packages/perl.scm, gnu/packages/php.scm, gnu/packages/plotutils.scm,
gnu/packages/pretty-print.scm, gnu/packages/profiling.scm,
gnu/packages/pulseaudio.scm, gnu/packages/python-crypto.scm,
gnu/packages/python.scm, gnu/packages/qt.scm, gnu/packages/robotics.scm,
gnu/packages/sawfish.scm, gnu/packages/scanner.scm, gnu/packages/scheme.scm,
gnu/packages/scribus.scm, gnu/packages/sdl.scm,
gnu/packages/serialization.scm, gnu/packages/shells.scm,
gnu/packages/slang.scm, gnu/packages/smalltalk.scm, gnu/packages/ssh.scm,
gnu/packages/sync.scm, gnu/packages/syncthing.scm, gnu/packages/tbb.scm,
gnu/packages/terminals.scm, gnu/packages/texinfo.scm,
gnu/packages/text-editors.scm, gnu/packages/textutils.scm,
gnu/packages/tls.scm, gnu/packages/unrtf.scm,
gnu/packages/version-control.scm, gnu/packages/video.scm,
gnu/packages/vpn.scm, gnu/packages/web.scm, gnu/packages/wm.scm,
gnu/packages/wxwidgets.scm, gnu/packages/xdisorg.scm, gnu/packages/xorg.scm:
In all snippets, report errors using exceptions, or else return #t.
2018-03-16 11:47:34 +00:00
|
|
|
|
`(begin
|
|
|
|
|
(substitute* "contrib/asdf/asdf.lisp"
|
|
|
|
|
,@(asdf-substitutions name))
|
|
|
|
|
#t))))
|
2015-02-11 23:15:02 +00:00
|
|
|
|
(build-system gnu-build-system)
|
2015-02-21 21:28:45 +00:00
|
|
|
|
;; src/configure uses 'which' to confirm the existence of 'gzip'.
|
2015-02-11 23:15:02 +00:00
|
|
|
|
(native-inputs `(("which" ,which)))
|
|
|
|
|
(inputs `(("gmp" ,gmp)
|
|
|
|
|
("libatomic-ops" ,libatomic-ops)
|
|
|
|
|
("libgc" ,libgc)
|
|
|
|
|
("libffi" ,libffi)))
|
|
|
|
|
(arguments
|
2016-07-25 01:05:38 +00:00
|
|
|
|
'(#:tests? #t
|
|
|
|
|
#:parallel-tests? #f
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'check)
|
2016-07-25 01:05:39 +00:00
|
|
|
|
(add-after 'install 'wrap
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let* ((ecl (assoc-ref outputs "out"))
|
|
|
|
|
(input-path (lambda (lib path)
|
|
|
|
|
(string-append
|
|
|
|
|
(assoc-ref inputs lib) path)))
|
|
|
|
|
(libraries '("gmp" "libatomic-ops" "libgc" "libffi" "libc"))
|
|
|
|
|
(binaries '("gcc" "ld-wrapper" "binutils"))
|
|
|
|
|
(library-directories
|
|
|
|
|
(map (lambda (lib) (input-path lib "/lib"))
|
|
|
|
|
libraries)))
|
|
|
|
|
|
|
|
|
|
(wrap-program (string-append ecl "/bin/ecl")
|
|
|
|
|
`("PATH" prefix
|
|
|
|
|
,(map (lambda (binary)
|
|
|
|
|
(input-path binary "/bin"))
|
|
|
|
|
binaries))
|
|
|
|
|
`("CPATH" suffix
|
|
|
|
|
,(map (lambda (lib)
|
|
|
|
|
(input-path lib "/include"))
|
2016-07-31 17:21:07 +00:00
|
|
|
|
`("kernel-headers" ,@libraries)))
|
2016-07-25 01:05:39 +00:00
|
|
|
|
`("LIBRARY_PATH" suffix ,library-directories)
|
|
|
|
|
`("LD_LIBRARY_PATH" suffix ,library-directories)))))
|
2017-03-12 00:10:56 +00:00
|
|
|
|
(add-after 'wrap 'check (assoc-ref %standard-phases 'check))
|
|
|
|
|
(add-before 'check 'fix-path-to-ecl
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "build/tests/Makefile"
|
|
|
|
|
(("\\$\\{exec_prefix\\}/") ""))
|
|
|
|
|
#t)))))
|
2016-10-03 02:41:29 +00:00
|
|
|
|
(native-search-paths
|
|
|
|
|
(list (search-path-specification
|
|
|
|
|
(variable "XDG_DATA_DIRS")
|
|
|
|
|
(files '("share")))))
|
2015-02-11 23:15:02 +00:00
|
|
|
|
(home-page "http://ecls.sourceforge.net/")
|
|
|
|
|
(synopsis "Embeddable Common Lisp")
|
|
|
|
|
(description "ECL is an implementation of the Common Lisp language as
|
|
|
|
|
defined by the ANSI X3J13 specification. Its most relevant features are: a
|
|
|
|
|
bytecode compiler and interpreter, being able to compile Common Lisp with any
|
|
|
|
|
C/C++ compiler, being able to build standalone executables and libraries, and
|
|
|
|
|
supporting ASDF, Sockets, Gray streams, MOP, and other useful components.")
|
|
|
|
|
;; Note that the file "Copyright" points to some files and directories
|
|
|
|
|
;; which aren't under the lgpl2.0+ and instead contain many different,
|
|
|
|
|
;; non-copyleft licenses.
|
|
|
|
|
(license license:lgpl2.0+)))
|
2015-02-12 21:19:52 +00:00
|
|
|
|
|
|
|
|
|
(define-public clisp
|
|
|
|
|
(package
|
|
|
|
|
(name "clisp")
|
2018-10-09 17:27:37 +00:00
|
|
|
|
(version "2.49-92")
|
2015-02-12 21:19:52 +00:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
2018-10-09 17:27:37 +00:00
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://gitlab.com/gnu-clisp/clisp")
|
|
|
|
|
(commit "clisp-2.49.92-2018-02-18")))
|
|
|
|
|
(file-name (git-file-name name version))
|
2015-02-12 21:19:52 +00:00
|
|
|
|
(sha256
|
2018-10-09 17:27:37 +00:00
|
|
|
|
(base32 "0k2dmgl0miz3767iks4p0mvp6xw0ysyxhjpklyh11j010rmh6hqb"))
|
|
|
|
|
(patches (search-patches "clisp-remove-failing-test.patch"))))
|
2015-02-12 21:19:52 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs `(("libffcall" ,libffcall)
|
2017-10-03 19:46:40 +00:00
|
|
|
|
("ncurses" ,ncurses)
|
|
|
|
|
("readline" ,readline)
|
2015-02-12 21:19:52 +00:00
|
|
|
|
("libsigsegv" ,libsigsegv)))
|
|
|
|
|
(arguments
|
2018-10-09 17:27:37 +00:00
|
|
|
|
`(#:configure-flags '(,@(if (string-prefix? "armhf-linux"
|
|
|
|
|
(or (%current-system)
|
|
|
|
|
(%current-target-system)))
|
|
|
|
|
'("CFLAGS=-falign-functions=4")
|
|
|
|
|
'())
|
|
|
|
|
"--with-dynamic-ffi"
|
|
|
|
|
"--with-dynamic-modules"
|
|
|
|
|
"--with-module=rawsock")
|
2015-07-17 22:33:05 +00:00
|
|
|
|
#:build #f
|
|
|
|
|
#:phases
|
2017-01-01 10:12:29 +00:00
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'patch-sh-and-pwd
|
|
|
|
|
(lambda _
|
|
|
|
|
;; The package is very messy with its references to "/bin/sh" and
|
|
|
|
|
;; some other absolute paths to traditional tools. These appear in
|
|
|
|
|
;; many places where our automatic patching misses them. Therefore
|
|
|
|
|
;; we do the following, in this early (post-unpack) phase, to solve
|
|
|
|
|
;; the problem from its root.
|
2018-10-09 17:27:37 +00:00
|
|
|
|
(substitute* '("src/clisp-link.in"
|
|
|
|
|
"src/unix.d"
|
|
|
|
|
"src/makemake.in")
|
|
|
|
|
(("/bin/sh") (which "sh")))
|
2017-01-01 10:12:29 +00:00
|
|
|
|
(substitute* (find-files "." "configure|Makefile")
|
|
|
|
|
(("/bin/sh") "sh"))
|
|
|
|
|
(substitute* '("src/clisp-link.in")
|
|
|
|
|
(("/bin/pwd") "pwd"))
|
|
|
|
|
#t)))
|
2015-02-12 21:19:52 +00:00
|
|
|
|
;; Makefiles seem to have race conditions.
|
|
|
|
|
#:parallel-build? #f))
|
2018-10-09 17:27:37 +00:00
|
|
|
|
(home-page "https://clisp.sourceforge.io/")
|
2015-02-24 22:12:16 +00:00
|
|
|
|
(synopsis "A Common Lisp implementation")
|
|
|
|
|
(description
|
|
|
|
|
"GNU CLISP is an implementation of ANSI Common Lisp. Common Lisp is a
|
|
|
|
|
high-level, object-oriented functional programming language. CLISP includes
|
|
|
|
|
an interpreter, a compiler, a debugger, and much more.")
|
2018-03-25 06:37:55 +00:00
|
|
|
|
(license license:gpl2+)))
|
2015-02-14 18:04:12 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl")
|
2018-02-10 11:14:37 +00:00
|
|
|
|
(version "1.4.4")
|
2015-02-14 18:04:12 +00:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/sbcl/sbcl/" version "/sbcl-"
|
|
|
|
|
version "-source.tar.bz2"))
|
|
|
|
|
(sha256
|
2018-02-10 11:14:37 +00:00
|
|
|
|
(base32 "1k6v5b8qv7vyxvh8asx6phf2hbapx5pp5p5j47hgnq123fwnh4fa"))
|
2016-10-03 02:41:28 +00:00
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
;; Add sbcl-bundle-systems to 'default-system-source-registry'.
|
gnu: All snippets report errors using exceptions, else return #t.
* gnu/packages/admin.scm, gnu/packages/algebra.scm, gnu/packages/audio.scm,
gnu/packages/backup.scm, gnu/packages/base.scm,
gnu/packages/bioinformatics.scm, gnu/packages/cdrom.scm,
gnu/packages/chez.scm, gnu/packages/code.scm, gnu/packages/compression.scm,
gnu/packages/cross-base.scm, gnu/packages/crypto.scm, gnu/packages/cups.scm,
gnu/packages/databases.scm, gnu/packages/dns.scm, gnu/packages/emacs.scm,
gnu/packages/emulators.scm, gnu/packages/engineering.scm,
gnu/packages/enlightenment.scm, gnu/packages/fpga.scm,
gnu/packages/freedesktop.scm, gnu/packages/ftp.scm, gnu/packages/games.scm,
gnu/packages/gcc.scm, gnu/packages/geo.scm, gnu/packages/ghostscript.scm,
gnu/packages/gl.scm, gnu/packages/glib.scm, gnu/packages/gnome.scm,
gnu/packages/gnuzilla.scm, gnu/packages/graphics.scm, gnu/packages/gtk.scm,
gnu/packages/guile.scm, gnu/packages/irc.scm, gnu/packages/java.scm,
gnu/packages/kerberos.scm, gnu/packages/linux.scm, gnu/packages/lisp.scm,
gnu/packages/lxde.scm, gnu/packages/machine-learning.scm,
gnu/packages/mail.scm, gnu/packages/maths.scm, gnu/packages/messaging.scm,
gnu/packages/monitoring.scm, gnu/packages/mp3.scm, gnu/packages/music.scm,
gnu/packages/netpbm.scm, gnu/packages/networking.scm, gnu/packages/node.scm,
gnu/packages/nvi.scm, gnu/packages/ocaml.scm, gnu/packages/pdf.scm,
gnu/packages/perl.scm, gnu/packages/php.scm, gnu/packages/plotutils.scm,
gnu/packages/pretty-print.scm, gnu/packages/profiling.scm,
gnu/packages/pulseaudio.scm, gnu/packages/python-crypto.scm,
gnu/packages/python.scm, gnu/packages/qt.scm, gnu/packages/robotics.scm,
gnu/packages/sawfish.scm, gnu/packages/scanner.scm, gnu/packages/scheme.scm,
gnu/packages/scribus.scm, gnu/packages/sdl.scm,
gnu/packages/serialization.scm, gnu/packages/shells.scm,
gnu/packages/slang.scm, gnu/packages/smalltalk.scm, gnu/packages/ssh.scm,
gnu/packages/sync.scm, gnu/packages/syncthing.scm, gnu/packages/tbb.scm,
gnu/packages/terminals.scm, gnu/packages/texinfo.scm,
gnu/packages/text-editors.scm, gnu/packages/textutils.scm,
gnu/packages/tls.scm, gnu/packages/unrtf.scm,
gnu/packages/version-control.scm, gnu/packages/video.scm,
gnu/packages/vpn.scm, gnu/packages/web.scm, gnu/packages/wm.scm,
gnu/packages/wxwidgets.scm, gnu/packages/xdisorg.scm, gnu/packages/xorg.scm:
In all snippets, report errors using exceptions, or else return #t.
2018-03-16 11:47:34 +00:00
|
|
|
|
`(begin
|
|
|
|
|
(substitute* "contrib/asdf/asdf.lisp"
|
|
|
|
|
,@(asdf-substitutions name))
|
|
|
|
|
#t))))
|
2015-02-14 18:04:12 +00:00
|
|
|
|
(build-system gnu-build-system)
|
2016-01-10 09:41:23 +00:00
|
|
|
|
(outputs '("out" "doc"))
|
2015-02-14 18:04:12 +00:00
|
|
|
|
;; Bootstrap with CLISP.
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("clisp" ,clisp)
|
|
|
|
|
("which" ,which)
|
|
|
|
|
("inetutils" ,inetutils) ;for hostname(1)
|
2016-01-10 09:41:23 +00:00
|
|
|
|
("ed" ,ed)
|
|
|
|
|
("texlive" ,texlive)
|
|
|
|
|
("texinfo" ,texinfo)))
|
2015-02-14 18:04:12 +00:00
|
|
|
|
(arguments
|
2017-05-08 19:55:49 +00:00
|
|
|
|
'(#:modules ((guix build gnu-build-system)
|
|
|
|
|
(guix build utils)
|
|
|
|
|
(srfi srfi-1))
|
|
|
|
|
#:phases
|
2015-12-31 17:36:52 +00:00
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(add-before 'build 'patch-unix-tool-paths
|
|
|
|
|
(lambda* (#:key outputs inputs #:allow-other-keys)
|
|
|
|
|
(let ((out (assoc-ref outputs "out"))
|
|
|
|
|
(bash (assoc-ref inputs "bash"))
|
|
|
|
|
(coreutils (assoc-ref inputs "coreutils"))
|
|
|
|
|
(ed (assoc-ref inputs "ed")))
|
|
|
|
|
(define (quoted-path input path)
|
|
|
|
|
(string-append "\"" input path "\""))
|
|
|
|
|
;; Patch absolute paths in string literals. Note that this
|
|
|
|
|
;; occurs in some .sh files too (which contain Lisp code). Use
|
|
|
|
|
;; ISO-8859-1 because some of the files are ISO-8859-1 encoded.
|
|
|
|
|
(with-fluids ((%default-port-encoding #f))
|
2016-07-24 13:29:28 +00:00
|
|
|
|
;; The removed file is utf-16-be encoded, which gives substitute*
|
|
|
|
|
;; trouble. It does not contain references to the listed programs.
|
|
|
|
|
(substitute* (delete
|
|
|
|
|
"./tests/data/compile-file-pos-utf16be.lisp"
|
|
|
|
|
(find-files "." "\\.(lisp|sh)$"))
|
2015-12-31 17:36:52 +00:00
|
|
|
|
(("\"/bin/sh\"") (quoted-path bash "/bin/sh"))
|
|
|
|
|
(("\"/usr/bin/env\"") (quoted-path coreutils "/usr/bin/env"))
|
|
|
|
|
(("\"/bin/cat\"") (quoted-path coreutils "/bin/cat"))
|
|
|
|
|
(("\"/bin/ed\"") (quoted-path ed "/bin/ed"))
|
|
|
|
|
(("\"/bin/echo\"") (quoted-path coreutils "/bin/echo"))
|
|
|
|
|
(("\"/bin/uname\"") (quoted-path coreutils "/bin/uname"))))
|
|
|
|
|
;; This one script has a non-string occurrence of /bin/sh.
|
|
|
|
|
(substitute* '("tests/foreign.test.sh")
|
|
|
|
|
;; Leave whitespace so we don't match the shebang.
|
|
|
|
|
((" /bin/sh ") " sh "))
|
|
|
|
|
;; This file contains a module that can create executable files
|
|
|
|
|
;; which depend on the presence of SBCL. It generates shell
|
|
|
|
|
;; scripts doing "exec sbcl ..." to achieve this. We patch both
|
|
|
|
|
;; the shebang and the reference to "sbcl", tying the generated
|
|
|
|
|
;; executables to the exact SBCL package that generated them.
|
|
|
|
|
(substitute* '("contrib/sb-executable/sb-executable.lisp")
|
|
|
|
|
(("/bin/sh") (string-append bash "/bin/sh"))
|
|
|
|
|
(("exec sbcl") (string-append "exec " out "/bin/sbcl")))
|
|
|
|
|
;; Disable some tests that fail in our build environment.
|
|
|
|
|
(substitute* '("contrib/sb-bsd-sockets/tests.lisp")
|
|
|
|
|
;; This requires /etc/protocols.
|
|
|
|
|
(("\\(deftest get-protocol-by-name/error" all)
|
|
|
|
|
(string-append "#+nil ;disabled by Guix\n" all)))
|
|
|
|
|
(substitute* '("contrib/sb-posix/posix-tests.lisp")
|
|
|
|
|
;; These assume some users/groups which we don't have.
|
|
|
|
|
(("\\(deftest pwent\\.[12]" all)
|
|
|
|
|
(string-append "#+nil ;disabled by Guix\n" all))
|
|
|
|
|
(("\\(deftest grent\\.[12]" all)
|
|
|
|
|
(string-append "#+nil ;disabled by Guix\n" all))))))
|
|
|
|
|
(replace 'build
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(setenv "CC" "gcc")
|
|
|
|
|
(zero? (system* "sh" "make.sh" "clisp"
|
|
|
|
|
(string-append "--prefix="
|
|
|
|
|
(assoc-ref outputs "out"))))))
|
|
|
|
|
(replace 'install
|
2015-02-14 18:04:12 +00:00
|
|
|
|
(lambda _
|
2016-01-10 09:41:23 +00:00
|
|
|
|
(zero? (system* "sh" "install.sh"))))
|
|
|
|
|
(add-after 'build 'build-doc
|
|
|
|
|
(lambda _
|
|
|
|
|
(with-directory-excursion "doc/manual"
|
|
|
|
|
(and (zero? (system* "make" "info"))
|
|
|
|
|
(zero? (system* "make" "dist"))))))
|
|
|
|
|
(add-after 'install 'install-doc
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(doc (assoc-ref outputs "doc"))
|
|
|
|
|
(old-doc-dir (string-append out "/share/doc"))
|
|
|
|
|
(new-doc/sbcl-dir (string-append doc "/share/doc/sbcl")))
|
|
|
|
|
(rmdir (string-append old-doc-dir "/sbcl/html"))
|
|
|
|
|
(mkdir-p new-doc/sbcl-dir)
|
|
|
|
|
(copy-recursively (string-append old-doc-dir "/sbcl")
|
|
|
|
|
new-doc/sbcl-dir)
|
|
|
|
|
(delete-file-recursively old-doc-dir)
|
|
|
|
|
#t))))
|
2015-12-31 17:36:52 +00:00
|
|
|
|
;; No 'check' target, though "make.sh" (build phase) runs tests.
|
|
|
|
|
#:tests? #f))
|
2016-10-03 02:41:28 +00:00
|
|
|
|
(native-search-paths
|
|
|
|
|
(list (search-path-specification
|
|
|
|
|
(variable "XDG_DATA_DIRS")
|
|
|
|
|
(files '("share")))))
|
2015-02-14 18:04:12 +00:00
|
|
|
|
(home-page "http://www.sbcl.org/")
|
|
|
|
|
(synopsis "Common Lisp implementation")
|
|
|
|
|
(description "Steel Bank Common Lisp (SBCL) is a high performance Common
|
|
|
|
|
Lisp compiler. In addition to the compiler and runtime system for ANSI Common
|
|
|
|
|
Lisp, it provides an interactive environment including a debugger, a
|
|
|
|
|
statistical profiler, a code coverage tool, and many other extensions.")
|
|
|
|
|
;; Public domain in jurisdictions that allow it, bsd-2 otherwise. MIT
|
|
|
|
|
;; loop macro has its own license. See COPYING file for further notes.
|
|
|
|
|
(license (list license:public-domain license:bsd-2
|
|
|
|
|
(license:x11-style "file://src/code/loop.lisp")))))
|
2015-02-15 23:46:12 +00:00
|
|
|
|
|
|
|
|
|
(define-public ccl
|
|
|
|
|
(package
|
|
|
|
|
(name "ccl")
|
2018-02-19 03:08:15 +00:00
|
|
|
|
(version "1.11.5")
|
2015-02-15 23:46:12 +00:00
|
|
|
|
(source #f)
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
;; CCL consists of a "lisp kernel" and "heap image", both of which are
|
|
|
|
|
;; shipped in precompiled form in source tarballs. The former is a C
|
|
|
|
|
;; program which we can rebuild from scratch, but the latter cannot be
|
|
|
|
|
;; generated without an already working copy of CCL, and is platform
|
|
|
|
|
;; dependent, so we need to fetch the correct tarball for the platform.
|
|
|
|
|
(inputs
|
|
|
|
|
`(("ccl"
|
|
|
|
|
,(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
2018-02-19 03:08:15 +00:00
|
|
|
|
"https://github.com/Clozure/ccl/releases/download/v" version
|
2016-02-11 01:00:08 +00:00
|
|
|
|
"/ccl-" version "-"
|
2015-02-15 23:46:12 +00:00
|
|
|
|
(match (%current-system)
|
|
|
|
|
((or "i686-linux" "x86_64-linux") "linuxx86")
|
2015-04-19 13:55:01 +00:00
|
|
|
|
("armhf-linux" "linuxarm")
|
|
|
|
|
;; Prevent errors when querying this package on unsupported
|
|
|
|
|
;; platforms, e.g. when running "guix package --search="
|
|
|
|
|
(_ "UNSUPPORTED"))
|
2015-02-15 23:46:12 +00:00
|
|
|
|
".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
(match (%current-system)
|
|
|
|
|
((or "i686-linux" "x86_64-linux")
|
2018-02-19 03:08:15 +00:00
|
|
|
|
"0hs1f3z7crgzvinpj990kv9gvbsipxvcvwbmk54n51nasvc5025q")
|
2015-04-19 13:55:01 +00:00
|
|
|
|
("armhf-linux"
|
2018-02-19 03:08:15 +00:00
|
|
|
|
"0p0l1dzsygb6i1xxgbipjpxkn46xhq3jm41a34ga1qqp4x8lkr62")
|
2015-04-19 13:55:01 +00:00
|
|
|
|
(_ ""))))))))
|
2015-02-15 23:46:12 +00:00
|
|
|
|
(native-inputs
|
|
|
|
|
`(("m4" ,m4)
|
|
|
|
|
("subversion" ,subversion)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ;no 'check' target
|
2017-03-16 02:12:10 +00:00
|
|
|
|
#:modules ((srfi srfi-26)
|
|
|
|
|
(guix build utils)
|
|
|
|
|
(guix build gnu-build-system))
|
2015-02-15 23:46:12 +00:00
|
|
|
|
#:phases
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 15:28:42 +00:00
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(replace 'unpack
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(and (zero? (system* "tar" "xzvf" (assoc-ref inputs "ccl")))
|
|
|
|
|
(begin (chdir "ccl") #t))))
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(add-before 'build 'pre-build
|
|
|
|
|
;; Enter the source directory for the current platform's lisp
|
|
|
|
|
;; kernel, and run 'make clean' to remove the precompiled one.
|
|
|
|
|
(lambda _
|
2018-02-28 20:10:47 +00:00
|
|
|
|
(substitute* "lisp-kernel/m4macros.m4"
|
|
|
|
|
(("/bin/pwd") (which "pwd")))
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 15:28:42 +00:00
|
|
|
|
(chdir (string-append
|
|
|
|
|
"lisp-kernel/"
|
|
|
|
|
,(match (or (%current-target-system) (%current-system))
|
|
|
|
|
("i686-linux" "linuxx8632")
|
|
|
|
|
("x86_64-linux" "linuxx8664")
|
|
|
|
|
("armhf-linux" "linuxarm")
|
|
|
|
|
;; Prevent errors when querying this package
|
|
|
|
|
;; on unsupported platforms, e.g. when running
|
|
|
|
|
;; "guix package --search="
|
|
|
|
|
(_ "UNSUPPORTED"))))
|
|
|
|
|
(substitute* '("Makefile")
|
|
|
|
|
(("/bin/rm") "rm"))
|
|
|
|
|
(setenv "CC" "gcc")
|
|
|
|
|
(zero? (system* "make" "clean"))))
|
|
|
|
|
;; XXX Do we need to recompile the heap image as well for Guix?
|
|
|
|
|
;; For now just use the one we already got in the tarball.
|
|
|
|
|
(replace 'install
|
2015-02-15 23:46:12 +00:00
|
|
|
|
(lambda* (#:key outputs inputs #:allow-other-keys)
|
|
|
|
|
;; The lisp kernel built by running 'make' in lisp-kernel/$system
|
|
|
|
|
;; is put back into the original directory, so go back. The heap
|
|
|
|
|
;; image is there as well.
|
|
|
|
|
(chdir "../..")
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(libdir (string-append out "/lib/"))
|
|
|
|
|
(bindir (string-append out "/bin/"))
|
|
|
|
|
(wrapper (string-append bindir "ccl"))
|
|
|
|
|
(bash (assoc-ref inputs "bash"))
|
|
|
|
|
(kernel
|
|
|
|
|
,(match (or (%current-target-system) (%current-system))
|
2015-04-22 03:25:12 +00:00
|
|
|
|
("i686-linux" "lx86cl")
|
2015-02-15 23:46:12 +00:00
|
|
|
|
("x86_64-linux" "lx86cl64")
|
2015-04-22 03:25:12 +00:00
|
|
|
|
("armhf-linux" "armcl")
|
|
|
|
|
;; Prevent errors when querying this package
|
|
|
|
|
;; on unsupported platforms, e.g. when running
|
|
|
|
|
;; "guix package --search="
|
|
|
|
|
(_ "UNSUPPORTED")))
|
2015-02-15 23:46:12 +00:00
|
|
|
|
(heap (string-append kernel ".image")))
|
2017-03-16 02:12:10 +00:00
|
|
|
|
(install-file kernel libdir)
|
|
|
|
|
(install-file heap libdir)
|
|
|
|
|
|
|
|
|
|
(let ((dirs '("lib" "library" "examples" "contrib"
|
|
|
|
|
"tools" "objc-bridge")))
|
|
|
|
|
(for-each copy-recursively
|
|
|
|
|
dirs
|
|
|
|
|
(map (cut string-append libdir <>) dirs)))
|
|
|
|
|
|
2015-02-15 23:46:12 +00:00
|
|
|
|
(mkdir-p bindir)
|
|
|
|
|
(with-output-to-file wrapper
|
|
|
|
|
(lambda ()
|
|
|
|
|
(display
|
|
|
|
|
(string-append
|
|
|
|
|
"#!" bash "/bin/sh\n"
|
2017-03-16 02:12:11 +00:00
|
|
|
|
"CCL_DEFAULT_DIRECTORY=" libdir "\n"
|
2015-02-15 23:46:12 +00:00
|
|
|
|
"export CCL_DEFAULT_DIRECTORY\n"
|
|
|
|
|
"exec " libdir kernel "\n"))))
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 15:28:42 +00:00
|
|
|
|
(chmod wrapper #o755))
|
|
|
|
|
#t)))))
|
2015-02-15 23:46:12 +00:00
|
|
|
|
(supported-systems '("i686-linux" "x86_64-linux" "armhf-linux"))
|
|
|
|
|
(home-page "http://ccl.clozure.com/")
|
|
|
|
|
(synopsis "Common Lisp implementation")
|
|
|
|
|
(description "Clozure CL (often called CCL for short) is a Common Lisp
|
|
|
|
|
implementation featuring fast compilation speed, native threads, a precise,
|
|
|
|
|
generational, compacting garbage collector, and a convenient foreign-function
|
|
|
|
|
interface.")
|
|
|
|
|
;; See file doc/LICENSE for clarifications it makes regarding how the LGPL
|
|
|
|
|
;; applies to Lisp code according to them.
|
|
|
|
|
(license (list license:lgpl2.1
|
|
|
|
|
license:clarified-artistic)))) ;TRIVIAL-LDAP package
|
2016-02-07 16:50:12 +00:00
|
|
|
|
|
2016-09-13 19:04:15 +00:00
|
|
|
|
(define-public femtolisp
|
|
|
|
|
(let ((commit "68c5b1225572ecf2c52baf62f928063e5a30511b")
|
|
|
|
|
(revision "1"))
|
|
|
|
|
(package
|
|
|
|
|
(name "femtolisp")
|
|
|
|
|
(version (string-append "0.0.0-" revision "." (string-take commit 7)))
|
|
|
|
|
(source (origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/JeffBezanson/femtolisp.git")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(file-name (string-append name "-" version "-checkout"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"04rnwllxnl86zw8c6pwxznn49bvkvh0f1lfliy085vjzvlq3rgja"))))
|
2016-09-22 09:08:03 +00:00
|
|
|
|
;; See "utils.h" for supported systems. Upstream bug:
|
|
|
|
|
;; https://github.com/JeffBezanson/femtolisp/issues/25
|
|
|
|
|
(supported-systems
|
|
|
|
|
(fold delete %supported-systems
|
2017-04-30 09:24:08 +00:00
|
|
|
|
'("armhf-linux" "mips64el-linux" "aarch64-linux")))
|
2016-09-13 19:04:15 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2016-09-13 20:19:57 +00:00
|
|
|
|
`(#:make-flags '("CC=gcc" "release")
|
|
|
|
|
#:test-target "test"
|
2016-09-13 19:04:15 +00:00
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'configure) ; No configure script
|
|
|
|
|
(replace 'install ; Makefile has no 'install phase
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(bin (string-append out "/bin")))
|
|
|
|
|
(install-file "flisp" bin)
|
|
|
|
|
#t)))
|
|
|
|
|
;; The flisp binary is now available, run bootstrap to
|
|
|
|
|
;; generate flisp.boot and afterwards runs make test.
|
|
|
|
|
(add-after 'install 'bootstrap-gen-and-test
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(bin (string-append out "/bin")))
|
|
|
|
|
(and
|
|
|
|
|
(zero? (system* "./bootstrap.sh"))
|
|
|
|
|
(install-file "flisp.boot" bin))))))))
|
|
|
|
|
(synopsis "Scheme-like lisp implementation")
|
|
|
|
|
(description
|
|
|
|
|
"@code{femtolisp} is a scheme-like lisp implementation with a
|
|
|
|
|
simple, elegant Scheme dialect. It is a lisp-1 with lexical scope.
|
|
|
|
|
The core is 12 builtin special forms and 33 builtin functions.")
|
|
|
|
|
(home-page "https://github.com/JeffBezanson/femtolisp")
|
|
|
|
|
(license license:bsd-3))))
|
2016-10-03 02:41:30 +00:00
|
|
|
|
|
2017-02-14 18:56:44 +00:00
|
|
|
|
(define-public lush2
|
|
|
|
|
(package
|
|
|
|
|
(name "lush2")
|
|
|
|
|
(version "2.0.1")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/lush/lush2/lush-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
'(begin
|
|
|
|
|
(substitute* "src/unix.c"
|
gnu: All snippets report errors using exceptions, else return #t.
* gnu/packages/admin.scm, gnu/packages/algebra.scm, gnu/packages/audio.scm,
gnu/packages/backup.scm, gnu/packages/base.scm,
gnu/packages/bioinformatics.scm, gnu/packages/cdrom.scm,
gnu/packages/chez.scm, gnu/packages/code.scm, gnu/packages/compression.scm,
gnu/packages/cross-base.scm, gnu/packages/crypto.scm, gnu/packages/cups.scm,
gnu/packages/databases.scm, gnu/packages/dns.scm, gnu/packages/emacs.scm,
gnu/packages/emulators.scm, gnu/packages/engineering.scm,
gnu/packages/enlightenment.scm, gnu/packages/fpga.scm,
gnu/packages/freedesktop.scm, gnu/packages/ftp.scm, gnu/packages/games.scm,
gnu/packages/gcc.scm, gnu/packages/geo.scm, gnu/packages/ghostscript.scm,
gnu/packages/gl.scm, gnu/packages/glib.scm, gnu/packages/gnome.scm,
gnu/packages/gnuzilla.scm, gnu/packages/graphics.scm, gnu/packages/gtk.scm,
gnu/packages/guile.scm, gnu/packages/irc.scm, gnu/packages/java.scm,
gnu/packages/kerberos.scm, gnu/packages/linux.scm, gnu/packages/lisp.scm,
gnu/packages/lxde.scm, gnu/packages/machine-learning.scm,
gnu/packages/mail.scm, gnu/packages/maths.scm, gnu/packages/messaging.scm,
gnu/packages/monitoring.scm, gnu/packages/mp3.scm, gnu/packages/music.scm,
gnu/packages/netpbm.scm, gnu/packages/networking.scm, gnu/packages/node.scm,
gnu/packages/nvi.scm, gnu/packages/ocaml.scm, gnu/packages/pdf.scm,
gnu/packages/perl.scm, gnu/packages/php.scm, gnu/packages/plotutils.scm,
gnu/packages/pretty-print.scm, gnu/packages/profiling.scm,
gnu/packages/pulseaudio.scm, gnu/packages/python-crypto.scm,
gnu/packages/python.scm, gnu/packages/qt.scm, gnu/packages/robotics.scm,
gnu/packages/sawfish.scm, gnu/packages/scanner.scm, gnu/packages/scheme.scm,
gnu/packages/scribus.scm, gnu/packages/sdl.scm,
gnu/packages/serialization.scm, gnu/packages/shells.scm,
gnu/packages/slang.scm, gnu/packages/smalltalk.scm, gnu/packages/ssh.scm,
gnu/packages/sync.scm, gnu/packages/syncthing.scm, gnu/packages/tbb.scm,
gnu/packages/terminals.scm, gnu/packages/texinfo.scm,
gnu/packages/text-editors.scm, gnu/packages/textutils.scm,
gnu/packages/tls.scm, gnu/packages/unrtf.scm,
gnu/packages/version-control.scm, gnu/packages/video.scm,
gnu/packages/vpn.scm, gnu/packages/web.scm, gnu/packages/wm.scm,
gnu/packages/wxwidgets.scm, gnu/packages/xdisorg.scm, gnu/packages/xorg.scm:
In all snippets, report errors using exceptions, or else return #t.
2018-03-16 11:47:34 +00:00
|
|
|
|
(("\\{ \"LUSH_DATE\", __DATE__ \\},") "")
|
|
|
|
|
(("\\{ \"LUSH_TIME\", __TIME__ \\},") ""))
|
|
|
|
|
(substitute* "src/main.c"
|
|
|
|
|
(("\" \\(built \" __DATE__ \"\\)\"") ""))
|
|
|
|
|
#t))
|
2017-02-14 18:56:44 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"02pkfn3nqdkm9fm44911dbcz0v3r0l53vygj8xigl6id5g3iwi4k"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(;; We have to add these LIBS so that they are found.
|
|
|
|
|
#:configure-flags (list "LIBS=-lz"
|
|
|
|
|
"X_EXTRA_LIBS=-lfontconfig"
|
|
|
|
|
"--with-x")
|
|
|
|
|
#:tests? #f)) ; No make check.
|
|
|
|
|
(native-inputs `(("intltool" ,intltool)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("alsa-lib" ,alsa-lib)
|
|
|
|
|
("sdl" ,sdl)
|
|
|
|
|
("sdl-image" ,sdl-image)
|
|
|
|
|
("sdl-mixer" ,sdl-mixer)
|
|
|
|
|
("sdl-net" ,sdl-net)
|
|
|
|
|
("sdl-ttf" ,sdl-ttf)
|
|
|
|
|
("lapack" ,lapack)
|
|
|
|
|
("libxft" ,libxft)
|
|
|
|
|
("fontconfig" ,fontconfig)
|
|
|
|
|
("gsl" ,gsl)
|
|
|
|
|
("openblas" ,openblas)
|
|
|
|
|
("glu" ,glu)
|
|
|
|
|
("mesa" ,mesa)
|
|
|
|
|
("mesa-utils" ,mesa-utils)
|
|
|
|
|
("binutils" ,binutils)
|
|
|
|
|
("libiberty" ,libiberty)
|
|
|
|
|
("readline" ,readline)
|
|
|
|
|
("zlib" ,zlib)
|
|
|
|
|
("gettext-minimal" ,gettext-minimal)))
|
|
|
|
|
(synopsis "Lisp Universal Shell")
|
|
|
|
|
(description
|
|
|
|
|
"Lush is an object-oriented Lisp interpreter/compiler with features
|
|
|
|
|
designed to please people who want to prototype large numerical
|
|
|
|
|
applications. Lush includes an extensive library of
|
|
|
|
|
vector/matrix/tensor manipulation, numerous numerical libraries
|
|
|
|
|
(including GSL, LAPACK, and BLAS), a set of graphic functions, a
|
|
|
|
|
simple GUI toolkit, and interfaces to various graphic and multimedia
|
|
|
|
|
libraries such as OpenGL, SDL, Video4Linux, and ALSA (video/audio
|
|
|
|
|
grabbing), and others. Lush is an ideal frontend script language for
|
|
|
|
|
programming projects written in C or other languages. Lush also has
|
|
|
|
|
libraries for Machine Learning, Neural Nets and statistical estimation.")
|
|
|
|
|
(home-page "http://lush.sourceforge.net/")
|
|
|
|
|
(license license:lgpl2.1+)))
|
|
|
|
|
|
2016-10-03 02:41:30 +00:00
|
|
|
|
(define-public sbcl-alexandria
|
|
|
|
|
(let ((revision "1")
|
|
|
|
|
(commit "926a066611b7b11cb71e26c827a271e500888c30"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-alexandria")
|
|
|
|
|
(version (string-append "0.0.0-" revision "." (string-take commit 7)))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://gitlab.common-lisp.net/alexandria/alexandria.git")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"18yncicdkh294j05rhgm23gzi36y9qy6vrfba8vg69jrxjp1hx8l"))
|
|
|
|
|
(file-name (string-append "alexandria-" version "-checkout"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(synopsis "Collection of portable utilities for Common Lisp")
|
|
|
|
|
(description
|
|
|
|
|
"Alexandria is a collection of portable utilities. It does not contain
|
|
|
|
|
conceptual extensions to Common Lisp. It is conservative in scope, and
|
|
|
|
|
portable between implementations.")
|
|
|
|
|
(home-page "https://common-lisp.net/project/alexandria/")
|
|
|
|
|
(license license:public-domain))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-alexandria
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-alexandria))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-alexandria
|
|
|
|
|
(sbcl-package->ecl-package sbcl-alexandria))
|
2016-10-03 02:41:31 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-fiveam
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-fiveam")
|
|
|
|
|
(version "1.2")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://github.com/sionescu/fiveam/archive/v"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "0f48pcbhqs3wwwzjl5nk57d4hcbib4l9xblxc66b8c2fhvhmhxnv"))
|
|
|
|
|
(file-name (string-append "fiveam-" version ".tar.gz"))))
|
2017-04-03 13:01:24 +00:00
|
|
|
|
(inputs `(("alexandria" ,sbcl-alexandria)))
|
2016-10-03 02:41:31 +00:00
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(synopsis "Common Lisp testing framework")
|
|
|
|
|
(description "FiveAM is a simple (as far as writing and running tests
|
|
|
|
|
goes) regression testing framework. It has been designed with Common Lisp's
|
|
|
|
|
interactive development model in mind.")
|
|
|
|
|
(home-page "https://common-lisp.net/project/fiveam/")
|
|
|
|
|
(license license:bsd-3)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-fiveam
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-fiveam))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-fiveam
|
|
|
|
|
(sbcl-package->ecl-package sbcl-fiveam))
|
2016-10-03 02:41:32 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-bordeaux-threads
|
2018-02-19 03:20:06 +00:00
|
|
|
|
(let ((commit "354abb0ae9f1d9324001e1a8abab3128d7420e0e")
|
|
|
|
|
(revision "1"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-bordeaux-threads")
|
|
|
|
|
(version (git-version "0.8.5" revision commit))
|
|
|
|
|
(source (origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/sionescu/bordeaux-threads.git")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "1hcfp21l6av1xj6z7r77sp6h4mwf9vvx4s745803sysq2qy2mwnq"))
|
|
|
|
|
(file-name
|
|
|
|
|
(git-file-name "bordeaux-threads" version))))
|
|
|
|
|
(inputs `(("alexandria" ,sbcl-alexandria)))
|
|
|
|
|
(native-inputs `(("fiveam" ,sbcl-fiveam)))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(synopsis "Portable shared-state concurrency library for Common Lisp")
|
|
|
|
|
(description "BORDEAUX-THREADS is a proposed standard for a minimal
|
2016-10-03 02:41:32 +00:00
|
|
|
|
MP/Threading interface. It is similar to the CLIM-SYS threading and lock
|
|
|
|
|
support.")
|
2018-02-19 03:20:06 +00:00
|
|
|
|
(home-page "https://common-lisp.net/project/bordeaux-threads/")
|
|
|
|
|
(license license:x11))))
|
2016-10-03 02:41:32 +00:00
|
|
|
|
|
|
|
|
|
(define-public cl-bordeaux-threads
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-bordeaux-threads))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-bordeaux-threads
|
|
|
|
|
(sbcl-package->ecl-package sbcl-bordeaux-threads))
|
2016-10-03 02:41:33 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-trivial-gray-streams
|
|
|
|
|
(let ((revision "1")
|
|
|
|
|
(commit "0483ade330508b4b2edeabdb47d16ec9437ee1cb"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-trivial-gray-streams")
|
|
|
|
|
(version (string-append "0.0.0-" revision "." (string-take commit 7)))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri
|
|
|
|
|
(git-reference
|
|
|
|
|
(url "https://github.com/trivial-gray-streams/trivial-gray-streams.git")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "0m3rpf2x0zmdk3nf1qfa01j6a55vj7gkwhyw78qslcgbjlgh8p4d"))
|
|
|
|
|
(file-name
|
|
|
|
|
(string-append "trivial-gray-streams-" version "-checkout"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(synopsis "Compatibility layer for Gray streams implementations")
|
|
|
|
|
(description "Gray streams is an interface proposed for inclusion with
|
|
|
|
|
ANSI CL by David N. Gray. The proposal did not make it into ANSI CL, but most
|
|
|
|
|
popular CL implementations implement it. This package provides an extremely
|
|
|
|
|
thin compatibility layer for gray streams.")
|
|
|
|
|
(home-page "http://www.cliki.net/trivial-gray-streams")
|
|
|
|
|
(license license:x11))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-trivial-gray-streams
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-trivial-gray-streams))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-trivial-gray-streams
|
|
|
|
|
(sbcl-package->ecl-package sbcl-trivial-gray-streams))
|
2016-10-03 02:41:34 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-flexi-streams
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-flexi-streams")
|
2017-12-13 20:06:08 +00:00
|
|
|
|
(version "1.0.16")
|
2016-10-03 02:41:34 +00:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://github.com/edicl/flexi-streams/archive/v"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
2017-12-13 20:06:08 +00:00
|
|
|
|
(base32 "1fb0jrwxr5c3i2lhy7kn30m1n0vggfzwjm1dacx6y5wf9wfsbamw"))
|
2016-10-03 02:41:34 +00:00
|
|
|
|
(file-name (string-append "flexi-streams-" version ".tar.gz"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
2017-04-03 13:01:24 +00:00
|
|
|
|
(inputs `(("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
|
2016-10-03 02:41:34 +00:00
|
|
|
|
(synopsis "Implementation of virtual bivalent streams for Common Lisp")
|
|
|
|
|
(description "Flexi-streams is an implementation of \"virtual\" bivalent
|
|
|
|
|
streams that can be layered atop real binary or bivalent streams and that can
|
|
|
|
|
be used to read and write character data in various single- or multi-octet
|
|
|
|
|
encodings which can be changed on the fly. It also supplies in-memory binary
|
|
|
|
|
streams which are similar to string streams.")
|
|
|
|
|
(home-page "http://weitz.de/flexi-streams/")
|
|
|
|
|
(license license:bsd-3)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-flexi-streams
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-flexi-streams))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-flexi-streams
|
|
|
|
|
(sbcl-package->ecl-package sbcl-flexi-streams))
|
2016-10-03 02:41:35 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-ppcre
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-cl-ppcre")
|
|
|
|
|
(version "2.0.11")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://github.com/edicl/cl-ppcre/archive/v"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "1i7daxf0wnydb0pgwiym7qh2wy70n14lxd6dyv28sy0naa8p31gd"))
|
|
|
|
|
(file-name (string-append "cl-ppcre-" version ".tar.gz"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
2017-04-03 13:01:24 +00:00
|
|
|
|
(native-inputs `(("flexi-streams" ,sbcl-flexi-streams)))
|
2016-10-03 02:41:35 +00:00
|
|
|
|
(synopsis "Portable regular expression library for Common Lisp")
|
|
|
|
|
(description "CL-PPCRE is a portable regular expression library for Common
|
|
|
|
|
Lisp, which is compatible with perl. It is pretty fast, thread-safe, and
|
|
|
|
|
compatible with ANSI-compliant Common Lisp implementations.")
|
|
|
|
|
(home-page "http://weitz.de/cl-ppcre/")
|
|
|
|
|
(license license:bsd-2)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-ppcre
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-cl-ppcre))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-cl-ppcre
|
|
|
|
|
(sbcl-package->ecl-package sbcl-cl-ppcre))
|
2016-10-03 02:41:36 +00:00
|
|
|
|
|
2017-04-03 13:01:31 +00:00
|
|
|
|
(define sbcl-cl-unicode-base
|
|
|
|
|
(let ((revision "1")
|
|
|
|
|
(commit "9fcd06fba1ddc9e66aed2f2d6c32dc9b764f03ea"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-cl-unicode-base")
|
|
|
|
|
(version (string-append "0.1.5-" revision "." (string-take commit 7)))
|
|
|
|
|
(source (origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/edicl/cl-unicode.git")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(file-name (string-append "cl-unicode-" version "-checkout"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1jicprb5b3bv57dy1kg03572gxkcaqdjhak00426s76g0plmx5ki"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:asd-file "cl-unicode.asd"
|
|
|
|
|
#:asd-system-name "cl-unicode/base"))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("cl-ppcre" ,sbcl-cl-ppcre)))
|
|
|
|
|
(home-page "http://weitz.de/cl-unicode/")
|
|
|
|
|
(synopsis "Portable Unicode library for Common Lisp")
|
|
|
|
|
(description "CL-UNICODE is a portable Unicode library Common Lisp, which
|
|
|
|
|
is compatible with perl. It is pretty fast, thread-safe, and compatible with
|
|
|
|
|
ANSI-compliant Common Lisp implementations.")
|
|
|
|
|
(license license:bsd-2))))
|
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-unicode
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-cl-unicode-base)
|
|
|
|
|
(name "sbcl-cl-unicode")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("cl-unicode/base" ,sbcl-cl-unicode-base)
|
|
|
|
|
,@(package-inputs sbcl-cl-unicode-base)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("flexi-streams" ,sbcl-flexi-streams)))
|
|
|
|
|
(arguments '())))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-cl-unicode
|
|
|
|
|
(sbcl-package->ecl-package sbcl-cl-unicode))
|
|
|
|
|
|
|
|
|
|
(define-public cl-unicode
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-cl-unicode))
|
|
|
|
|
|
2016-10-03 02:41:36 +00:00
|
|
|
|
(define-public sbcl-clx
|
|
|
|
|
(let ((revision "1")
|
|
|
|
|
(commit "1c62774b03c1cf3fe6e5cb532df8b14b44c96b95"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-clx")
|
|
|
|
|
(version (string-append "0.0.0-" revision "." (string-take commit 7)))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri
|
|
|
|
|
(git-reference
|
|
|
|
|
(url "https://github.com/sharplispers/clx.git")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "0qffag03ns52kwq9xjns2qg1yr0bf3ba507iwq5cmx5xz0b0rmjm"))
|
|
|
|
|
(file-name (string-append "clx-" version "-checkout"))
|
|
|
|
|
(patches
|
|
|
|
|
(list
|
|
|
|
|
(search-patch "clx-remove-demo.patch")))
|
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
'(begin
|
|
|
|
|
;; These removed files cause the compiled system to crash when
|
|
|
|
|
;; loading.
|
|
|
|
|
(delete-file-recursively "demo")
|
|
|
|
|
(delete-file "test/trapezoid.lisp")
|
|
|
|
|
(substitute* "clx.asd"
|
gnu: All snippets report errors using exceptions, else return #t.
* gnu/packages/admin.scm, gnu/packages/algebra.scm, gnu/packages/audio.scm,
gnu/packages/backup.scm, gnu/packages/base.scm,
gnu/packages/bioinformatics.scm, gnu/packages/cdrom.scm,
gnu/packages/chez.scm, gnu/packages/code.scm, gnu/packages/compression.scm,
gnu/packages/cross-base.scm, gnu/packages/crypto.scm, gnu/packages/cups.scm,
gnu/packages/databases.scm, gnu/packages/dns.scm, gnu/packages/emacs.scm,
gnu/packages/emulators.scm, gnu/packages/engineering.scm,
gnu/packages/enlightenment.scm, gnu/packages/fpga.scm,
gnu/packages/freedesktop.scm, gnu/packages/ftp.scm, gnu/packages/games.scm,
gnu/packages/gcc.scm, gnu/packages/geo.scm, gnu/packages/ghostscript.scm,
gnu/packages/gl.scm, gnu/packages/glib.scm, gnu/packages/gnome.scm,
gnu/packages/gnuzilla.scm, gnu/packages/graphics.scm, gnu/packages/gtk.scm,
gnu/packages/guile.scm, gnu/packages/irc.scm, gnu/packages/java.scm,
gnu/packages/kerberos.scm, gnu/packages/linux.scm, gnu/packages/lisp.scm,
gnu/packages/lxde.scm, gnu/packages/machine-learning.scm,
gnu/packages/mail.scm, gnu/packages/maths.scm, gnu/packages/messaging.scm,
gnu/packages/monitoring.scm, gnu/packages/mp3.scm, gnu/packages/music.scm,
gnu/packages/netpbm.scm, gnu/packages/networking.scm, gnu/packages/node.scm,
gnu/packages/nvi.scm, gnu/packages/ocaml.scm, gnu/packages/pdf.scm,
gnu/packages/perl.scm, gnu/packages/php.scm, gnu/packages/plotutils.scm,
gnu/packages/pretty-print.scm, gnu/packages/profiling.scm,
gnu/packages/pulseaudio.scm, gnu/packages/python-crypto.scm,
gnu/packages/python.scm, gnu/packages/qt.scm, gnu/packages/robotics.scm,
gnu/packages/sawfish.scm, gnu/packages/scanner.scm, gnu/packages/scheme.scm,
gnu/packages/scribus.scm, gnu/packages/sdl.scm,
gnu/packages/serialization.scm, gnu/packages/shells.scm,
gnu/packages/slang.scm, gnu/packages/smalltalk.scm, gnu/packages/ssh.scm,
gnu/packages/sync.scm, gnu/packages/syncthing.scm, gnu/packages/tbb.scm,
gnu/packages/terminals.scm, gnu/packages/texinfo.scm,
gnu/packages/text-editors.scm, gnu/packages/textutils.scm,
gnu/packages/tls.scm, gnu/packages/unrtf.scm,
gnu/packages/version-control.scm, gnu/packages/video.scm,
gnu/packages/vpn.scm, gnu/packages/web.scm, gnu/packages/wm.scm,
gnu/packages/wxwidgets.scm, gnu/packages/xdisorg.scm, gnu/packages/xorg.scm:
In all snippets, report errors using exceptions, or else return #t.
2018-03-16 11:47:34 +00:00
|
|
|
|
(("\\(:file \"trapezoid\"\\)") ""))
|
|
|
|
|
#t))))
|
2016-10-03 02:41:36 +00:00
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(home-page "http://www.cliki.net/portable-clx")
|
|
|
|
|
(synopsis "X11 client library for Common Lisp")
|
|
|
|
|
(description "CLX is an X11 client library for Common Lisp. The code was
|
|
|
|
|
originally taken from a CMUCL distribution, was modified somewhat in order to
|
|
|
|
|
make it compile and run under SBCL, then a selection of patches were added
|
|
|
|
|
from other CLXes around the net.")
|
|
|
|
|
(license license:x11))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-clx
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-clx))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-clx
|
|
|
|
|
(sbcl-package->ecl-package sbcl-clx))
|
2016-10-07 08:07:41 +00:00
|
|
|
|
|
2017-05-29 16:47:44 +00:00
|
|
|
|
(define-public sbcl-cl-ppcre-unicode
|
|
|
|
|
(package (inherit sbcl-cl-ppcre)
|
|
|
|
|
(name "sbcl-cl-ppcre-unicode")
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ; tests fail with "Component :CL-PPCRE-TEST not found"
|
|
|
|
|
#:asd-file "cl-ppcre-unicode.asd"))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
|
|
|
|
|
("sbcl-cl-unicode" ,sbcl-cl-unicode)))))
|
|
|
|
|
|
2016-10-07 08:07:41 +00:00
|
|
|
|
(define-public sbcl-stumpwm
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-stumpwm")
|
2018-06-18 21:27:30 +00:00
|
|
|
|
(version "18.05")
|
2016-10-07 08:07:41 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://github.com/stumpwm/stumpwm/archive/"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
2018-06-18 21:27:30 +00:00
|
|
|
|
(base32 "1n2gaab3lwgf5r1hmwdcw13dkv9xdd7drn2shx28kfxvhdc9kbb9"))
|
2016-10-07 08:07:41 +00:00
|
|
|
|
(file-name (string-append "stumpwm-" version ".tar.gz"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
2017-04-03 13:01:24 +00:00
|
|
|
|
(inputs `(("cl-ppcre" ,sbcl-cl-ppcre)
|
2018-06-18 21:27:30 +00:00
|
|
|
|
("clx" ,sbcl-clx)
|
|
|
|
|
("alexandria" ,sbcl-alexandria)))
|
2017-04-03 13:01:22 +00:00
|
|
|
|
(outputs '("out" "lib"))
|
2016-10-07 08:07:41 +00:00
|
|
|
|
(arguments
|
2017-04-03 13:01:23 +00:00
|
|
|
|
'(#:phases
|
2016-10-07 08:07:41 +00:00
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'create-symlinks 'build-program
|
2017-04-03 13:01:27 +00:00
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
2016-10-07 08:07:41 +00:00
|
|
|
|
(build-program
|
2017-04-03 13:01:22 +00:00
|
|
|
|
(string-append (assoc-ref outputs "out") "/bin/stumpwm")
|
2017-04-03 13:01:33 +00:00
|
|
|
|
outputs
|
2016-10-07 08:07:41 +00:00
|
|
|
|
#:entry-program '((stumpwm:stumpwm) 0))))
|
|
|
|
|
(add-after 'build-program 'create-desktop-file
|
2017-04-03 13:01:22 +00:00
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(xsessions (string-append out "/share/xsessions")))
|
|
|
|
|
(mkdir-p xsessions)
|
|
|
|
|
(call-with-output-file
|
|
|
|
|
(string-append xsessions "/stumpwm.desktop")
|
|
|
|
|
(lambda (file)
|
|
|
|
|
(format file
|
2016-10-07 08:07:41 +00:00
|
|
|
|
"[Desktop Entry]~@
|
|
|
|
|
Name=stumpwm~@
|
|
|
|
|
Comment=The Stump Window Manager~@
|
|
|
|
|
Exec=~a/bin/stumpwm~@
|
|
|
|
|
TryExec=~@*~a/bin/stumpwm~@
|
|
|
|
|
Icon=~@
|
|
|
|
|
Type=Application~%"
|
2017-04-03 13:01:22 +00:00
|
|
|
|
out)))
|
2016-10-07 08:07:41 +00:00
|
|
|
|
#t))))))
|
|
|
|
|
(synopsis "Window manager written in Common Lisp")
|
|
|
|
|
(description "Stumpwm is a window manager written entirely in Common Lisp.
|
|
|
|
|
It attempts to be highly customizable while relying entirely on the keyboard
|
|
|
|
|
for input. These design decisions reflect the growing popularity of
|
|
|
|
|
productive, customizable lisp based systems.")
|
gnu: Use HTTPS URLs for GitHub home-pages.
* gnu/packages/bioinformatics.scm, gnu/packages/emacs.scm,
gnu/packages/haskell.scm, gnu/packages/libffi.scm, gnu/packages/lisp.scm,
gnu/packages/ocaml.scm, gnu/packages/openstack.scm, gnu/packages/python.scm,
gnu/packages/ruby.scm, gnu/packages/shells.scm, gnu/packages/statistics.scm,
gnu/packages/xdisorg.scm: Use HTTPS URLs for all packages with a home-page on
GitHub.
2017-03-21 21:34:40 +00:00
|
|
|
|
(home-page "https://github.com/stumpwm/stumpwm")
|
2016-10-07 08:07:41 +00:00
|
|
|
|
(license license:gpl2+)
|
|
|
|
|
(properties `((ecl-variant . ,(delay ecl-stumpwm))))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-stumpwm
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-stumpwm))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-stumpwm
|
|
|
|
|
(let ((base (sbcl-package->ecl-package sbcl-stumpwm)))
|
|
|
|
|
(package
|
|
|
|
|
(inherit base)
|
|
|
|
|
(outputs '("out"))
|
|
|
|
|
(arguments '()))))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
|
2017-04-03 13:01:19 +00:00
|
|
|
|
;; The slynk that users expect to install includes all of slynk's contrib
|
|
|
|
|
;; modules. Therefore, we build the base module and all contribs first; then
|
|
|
|
|
;; we expose the union of these as `sbcl-slynk'. The following variable
|
|
|
|
|
;; describes the base module.
|
2016-10-07 08:07:49 +00:00
|
|
|
|
(define sbcl-slynk-boot0
|
2018-08-30 05:36:32 +00:00
|
|
|
|
(let ((revision "2")
|
|
|
|
|
(commit "cbf84c36c4eca8b032e3fd16177a7bc02df3ec4c"))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
(package
|
2017-04-09 03:50:01 +00:00
|
|
|
|
(name "sbcl-slynk-boot0")
|
2016-10-07 08:07:49 +00:00
|
|
|
|
(version (string-append "1.0.0-beta-" revision "." (string-take commit 7)))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri
|
|
|
|
|
(git-reference
|
|
|
|
|
(url "https://github.com/joaotavora/sly.git")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
2018-08-30 05:36:32 +00:00
|
|
|
|
(base32 "13dyhsravn591p7g6is01mp2ynzjnnj7pwgi57r6xqmd4611y9vh"))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
(file-name (string-append "slynk-" version "-checkout"))
|
|
|
|
|
(modules '((guix build utils)
|
|
|
|
|
(ice-9 ftw)))
|
|
|
|
|
(snippet
|
|
|
|
|
'(begin
|
|
|
|
|
;; Move the contribs into the main source directory for easier
|
|
|
|
|
;; access
|
|
|
|
|
(substitute* "slynk/slynk.asd"
|
|
|
|
|
(("\\.\\./contrib")
|
|
|
|
|
"contrib")
|
2018-08-30 05:36:32 +00:00
|
|
|
|
(("\\(defsystem :slynk/util")
|
|
|
|
|
"(defsystem :slynk/util :depends-on (:slynk)")
|
|
|
|
|
((":depends-on \\(:slynk :slynk/util\\)")
|
|
|
|
|
":depends-on (:slynk :slynk-util)"))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
(substitute* "contrib/slynk-trace-dialog.lisp"
|
|
|
|
|
(("\\(slynk::reset-inspector\\)") ; Causes problems on load
|
|
|
|
|
"nil"))
|
|
|
|
|
(substitute* "contrib/slynk-profiler.lisp"
|
|
|
|
|
(("slynk:to-line")
|
|
|
|
|
"slynk-pprint-to-line"))
|
2018-08-30 05:36:32 +00:00
|
|
|
|
(substitute* "contrib/slynk-fancy-inspector.lisp"
|
|
|
|
|
(("slynk/util") "slynk-util")
|
|
|
|
|
((":compile-toplevel :load-toplevel") ""))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
(rename-file "contrib" "slynk/contrib")
|
|
|
|
|
;; Move slynk's contents into the base directory for easier
|
|
|
|
|
;; access
|
gnu: All snippets report errors using exceptions, else return #t.
* gnu/packages/admin.scm, gnu/packages/algebra.scm, gnu/packages/audio.scm,
gnu/packages/backup.scm, gnu/packages/base.scm,
gnu/packages/bioinformatics.scm, gnu/packages/cdrom.scm,
gnu/packages/chez.scm, gnu/packages/code.scm, gnu/packages/compression.scm,
gnu/packages/cross-base.scm, gnu/packages/crypto.scm, gnu/packages/cups.scm,
gnu/packages/databases.scm, gnu/packages/dns.scm, gnu/packages/emacs.scm,
gnu/packages/emulators.scm, gnu/packages/engineering.scm,
gnu/packages/enlightenment.scm, gnu/packages/fpga.scm,
gnu/packages/freedesktop.scm, gnu/packages/ftp.scm, gnu/packages/games.scm,
gnu/packages/gcc.scm, gnu/packages/geo.scm, gnu/packages/ghostscript.scm,
gnu/packages/gl.scm, gnu/packages/glib.scm, gnu/packages/gnome.scm,
gnu/packages/gnuzilla.scm, gnu/packages/graphics.scm, gnu/packages/gtk.scm,
gnu/packages/guile.scm, gnu/packages/irc.scm, gnu/packages/java.scm,
gnu/packages/kerberos.scm, gnu/packages/linux.scm, gnu/packages/lisp.scm,
gnu/packages/lxde.scm, gnu/packages/machine-learning.scm,
gnu/packages/mail.scm, gnu/packages/maths.scm, gnu/packages/messaging.scm,
gnu/packages/monitoring.scm, gnu/packages/mp3.scm, gnu/packages/music.scm,
gnu/packages/netpbm.scm, gnu/packages/networking.scm, gnu/packages/node.scm,
gnu/packages/nvi.scm, gnu/packages/ocaml.scm, gnu/packages/pdf.scm,
gnu/packages/perl.scm, gnu/packages/php.scm, gnu/packages/plotutils.scm,
gnu/packages/pretty-print.scm, gnu/packages/profiling.scm,
gnu/packages/pulseaudio.scm, gnu/packages/python-crypto.scm,
gnu/packages/python.scm, gnu/packages/qt.scm, gnu/packages/robotics.scm,
gnu/packages/sawfish.scm, gnu/packages/scanner.scm, gnu/packages/scheme.scm,
gnu/packages/scribus.scm, gnu/packages/sdl.scm,
gnu/packages/serialization.scm, gnu/packages/shells.scm,
gnu/packages/slang.scm, gnu/packages/smalltalk.scm, gnu/packages/ssh.scm,
gnu/packages/sync.scm, gnu/packages/syncthing.scm, gnu/packages/tbb.scm,
gnu/packages/terminals.scm, gnu/packages/texinfo.scm,
gnu/packages/text-editors.scm, gnu/packages/textutils.scm,
gnu/packages/tls.scm, gnu/packages/unrtf.scm,
gnu/packages/version-control.scm, gnu/packages/video.scm,
gnu/packages/vpn.scm, gnu/packages/web.scm, gnu/packages/wm.scm,
gnu/packages/wxwidgets.scm, gnu/packages/xdisorg.scm, gnu/packages/xorg.scm:
In all snippets, report errors using exceptions, or else return #t.
2018-03-16 11:47:34 +00:00
|
|
|
|
(for-each (lambda (file)
|
|
|
|
|
(unless (string-prefix? "." file)
|
|
|
|
|
(rename-file (string-append "slynk/" file)
|
|
|
|
|
(string-append "./" (basename file)))))
|
|
|
|
|
(scandir "slynk"))
|
|
|
|
|
#t))))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(arguments
|
2017-04-09 03:50:01 +00:00
|
|
|
|
`(#:tests? #f ; No test suite
|
|
|
|
|
#:asd-system-name "slynk"))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
(synopsis "Common Lisp IDE for Emacs")
|
2017-04-03 13:01:18 +00:00
|
|
|
|
(description "SLY is a fork of SLIME, an IDE backend for Common Lisp.
|
|
|
|
|
It also features a completely redesigned REPL based on Emacs's own
|
|
|
|
|
full-featured comint.el, live code annotations, and a consistent interactive
|
|
|
|
|
button interface. Everything can be copied to the REPL. One can create
|
|
|
|
|
multiple inspectors with independent history.")
|
2016-10-07 08:07:49 +00:00
|
|
|
|
(home-page "https://github.com/joaotavora/sly")
|
|
|
|
|
(license license:public-domain)
|
|
|
|
|
(properties `((cl-source-variant . ,(delay cl-slynk)))))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-slynk
|
2017-04-09 03:50:01 +00:00
|
|
|
|
(package
|
|
|
|
|
(inherit (sbcl-package->cl-source-package sbcl-slynk-boot0))
|
|
|
|
|
(name "cl-slynk")))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
|
|
|
|
|
(define ecl-slynk-boot0
|
|
|
|
|
(sbcl-package->ecl-package sbcl-slynk-boot0))
|
|
|
|
|
|
|
|
|
|
(define sbcl-slynk-arglists
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-slynk-boot0)
|
|
|
|
|
(name "sbcl-slynk-arglists")
|
2017-04-03 13:01:24 +00:00
|
|
|
|
(inputs `(("slynk" ,sbcl-slynk-boot0)))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
(arguments
|
2017-04-09 03:50:01 +00:00
|
|
|
|
(substitute-keyword-arguments (package-arguments sbcl-slynk-boot0)
|
|
|
|
|
((#:asd-file _ "") "slynk.asd")
|
2018-08-30 05:36:32 +00:00
|
|
|
|
((#:asd-system-name _ #f) "slynk/arglists")))))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
|
|
|
|
|
(define ecl-slynk-arglists
|
|
|
|
|
(sbcl-package->ecl-package sbcl-slynk-arglists))
|
|
|
|
|
|
|
|
|
|
(define sbcl-slynk-util
|
|
|
|
|
(package
|
2018-08-30 05:36:32 +00:00
|
|
|
|
(inherit sbcl-slynk-boot0)
|
|
|
|
|
(name "sbcl-slynk-util")
|
|
|
|
|
(inputs `(("slynk" ,sbcl-slynk-boot0)))
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments sbcl-slynk-boot0)
|
|
|
|
|
((#:asd-file _ "") "slynk.asd")
|
|
|
|
|
((#:asd-system-name _ #f) "slynk/util")))))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
|
|
|
|
|
(define ecl-slynk-util
|
|
|
|
|
(sbcl-package->ecl-package sbcl-slynk-util))
|
|
|
|
|
|
|
|
|
|
(define sbcl-slynk-fancy-inspector
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-slynk-arglists)
|
|
|
|
|
(name "sbcl-slynk-fancy-inspector")
|
2017-04-03 13:01:24 +00:00
|
|
|
|
(inputs `(("slynk-util" ,sbcl-slynk-util)
|
2018-08-30 05:36:32 +00:00
|
|
|
|
,@(package-inputs sbcl-slynk-arglists)))
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
|
|
|
|
|
((#:asd-system-name _ #f) "slynk/fancy-inspector")))))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
|
|
|
|
|
(define ecl-slynk-fancy-inspector
|
|
|
|
|
(sbcl-package->ecl-package sbcl-slynk-fancy-inspector))
|
|
|
|
|
|
|
|
|
|
(define sbcl-slynk-package-fu
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-slynk-arglists)
|
2018-08-30 05:36:32 +00:00
|
|
|
|
(name "sbcl-slynk-package-fu")
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
|
|
|
|
|
((#:asd-system-name _ #f) "slynk/package-fu")))))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
|
|
|
|
|
(define ecl-slynk-package-fu
|
|
|
|
|
(sbcl-package->ecl-package sbcl-slynk-package-fu))
|
|
|
|
|
|
|
|
|
|
(define sbcl-slynk-mrepl
|
|
|
|
|
(package
|
2018-08-30 05:36:32 +00:00
|
|
|
|
(inherit sbcl-slynk-fancy-inspector)
|
|
|
|
|
(name "sbcl-slynk-mrepl")
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
|
|
|
|
|
((#:asd-system-name _ #f) "slynk/mrepl")))))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
|
|
|
|
|
(define ecl-slynk-mrepl
|
|
|
|
|
(sbcl-package->ecl-package sbcl-slynk-mrepl))
|
|
|
|
|
|
|
|
|
|
(define sbcl-slynk-trace-dialog
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-slynk-arglists)
|
2018-08-30 05:36:32 +00:00
|
|
|
|
(name "sbcl-slynk-trace-dialog")
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
|
|
|
|
|
((#:asd-system-name _ #f) "slynk/trace-dialog")))))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
|
|
|
|
|
(define ecl-slynk-trace-dialog
|
|
|
|
|
(sbcl-package->ecl-package sbcl-slynk-trace-dialog))
|
|
|
|
|
|
|
|
|
|
(define sbcl-slynk-profiler
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-slynk-arglists)
|
2018-08-30 05:36:32 +00:00
|
|
|
|
(name "sbcl-slynk-profiler")
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
|
|
|
|
|
((#:asd-system-name _ #f) "slynk/profiler")))))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
|
|
|
|
|
(define ecl-slynk-profiler
|
|
|
|
|
(sbcl-package->ecl-package sbcl-slynk-profiler))
|
|
|
|
|
|
|
|
|
|
(define sbcl-slynk-stickers
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-slynk-arglists)
|
2018-08-30 05:36:32 +00:00
|
|
|
|
(name "sbcl-slynk-stickers")
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
|
|
|
|
|
((#:asd-system-name _ #f) "slynk/stickers")))))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
|
|
|
|
|
(define ecl-slynk-stickers
|
|
|
|
|
(sbcl-package->ecl-package sbcl-slynk-stickers))
|
|
|
|
|
|
|
|
|
|
(define sbcl-slynk-indentation
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-slynk-arglists)
|
2018-08-30 05:36:32 +00:00
|
|
|
|
(name "sbcl-slynk-indentation")
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
|
|
|
|
|
((#:asd-system-name _ #f) "slynk/indentation")))))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
|
|
|
|
|
(define ecl-slynk-indentation
|
|
|
|
|
(sbcl-package->ecl-package sbcl-slynk-indentation))
|
|
|
|
|
|
|
|
|
|
(define sbcl-slynk-retro
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-slynk-arglists)
|
2018-08-30 05:36:32 +00:00
|
|
|
|
(name "sbcl-slynk-retro")
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
|
|
|
|
|
((#:asd-system-name _ #f) "slynk/retro")))))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
|
|
|
|
|
(define ecl-slynk-retro
|
|
|
|
|
(sbcl-package->ecl-package sbcl-slynk-retro))
|
|
|
|
|
|
|
|
|
|
(define slynk-systems
|
|
|
|
|
'("slynk"
|
|
|
|
|
"slynk-util"
|
|
|
|
|
"slynk-arglists"
|
|
|
|
|
"slynk-fancy-inspector"
|
|
|
|
|
"slynk-package-fu"
|
|
|
|
|
"slynk-mrepl"
|
|
|
|
|
"slynk-profiler"
|
|
|
|
|
"slynk-trace-dialog"
|
|
|
|
|
"slynk-stickers"
|
|
|
|
|
"slynk-indentation"
|
|
|
|
|
"slynk-retro"))
|
|
|
|
|
|
|
|
|
|
(define-public sbcl-slynk
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-slynk-boot0)
|
2017-04-09 03:50:01 +00:00
|
|
|
|
(name "sbcl-slynk")
|
2016-10-07 08:07:49 +00:00
|
|
|
|
(inputs
|
|
|
|
|
`(("slynk" ,sbcl-slynk-boot0)
|
|
|
|
|
("slynk-util" ,sbcl-slynk-util)
|
|
|
|
|
("slynk-arglists" ,sbcl-slynk-arglists)
|
|
|
|
|
("slynk-fancy-inspector" ,sbcl-slynk-fancy-inspector)
|
|
|
|
|
("slynk-package-fu" ,sbcl-slynk-package-fu)
|
|
|
|
|
("slynk-mrepl" ,sbcl-slynk-mrepl)
|
|
|
|
|
("slynk-profiler" ,sbcl-slynk-profiler)
|
|
|
|
|
("slynk-trace-dialog" ,sbcl-slynk-trace-dialog)
|
|
|
|
|
("slynk-stickers" ,sbcl-slynk-stickers)
|
|
|
|
|
("slynk-indentation" ,sbcl-slynk-indentation)
|
|
|
|
|
("slynk-retro" ,sbcl-slynk-retro)))
|
|
|
|
|
(native-inputs `(("sbcl" ,sbcl)))
|
|
|
|
|
(build-system trivial-build-system)
|
|
|
|
|
(source #f)
|
|
|
|
|
(outputs '("out" "image"))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:modules ((guix build union)
|
|
|
|
|
(guix build utils)
|
|
|
|
|
(guix build lisp-utils))
|
|
|
|
|
#:builder
|
|
|
|
|
(begin
|
|
|
|
|
(use-modules (ice-9 match)
|
|
|
|
|
(srfi srfi-1)
|
|
|
|
|
(guix build union)
|
|
|
|
|
(guix build lisp-utils))
|
|
|
|
|
|
|
|
|
|
(union-build
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
(filter-map
|
|
|
|
|
(match-lambda
|
|
|
|
|
((name . path)
|
|
|
|
|
(if (string-prefix? "slynk" name) path #f)))
|
|
|
|
|
%build-inputs))
|
|
|
|
|
|
|
|
|
|
(prepend-to-source-registry
|
|
|
|
|
(string-append (assoc-ref %outputs "out") "//"))
|
2017-04-03 13:01:27 +00:00
|
|
|
|
|
|
|
|
|
(parameterize ((%lisp-type "sbcl")
|
|
|
|
|
(%lisp (string-append (assoc-ref %build-inputs "sbcl")
|
|
|
|
|
"/bin/sbcl")))
|
|
|
|
|
(build-image (string-append
|
|
|
|
|
(assoc-ref %outputs "image")
|
|
|
|
|
"/bin/slynk")
|
2017-04-03 13:01:33 +00:00
|
|
|
|
%outputs
|
gnu: Use invoke and return #t from all builders.
* gnu/packages/admin.scm, gnu/packages/android.scm, gnu/packages/audio.scm,
gnu/packages/avr.scm, gnu/packages/base.scm, gnu/packages/bioinformatics.scm,
gnu/packages/certs.scm, gnu/packages/check.scm, gnu/packages/code.scm,
gnu/packages/commencement.scm, gnu/packages/dictionaries.scm,
gnu/packages/docbook.scm, gnu/packages/emacs.scm, gnu/packages/embedded.scm,
gnu/packages/fonts.scm, gnu/packages/games.scm, gnu/packages/gnome.scm,
gnu/packages/gnu-doc.scm, gnu/packages/guile.scm, gnu/packages/hurd.scm,
gnu/packages/javascript.scm, gnu/packages/libreoffice.scm,
gnu/packages/linux.scm, gnu/packages/lisp.scm, gnu/packages/lxde.scm,
gnu/packages/mail.scm, gnu/packages/markup.scm, gnu/packages/mate.scm,
gnu/packages/pkg-config.scm, gnu/packages/qt.scm, gnu/packages/rust.scm,
gnu/packages/scheme.scm, gnu/packages/sdl.scm, gnu/packages/statistics.scm,
gnu/packages/syncthing.scm, gnu/packages/tex.scm, gnu/packages/web.scm,
gnu/packages/wine.scm, gnu/packages/xfce.scm: In the builders of packages
using 'trivial-build-system', use invoke where appropriate, raise exceptions
on errors, and otherwise return #t.
2018-03-28 00:14:05 +00:00
|
|
|
|
#:dependencies ',slynk-systems))
|
|
|
|
|
#t)))))
|
2016-10-07 08:07:49 +00:00
|
|
|
|
|
|
|
|
|
(define-public ecl-slynk
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-slynk)
|
|
|
|
|
(name "ecl-slynk")
|
|
|
|
|
(inputs
|
|
|
|
|
(map (match-lambda
|
|
|
|
|
((name pkg . _)
|
|
|
|
|
(list name (sbcl-package->ecl-package pkg))))
|
|
|
|
|
(package-inputs sbcl-slynk)))
|
|
|
|
|
(native-inputs '())
|
|
|
|
|
(outputs '("out"))
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:modules ((guix build union))
|
|
|
|
|
#:builder
|
|
|
|
|
(begin
|
|
|
|
|
(use-modules (ice-9 match)
|
|
|
|
|
(guix build union))
|
|
|
|
|
(match %build-inputs
|
|
|
|
|
(((names . paths) ...)
|
|
|
|
|
(union-build (assoc-ref %outputs "out")
|
gnu: Use invoke and return #t from all builders.
* gnu/packages/admin.scm, gnu/packages/android.scm, gnu/packages/audio.scm,
gnu/packages/avr.scm, gnu/packages/base.scm, gnu/packages/bioinformatics.scm,
gnu/packages/certs.scm, gnu/packages/check.scm, gnu/packages/code.scm,
gnu/packages/commencement.scm, gnu/packages/dictionaries.scm,
gnu/packages/docbook.scm, gnu/packages/emacs.scm, gnu/packages/embedded.scm,
gnu/packages/fonts.scm, gnu/packages/games.scm, gnu/packages/gnome.scm,
gnu/packages/gnu-doc.scm, gnu/packages/guile.scm, gnu/packages/hurd.scm,
gnu/packages/javascript.scm, gnu/packages/libreoffice.scm,
gnu/packages/linux.scm, gnu/packages/lisp.scm, gnu/packages/lxde.scm,
gnu/packages/mail.scm, gnu/packages/markup.scm, gnu/packages/mate.scm,
gnu/packages/pkg-config.scm, gnu/packages/qt.scm, gnu/packages/rust.scm,
gnu/packages/scheme.scm, gnu/packages/sdl.scm, gnu/packages/statistics.scm,
gnu/packages/syncthing.scm, gnu/packages/tex.scm, gnu/packages/web.scm,
gnu/packages/wine.scm, gnu/packages/xfce.scm: In the builders of packages
using 'trivial-build-system', use invoke where appropriate, raise exceptions
on errors, and otherwise return #t.
2018-03-28 00:14:05 +00:00
|
|
|
|
paths)
|
|
|
|
|
#t)))))))
|
2016-10-07 08:07:57 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-stumpwm+slynk
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-stumpwm)
|
|
|
|
|
(name "sbcl-stumpwm-with-slynk")
|
|
|
|
|
(outputs '("out"))
|
2017-04-03 13:01:33 +00:00
|
|
|
|
(inputs
|
2017-04-03 13:01:22 +00:00
|
|
|
|
`(("stumpwm" ,sbcl-stumpwm "lib")
|
2016-10-07 08:07:57 +00:00
|
|
|
|
("slynk" ,sbcl-slynk)))
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments sbcl-stumpwm)
|
|
|
|
|
((#:phases phases)
|
|
|
|
|
`(modify-phases ,phases
|
|
|
|
|
(replace 'build-program
|
2017-04-03 13:01:33 +00:00
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
2016-10-07 08:07:57 +00:00
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(program (string-append out "/bin/stumpwm")))
|
2017-04-03 13:01:33 +00:00
|
|
|
|
(build-program program outputs
|
2016-10-07 08:07:57 +00:00
|
|
|
|
#:entry-program '((stumpwm:stumpwm) 0)
|
|
|
|
|
#:dependencies '("stumpwm"
|
2017-04-03 13:01:33 +00:00
|
|
|
|
,@slynk-systems)
|
|
|
|
|
#:dependency-prefixes
|
|
|
|
|
(map (lambda (input) (assoc-ref inputs input))
|
|
|
|
|
'("stumpwm" "slynk")))
|
2016-10-07 08:07:57 +00:00
|
|
|
|
;; Remove unneeded file.
|
|
|
|
|
(delete-file (string-append out "/bin/stumpwm-exec.fasl"))
|
|
|
|
|
#t)))
|
|
|
|
|
(delete 'copy-source)
|
|
|
|
|
(delete 'build)
|
|
|
|
|
(delete 'check)
|
2017-04-03 13:01:22 +00:00
|
|
|
|
(delete 'create-asd-file)
|
2016-10-07 08:07:57 +00:00
|
|
|
|
(delete 'cleanup)
|
|
|
|
|
(delete 'create-symlinks)))))))
|
2016-12-29 18:50:10 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-parse-js
|
|
|
|
|
(let ((commit "fbadc6029bec7039602abfc06c73bb52970998f6")
|
|
|
|
|
(revision "1"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-parse-js")
|
|
|
|
|
(version (string-append "0.0.0-" revision "." (string-take commit 9)))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "http://marijn.haverbeke.nl/git/parse-js")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(file-name (string-append name "-" commit "-checkout"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1wddrnr5kiya5s3gp4cdq6crbfy9fqcz7fr44p81502sj3bvdv39"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(home-page "http://marijnhaverbeke.nl/parse-js/")
|
|
|
|
|
(synopsis "Parse JavaScript")
|
|
|
|
|
(description "Parse-js is a Common Lisp package for parsing
|
|
|
|
|
JavaScript (ECMAScript 3). It has basic support for ECMAScript 5.")
|
|
|
|
|
(license license:zlib))))
|
2016-12-29 18:50:33 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-parse-number
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-parse-number")
|
|
|
|
|
(version "1.5")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/sharplispers/parse-number/"
|
|
|
|
|
"archive/v" version ".tar.gz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1k6s4v65ksc1j5i0dprvzfvj213v6nah7i0rgd0726ngfjisj9ir"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(home-page "http://www.cliki.net/PARSE-NUMBER")
|
|
|
|
|
(synopsis "Parse numbers")
|
|
|
|
|
(description "@code{parse-number} is a library of functions for parsing
|
|
|
|
|
strings into one of the standard Common Lisp number types without using the
|
|
|
|
|
reader. @code{parse-number} accepts an arbitrary string and attempts to parse
|
|
|
|
|
the string into one of the standard Common Lisp number types, if possible, or
|
|
|
|
|
else @code{parse-number} signals an error of type @code{invalid-number}.")
|
|
|
|
|
(license license:bsd-3)))
|
|
|
|
|
|
2016-12-29 18:50:56 +00:00
|
|
|
|
(define-public sbcl-iterate
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-iterate")
|
|
|
|
|
;; The latest official release (1.4.3) fails to build so we have to take
|
|
|
|
|
;; the current darcs tarball from quicklisp.
|
|
|
|
|
(version "20160825")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://beta.quicklisp.org/archive/iterate/"
|
|
|
|
|
"2016-08-25/iterate-"
|
|
|
|
|
version "-darcs.tgz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0kvz16gnxnkdz0fy1x8y5yr28nfm7i2qpvix7mgwccdpjmsb4pgm"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(home-page "https://common-lisp.net/project/iterate/")
|
|
|
|
|
(synopsis "Iteration construct for Common Lisp")
|
|
|
|
|
(description "@code{iterate} is an iteration construct for Common Lisp.
|
|
|
|
|
It is similar to the @code{CL:LOOP} macro, with these distinguishing marks:
|
|
|
|
|
|
|
|
|
|
@itemize
|
|
|
|
|
@item it is extensible,
|
|
|
|
|
@item it helps editors like Emacs indent iterate forms by having a more
|
|
|
|
|
lisp-like syntax, and
|
|
|
|
|
@item it isn't part of the ANSI standard for Common Lisp.
|
|
|
|
|
@end itemize\n")
|
|
|
|
|
(license license:expat)))
|
2016-12-29 18:51:52 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-uglify-js
|
|
|
|
|
;; There have been many bug fixes since the 2010 release.
|
|
|
|
|
(let ((commit "429c5e1d844e2f96b44db8fccc92d6e8e28afdd5")
|
|
|
|
|
(revision "1"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-cl-uglify-js")
|
|
|
|
|
(version (string-append "0.1-" revision "." (string-take commit 9)))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/mishoo/cl-uglify-js.git")
|
|
|
|
|
(commit commit)))
|
2018-03-13 18:10:08 +00:00
|
|
|
|
(file-name (git-file-name name version))
|
2016-12-29 18:51:52 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0k39y3c93jgxpr7gwz7w0d8yknn1fdnxrjhd03057lvk5w8js27a"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("sbcl-parse-js" ,sbcl-parse-js)
|
|
|
|
|
("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
|
|
|
|
|
("sbcl-cl-ppcre-unicode" ,sbcl-cl-ppcre-unicode)
|
|
|
|
|
("sbcl-parse-number" ,sbcl-parse-number)
|
|
|
|
|
("sbcl-iterate" ,sbcl-iterate)))
|
|
|
|
|
(home-page "https://github.com/mishoo/cl-uglify-js")
|
|
|
|
|
(synopsis "JavaScript compressor library for Common Lisp")
|
|
|
|
|
(description "This is a Common Lisp version of UglifyJS, a JavaScript
|
|
|
|
|
compressor. It works on data produced by @code{parse-js} to generate a
|
|
|
|
|
@dfn{minified} version of the code. Currently it can:
|
|
|
|
|
|
|
|
|
|
@itemize
|
|
|
|
|
@item reduce variable names (usually to single letters)
|
|
|
|
|
@item join consecutive @code{var} statements
|
|
|
|
|
@item resolve simple binary expressions
|
|
|
|
|
@item group most consecutive statements using the ``sequence'' operator (comma)
|
|
|
|
|
@item remove unnecessary blocks
|
|
|
|
|
@item convert @code{IF} expressions in various ways that result in smaller code
|
|
|
|
|
@item remove some unreachable code
|
|
|
|
|
@end itemize\n")
|
|
|
|
|
(license license:zlib))))
|
2017-05-29 16:48:18 +00:00
|
|
|
|
|
|
|
|
|
(define-public uglify-js
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-cl-uglify-js)
|
|
|
|
|
(name "uglify-js")
|
|
|
|
|
(build-system trivial-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:modules ((guix build utils))
|
|
|
|
|
#:builder
|
|
|
|
|
(let* ((bin (string-append (assoc-ref %outputs "out") "/bin/"))
|
|
|
|
|
(script (string-append bin "uglify-js")))
|
|
|
|
|
(use-modules (guix build utils))
|
|
|
|
|
(mkdir-p bin)
|
|
|
|
|
(with-output-to-file script
|
|
|
|
|
(lambda _
|
|
|
|
|
(format #t "#!~a/bin/sbcl --script
|
|
|
|
|
(require :asdf)
|
|
|
|
|
(push (truename \"~a/lib/sbcl\") asdf:*central-registry*)"
|
|
|
|
|
(assoc-ref %build-inputs "sbcl")
|
|
|
|
|
(assoc-ref %build-inputs "sbcl-cl-uglify-js"))
|
|
|
|
|
;; FIXME: cannot use progn here because otherwise it fails to
|
|
|
|
|
;; find cl-uglify-js.
|
|
|
|
|
(for-each
|
|
|
|
|
write
|
|
|
|
|
'(;; Quiet, please!
|
|
|
|
|
(let ((*standard-output* (make-broadcast-stream))
|
|
|
|
|
(*error-output* (make-broadcast-stream)))
|
|
|
|
|
(asdf:load-system :cl-uglify-js))
|
|
|
|
|
(let ((file (cadr *posix-argv*)))
|
|
|
|
|
(if file
|
|
|
|
|
(format t "~a"
|
|
|
|
|
(cl-uglify-js:ast-gen-code
|
|
|
|
|
(cl-uglify-js:ast-mangle
|
|
|
|
|
(cl-uglify-js:ast-squeeze
|
|
|
|
|
(with-open-file (in file)
|
|
|
|
|
(parse-js:parse-js in))))
|
|
|
|
|
:beautify nil))
|
|
|
|
|
(progn
|
|
|
|
|
(format *error-output*
|
|
|
|
|
"Please provide a JavaScript file.~%")
|
|
|
|
|
(sb-ext:exit :code 1))))))))
|
|
|
|
|
(chmod script #o755)
|
|
|
|
|
#t)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("sbcl" ,sbcl)
|
|
|
|
|
("sbcl-cl-uglify-js" ,sbcl-cl-uglify-js)))
|
|
|
|
|
(synopsis "JavaScript compressor")))
|
2018-09-17 21:18:08 +00:00
|
|
|
|
|
|
|
|
|
(define-public confusion-mdl
|
|
|
|
|
(let* ((commit "12a055581fc262225272df43287dae48281900f5"))
|
|
|
|
|
(package
|
|
|
|
|
(name "confusion-mdl")
|
|
|
|
|
(version "0.2")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url (string-append "https://gitlab.com/emacsomancer/" name))
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1zi8kflzvwqg97ha1sa5xjisbjs5z1mvbpa772vfxiv5ksnpxp0d"))
|
|
|
|
|
(file-name (git-file-name name version))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ; there are no tests
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(replace 'build
|
|
|
|
|
(lambda* (#:key (make-flags '()) #:allow-other-keys)
|
|
|
|
|
(apply invoke "make" "CC=gcc" make-flags)))
|
|
|
|
|
(replace 'install
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(bin (string-append out "/bin")))
|
|
|
|
|
(install-file "mdli" bin)
|
|
|
|
|
#t))))))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("perl" ,perl)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libgc" ,libgc)))
|
|
|
|
|
(synopsis "Interpreter for the MIT Design Language (MDL)")
|
|
|
|
|
(description "MDL (the MIT Design Language) is a descendant of Lisp. It
|
|
|
|
|
was originally developed in 1971 on the PDP-10 computer under the Incompatible
|
|
|
|
|
Timesharing System (ITS) to provide high level language support for the
|
|
|
|
|
Dynamic Modeling Group at MIT's Project MAC. Infocom built the original
|
|
|
|
|
PDP-10 Zork in MDL and their later ZIL (Zork Implementation Language) was
|
|
|
|
|
based on a subset of MDL. Confusion is a MDL interpreter that works just well
|
|
|
|
|
enough to play the original mainframe Zork all the way through.")
|
|
|
|
|
(home-page "http://www.russotto.net/git/mrussotto/confusion/src/master/src/README")
|
|
|
|
|
(license license:gpl3+))))
|
2018-08-21 16:25:50 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-strings
|
|
|
|
|
(let ((revision "1")
|
|
|
|
|
(commit "c5c5cbafbf3e6181d03c354d66e41a4f063f00ae"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-cl-strings")
|
|
|
|
|
(version (git-version "0.0.0" revision commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/diogoalexandrefranco/cl-strings")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"00754mfaqallj480lwd346nkfb6ra8pa8xcxcylf4baqn604zlmv"))
|
|
|
|
|
(file-name (string-append "cl-strings-" version "-checkout"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(synopsis "Portable, dependency-free set of utilities to manipulate strings in Common Lisp")
|
|
|
|
|
(description
|
|
|
|
|
"@command{cl-strings} is a small, portable, dependency-free set of
|
|
|
|
|
utilities that make it even easier to manipulate text in Common Lisp. It has
|
|
|
|
|
100% test coverage and works at least on sbcl, ecl, ccl, abcl and clisp.")
|
|
|
|
|
(home-page "https://github.com/diogoalexandrefranco/cl-strings")
|
|
|
|
|
(license license:expat))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-strings
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-cl-strings))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-cl-strings
|
|
|
|
|
(sbcl-package->ecl-package sbcl-cl-strings))
|
2018-08-24 09:12:36 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-trivial-features
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-trivial-features")
|
|
|
|
|
(version "0.8")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://github.com/trivial-features/trivial-features/archive/v"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "0db1awn6jyhcfhyfvpjvfziprmq85cigf19mwbvaprhblydsag3c"))
|
|
|
|
|
(file-name (string-append "trivial-features-" version ".tar.gz"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(arguments '(#:tests? #f))
|
|
|
|
|
(home-page "http://cliki.net/trivial-features")
|
|
|
|
|
(synopsis "Ensures consistency of @code{*FEATURES*} in Common Lisp")
|
|
|
|
|
(description "Trivial-features ensures that @code{*FEATURES*} is
|
|
|
|
|
consistent across multiple Common Lisp implementations.")
|
|
|
|
|
(license license:expat)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-trivial-features
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-trivial-features))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-trivial-features
|
|
|
|
|
(sbcl-package->ecl-package sbcl-trivial-features))
|
2018-08-24 09:13:46 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-hu.dwim.asdf
|
|
|
|
|
(let ((commit "170b0e4fdde3df0bc537327e7600575daac9e141"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-hu.dwim.asdf")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri
|
|
|
|
|
(git-reference
|
|
|
|
|
(url "https://github.com/nixeagle/hu.dwim.asdf")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "10ax7p8y6vjqxzcq125p62kf68zi455a65ysgk0kl1f2v839c33v"))
|
|
|
|
|
(file-name (git-file-name "hu.dwim.asdf" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(home-page "https://hub.darcs.net/hu.dwim/hu.dwim.asdf")
|
|
|
|
|
(synopsis "Extensions to ASDF")
|
|
|
|
|
(description "Various ASDF extensions such as attached test and
|
|
|
|
|
documentation system, explicit development support, etc.")
|
|
|
|
|
(license license:public-domain))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-hu.dwim.asdf
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-hu.dwim.asdf))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-hu.dwim.asdf
|
|
|
|
|
(sbcl-package->ecl-package sbcl-hu.dwim.asdf))
|
2018-08-24 09:14:26 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-hu.dwim.stefil
|
|
|
|
|
(let ((commit "ab6d1aa8995878a1b66d745dfd0ba021090bbcf9"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-hu.dwim.stefil")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri
|
|
|
|
|
(git-reference
|
|
|
|
|
(url "https://gitlab.common-lisp.net/xcvb/hu.dwim.stefil.git")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "1d8yccw65zj3zh46cbi3x6nmn1dwdb76s9d0av035077mvyirqqp"))
|
|
|
|
|
(file-name (git-file-name "hu.dwim.stefil" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("asdf:cl-hu.dwim.asdf" ,sbcl-hu.dwim.asdf)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("sbcl-alexandria" ,sbcl-alexandria)))
|
|
|
|
|
(home-page "https://hub.darcs.net/hu.dwim/hu.dwim.stefil")
|
|
|
|
|
(synopsis "Simple test framework")
|
|
|
|
|
(description "Stefil is a simple test framework for Common Lisp,
|
|
|
|
|
with a focus on interactive development.")
|
|
|
|
|
(license license:public-domain))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-hu.dwim.stefil
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-hu.dwim.stefil))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-hu.dwim.stefil
|
|
|
|
|
(sbcl-package->ecl-package sbcl-hu.dwim.stefil))
|
2018-08-24 09:16:43 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-babel
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-babel")
|
|
|
|
|
(version "0.5.0")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://github.com/cl-babel/babel/archive/v"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "189kgbmslh36xx0d2i1g6a7mcvjryvjzkdlnhilqy5xs7hkyqirq"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("tests:cl-hu.dwim.stefil" ,sbcl-hu.dwim.stefil)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("sbcl-alexandria" ,sbcl-alexandria)
|
|
|
|
|
("sbcl-trivial-features" ,sbcl-trivial-features)))
|
|
|
|
|
(home-page "https://common-lisp.net/project/babel/")
|
|
|
|
|
(synopsis "Charset encoding and decoding library")
|
|
|
|
|
(description "Babel is a charset encoding and decoding library, not unlike
|
|
|
|
|
GNU libiconv, but completely written in Common Lisp.")
|
|
|
|
|
(license license:expat)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-babel
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-babel))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-babel
|
|
|
|
|
(sbcl-package->ecl-package sbcl-babel))
|
2018-08-24 09:19:24 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-yacc
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-cl-yacc")
|
|
|
|
|
(version "0.3")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/jech/cl-yacc")
|
|
|
|
|
(commit (string-append "cl-yacc-" version))))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"16946pzf8vvadnyfayvj8rbh4zjzw90h0azz2qk1mxrvhh5wklib"))
|
|
|
|
|
(file-name (string-append "cl-yacc-" version "-checkout"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "yacc.asd"
|
|
|
|
|
#:asd-system-name "yacc"))
|
|
|
|
|
(synopsis "LALR(1) parser generator for Common Lisp, similar in spirit to Yacc")
|
|
|
|
|
(description
|
|
|
|
|
"CL-Yacc is a LALR(1) parser generator for Common Lisp, similar in spirit
|
|
|
|
|
to AT&T Yacc, Berkeley Yacc, GNU Bison, Zebu, lalr.cl or lalr.scm.
|
|
|
|
|
|
|
|
|
|
CL-Yacc uses the algorithm due to Aho and Ullman, which is the one also used
|
|
|
|
|
by AT&T Yacc, Berkeley Yacc and Zebu. It does not use the faster algorithm due
|
|
|
|
|
to DeRemer and Pennello, which is used by Bison and lalr.scm (not lalr.cl).")
|
|
|
|
|
(home-page "https://www.irif.fr/~jch//software/cl-yacc/")
|
|
|
|
|
(license license:expat)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-yacc
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-cl-yacc))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-cl-yacc
|
|
|
|
|
(sbcl-package->ecl-package sbcl-cl-yacc))
|
2018-08-24 09:22:05 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-jpl-util
|
|
|
|
|
(let ((commit "0311ed374e19a49d43318064d729fe3abd9a3b62"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-jpl-util")
|
|
|
|
|
(version "20151005")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
;; Quicklisp uses this fork.
|
|
|
|
|
(url "https://github.com/hawkir/cl-jpl-util")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(file-name
|
|
|
|
|
(git-file-name "jpl-util" version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0nc0rk9n8grkg3045xsw34whmcmddn2sfrxki4268g7kpgz0d2yz"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(synopsis "Collection of Common Lisp utility functions and macros")
|
|
|
|
|
(description
|
|
|
|
|
"@command{cl-jpl-util} is a collection of Common Lisp utility functions
|
|
|
|
|
and macros, primarily for software projects written in CL by the author.")
|
|
|
|
|
(home-page "https://www.thoughtcrime.us/software/cl-jpl-util/")
|
|
|
|
|
(license license:isc))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-jpl-util
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-jpl-util))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-jpl-util
|
|
|
|
|
(sbcl-package->ecl-package sbcl-jpl-util))
|
2018-08-24 09:24:21 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-jpl-queues
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-jpl-queues")
|
|
|
|
|
(version "0.1")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"http://www.thoughtcrime.us/software/jpl-queues/jpl-queues-"
|
|
|
|
|
version
|
|
|
|
|
".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1wvvv7j117h9a42qaj1g4fh4mji28xqs7s60rn6d11gk9jl76h96"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("jpl-util" ,sbcl-jpl-util)
|
|
|
|
|
("bordeaux-threads" ,sbcl-bordeaux-threads)))
|
|
|
|
|
(arguments
|
|
|
|
|
;; Tests seem to be broken.
|
|
|
|
|
`(#:tests? #f))
|
|
|
|
|
(synopsis "Common Lisp library implementing a few different kinds of queues")
|
|
|
|
|
(description
|
|
|
|
|
"A Common Lisp library implementing a few different kinds of queues:
|
|
|
|
|
|
|
|
|
|
@itemize
|
|
|
|
|
@item Bounded and unbounded FIFO queues.
|
|
|
|
|
@item Lossy bounded FIFO queues that drop elements when full.
|
|
|
|
|
@item Unbounded random-order queues that use less memory than unbounded FIFO queues.
|
|
|
|
|
@end itemize
|
|
|
|
|
|
|
|
|
|
Additionally, a synchronization wrapper is provided to make any queue
|
|
|
|
|
conforming to the @command{jpl-queues} API thread-safe for lightweight
|
|
|
|
|
multithreading applications. (See Calispel for a more sophisticated CL
|
|
|
|
|
multithreaded message-passing library with timeouts and alternation among
|
|
|
|
|
several blockable channels.)")
|
|
|
|
|
(home-page "https://www.thoughtcrime.us/software/jpl-queues/")
|
|
|
|
|
(license license:isc)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-jpl-queues
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-jpl-queues))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-jpl-queues
|
|
|
|
|
(sbcl-package->ecl-package sbcl-jpl-queues))
|
2018-08-24 09:41:45 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-eos
|
|
|
|
|
(let ((commit "b0faca83781ead9a588661e37bd47f90362ccd94"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-eos")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/adlai/Eos")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1bq8cfg087iyxmxi1mwgx5cfgy3b8ydrf81xljcis8qbgb2vszph"))
|
|
|
|
|
(file-name (git-file-name "eos" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(synopsis "Unit Testing for Common Lisp")
|
|
|
|
|
(description
|
|
|
|
|
"Eos was a unit testing library for Common Lisp.
|
|
|
|
|
It began as a fork of FiveAM; however, FiveAM development has continued, while
|
|
|
|
|
that of Eos has not. Thus, Eos is now deprecated in favor of FiveAM.")
|
|
|
|
|
(home-page "https://github.com/adlai/Eos")
|
|
|
|
|
(license license:expat))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-eos
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-eos))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-eos
|
|
|
|
|
(sbcl-package->ecl-package sbcl-eos))
|
2018-08-24 09:44:11 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-esrap
|
|
|
|
|
(let ((commit "133be8b05c2aae48696fe5b739eea2fa573fa48d"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-esrap")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/nikodemus/esrap")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"02d5clihsdryhf7pix8c5di2571fdsffh75d40fkzhws90r5mksl"))
|
|
|
|
|
(file-name (git-file-name "esrap" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("eos" ,sbcl-eos))) ;For testing only.
|
|
|
|
|
(inputs
|
|
|
|
|
`(("alexandria" ,sbcl-alexandria)))
|
|
|
|
|
(synopsis "Common Lisp packrat parser")
|
|
|
|
|
(description
|
|
|
|
|
"A packrat parser for Common Lisp.
|
|
|
|
|
In addition to regular Packrat / Parsing Grammar / TDPL features ESRAP supports:
|
|
|
|
|
|
|
|
|
|
@itemize
|
|
|
|
|
@item dynamic redefinition of nonterminals
|
|
|
|
|
@item inline grammars
|
|
|
|
|
@item semantic predicates
|
|
|
|
|
@item introspective facilities (describing grammars, tracing, setting breaks)
|
|
|
|
|
@end itemize\n")
|
|
|
|
|
(home-page "https://nikodemus.github.io/esrap/")
|
|
|
|
|
(license license:expat))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-esrap
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-esrap))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-esrap
|
|
|
|
|
(sbcl-package->ecl-package sbcl-esrap))
|
2018-08-24 09:45:54 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-split-sequence
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-split-sequence")
|
|
|
|
|
(version "1.4.1")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/sharplispers/split-sequence")
|
|
|
|
|
(commit (string-append "v" version))))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0c3zp6b7fmmp93sfhq112ind4zkld49ycw68z409xpnz3gc0wpf0"))
|
|
|
|
|
(file-name (git-file-name "split-sequence" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(arguments
|
|
|
|
|
;; TODO: Tests seem to be broken.
|
|
|
|
|
;; https://github.com/sharplispers/split-sequence/issues/8
|
|
|
|
|
`(#:tests? #f))
|
|
|
|
|
(synopsis "Member of the Common Lisp Utilities family of programs")
|
|
|
|
|
(description
|
|
|
|
|
"Splits sequence into a list of subsequences delimited by objects
|
|
|
|
|
satisfying the test.")
|
|
|
|
|
(home-page "https://cliki.net/split-sequence")
|
|
|
|
|
(license license:expat)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-split-sequence
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-split-sequence))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-split-sequence
|
|
|
|
|
(sbcl-package->ecl-package sbcl-split-sequence))
|
2018-08-24 09:46:45 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-html-encode
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-html-encode")
|
|
|
|
|
(version "1.2")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"http://beta.quicklisp.org/archive/html-encode/2010-10-06/html-encode-"
|
|
|
|
|
version ".tgz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"06mf8wn95yf5swhmzk4vp0xr4ylfl33dgfknkabbkd8n6jns8gcf"))
|
|
|
|
|
(file-name (string-append "colorize" version "-checkout"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(synopsis "Common Lisp library for encoding text in various web-savvy encodings")
|
|
|
|
|
(description
|
|
|
|
|
"A library for encoding text in various web-savvy encodings.")
|
|
|
|
|
(home-page "http://quickdocs.org/html-encode/")
|
|
|
|
|
(license license:expat)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-html-encode
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-html-encode))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-html-encode
|
|
|
|
|
(sbcl-package->ecl-package sbcl-html-encode))
|
2018-08-24 09:50:31 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-colorize
|
|
|
|
|
(let ((commit "ea676b584e0899cec82f21a9e6871172fe3c0eb5"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-colorize")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/kingcons/colorize")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1pdg4kiaczmr3ivffhirp7m3lbr1q27rn7dhaay0vwghmi31zcw9"))
|
|
|
|
|
(file-name (git-file-name "colorize" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("alexandria" ,sbcl-alexandria)
|
|
|
|
|
("split-sequence" ,sbcl-split-sequence)
|
|
|
|
|
("html-encode" ,sbcl-html-encode)))
|
|
|
|
|
(synopsis "Common Lisp for syntax highlighting")
|
|
|
|
|
(description
|
|
|
|
|
"@command{colorize} is a Lisp library for syntax highlighting
|
|
|
|
|
supporting the following languages: Common Lisp, Emacs Lisp, Scheme, Clojure,
|
|
|
|
|
C, C++, Java, Python, Erlang, Haskell, Objective-C, Diff, Webkit.")
|
|
|
|
|
(home-page "https://github.com/kingcons/colorize")
|
|
|
|
|
;; TODO: Missing license?
|
|
|
|
|
(license license:expat))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-colorize
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-colorize))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-colorize
|
|
|
|
|
(sbcl-package->ecl-package sbcl-colorize))
|
2018-08-24 09:54:08 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-3bmd
|
|
|
|
|
(let ((commit "192ea13435b605a96ef607df51317056914cabbd"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-3bmd")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/3b/3bmd")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1rgv3gi7wf963ikmmpk132wgn0icddf226gq3bmcnk1fr3v9gf2f"))
|
|
|
|
|
(file-name (git-file-name "3bmd" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(arguments
|
|
|
|
|
;; FIXME: We need to specify the name because the build-system thinks
|
|
|
|
|
;; "3" is a version marker.
|
|
|
|
|
`(#:asd-system-name "3bmd"))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("esrap" ,sbcl-esrap)
|
|
|
|
|
("split-sequence" ,sbcl-split-sequence)))
|
|
|
|
|
(synopsis "Markdown processor in Command Lisp using esrap parser")
|
|
|
|
|
(description
|
|
|
|
|
"Common Lisp Markdown -> HTML converter, using @command{esrap} for
|
|
|
|
|
parsing, and grammar based on @command{peg-markdown}.")
|
|
|
|
|
(home-page "https://github.com/3b/3bmd")
|
|
|
|
|
(license license:expat))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-3bmd
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-3bmd))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-3bmd
|
|
|
|
|
(sbcl-package->ecl-package sbcl-3bmd))
|
2018-08-24 09:58:37 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-3bmd-ext-code-blocks
|
|
|
|
|
(let ((commit "192ea13435b605a96ef607df51317056914cabbd"))
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-3bmd)
|
|
|
|
|
(name "sbcl-3bmd-ext-code-blocks")
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-system-name "3bmd-ext-code-blocks"
|
|
|
|
|
#:asd-file "3bmd-ext-code-blocks.asd"))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("3bmd" ,sbcl-3bmd)
|
|
|
|
|
("colorize" ,sbcl-colorize)))
|
|
|
|
|
(synopsis "3bmd extension which adds support for GitHub-style fenced
|
|
|
|
|
code blocks")
|
|
|
|
|
(description
|
|
|
|
|
"3bmd extension which adds support for GitHub-style fenced code blocks,
|
|
|
|
|
with @command{colorize} support."))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-3bmd-ext-code-blocks
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-3bmd-ext-code-blocks))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-3bmd-ext-code-blocks
|
|
|
|
|
(sbcl-package->ecl-package sbcl-3bmd-ext-code-blocks))
|
2018-08-24 10:06:08 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-fad
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-cl-fad")
|
|
|
|
|
(version "0.7.5")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/edicl/cl-fad/")
|
|
|
|
|
(commit (string-append "v" version))))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1l1qmk9z57q84bz5r04sxsksggsnd7dgkxlybzh9imz6ma7sm52m"))
|
|
|
|
|
(file-name (string-append "cl-fad" version "-checkout"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("bordeaux-threads" ,sbcl-bordeaux-threads)))
|
|
|
|
|
(synopsis "Portable pathname library for Common Lisp")
|
|
|
|
|
(description
|
|
|
|
|
"CL-FAD (for \"Files and Directories\") is a thin layer atop Common
|
|
|
|
|
Lisp's standard pathname functions. It is intended to provide some
|
|
|
|
|
unification between current CL implementations on Windows, OS X, Linux, and
|
|
|
|
|
Unix. Most of the code was written by Peter Seibel for his book Practical
|
|
|
|
|
Common Lisp.")
|
|
|
|
|
(home-page "https://edicl.github.io/cl-fad/")
|
|
|
|
|
(license license:bsd-2)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-fad
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-cl-fad))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-cl-fad
|
|
|
|
|
(sbcl-package->ecl-package sbcl-cl-fad))
|
2018-08-24 10:07:48 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-rt
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-rt")
|
|
|
|
|
(version "1990.12.19")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://beta.quicklisp.org/archive/rt/2010-10-06/rt-"
|
|
|
|
|
"20101006-git" ".tgz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1jncar0xwkqk8yrc2dln389ivvgzs7ijdhhs3zpfyi5d21f0qa1v"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(synopsis "MIT Regression Tester")
|
|
|
|
|
(description
|
|
|
|
|
"RT provides a framework for writing regression test suites.")
|
|
|
|
|
(home-page "https://github.com/sharplispers/nibbles")
|
|
|
|
|
(license license:unlicense)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-rt
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-rt))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-rt
|
|
|
|
|
(sbcl-package->ecl-package sbcl-rt))
|
2018-08-24 10:09:51 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-nibbles
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-nibbles")
|
|
|
|
|
(version "0.14")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/sharplispers/nibbles/")
|
|
|
|
|
(commit (string-append "v" version))))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1v7qfgpvdr6nz7v63dj69d26dis0kff3rd8xamr1llfdvza2pm8f"))
|
|
|
|
|
(file-name (git-file-name "nibbles" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(native-inputs
|
|
|
|
|
;; Tests only.
|
|
|
|
|
`(("rt" ,sbcl-rt)))
|
|
|
|
|
(synopsis "Common Lisp library for accessing octet-addressed blocks of data")
|
|
|
|
|
(description
|
|
|
|
|
"When dealing with network protocols and file formats, it's common to
|
|
|
|
|
have to read or write 16-, 32-, or 64-bit datatypes in signed or unsigned
|
|
|
|
|
flavors. Common Lisp sort of supports this by specifying :element-type for
|
|
|
|
|
streams, but that facility is underspecified and there's nothing similar for
|
|
|
|
|
read/write from octet vectors. What most people wind up doing is rolling their
|
|
|
|
|
own small facility for their particular needs and calling it a day.
|
|
|
|
|
|
|
|
|
|
This library attempts to be comprehensive and centralize such
|
|
|
|
|
facilities. Functions to read 16-, 32-, and 64-bit quantities from octet
|
|
|
|
|
vectors in signed or unsigned flavors are provided; these functions are also
|
|
|
|
|
SETFable. Since it's sometimes desirable to read/write directly from streams,
|
|
|
|
|
functions for doing so are also provided. On some implementations,
|
|
|
|
|
reading/writing IEEE singles/doubles (i.e. single-float and double-float) will
|
|
|
|
|
also be supported.")
|
|
|
|
|
(home-page "https://github.com/sharplispers/nibbles")
|
|
|
|
|
(license license:bsd-3)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-nibbles
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-nibbles))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-nibbles
|
|
|
|
|
(sbcl-package->ecl-package sbcl-nibbles))
|
2018-08-24 10:11:21 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-ironclad
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-ironclad")
|
|
|
|
|
(version "0.42")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/sharplispers/ironclad/")
|
|
|
|
|
(commit (string-append "v" version))))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1wjcb9vpybxjrmch7f7s78a5abxmnknbd4fl49dl5lz8a3fc8vf0"))
|
|
|
|
|
(file-name (string-append "ironblad" version "-checkout"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(native-inputs
|
|
|
|
|
;; Tests only.
|
|
|
|
|
`(("rt" ,sbcl-rt)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("flexi-streams" ,sbcl-flexi-streams)
|
|
|
|
|
("nibbles" ,sbcl-nibbles)))
|
|
|
|
|
(synopsis "Cryptographic toolkit written in Common Lisp")
|
|
|
|
|
(description
|
|
|
|
|
"Ironclad is a cryptography library written entirely in Common Lisp.
|
|
|
|
|
It includes support for several popular ciphers, digests, MACs and public key
|
|
|
|
|
cryptography algorithms. For several implementations that support Gray
|
|
|
|
|
streams, support is included for convenient stream wrappers.")
|
|
|
|
|
(home-page "https://github.com/sharplispers/ironclad")
|
|
|
|
|
(license license:bsd-3)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-ironclad
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-ironclad))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-ironclad
|
|
|
|
|
(sbcl-package->ecl-package sbcl-ironclad))
|
2018-08-24 10:30:53 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-named-readtables
|
|
|
|
|
(let ((commit "4dfb89fa1af6b305b6492b8af042f5190c11e9fc")
|
|
|
|
|
(revision "1"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-named-readtables")
|
|
|
|
|
(version (string-append "0.9-" revision "." (string-take commit 7)))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/melisgl/named-readtables.git")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "083kgh5462iqbb4px6kq8s7sggvpvkm36hx4qi9rnaw53b6ilqkk"))
|
|
|
|
|
(file-name (git-file-name "named-readtables" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(arguments
|
|
|
|
|
;; Tests seem to be broken.
|
|
|
|
|
`(#:tests? #f))
|
|
|
|
|
(home-page "https://github.com/melisgl/named-readtables/")
|
|
|
|
|
(synopsis "Library that creates a namespace for named readtables")
|
|
|
|
|
(description "Named readtables is a library that creates a namespace for
|
|
|
|
|
named readtables, which is akin to package namespacing in Common Lisp.")
|
|
|
|
|
(license license:bsd-3))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-named-readtables
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-named-readtables))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-named-readtables
|
|
|
|
|
(sbcl-package->ecl-package sbcl-named-readtables))
|
2018-08-24 10:35:50 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-pythonic-string-reader
|
|
|
|
|
(let ((commit "47a70ba1e32362e03dad6ef8e6f36180b560f86a"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-pythonic-string-reader")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/smithzvk/pythonic-string-reader/")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "1b5iryqw8xsh36swckmz8rrngmc39k92si33fgy5pml3n9l5rq3j"))
|
|
|
|
|
(file-name (git-file-name "pythonic-string-reader" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("named-readtables" ,sbcl-named-readtables)))
|
|
|
|
|
(home-page "https://github.com/smithzvk/pythonic-string-reader")
|
|
|
|
|
(synopsis "Read table modification inspired by Python's three quote strings")
|
|
|
|
|
(description "This piece of code sets up some reader macros that make it
|
|
|
|
|
simpler to input string literals which contain backslashes and double quotes
|
|
|
|
|
This is very useful for writing complicated docstrings and, as it turns out,
|
|
|
|
|
writing code that contains string literals that contain code themselves.")
|
|
|
|
|
(license license:bsd-3))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-pythonic-string-reader
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-pythonic-string-reader))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-pythonic-string-reader
|
|
|
|
|
(sbcl-package->ecl-package sbcl-pythonic-string-reader))
|
2018-08-24 11:10:55 +00:00
|
|
|
|
|
2018-09-11 20:59:35 +00:00
|
|
|
|
(define-public sbcl-slime-swank
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-slime-swank")
|
|
|
|
|
(version "2.22")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
;; (url "https://github.com/slime/slime/")
|
|
|
|
|
;; (commit "841f61467c03dea9f38ff9d5af0e21a8aa29e8f7")
|
|
|
|
|
;; REVIEW: Do we need sionescu's patch to package SWANK?
|
|
|
|
|
(url "https://github.com/sionescu/slime/")
|
|
|
|
|
;; (commit "swank-asdf")
|
|
|
|
|
(commit "2f7c3fcb3ac7d50d844d5c6ca0e89b52a45e1d3a")))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
;; "065bc4y6iskazdfwlhgcjlzg9bi2hyjbhmyjw3461506pgkj08vi"
|
|
|
|
|
"0pkmg94wn4ii1zhlrncn44mdc5i6c5v0i9gbldx4dwl2yy7ibz5c"))
|
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
'(begin
|
|
|
|
|
(substitute* "contrib/swank-listener-hooks.lisp"
|
|
|
|
|
((":compile-toplevel :load-toplevel ") ""))
|
|
|
|
|
(substitute* "contrib/swank-presentations.lisp"
|
|
|
|
|
((":compile-toplevel :load-toplevel ") ""))
|
|
|
|
|
(substitute* "swank.asd"
|
|
|
|
|
((":file \"packages\".*" all)
|
|
|
|
|
(string-append all "(:file \"swank-loader-asdf\")\n")))
|
|
|
|
|
(substitute* "swank-loader-asdf.lisp"
|
|
|
|
|
((":common-lisp" all) (string-append all " #:asdf")))
|
|
|
|
|
#t))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "swank.asd"
|
|
|
|
|
#:asd-system-name "swank"))
|
|
|
|
|
(home-page "https://github.com/slime/slime")
|
|
|
|
|
(synopsis "Common Lisp Swank server")
|
|
|
|
|
(description
|
|
|
|
|
"This is only useful if you want to start a Swank server in a Lisp
|
|
|
|
|
processes that doesn't run under Emacs. Lisp processes created by
|
|
|
|
|
@command{M-x slime} automatically start the server.")
|
2018-10-19 16:34:07 +00:00
|
|
|
|
(license (list license:gpl2+ license:public-domain))))
|
2018-09-11 20:59:35 +00:00
|
|
|
|
|
2018-08-24 11:10:55 +00:00
|
|
|
|
(define-public sbcl-mgl-pax
|
|
|
|
|
(let ((commit "818448418d6b9de74620f606f5b23033c6082769"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-mgl-pax")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/melisgl/mgl-pax")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1p97zfkh130bdxqqxwaw2j9psv58751wakx7czbfpq410lg7dd7i"))
|
|
|
|
|
(file-name (git-file-name "mgl-pax" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("3bmd" ,sbcl-3bmd)
|
|
|
|
|
("3bmd-ext-code-blocks" ,sbcl-3bmd-ext-code-blocks)
|
|
|
|
|
("babel" ,sbcl-babel)
|
|
|
|
|
("cl-fad" ,sbcl-cl-fad)
|
|
|
|
|
("ironclad" ,sbcl-ironclad)
|
|
|
|
|
("named-readtables" ,sbcl-named-readtables)
|
|
|
|
|
("pythonic-string-reader" ,sbcl-pythonic-string-reader)
|
|
|
|
|
("swank" ,sbcl-slime-swank)))
|
|
|
|
|
(synopsis "Exploratory programming environment and documentation generator")
|
|
|
|
|
(description
|
|
|
|
|
"PAX provides an extremely poor man's Explorable Programming
|
|
|
|
|
environment. Narrative primarily lives in so called sections that mix markdown
|
|
|
|
|
docstrings with references to functions, variables, etc, all of which should
|
|
|
|
|
probably have their own docstrings.
|
|
|
|
|
|
|
|
|
|
The primary focus is on making code easily explorable by using SLIME's
|
|
|
|
|
@command{M-.} (@command{slime-edit-definition}). See how to enable some
|
|
|
|
|
fanciness in Emacs Integration. Generating documentation from sections and all
|
|
|
|
|
the referenced items in Markdown or HTML format is also implemented.
|
|
|
|
|
|
|
|
|
|
With the simplistic tools provided, one may accomplish similar effects as with
|
|
|
|
|
Literate Programming, but documentation is generated from code, not vice versa
|
|
|
|
|
and there is no support for chunking yet. Code is first, code must look
|
|
|
|
|
pretty, documentation is code.")
|
|
|
|
|
(home-page "http://quotenil.com/")
|
|
|
|
|
(license license:expat))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-mgl-pax
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-mgl-pax))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-mgl-pax
|
|
|
|
|
(sbcl-package->ecl-package sbcl-mgl-pax))
|
2018-08-24 09:36:22 +00:00
|
|
|
|
|
2018-10-01 13:27:37 +00:00
|
|
|
|
(define-public sbcl-lisp-unit
|
|
|
|
|
(let ((commit "89653a232626b67400bf9a941f9b367da38d3815"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-lisp-unit")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/OdonataResearchLLC/lisp-unit")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0p6gdmgr7p383nvd66c9y9fp2bjk4jx1lpa5p09g43hr9y9pp9ry"))
|
|
|
|
|
(file-name (git-file-name "lisp-unit" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(synopsis "Common Lisp Test framework inspired by JUnit to be simple of use")
|
|
|
|
|
(description
|
|
|
|
|
"@command{lisp-unit} is a Common Lisp library that supports unit
|
|
|
|
|
testing. It is an extension of the library written by Chris Riesbeck.")
|
|
|
|
|
(home-page "https://github.com/OdonataResearchLLC/lisp-unit")
|
|
|
|
|
(license license:expat))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-lisp-unit
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-lisp-unit))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-lisp-unit
|
|
|
|
|
(sbcl-package->ecl-package sbcl-lisp-unit))
|
|
|
|
|
|
2018-10-01 13:28:56 +00:00
|
|
|
|
(define-public sbcl-anaphora
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-anaphora")
|
|
|
|
|
(version "0.9.6")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/tokenrove/anaphora")
|
|
|
|
|
(commit version)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"19wfrk3asimznkli0x2rfy637hwpdgqyvwj3vhq9x7vjvyf5vv6x"))
|
|
|
|
|
(file-name (git-file-name "anaphora" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("rt" ,sbcl-rt)))
|
|
|
|
|
(synopsis "The anaphoric macro collection from Hell")
|
|
|
|
|
(description
|
|
|
|
|
"Anaphora is the anaphoric macro collection from Hell: it includes many
|
|
|
|
|
new fiends in addition to old friends like @command{aif} and
|
|
|
|
|
@command{awhen}.")
|
|
|
|
|
(home-page "https://github.com/tokenrove/anaphora")
|
|
|
|
|
(license license:public-domain)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-anaphora
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-anaphora))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-anaphora
|
|
|
|
|
(sbcl-package->ecl-package sbcl-anaphora))
|
|
|
|
|
|
2018-10-01 13:29:24 +00:00
|
|
|
|
(define-public sbcl-lift
|
|
|
|
|
(let ((commit "7d49a66c62759535624037826891152223d4206c"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-lift")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/gwkkwg/lift")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"127v5avpz1i4m0lkaxqrq8hrl69rdazqaxf6s8awf0nd7wj2g4dp"))
|
|
|
|
|
(file-name (git-file-name "lift" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(arguments
|
|
|
|
|
;; The tests require a debugger, but we run with the debugger disabled.
|
|
|
|
|
'(#:tests? #f
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
;; Do this to ensure the 'reset-gzip-timestamps phase works.
|
|
|
|
|
(add-after 'unpack 'make-gzips-writeable
|
|
|
|
|
(lambda _
|
|
|
|
|
(for-each (lambda (file)
|
|
|
|
|
(chmod file #o755))
|
|
|
|
|
(find-files "." "\\.gz$")))))))
|
|
|
|
|
(synopsis "LIsp Framework for Testing")
|
|
|
|
|
(description
|
|
|
|
|
"The LIsp Framework for Testing (LIFT) is a unit and system test tool for LISP.
|
|
|
|
|
Though inspired by SUnit and JUnit, it's built with Lisp in mind. In LIFT,
|
|
|
|
|
testcases are organized into hierarchical testsuites each of which can have
|
|
|
|
|
its own fixture. When run, a testcase can succeed, fail, or error. LIFT
|
|
|
|
|
supports randomized testing, benchmarking, profiling, and reporting.")
|
|
|
|
|
(home-page "https://github.com/gwkkwg/lift")
|
|
|
|
|
(license license:x11-style))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-lift
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-lift))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-lift
|
|
|
|
|
(sbcl-package->ecl-package sbcl-lift))
|
|
|
|
|
|
2018-10-01 13:29:54 +00:00
|
|
|
|
(define-public sbcl-let-plus
|
|
|
|
|
(let ((commit "5f14af61d501ecead02ec6b5a5c810efc0c9fdbb"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-let-plus")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/sharplispers/let-plus")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0i050ca2iys9f5mb7dgqgqdxfnc3b0rnjdwv95sqd490vkiwrsaj"))
|
|
|
|
|
(file-name (git-file-name "let-plus" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("alexandria" ,sbcl-alexandria)
|
|
|
|
|
("anaphora" ,sbcl-anaphora)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("lift" ,sbcl-lift)))
|
|
|
|
|
(synopsis "Destructuring extension of let*")
|
|
|
|
|
(description
|
|
|
|
|
"This library implements the let+ macro, which is a dectructuring
|
|
|
|
|
extension of let*. It features:
|
|
|
|
|
|
|
|
|
|
@itemize
|
|
|
|
|
@item Clean, consistent syntax and small implementation (less than 300 LOC,
|
|
|
|
|
not counting tests)
|
|
|
|
|
@item Placeholder macros allow editor hints and syntax highlighting
|
|
|
|
|
@item @command{&ign} for ignored values (in forms where that makes sense)
|
|
|
|
|
@item Very easy to extend
|
|
|
|
|
@end itemize\n")
|
|
|
|
|
(home-page "https://github.com/sharplispers/let-plus")
|
|
|
|
|
(license license:boost1.0))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-let-plus
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-let-plus))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-let-plus
|
|
|
|
|
(sbcl-package->ecl-package sbcl-let-plus))
|
|
|
|
|
|
2018-10-01 13:30:21 +00:00
|
|
|
|
(define-public sbcl-cl-colors
|
|
|
|
|
(let ((commit "827410584553f5c717eec6182343b7605f707f75"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-cl-colors")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/tpapp/cl-colors")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0l446lday4hybsm9bq3jli97fvv8jb1d33abg79vbylpwjmf3y9a"))
|
|
|
|
|
(file-name (git-file-name "cl-colors" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("alexandria" ,sbcl-alexandria)
|
|
|
|
|
("let-plus" ,sbcl-let-plus)))
|
|
|
|
|
(synopsis "Simple color library for Common Lisp")
|
|
|
|
|
(description
|
|
|
|
|
"This is a very simple color library for Common Lisp, providing
|
|
|
|
|
|
|
|
|
|
@itemize
|
|
|
|
|
@item Types for representing colors in HSV and RGB spaces.
|
|
|
|
|
@item Simple conversion functions between the above types (and also
|
|
|
|
|
hexadecimal representation for RGB).
|
|
|
|
|
@item Some predefined colors (currently X11 color names – of course the
|
|
|
|
|
library does not depend on X11).Because color in your terminal is nice.
|
|
|
|
|
@end itemize
|
|
|
|
|
|
|
|
|
|
This library is no longer supported by its author.")
|
|
|
|
|
(home-page "https://github.com/tpapp/cl-colors")
|
|
|
|
|
(license license:boost1.0))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-colors
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-cl-colors))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-cl-colors
|
|
|
|
|
(sbcl-package->ecl-package sbcl-cl-colors))
|
|
|
|
|
|
2018-10-01 13:30:47 +00:00
|
|
|
|
(define-public sbcl-cl-ansi-text
|
|
|
|
|
(let ((commit "53badf7878f27f22f2d4a2a43e6df458e43acbe9"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-cl-ansi-text")
|
|
|
|
|
(version (git-version "1.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/pnathan/cl-ansi-text")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"11i27n0dbz5lmygiw65zzr8lx0rac6b6yysqranphn31wls6ja3v"))
|
|
|
|
|
(file-name (git-file-name "cl-ansi-text" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("alexandria" ,sbcl-alexandria)
|
|
|
|
|
("cl-colors" ,sbcl-cl-colors)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("fiveam" ,sbcl-fiveam)))
|
|
|
|
|
(synopsis "ANSI terminal color implementation for Common Lisp")
|
|
|
|
|
(description
|
|
|
|
|
"@command{cl-ansi-text} provides utilities which enable printing to an
|
|
|
|
|
ANSI terminal with colored text. It provides the macro @command{with-color}
|
|
|
|
|
which causes everything printed in the body to be displayed with the provided
|
|
|
|
|
color. It further provides functions which will print the argument with the
|
|
|
|
|
named color.")
|
|
|
|
|
(home-page "https://github.com/pnathan/cl-ansi-text")
|
|
|
|
|
;; REVIEW: The actual license is LLGPL. Should we add it to Guix?
|
|
|
|
|
(license license:lgpl3+))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-ansi-text
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-cl-ansi-text))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-cl-ansi-text
|
|
|
|
|
(sbcl-package->ecl-package sbcl-cl-ansi-text))
|
|
|
|
|
|
2018-10-01 13:31:03 +00:00
|
|
|
|
(define-public sbcl-prove-asdf
|
|
|
|
|
(let ((commit "4f9122bd393e63c5c70c1fba23070622317cfaa0"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-prove-asdf")
|
|
|
|
|
(version (git-version "1.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/fukamachi/prove")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"07sbfw459z8bbjvx1qlmfa8qk2mvbjnnzi2mi0x72blaj8bkl4vc"))
|
|
|
|
|
(file-name (git-file-name "prove" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "prove-asdf.asd"))
|
|
|
|
|
(synopsis "Test requirement for the Common Lisp 'prove' library")
|
|
|
|
|
(description
|
|
|
|
|
"Test requirement for the Common Lisp @command{prove} library.")
|
|
|
|
|
(home-page "https://github.com/fukamachi/prove")
|
|
|
|
|
(license license:expat))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-prove-asdf
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-prove-asdf))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-prove-asdf
|
|
|
|
|
(sbcl-package->ecl-package sbcl-prove-asdf))
|
|
|
|
|
|
2018-10-01 13:31:25 +00:00
|
|
|
|
(define-public sbcl-prove
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-prove-asdf)
|
|
|
|
|
(name "sbcl-prove")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("alexandria" ,sbcl-alexandria)
|
|
|
|
|
("cl-ppcre" ,sbcl-cl-ppcre)
|
|
|
|
|
("cl-ansi-text" ,sbcl-cl-ansi-text)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("prove-asdf" ,sbcl-prove-asdf)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "prove.asd"))
|
|
|
|
|
(synopsis "Yet another unit testing framework for Common Lisp")
|
|
|
|
|
(description
|
|
|
|
|
"This project was originally called @command{cl-test-more}.
|
|
|
|
|
@command{prove} is yet another unit testing framework for Common Lisp. The
|
|
|
|
|
advantages of @command{prove} are:
|
|
|
|
|
|
|
|
|
|
@itemize
|
|
|
|
|
@item Various simple functions for testing and informative error messages
|
|
|
|
|
@item ASDF integration
|
|
|
|
|
@item Extensible test reporters
|
|
|
|
|
@item Colorizes the report if it's available (note for SLIME)
|
|
|
|
|
@item Reports test durations
|
|
|
|
|
@end itemize\n")))
|
|
|
|
|
|
|
|
|
|
(define-public cl-prove
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-prove))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-prove
|
|
|
|
|
(sbcl-package->ecl-package sbcl-prove))
|
|
|
|
|
|
2018-10-01 13:31:46 +00:00
|
|
|
|
(define-public sbcl-proc-parse
|
|
|
|
|
(let ((commit "ac3636834d561bdc2686c956dbd82494537285fd"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-proc-parse")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/fukamachi/proc-parse")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"06rnl0h4cx6xv2wj3jczmmcxqn2703inmmvg1s4npbghmijsybfh"))
|
|
|
|
|
(file-name (git-file-name "proc-parse" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("alexandria" ,sbcl-alexandria)
|
|
|
|
|
("babel" ,sbcl-babel)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("prove" ,sbcl-prove)
|
|
|
|
|
("prove-asdf" ,sbcl-prove-asdf)))
|
|
|
|
|
(arguments
|
|
|
|
|
;; TODO: Tests don't find "proc-parse-test", why?
|
|
|
|
|
`(#:tests? #f))
|
|
|
|
|
(synopsis "Procedural vector parser")
|
|
|
|
|
(description
|
|
|
|
|
"This is a string/octets parser library for Common Lisp with speed and
|
|
|
|
|
readability in mind. Unlike other libraries, the code is not a
|
|
|
|
|
pattern-matching-like, but a char-by-char procedural parser.")
|
|
|
|
|
(home-page "https://github.com/fukamachi/proc-parse")
|
|
|
|
|
(license license:bsd-2))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-proc-parse
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-proc-parse))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-proc-parse
|
|
|
|
|
(sbcl-package->ecl-package sbcl-proc-parse))
|
|
|
|
|
|
2018-10-01 13:31:59 +00:00
|
|
|
|
(define-public sbcl-parse-float
|
|
|
|
|
(let ((commit "2aae569f2a4b2eb3bfb5401a959425dcf151b09c"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-parse-float")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/soemraws/parse-float")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"08xw8cchhmqcc0byng69m3f5a2izc9y2290jzz2k0qrbibp1fdk7"))
|
|
|
|
|
(file-name (git-file-name "proc-parse" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("alexandria" ,sbcl-alexandria)
|
|
|
|
|
("babel" ,sbcl-babel)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("prove" ,sbcl-prove)
|
|
|
|
|
("prove-asdf" ,sbcl-prove-asdf)))
|
|
|
|
|
(arguments
|
|
|
|
|
;; TODO: Tests don't find "proc-parse-test", why?
|
|
|
|
|
`(#:tests? #f))
|
|
|
|
|
(synopsis "Parse a floating point value from a string in Common Lisp")
|
|
|
|
|
(description
|
|
|
|
|
"This package exports the following function to parse floating-point
|
|
|
|
|
values from a string in Common Lisp.")
|
|
|
|
|
(home-page "https://github.com/soemraws/parse-float")
|
|
|
|
|
;; TODO: Missing license?
|
|
|
|
|
(license license:public-domain))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-parse-float
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-parse-float))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-parse-float
|
|
|
|
|
(sbcl-package->ecl-package sbcl-parse-float))
|
|
|
|
|
|
2018-08-24 09:36:22 +00:00
|
|
|
|
(define-public sbcl-ascii-strings
|
|
|
|
|
(let ((revision "1")
|
|
|
|
|
(changeset "5048480a61243e6f1b02884012c8f25cdbee6d97"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-ascii-strings")
|
|
|
|
|
(version (string-append "0-" revision "." (string-take changeset 7)))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method hg-fetch)
|
|
|
|
|
(uri (hg-reference
|
|
|
|
|
(url "https://bitbucket.org/vityok/cl-string-match/")
|
|
|
|
|
(changeset changeset)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"01wn5qx562w43ssy92xlfgv79w7p0nv0wbl76mpmba131n9ziq2y"))
|
|
|
|
|
(file-name (git-file-name "cl-string-match" version))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("alexandria" ,sbcl-alexandria)
|
|
|
|
|
("babel" ,sbcl-babel)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "ascii-strings.asd"))
|
|
|
|
|
(synopsis "Operations on ASCII strings")
|
|
|
|
|
(description
|
|
|
|
|
"Operations on ASCII strings. Essentially this can be any kind of
|
|
|
|
|
single-byte encoded strings.")
|
|
|
|
|
(home-page "https://bitbucket.org/vityok/cl-string-match/")
|
|
|
|
|
(license license:bsd-3))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-ascii-strings
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-ascii-strings))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-ascii-strings
|
|
|
|
|
(sbcl-package->ecl-package sbcl-ascii-strings))
|
2018-08-24 09:38:00 +00:00
|
|
|
|
|
2018-10-01 13:32:42 +00:00
|
|
|
|
(define-public sbcl-simple-scanf
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-ascii-strings)
|
|
|
|
|
(name "sbcl-simple-scanf")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("alexandria" ,sbcl-alexandria)
|
|
|
|
|
("iterate" ,sbcl-iterate)
|
|
|
|
|
("proc-parse" ,sbcl-proc-parse)
|
|
|
|
|
("parse-float" ,sbcl-parse-float)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "simple-scanf.asd"))
|
|
|
|
|
(synopsis "Simple scanf-like functionality implementation")
|
|
|
|
|
(description
|
|
|
|
|
"A simple scanf-like functionality implementation.")))
|
|
|
|
|
|
|
|
|
|
(define-public cl-simple-scanf
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-simple-scanf))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-simple-scanf
|
|
|
|
|
(sbcl-package->ecl-package sbcl-simple-scanf))
|
|
|
|
|
|
2018-08-24 09:38:00 +00:00
|
|
|
|
(define-public sbcl-cl-string-match
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-ascii-strings)
|
|
|
|
|
(name "sbcl-cl-string-match")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("alexandria" ,sbcl-alexandria)
|
|
|
|
|
("ascii-strings" ,sbcl-ascii-strings)
|
|
|
|
|
("yacc" ,sbcl-cl-yacc)
|
|
|
|
|
("jpl-util" ,sbcl-jpl-util)
|
|
|
|
|
("jpl-queues" ,sbcl-jpl-queues)
|
|
|
|
|
("mgl-pax" ,sbcl-mgl-pax)
|
|
|
|
|
("iterate" ,sbcl-iterate)))
|
|
|
|
|
;; TODO: Tests are not evaluated properly.
|
|
|
|
|
(native-inputs
|
|
|
|
|
;; For testing:
|
|
|
|
|
`(("lisp-unit" ,sbcl-lisp-unit)
|
|
|
|
|
("simple-scanf" ,sbcl-simple-scanf)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f
|
|
|
|
|
#:asd-file "cl-string-match.asd"))
|
|
|
|
|
(synopsis "Portable, dependency-free set of utilities to manipulate strings in Common Lisp")
|
|
|
|
|
(description
|
|
|
|
|
"@command{cl-strings} is a small, portable, dependency-free set of
|
|
|
|
|
utilities that make it even easier to manipulate text in Common Lisp. It has
|
|
|
|
|
100% test coverage and works at least on sbcl, ecl, ccl, abcl and clisp.")))
|
|
|
|
|
|
|
|
|
|
(define-public cl-string-match
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-cl-string-match))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-cl-string-match
|
|
|
|
|
(sbcl-package->ecl-package sbcl-cl-string-match))
|
2018-10-01 20:37:26 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-ptester
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-ptester")
|
|
|
|
|
(version "20160929")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://beta.quicklisp.org/archive/ptester/"
|
|
|
|
|
(date->string (string->date version "~Y~m~d") "~Y-~m-~d")
|
|
|
|
|
"/ptester-"
|
|
|
|
|
version
|
|
|
|
|
"-git.tgz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"04rlq1zljhxc65pm31bah3sq3as24l0sdivz440s79qlnnyh13hz"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(home-page "http://quickdocs.org/ptester/")
|
|
|
|
|
(synopsis "Portable test harness package")
|
|
|
|
|
(description
|
|
|
|
|
"@command{ptester} is a portable testing framework based on Franz's
|
|
|
|
|
tester module.")
|
|
|
|
|
(license license:lgpl3+)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-ptester
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-ptester))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-ptester
|
|
|
|
|
(sbcl-package->ecl-package sbcl-ptester))
|
2018-10-01 20:37:53 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-puri
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-puri")
|
|
|
|
|
(version "20180228")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://beta.quicklisp.org/archive/puri/"
|
|
|
|
|
(date->string (string->date version "~Y~m~d") "~Y-~m-~d")
|
|
|
|
|
"/puri-"
|
|
|
|
|
version
|
|
|
|
|
"-git.tgz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1s4r5adrjy5asry45xbcbklxhdjydvf6n55z897nvyw33bigrnbz"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
;; REVIEW: Webiste down?
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("ptester" ,sbcl-ptester)))
|
|
|
|
|
(home-page "http://files.kpe.io/puri/")
|
|
|
|
|
(synopsis "Portable URI Library")
|
|
|
|
|
(description
|
|
|
|
|
"This is portable Universal Resource Identifier library for Common Lisp
|
|
|
|
|
programs. It parses URI according to the RFC 2396 specification")
|
|
|
|
|
(license license:lgpl3+)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-puri
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-puri))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-puri
|
|
|
|
|
(sbcl-package->ecl-package sbcl-puri))
|
2018-10-01 20:38:13 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-queues
|
|
|
|
|
(let ((commit "47d4da65e9ea20953b74aeeab7e89a831b66bc94"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-queues")
|
|
|
|
|
(version (git-version "0.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/oconnore/queues")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(file-name (git-file-name "queues" version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0wdhfnzi4v6d97pggzj2aw55si94w4327br94jrmyvwf351wqjvv"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(home-page "https://github.com/oconnore/queues")
|
|
|
|
|
(synopsis "Common Lisp queue library")
|
|
|
|
|
(description
|
|
|
|
|
"This is a simple queue library for Common Lisp with features such as
|
|
|
|
|
non-consing thread safe queues and fibonacci priority queues.")
|
|
|
|
|
(license license:expat))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-queues
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-queues))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-queues
|
|
|
|
|
(sbcl-package->ecl-package sbcl-queues))
|
2018-10-01 20:38:31 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-queues.simple-queue
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-queues)
|
|
|
|
|
(name "sbcl-queues.simple-queue")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("sbcl-queues" ,sbcl-queues)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "queues.simple-queue.asd"))
|
|
|
|
|
(synopsis "Simple queue implementation")
|
|
|
|
|
(description
|
|
|
|
|
"This is a simple queue library for Common Lisp with features such as
|
|
|
|
|
non-consing thread safe queues and fibonacci priority queues.")
|
|
|
|
|
(license license:expat)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-queues.simple-queue
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-queues.simple-queue))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-queues.simple-queue
|
|
|
|
|
(sbcl-package->ecl-package sbcl-queues.simple-queue))
|
2018-10-01 20:38:46 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-queues.simple-cqueue
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-queues)
|
|
|
|
|
(name "sbcl-queues.simple-cqueue")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("sbcl-queues" ,sbcl-queues)
|
|
|
|
|
("sbcl-queues.simple-queue" ,sbcl-queues.simple-queue)
|
|
|
|
|
("bordeaux-threads" ,sbcl-bordeaux-threads)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "queues.simple-cqueue.asd"))
|
|
|
|
|
(synopsis "Thread safe queue implementation")
|
|
|
|
|
(description
|
|
|
|
|
"This is a simple queue library for Common Lisp with features such as
|
|
|
|
|
non-consing thread safe queues and fibonacci priority queues.")
|
|
|
|
|
(license license:expat)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-queues.simple-cqueue
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-queues.simple-cqueue))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-queues.simple-cqueue
|
|
|
|
|
(sbcl-package->ecl-package sbcl-queues.simple-cqueue))
|
2018-10-01 20:39:02 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-queues.priority-queue
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-queues)
|
|
|
|
|
(name "sbcl-queues.priority-queue")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("sbcl-queues" ,sbcl-queues)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "queues.priority-queue.asd"))
|
|
|
|
|
(synopsis "Priority queue (Fibonacci) implementation")
|
|
|
|
|
(description
|
|
|
|
|
"This is a simple queue library for Common Lisp with features such as
|
|
|
|
|
non-consing thread safe queues and fibonacci priority queues.")
|
|
|
|
|
(license license:expat)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-queues.priority-queue
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-queues.priority-queue))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-queues.priority-queue
|
|
|
|
|
(sbcl-package->ecl-package sbcl-queues.priority-queue))
|
2018-10-01 20:39:18 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-queues.priority-cqueue
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-queues)
|
|
|
|
|
(name "sbcl-queues.priority-cqueue")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("sbcl-queues" ,sbcl-queues)
|
|
|
|
|
("sbcl-queues.priority-queue" ,sbcl-queues.priority-queue)
|
|
|
|
|
("bordeaux-threads" ,sbcl-bordeaux-threads)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "queues.priority-cqueue.asd"))
|
|
|
|
|
(synopsis "Thread safe fibonacci priority queue implementation")
|
|
|
|
|
(description
|
|
|
|
|
"This is a simple queue library for Common Lisp with features such as
|
|
|
|
|
non-consing thread safe queues and fibonacci priority queues.")
|
|
|
|
|
(license license:expat)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-queues.priority-cqueue
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-queues.priority-cqueue))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-queues.priority-cqueue
|
|
|
|
|
(sbcl-package->ecl-package sbcl-queues.priority-cqueue))
|
2018-10-02 17:58:33 +00:00
|
|
|
|
|
|
|
|
|
(define sbcl-cffi-bootstrap
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-cffi-bootstrap")
|
|
|
|
|
(version "0.19.0")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/cffi/cffi/archive/v"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "07bc3c1fbfx17wgrvx6bh9byilfzfwv5n597cfdllm0vzwvbmiyk"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libffi" ,libffi)
|
|
|
|
|
("alexandria" ,sbcl-alexandria)
|
|
|
|
|
("babel" ,sbcl-babel)
|
|
|
|
|
("trivial-features" ,sbcl-trivial-features)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'fix-paths
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(substitute* "libffi/libffi.lisp"
|
|
|
|
|
(("libffi.so.6" all) (string-append
|
|
|
|
|
(assoc-ref inputs "libffi")
|
|
|
|
|
"/lib/" all)))
|
|
|
|
|
(substitute* "toolchain/c-toolchain.lisp"
|
|
|
|
|
(("\"cc\"") (format #f "~S" (which "gcc")))))))
|
|
|
|
|
#:asd-system-name "cffi"
|
|
|
|
|
#:tests? #f))
|
|
|
|
|
(home-page "https://common-lisp.net/project/cffi/")
|
|
|
|
|
(synopsis "Common Foreign Function Interface for Common Lisp")
|
|
|
|
|
(description "The Common Foreign Function Interface (CFFI)
|
|
|
|
|
purports to be a portable foreign function interface for Common Lisp.
|
|
|
|
|
The CFFI library is composed of a Lisp-implementation-specific backend
|
|
|
|
|
in the CFFI-SYS package, and a portable frontend in the CFFI
|
|
|
|
|
package.")
|
|
|
|
|
(license license:expat)))
|
2018-10-02 17:58:49 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cffi-toolchain
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-cffi-bootstrap)
|
|
|
|
|
(name "sbcl-cffi-toolchain")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libffi" ,libffi)
|
|
|
|
|
("sbcl-cffi" ,sbcl-cffi-bootstrap)))
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments sbcl-cffi-bootstrap)
|
|
|
|
|
((#:asd-system-name _) #f)
|
|
|
|
|
((#:tests? _) #t)))))
|
2018-10-02 17:59:05 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cffi-libffi
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-cffi-toolchain)
|
|
|
|
|
(name "sbcl-cffi-libffi")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("cffi" ,sbcl-cffi-bootstrap)
|
|
|
|
|
("cffi-grovel" ,sbcl-cffi-grovel)
|
|
|
|
|
("trivial-features" ,sbcl-trivial-features)
|
|
|
|
|
("libffi" ,libffi)))))
|
2018-10-02 17:59:19 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cffi-grovel
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-cffi-toolchain)
|
|
|
|
|
(name "sbcl-cffi-grovel")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libffi" ,libffi)
|
|
|
|
|
("cffi" ,sbcl-cffi-bootstrap)
|
|
|
|
|
("cffi-toolchain" ,sbcl-cffi-toolchain)
|
|
|
|
|
("alexandria" ,sbcl-alexandria)))
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments sbcl-cffi-toolchain)
|
|
|
|
|
((#:phases phases)
|
|
|
|
|
`(modify-phases ,phases
|
|
|
|
|
(add-after 'build 'install-headers
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(install-file "grovel/common.h"
|
|
|
|
|
(string-append
|
|
|
|
|
(assoc-ref outputs "out")
|
|
|
|
|
"/include/grovel"))))))))))
|
2018-10-02 17:59:29 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cffi
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-cffi-toolchain)
|
|
|
|
|
(name "sbcl-cffi")
|
|
|
|
|
(inputs (package-inputs sbcl-cffi-bootstrap))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("cffi-grovel" ,sbcl-cffi-grovel)
|
|
|
|
|
("cffi-libffi" ,sbcl-cffi-libffi)
|
|
|
|
|
("rt" ,sbcl-rt)
|
|
|
|
|
("bordeaux-threads" ,sbcl-bordeaux-threads)
|
|
|
|
|
,@(package-native-inputs sbcl-cffi-bootstrap)))))
|
2018-10-03 18:18:13 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-sqlite
|
|
|
|
|
(let ((commit "c738e66d4266ef63a1debc4ef4a1b871a068c112"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-cl-sqlite")
|
|
|
|
|
(version (git-version "0.2" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/dmitryvk/cl-sqlite")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(file-name (git-file-name "cl-sqlite" version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1ng45k1hdb84sqjryrfx93g66bsbybmpy301wd0fdybnc5jzr36q"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("iterate" ,sbcl-iterate)
|
|
|
|
|
("cffi" ,sbcl-cffi)
|
|
|
|
|
("sqlite" ,sqlite)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("fiveam" ,sbcl-fiveam)
|
|
|
|
|
("bordeaux-threads" ,sbcl-bordeaux-threads)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ; Upstream seems to have issues with tests: https://github.com/dmitryvk/cl-sqlite/issues/7
|
|
|
|
|
#:asd-file "sqlite.asd"
|
|
|
|
|
#:asd-system-name "sqlite"
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'fix-paths
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(substitute* "sqlite-ffi.lisp"
|
|
|
|
|
(("libsqlite3" all) (string-append
|
|
|
|
|
(assoc-ref inputs "sqlite")"/lib/" all))))))))
|
|
|
|
|
(home-page "https://common-lisp.net/project/cl-sqlite/")
|
|
|
|
|
(synopsis "Common Lisp binding for SQLite")
|
|
|
|
|
(description
|
|
|
|
|
"The @command{cl-sqlite} package is an interface to the SQLite embedded
|
|
|
|
|
relational database engine.")
|
|
|
|
|
(license license:public-domain))))
|
2018-10-05 14:14:30 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-parenscript
|
|
|
|
|
(let ((commit "061d8e286c81c3f45c84fb2b11ee7d83f590a8f8"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-parenscript")
|
|
|
|
|
(version (git-version "2.6" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://gitlab.common-lisp.net/parenscript/parenscript")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(file-name (git-file-name "parenscript" version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1kbhgsjbikc73m5cwdp4d4fdafyqcr1b7b630qjrziql0nh6mi3k"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("cl-ppcre" ,sbcl-cl-ppcre)
|
|
|
|
|
("anaphora" ,sbcl-anaphora)
|
|
|
|
|
("named-readtables" ,sbcl-named-readtables)))
|
|
|
|
|
(home-page "https://common-lisp.net/project/parenscript/")
|
|
|
|
|
(synopsis "Translator from a subset of Common Lisp to JavaScript")
|
|
|
|
|
(description
|
|
|
|
|
"Parenscript is a translator from an extended subset of Common Lisp to
|
|
|
|
|
JavaScript. Parenscript code can run almost identically on both the
|
|
|
|
|
browser (as JavaScript) and server (as Common Lisp).
|
|
|
|
|
|
|
|
|
|
Parenscript code is treated the same way as Common Lisp code, making the full
|
|
|
|
|
power of Lisp macros available for JavaScript. This provides a web
|
|
|
|
|
development environment that is unmatched in its ability to reduce code
|
|
|
|
|
duplication and provide advanced meta-programming facilities to web
|
|
|
|
|
developers.
|
|
|
|
|
|
|
|
|
|
At the same time, Parenscript is different from almost all other \"language
|
|
|
|
|
X\" to JavaScript translators in that it imposes almost no overhead:
|
|
|
|
|
|
|
|
|
|
@itemize
|
|
|
|
|
@item No run-time dependencies: Any piece of Parenscript code is runnable
|
|
|
|
|
as-is. There are no JavaScript files to include.
|
|
|
|
|
@item Native types: Parenscript works entirely with native JavaScript data
|
|
|
|
|
types. There are no new types introduced, and object prototypes are not
|
|
|
|
|
touched.
|
|
|
|
|
@item Native calling convention: Any JavaScript code can be called without the
|
|
|
|
|
need for bindings. Likewise, Parenscript can be used to make efficient,
|
|
|
|
|
self-contained JavaScript libraries.
|
|
|
|
|
@item Readable code: Parenscript generates concise, formatted, idiomatic
|
|
|
|
|
JavaScript code. Identifier names are preserved. This enables seamless
|
|
|
|
|
debugging in tools like Firebug.
|
|
|
|
|
@item Efficiency: Parenscript introduces minimal overhead for advanced Common
|
|
|
|
|
Lisp features. The generated code is almost as fast as hand-written
|
|
|
|
|
JavaScript.
|
|
|
|
|
@end itemize\n")
|
|
|
|
|
(license license:bsd-3))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-parenscript
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-parenscript))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-parenscript
|
|
|
|
|
(sbcl-package->ecl-package sbcl-parenscript))
|
2018-10-09 09:59:30 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-json
|
|
|
|
|
(let ((commit "6dfebb9540bfc3cc33582d0c03c9ec27cb913e79"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-cl-json")
|
|
|
|
|
(version (git-version "0.5" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/hankhero/cl-json")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(file-name (git-file-name "cl-json" version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0fx3m3x3s5ji950yzpazz4s0img3l6b3d6l3jrfjv0lr702496lh"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("fiveam" ,sbcl-fiveam)))
|
|
|
|
|
(home-page "https://github.com/hankhero/cl-json")
|
|
|
|
|
(synopsis "JSON encoder and decoder for Common-Lisp")
|
|
|
|
|
(description
|
|
|
|
|
"@command{cl-json} provides an encoder of Lisp objects to JSON format
|
|
|
|
|
and a corresponding decoder of JSON data to Lisp objects. Both the encoder
|
|
|
|
|
and the decoder are highly customizable; at the same time, the default
|
|
|
|
|
settings ensure a very simple mode of operation, similar to that provided by
|
|
|
|
|
@command{yason} or @command{st-json}.")
|
|
|
|
|
(license license:expat))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-json
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-cl-json))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-cl-json
|
|
|
|
|
(sbcl-package->ecl-package sbcl-cl-json))
|
2018-10-09 10:05:23 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-unix-opts
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-unix-opts")
|
|
|
|
|
(version "0.1.7")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/libre-man/unix-opts")
|
|
|
|
|
(commit version)))
|
|
|
|
|
(file-name (git-file-name "unix-opts" version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"08djdi1ard09fijb7w9bdmhmwd98b1hzmcnjw9fqjiqa0g3b44rr"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(home-page "https://github.com/hankhero/cl-json")
|
|
|
|
|
(synopsis "Unix-style command line options parser")
|
|
|
|
|
(description
|
|
|
|
|
"This is a minimalistic parser of command line options. The main
|
|
|
|
|
advantage of the library is the ability to concisely define command line
|
|
|
|
|
options once and then use this definition for parsing and extraction of
|
|
|
|
|
command line arguments, as well as printing description of command line
|
|
|
|
|
options (you get --help for free). This way you don't need to repeat
|
|
|
|
|
yourself. Also, @command{unix-opts} doesn't depend on anything and allows to
|
|
|
|
|
precisely control behavior of the parser via Common Lisp restarts.")
|
|
|
|
|
(license license:expat)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-unix-opts
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-unix-opts))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-unix-opts
|
|
|
|
|
(sbcl-package->ecl-package sbcl-unix-opts))
|
2018-10-10 09:15:17 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-trivial-garbage
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-trivial-garbage")
|
|
|
|
|
(version "0.21")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://github.com/trivial-garbage/trivial-garbage/archive/v"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "0b244nlszkrqawsnp568clnx32xmvjmbbagbz7625w9n0yq7396y"))
|
|
|
|
|
(file-name (string-append "trivial-garbage-" version ".tar.gz"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("rt" ,sbcl-rt)))
|
|
|
|
|
(home-page "https://common-lisp.net/project/trivial-garbage/")
|
|
|
|
|
(synopsis "Portable GC-related APIs for Common Lisp")
|
|
|
|
|
(description "@command{trivial-garbage} provides a portable API to
|
|
|
|
|
finalizers, weak hash-tables and weak pointers on all major implementations of
|
|
|
|
|
the Common Lisp programming language.")
|
|
|
|
|
(license license:public-domain)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-trivial-garbage
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-trivial-garbage))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-trivial-garbage
|
|
|
|
|
(sbcl-package->ecl-package sbcl-trivial-garbage))
|
2018-10-10 09:22:51 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-closer-mop
|
|
|
|
|
(let ((commit "fac29ce90e3a46e1fc6cf182190e193526fa9dbc"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-closer-mop")
|
|
|
|
|
(version (git-version "1.0.0" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/pcostanza/closer-mop")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "0hvh77y869h8fg9di5snyg85fxq6fdh9gj1igmx1g6j6j5x915dl"))
|
|
|
|
|
(file-name (git-file-name "closer-mop" version ))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(home-page "https://github.com/pcostanza/closer-mop")
|
|
|
|
|
(synopsis "Rectifies absent or incorrect CLOS MOP features")
|
|
|
|
|
(description "Closer to MOP is a compatibility layer that rectifies many
|
|
|
|
|
of the absent or incorrect CLOS MOP features across a broad range of Common
|
|
|
|
|
Lisp implementations.")
|
|
|
|
|
(license license:expat))))
|
|
|
|
|
|
|
|
|
|
(define-public cl-closer-mop
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-closer-mop))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-closer-mop
|
|
|
|
|
(sbcl-package->ecl-package sbcl-closer-mop))
|
2018-10-09 19:38:43 +00:00
|
|
|
|
|
|
|
|
|
(define sbcl-cl-cffi-gtk-boot0
|
|
|
|
|
(let ((commit "29443c5aaca975709df8025c4649366d882033cb"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-cl-cffi-gtk-boot0")
|
|
|
|
|
(version (git-version "0.11.2" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/Ferada/cl-cffi-gtk/")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(file-name (git-file-name "cl-cffi-gtk" version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0f6s92sf8xyzh1yksqx8bsy1sv0zmy0c13j3b8bavaba5hlxpxah"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("iterate" ,sbcl-iterate)
|
|
|
|
|
("cffi" ,sbcl-cffi)
|
|
|
|
|
("trivial-features" ,sbcl-trivial-features)))
|
|
|
|
|
(home-page "https://github.com/Ferada/cl-cffi-gtk/")
|
|
|
|
|
(synopsis "Common Lisp binding for GTK+3")
|
|
|
|
|
(description
|
|
|
|
|
"@command{cl-cffi-gtk} is a Lisp binding to GTK+ 3 (GIMP Toolkit) which
|
|
|
|
|
is a library for creating graphical user interfaces.")
|
|
|
|
|
(license license:lgpl3))))
|
2018-10-19 14:52:22 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-cffi-gtk-glib
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-cl-cffi-gtk-boot0)
|
|
|
|
|
(name "sbcl-cl-cffi-gtk-glib")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("glib" ,glib)
|
|
|
|
|
,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "glib/cl-cffi-gtk-glib.asd"
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'fix-paths
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(substitute* "glib/glib.init.lisp"
|
|
|
|
|
(("libglib|libgthread" all) (string-append
|
|
|
|
|
(assoc-ref inputs "glib") "/lib/" all))))))))))
|
2018-10-19 14:52:59 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-cffi-gtk-gobject
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-cl-cffi-gtk-boot0)
|
|
|
|
|
(name "sbcl-cl-cffi-gtk-gobject")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("glib" ,glib)
|
|
|
|
|
("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
|
|
|
|
|
("trivial-garbage" ,sbcl-trivial-garbage)
|
|
|
|
|
("bordeaux-threads" ,sbcl-bordeaux-threads)
|
|
|
|
|
("closer-mop" ,sbcl-closer-mop)
|
|
|
|
|
,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "gobject/cl-cffi-gtk-gobject.asd"
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'fix-paths
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(substitute* "gobject/gobject.init.lisp"
|
|
|
|
|
(("libgobject" all) (string-append
|
|
|
|
|
(assoc-ref inputs "glib") "/lib/" all))))))))))
|
2018-10-19 14:53:16 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-cffi-gtk-gio
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-cl-cffi-gtk-boot0)
|
|
|
|
|
(name "sbcl-cl-cffi-gtk-gio")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("glib" ,glib)
|
|
|
|
|
("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
|
|
|
|
|
("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
|
|
|
|
|
,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "gio/cl-cffi-gtk-gio.asd"
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'fix-paths
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(substitute* "gio/gio.init.lisp"
|
|
|
|
|
(("libgio" all)
|
|
|
|
|
(string-append
|
|
|
|
|
(assoc-ref inputs "glib") "/lib/" all))))))))))
|
2018-10-19 14:53:38 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-cffi-gtk-cairo
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-cl-cffi-gtk-boot0)
|
|
|
|
|
(name "sbcl-cl-cffi-gtk-cairo")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("cairo" ,cairo)
|
|
|
|
|
("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
|
|
|
|
|
,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "cairo/cl-cffi-gtk-cairo.asd"
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'fix-paths
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(substitute* "cairo/cairo.init.lisp"
|
|
|
|
|
(("libcairo" all)
|
|
|
|
|
(string-append
|
|
|
|
|
(assoc-ref inputs "cairo") "/lib/" all))))))))))
|
2018-10-19 14:53:51 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-cffi-gtk-pango
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-cl-cffi-gtk-boot0)
|
|
|
|
|
(name "sbcl-cl-cffi-gtk-pango")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("pango" ,pango)
|
|
|
|
|
("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
|
|
|
|
|
("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
|
|
|
|
|
("cl-cffi-gtk-cairo" ,sbcl-cl-cffi-gtk-cairo)
|
|
|
|
|
,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "pango/cl-cffi-gtk-pango.asd"
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'fix-paths
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(substitute* "pango/pango.init.lisp"
|
|
|
|
|
(("libpango" all)
|
|
|
|
|
(string-append
|
|
|
|
|
(assoc-ref inputs "pango") "/lib/" all))))))))))
|
2018-10-19 14:54:06 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-cffi-gtk-gdk-pixbuf
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-cl-cffi-gtk-boot0)
|
|
|
|
|
(name "sbcl-cl-cffi-gtk-gdk-pixbuf")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("gdk-pixbuf" ,gdk-pixbuf)
|
|
|
|
|
("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
|
|
|
|
|
,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "gdk-pixbuf/cl-cffi-gtk-gdk-pixbuf.asd"
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'fix-paths
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(substitute* "gdk-pixbuf/gdk-pixbuf.init.lisp"
|
|
|
|
|
(("libgdk_pixbuf" all)
|
|
|
|
|
(string-append
|
|
|
|
|
(assoc-ref inputs "gdk-pixbuf") "/lib/" all))))))))))
|
2018-10-19 14:54:26 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-cffi-gtk-gdk
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-cl-cffi-gtk-boot0)
|
|
|
|
|
(name "sbcl-cl-cffi-gtk-gdk")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("gtk" ,gtk+)
|
|
|
|
|
("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
|
|
|
|
|
("cl-cffi-gtk-gio" ,sbcl-cl-cffi-gtk-gio)
|
|
|
|
|
("cl-cffi-gtk-gdk-pixbuf" ,sbcl-cl-cffi-gtk-gdk-pixbuf)
|
|
|
|
|
("cl-cffi-gtk-cairo" ,sbcl-cl-cffi-gtk-cairo)
|
|
|
|
|
("cl-cffi-gtk-pango" ,sbcl-cl-cffi-gtk-pango)
|
|
|
|
|
,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "gdk/cl-cffi-gtk-gdk.asd"
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'fix-paths
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(substitute* "gdk/gdk.init.lisp"
|
|
|
|
|
(("libgdk" all)
|
|
|
|
|
(string-append
|
|
|
|
|
(assoc-ref inputs "gtk") "/lib/" all)))
|
|
|
|
|
(substitute* "gdk/gdk.package.lisp"
|
|
|
|
|
(("libgtk" all)
|
|
|
|
|
(string-append
|
|
|
|
|
(assoc-ref inputs "gtk") "/lib/" all))))))))))
|
2018-10-19 14:54:46 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-cffi-gtk
|
|
|
|
|
(package
|
|
|
|
|
(inherit sbcl-cl-cffi-gtk-boot0)
|
|
|
|
|
(name "sbcl-cl-cffi-gtk")
|
|
|
|
|
(inputs
|
|
|
|
|
`(("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
|
|
|
|
|
("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
|
|
|
|
|
("cl-cffi-gtk-gio" ,sbcl-cl-cffi-gtk-gio)
|
|
|
|
|
("cl-cffi-gtk-gdk" ,sbcl-cl-cffi-gtk-gdk)
|
|
|
|
|
,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("fiveam" ,sbcl-fiveam)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "gtk/cl-cffi-gtk.asd"
|
|
|
|
|
#:test-asd-file "test/cl-cffi-gtk-test.asd"
|
|
|
|
|
;; TODO: Tests fail with memory fault.
|
|
|
|
|
;; See https://github.com/Ferada/cl-cffi-gtk/issues/24.
|
|
|
|
|
#:tests? #f))))
|
2018-10-10 13:07:01 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-cl-webkit
|
|
|
|
|
(let ((commit "cd2a9008e0c152e54755e8a7f07b050fe36bab31"))
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-cl-webkit")
|
|
|
|
|
(version (git-version "2.4" "1" commit))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/atlas-engineer/cl-webkit")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(file-name (git-file-name "cl-webkit" version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0f5lyn9i7xrn3g1bddga377mcbawkbxydijpg389q4n04gqj0vwf"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("cffi" ,sbcl-cffi)
|
|
|
|
|
("cl-cffi-gtk" ,sbcl-cl-cffi-gtk)
|
|
|
|
|
("webkitgtk" ,webkitgtk)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:asd-file "webkit2/cl-webkit2.asd"
|
|
|
|
|
#:asd-system-name "cl-webkit2"
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'fix-paths
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(substitute* "webkit2/webkit2.init.lisp"
|
|
|
|
|
(("libwebkit2gtk" all)
|
|
|
|
|
(string-append
|
|
|
|
|
(assoc-ref inputs "webkitgtk") "/lib/" all))))))))
|
|
|
|
|
(home-page "https://github.com/atlas-engineer/cl-webkit")
|
|
|
|
|
(synopsis "Binding to WebKitGTK+ for Common Lisp")
|
|
|
|
|
(description
|
|
|
|
|
"@command{cl-webkit} is a binding to WebKitGTK+ for Common Lisp,
|
|
|
|
|
currently targeting WebKit version 2. The WebKitGTK+ library adds web
|
|
|
|
|
browsing capabilities to an application, leveraging the full power of the
|
|
|
|
|
WebKit browsing engine.")
|
|
|
|
|
(license license:expat))))
|
2018-10-10 13:07:19 +00:00
|
|
|
|
|
|
|
|
|
(define-public sbcl-lparallel
|
|
|
|
|
(package
|
|
|
|
|
(name "sbcl-lparallel")
|
|
|
|
|
(version "2.8.4")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/lmj/lparallel/")
|
|
|
|
|
(commit (string-append "lparallel-" version))))
|
|
|
|
|
(file-name (git-file-name "lparallel" version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0g0aylrbbrqsz0ahmwhvnk4cmc2931fllbpcfgzsprwnqqd7vwq9"))))
|
|
|
|
|
(build-system asdf-build-system/sbcl)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("alexandria" ,sbcl-alexandria)
|
|
|
|
|
("bordeaux-threads" ,sbcl-bordeaux-threads)
|
|
|
|
|
("trivial-garbage" ,sbcl-trivial-garbage)))
|
|
|
|
|
(home-page "https://lparallel.org/")
|
|
|
|
|
(synopsis "Parallelism for Common Lisp")
|
|
|
|
|
(description
|
|
|
|
|
"@command{lparallel} is a library for parallel programming in Common
|
|
|
|
|
Lisp, featuring:
|
|
|
|
|
|
|
|
|
|
@itemize
|
|
|
|
|
@item a simple model of task submission with receiving queue,
|
|
|
|
|
@item constructs for expressing fine-grained parallelism,
|
|
|
|
|
@item asynchronous condition handling across thread boundaries,
|
|
|
|
|
@item parallel versions of map, reduce, sort, remove, and many others,
|
|
|
|
|
@item promises, futures, and delayed evaluation constructs,
|
|
|
|
|
@item computation trees for parallelizing interconnected tasks,
|
|
|
|
|
@item bounded and unbounded FIFO queues,
|
|
|
|
|
@item high and low priority tasks,
|
|
|
|
|
@item task killing by category,
|
|
|
|
|
@item integrated timeouts.
|
|
|
|
|
@end itemize\n")
|
|
|
|
|
(license license:expat)))
|
|
|
|
|
|
|
|
|
|
(define-public cl-lparallel
|
|
|
|
|
(sbcl-package->cl-source-package sbcl-lparallel))
|
|
|
|
|
|
|
|
|
|
(define-public ecl-lparallel
|
|
|
|
|
(sbcl-package->ecl-package sbcl-lparallel))
|