;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013 Nikita Karetnikov ;;; Copyright © 2016 Efraim Flashner ;;; Copyright © 2016 Nicolas Goaziou ;;; Copyright © 2016 Ludovic Courtès ;;; Copyright © 2018 Tobias Geerinckx-Rice ;;; Copyright © 2021 Maxime Devos ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu packages smalltalk) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) #:use-module (gnu packages) #:use-module (gnu packages assembly) #:use-module (gnu packages audio) #:use-module (gnu packages autotools) #:use-module (gnu packages base) #:use-module (gnu packages compression) #:use-module (gnu packages fontutils) #:use-module (gnu packages gl) #:use-module (gnu packages glib) #:use-module (gnu packages libffi) #:use-module (gnu packages libsigsegv) #:use-module (gnu packages linux) #:use-module (gnu packages multiprecision) #:use-module (gnu packages pkg-config) #:use-module (gnu packages pulseaudio) #:use-module (gnu packages xorg)) (define-public smalltalk (package (name "smalltalk") (version "3.2.91") (source (origin (method url-fetch) ;; XXX: Revert to mirror://gnu with the next release of Smalltalk. (uri (string-append "https://alpha.gnu.org/gnu/smalltalk/smalltalk-" version ".tar.xz")) (sha256 (base32 "1zb2h5cbz1cwybqjl24lflw359lwj7sjvvhwb4x6miypzhwq4qh0")) ;; XXX: To be removed with the next release of Smalltalk. (patches (search-patches "smalltalk-multiplication-overflow.patch")))) (build-system gnu-build-system) (native-inputs (list pkg-config ;; XXX: To be removed with the next release of Smalltalk. autoconf automake libtool zip)) ;; TODO: These optional dependencies raise the closure size to ~1 GiB ;; from the current ~100 MiB, although some of them might be very ;; useful for end users: ;; - freeglut ;; - glib ;; - gobject-introspection ;; - gtk+-2 ;; - tcl/tk ;; - SDL (sdl-union) ;; - sqlite ;; - zlib (inputs (list gmp libffi libltdl libsigsegv lightning)) (arguments `(#:phases (modify-phases %standard-phases ;; XXX: To be removed with the next release of Smalltalk. ;; The overflow patch modifies configure.ac, therefore remove ;; old configure script and enforce an autoreconf. (add-before 'bootstrap 'remove-unpatched-configure (lambda _ (delete-file "configure") #t)) ;; XXX: To be removed with the next release of Smalltalk. ;; We don't want to regenerate the info files. (add-after 'build 'keep-generated-info-manual (lambda _ (for-each (lambda (file) (invoke "touch" file)) (find-files "doc" "\\.info")) #t)) (add-before 'configure 'fix-libc (lambda* (#:key inputs #:allow-other-keys) (let ((libc (or (assoc-ref inputs "libc") ;; When cross-compiling, the input ;; is named "cross-libc" instead of ;; simply "libc". (assoc-ref inputs "cross-libc")))) (substitute* "libc.la.in" (("@LIBC_SO_NAME@") "libc.so") (("@LIBC_SO_DIR@") (string-append libc "/lib")))) #t))))) (home-page "http://smalltalk.gnu.org/") (synopsis "Smalltalk environment") (description "GNU Smalltalk is a free implementation of the Smalltalk language. It implements the ANSI standard for the language and also includes extra classes such as ones for networking and GUI programming.") (license license:gpl2+))) (define-public squeak-vm (package (name "squeak-vm") (version "4.10.2.2614") (source (origin (method url-fetch) (uri (string-append "http://squeakvm.org/unix/release/" "Squeak-" version "-src.tar.gz")) (sha256 (base32 "0bpwbnpy2sb4gylchfx50sha70z36bwgdxraym4vrr93l8pd3dix")) (modules '((guix build utils))) (snippet ;; Make builds bit-reproducible. '(begin (substitute* "unix/cmake/verstamp" (("vm_date=.*") "vm_date = \"1970-01-01\";\n") (("ux_version=.*") "ux_version = \"GNU\";\n")) (substitute* "unix/vm/config.cmake" (("\\(VM_BUILD_STRING.*") "(VM_BUILD_STRING \\\"Built with GNU Guix\\\")")) #t)))) (inputs (list alsa-lib dbus freetype libffi libxrender mesa pulseaudio)) (native-inputs (list pkg-config)) (build-system cmake-build-system) (arguments `(#:tests? #f ;no check target #:phases (modify-phases %standard-phases (add-after 'unpack 'remove-hardcoded-PATH (lambda _ ;; Remove hard-coded FHS PATH entries. (substitute* '("unix/cmake/squeak.in" "unix/cmake/squeak.sh.in") (("^PATH=.*") "")) #t)) (add-before 'configure 'enter-build-directory (lambda _ (mkdir "build") (chdir "build") #t)) (replace 'configure (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (invoke "../unix/cmake/configure" (string-append "--prefix=" out) "--without-quartz") #t)))))) (synopsis "Smalltalk programming language and environment") (description "Squeak is a full-featured implementation of the Smalltalk programming language and environment based on (and largely compatible with) the original Smalltalk-80 system. Squeak has very powerful 2- and 3-D graphics, sound, video, MIDI, animation and other multimedia capabilities. It also includes a customisable framework for creating dynamic HTTP servers and interactively extensible Web sites.") (home-page "http://squeakvm.org/") (license license:x11)))