From patchwork Tue Mar 28 04:23:41 2023 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: jgart X-Patchwork-Id: 48754 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 7F7D6170D6; Tue, 28 Mar 2023 05:37:29 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-1.8 required=5.0 tests=DKIM_INVALID,DKIM_SIGNED, MAILING_LIST_MULTI,RCVD_IN_MSPIKE_H2,SPF_HELO_PASS,URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 3720817061 for ; Tue, 28 Mar 2023 05:37:27 +0100 (BST) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ph153-0001Ih-5V; Tue, 28 Mar 2023 00:37:09 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ph14x-0001IM-Gy for guix-patches@gnu.org; Tue, 28 Mar 2023 00:37:03 -0400 Received: from debbugs.gnu.org ([209.51.188.43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1ph14w-00084i-V0 for guix-patches@gnu.org; Tue, 28 Mar 2023 00:37:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ph14w-0006NF-Bi for guix-patches@gnu.org; Tue, 28 Mar 2023 00:37:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#62393] [PATCH v2] gnu: Add cl-collider. References: <5a7282791b5c076e6c51466198aec4ac@dismail.de> In-Reply-To: <5a7282791b5c076e6c51466198aec4ac@dismail.de> Resent-From: jgart Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Tue, 28 Mar 2023 04:37:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 62393 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 62393@debbugs.gnu.org Cc: Guillaume Le Vaillant , jgart Received: via spool by 62393-submit@debbugs.gnu.org id=B62393.167997817224442 (code B ref 62393); Tue, 28 Mar 2023 04:37:02 +0000 Received: (at 62393) by debbugs.gnu.org; 28 Mar 2023 04:36:12 +0000 Received: from localhost ([127.0.0.1]:48662 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ph148-0006MA-0M for submit@debbugs.gnu.org; Tue, 28 Mar 2023 00:36:12 -0400 Received: from mx2.dismail.de ([159.69.191.136]:17986) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ph141-0006LX-Q1 for 62393@debbugs.gnu.org; Tue, 28 Mar 2023 00:36:10 -0400 Received: from mx2.dismail.de (localhost [127.0.0.1]) by mx2.dismail.de (OpenSMTPD) with ESMTP id e72636bf; Tue, 28 Mar 2023 06:35:58 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed; d=dismail.de; h=from:to:cc :subject:date:message-id:mime-version:content-transfer-encoding; s=20190914; bh=5e734jqtHbXPzjghpCcxPXTLpYTUHsixnwpEMcO/6q0=; b= bZ1V3U01y4BQvuq35GV2p99NGtslS70PhOYKnTtUtIKObVtXVpJcLev5eH8A3Aqk QrkKQwQg60u0iALU5nZWFpTbO+yBMZ3mQ1F0HzriqsHWXAtb87Mn/FA+NOYjvWFA B0qVyheqaHBgu1j9hqFBHHi/CWAl+zyQIdB2mwoJWJBshjGt9vPXx1VWu/jxp5Ot cS1/xrRkVdnaiF9fH8aiu361k9QdXTQyGh26E367ojwRVx5PHQg76jOdRcR7qy37 NYNoLHrt4AX8IHbSMNsSVKmM9tn/v7r+e5DFccYQ6MEVQ54FTNFlZOVGdfUqRVip rw1GbzzyzQr9ec1RlaGRgA== Received: from smtp1.dismail.de ( [10.240.26.11]) by mx2.dismail.de (OpenSMTPD) with ESMTP id 695f9923; Tue, 28 Mar 2023 06:35:58 +0200 (CEST) Received: from smtp1.dismail.de (localhost [127.0.0.1]) by smtp1.dismail.de (OpenSMTPD) with ESMTP id 898d7efc; Tue, 28 Mar 2023 06:35:58 +0200 (CEST) Received: by dismail.de (OpenSMTPD) with ESMTPSA id 9c47bf1c (TLSv1.3:TLS_AES_256_GCM_SHA384:256:NO); Tue, 28 Mar 2023 06:35:57 +0200 (CEST) Date: Mon, 27 Mar 2023 23:23:41 -0500 Message-Id: <20230328042340.4324-1-jgart@dismail.de> X-Mailer: git-send-email 2.39.2 MIME-Version: 1.0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-to: jgart X-ACL-Warn: , jgart via Guix-patches X-Patchwork-Original-From: jgart via Guix-patches via From: jgart Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org X-getmail-retrieved-from-mailbox: Patches * gnu/packages/lisp-xyz.scm (cl-collider, sbcl-cl-collider): New variables. --- Hi Guillaume, Here's v2 and a log of me trying out the sbcl-cl-collider package in a sly REPL: ```lisp CL-USER> (require :cl-collider) WARNING: System definition file #P"/gnu/store/w2wi00p7d1waiqzyv3i1mz7qv3lxbnba-sbcl-ieee-floats-20170924-1.566b51a/share/common-lisp/sbcl/ieee-floats/ieee-floats.asd" contains definition for system "ieee-floats-tests". Please only define "ieee-floats" and secondary systems with a name starting with "ieee-floats/" (e.g. "ieee-floats/test") in that file. WARNING: System definition file #P"/gnu/store/m3qjf3i4if0p0by4z5j1cgg8mayvzl39-sbcl-pileup-1.0.1-1.f269473/share/common-lisp/sbcl/pileup/pileup.asd" contains definition for system "pileup-tests". Please only define "pileup" and secondary systems with a name starting with "pileup/" (e.g. "pileup/test") in that file. WARNING: System definition file #P"/gnu/store/19jk4gkxpz1g406shg32sp573y31rkr6-sbcl-flexi-streams-1.0.19/share/common-lisp/sbcl/flexi-streams/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file. ("OSC") CL-USER> (in-package :sc-user) # SC-USER> (in-package :sc-user) # SC-USER> *sc-synth-program* "/gnu/store/1bzz28dx9c0qs79hrbs0gpbbnvk10a2l-supercollider-3.12.1/bin/scsynth" SC-USER> (setf *s* (make-external-server "localhost" :port 48800)) # SC-USER> (server-boot *s*) SC FFT global init: cosTable initialised. ;; This I fixed by creating the directory. TODO: Add a guix home service or bloat? *** ERROR: open directory failed '/home/jgart/.local/share/SuperCollider/synthdefs' could not initialize audio. ; Debugger entered on # [1] SC-USER> (server-boot *s*) SC FFT global init: cosTable initialised. could not initialize audio. ; Debugger entered on # [2] SC-USER> (jack-connect) NIL [2] SC-USER> (defvar *synth*) *SYNTH* [2] SC-USER> (setf *synth* (play (sin-osc.ar [320 321] 0 .2))) ; in: SETF *SYNTH* ; (CL-COLLIDER:SIN-OSC.AR SC-USER::[320 SC-USER::321] 0 0.2) ; ; caught WARNING: ; undefined variable: SC-USER::321] ; ; caught WARNING: ; undefined variable: SC-USER::[320 ; ; compilation unit finished ; Undefined variables: ; 321] [320 ; caught 2 WARNING conditions ; Debugger entered on # [3] SC-USER> ; Evaluation aborted on # [2] SC-USER> ; Evaluation aborted on # [1] SC-USER> ; Evaluation aborted on # SC-USER> (setf *synth* (play (sin-osc.ar))) ; Debugger entered on # [1] SC-USER> ; Evaluation aborted on # SC-USER> (setf *synth* (play (sin-osc.ar))) ; Debugger entered on # [1] SC-USER> ; Evaluation aborted on # SC-USER> ``` I'm not able to get sound. Would you like to test it yourself? This is related: https://github.com/byulparan/cl-collider/issues/126 I'll give it another try soon once I find more time. The ecl package fails. I opened an issue for it. all best, jgart gnu/packages/lisp-xyz.scm | 53 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 53 insertions(+) diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm index e0025b784c..ed2e6ff468 100644 --- a/gnu/packages/lisp-xyz.scm +++ b/gnu/packages/lisp-xyz.scm @@ -23959,6 +23959,59 @@ (define-public sbcl-vernacular (define-public cl-vernacular (sbcl-package->cl-source-package sbcl-vernacular)) +(define-public sbcl-cl-collider + (let ((commit "a46908896982868955b29bfb3a5337a0af489b0b") + (revision "0")) + (package + (name "sbcl-cl-collider") + (version (git-version "2018.7.15" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/byulparan/cl-collider") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "10wvjbwvbgr0b57hpfxycg90yjmb29pirygr1sxrdaqxll328sz1")))) + (build-system asdf-build-system/sbcl) + (arguments + (list #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-executables + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "server.lisp" + (("which scsynth") + (search-input-file inputs "/bin/scsynth")) + (("jack_connect") + (search-input-file inputs "/bin/scsynth")))))))) + (inputs + (list supercollider + jack-2 + sbcl-osc + sbcl-alexandria + sbcl-cffi + sbcl-bordeaux-threads + sbcl-pileup + sbcl-flexi-streams + sbcl-split-sequence + sbcl-named-readtables + sbcl-simple-inferiors ; For ecl. + sbcl-cl-ppcre + sbcl-ieee-floats ; sc-osc dependencies. + sbcl-usocket)) + (synopsis "SuperCollider client for CommonLisp") + (description "This package provides a SuperCollider client for +CommonLisp.") + (home-page "https://github.com/byulparan/cl-collider/") + (license license:public-domain)))) + +(define-public cl-collider + (sbcl-package->cl-source-package sbcl-cl-collider)) + +(define-public ecl-cl-collider + (sbcl-package->ecl-package sbcl-cl-collider)) + (define-public sbcl-osc (let ((commit "9f0a9d3da310a3a0f654f48af0203816f3f371ad") (revision "0"))