From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp12.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms9.migadu.com with LMTPS id kD99CNfLS2RyMgEASxT56A (envelope-from ) for ; Fri, 28 Apr 2023 15:36:23 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp12.migadu.com with LMTPS id KNxDCNfLS2QsgAEAauVa8A (envelope-from ) for ; Fri, 28 Apr 2023 15:36:23 +0200 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 9108135C85 for ; Fri, 28 Apr 2023 15:36:22 +0200 (CEST) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1psOGc-0007qb-3q; Fri, 28 Apr 2023 09:36:06 -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 1psOGa-0007pr-0N for guix-patches@gnu.org; Fri, 28 Apr 2023 09:36:04 -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 1psOGZ-0004RV-1O for guix-patches@gnu.org; Fri, 28 Apr 2023 09:36:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1psOGY-0000VD-84 for guix-patches@gnu.org; Fri, 28 Apr 2023 09:36:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#63147] [PATCH 1/2] gnu: supercollider: Use G-expressions. Resent-From: Zhu Zihao Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Fri, 28 Apr 2023 13:36:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 63147 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 63147@debbugs.gnu.org Cc: Zhu Zihao X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.16826889031823 (code B ref -1); Fri, 28 Apr 2023 13:36:02 +0000 Received: (at submit) by debbugs.gnu.org; 28 Apr 2023 13:35:03 +0000 Received: from localhost ([127.0.0.1]:60789 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1psOFa-0000TL-Ha for submit@debbugs.gnu.org; Fri, 28 Apr 2023 09:35:03 -0400 Received: from lists.gnu.org ([209.51.188.17]:56050) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1psOFX-0000Sh-Qr for submit@debbugs.gnu.org; Fri, 28 Apr 2023 09:35:01 -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 1psOFX-0007Ae-8h for guix-patches@gnu.org; Fri, 28 Apr 2023 09:34:59 -0400 Received: from m12.mail.163.com ([220.181.12.215]) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1psOFM-0003pj-Ac for guix-patches@gnu.org; Fri, 28 Apr 2023 09:34:52 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=163.com; s=s110527; h=From:Subject:Date:Message-Id:MIME-Version; bh=U/Df9 wKrT8sw0yP5v4163DSCENQIEjFQnFGna/ECqZ4=; b=aKi9/uHuvlOHtJK3E8Kst iCAcrp9iXtZJ9JgNR51QyoPyZijAXPHQh0YTDBErb8eot1SCnIkbEnGD+hBZ5gC9 o5MA9ahSBDAs7Aa8Y7/xUVww2mQOPDN9fHKpC+rBpcxIXUmWalCctH/+F+2nT8// vOJNWQWz3l3Q828Wc81pyk= Received: from localhost.localdomain (unknown [119.123.68.49]) by zwqz-smtp-mta-g5-2 (Coremail) with SMTP id _____wD3kghVy0tkdZWNAQ--.9886S2; Fri, 28 Apr 2023 21:34:30 +0800 (CST) From: Zhu Zihao Date: Fri, 28 Apr 2023 21:33:28 +0800 Message-Id: <20230428133329.31666-1-all_but_last@163.com> X-Mailer: git-send-email 2.39.2 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-CM-TRANSID: _____wD3kghVy0tkdZWNAQ--.9886S2 X-Coremail-Antispam: 1Uf129KBjvJXoWxWr17AFyrXry8Kr45Aw48Crg_yoWrKF4fpr y7KwnayrZ8AryxJws3Zr4xZrW3KFZ2kw1Yyrs7Ar1Ik3yFkFWxJr47JrWfu3W7Jan7A3y7 Wa1vq34UXrW0grDanT9S1TB71UUUUUUqnTZGkaVYY2UrUUUUjbIjqfuFe4nvWSU5nxnvy2 9KBjDUYxBIdaVFxhVjvjDU0xZFpf9x0JUzyxiUUUUU= X-Originating-IP: [119.123.68.49] X-CM-SenderInfo: pdoosuxxwbztlvw6il2tof0z/xtbBZghfr1aEDWR+4wAAs4 Received-SPF: pass client-ip=220.181.12.215; envelope-from=all_but_last@163.com; helo=m12.mail.163.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action 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: , Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: guix-patches-bounces+larch=yhetil.org@gnu.org X-Migadu-Country: US X-Migadu-Flow: FLOW_IN ARC-Seal: i=1; s=key1; d=yhetil.org; t=1682688982; a=rsa-sha256; cv=none; b=ZK1btD1I9xXkuLEgqDoLKbi1CpsCH6zrjIdYEv2XBYNdmln+IlMPZ/67UZfEvCxUx6/K1P MbJLi0V1akiUCu8E0IVn9UKm3ss2x+lo5PJCu2IwbYJix0TRngTzcRJ+LoCvoRfBGsKy6r KoTURUnHLIniWvDQ3XpwDVndq37zJE8MCi50xdPz5hS+sRuTRBFC59pWzHKkPXoXCcZCUV lLcBSarltccKwfZnb30cokfjHqm71bQn89sykLmsxlxzsPNKiL77N+QHsiG1y9I1g0Jgk7 HxlY+KllxsyEvwgHcuPXQ+R49N2rZLFunXxMSEiHxsGzQvfrUaADefk5AU2Rlw== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=163.com header.s=s110527 header.b="aKi9/uHu"; dmarc=fail reason="SPF not aligned (relaxed)" header.from=163.com (policy=none); spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org" ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1682688982; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-transfer-encoding:content-transfer-encoding:resent-cc: resent-from:resent-sender:resent-message-id:list-id:list-help: list-unsubscribe:list-subscribe:list-post:dkim-signature; bh=U/Df9wKrT8sw0yP5v4163DSCENQIEjFQnFGna/ECqZ4=; b=odzWtnRWK4XvoOxsRAAy1aCwewVy1g/f/BgZXRjcZ5yi+SDDz02hy1L6bY4emEAbfo2BwL rPkqGX7bTksY0MKlHkldTWzE7z54bDMM06/2v4/C8IvZ96as6t5HvmpDiuuQ8s3R0XLBBw hLQr+o/zukWMqG9eDePLCB96KwIFS2ZoOhq9j/yfq1v/SM9u/uARIF9LhsU76FO3r6NmIe FRNTZ/FsJ4HUbKEXehZ6kpO2s99BZI+UeKIAo9pn0FACk665OmXjR/AvDZb6edrmGpoi4v p0hKyTDbVP3LMexgcc8s7P/ElXzmrNwF7TJp6ziC25Ak9YNJyx6Wsf1tfqm6dg== X-Migadu-Spam-Score: 0.19 X-Spam-Score: 0.19 X-Migadu-Queue-Id: 9108135C85 X-Migadu-Scanner: scn0.migadu.com Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=163.com header.s=s110527 header.b="aKi9/uHu"; dmarc=fail reason="SPF not aligned (relaxed)" header.from=163.com (policy=none); spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org" X-TUID: nb9n+I/knfYF * gnu/packages/audio.scm (supercollider)[source]: Use G-expression in snippet. [arguments]: Use G-expressions. <#:phases>: Replace `(assoc-ref outputs ...)` with `#$output`. --- gnu/packages/audio.scm | 102 ++++++++++++++++++++--------------------- 1 file changed, 51 insertions(+), 51 deletions(-) diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index dca5e516a1..69570109d9 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -3460,64 +3460,64 @@ (define-public supercollider ;; The build system doesn't allow us to unbundle the following ;; libraries. hidapi is also heavily patched and upstream not ;; actively maintained. - '(let ((keep-dirs '("nova-simd" "nova-tt" "hidapi" - "TLSF-2.4.6" "oscpack_1_1_0" "." ".."))) - (with-directory-excursion "./external_libraries" - (for-each - delete-file-recursively - (scandir "." - (lambda (x) - (and (eq? (stat:type (stat x)) 'directory) - (not (member (basename x) keep-dirs))))))) - ;; To find the Guix provided ableton-link library. - (substitute* "lang/CMakeLists.txt" - (("include\\(\\.\\./external_libraries/link/\ + #~(let ((keep-dirs '("nova-simd" "nova-tt" "hidapi" + "TLSF-2.4.6" "oscpack_1_1_0" "." ".."))) + (with-directory-excursion "./external_libraries" + (for-each + delete-file-recursively + (scandir "." + (lambda (x) + (and (eq? (stat:type (stat x)) 'directory) + (not (member (basename x) keep-dirs))))))) + ;; To find the Guix provided ableton-link library. + (substitute* "lang/CMakeLists.txt" + (("include\\(\\.\\./external_libraries/link/\ AbletonLinkConfig\\.cmake\\)") - "find_package(AbletonLink NAMES AbletonLink ableton-link \ + "find_package(AbletonLink NAMES AbletonLink ableton-link \ link REQUIRED)")))))) (build-system cmake-build-system) (outputs '("out" ;core language "ide")) ;qt ide (arguments - `(#:configure-flags '("-DSYSTEM_BOOST=ON" - "-DSYSTEM_YAMLCPP=ON" - "-DSC_QT=ON" - "-DCMAKE_BUILD_TYPE=Release" - "-DFORTIFY=ON" - ;; "-DLIBSCSYNTH=ON" ; TODO: Re-enable? - "-DSC_EL=OFF") ;scel is packaged individually as emacs-scel - #:phases - (modify-phases %standard-phases - ;; HOME must be defined otherwise supercollider throws a "ERROR: - ;; Primitive '_FileMkDir' failed." error when generating the doc. - ;; The graphical tests also hang without it. - (add-after 'unpack 'set-home-directory - (lambda _ - (setenv "HOME" (getcwd)))) - (add-after 'unpack 'patch-scclass-dir - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (scclass-dir - (string-append out - "/share/SuperCollider/SCClassLibrary"))) - (substitute* "lang/LangSource/SC_LanguageConfig.cpp" - (((string-append - "SC_Filesystem::instance\\(\\)\\.getDirectory" - "\\(DirName::Resource\\) / CLASS_LIB_DIR_NAME")) - (string-append "Path(\"" scclass-dir "\")")))))) - (add-before 'build 'prepare-x - (lambda _ - (system "Xvfb &") - (setenv "DISPLAY" ":0"))) - (add-before 'install 'install-ide - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (ide (assoc-ref outputs "ide")) - (scide "editors/sc-ide/scide")) - (install-file scide - (string-append ide "/bin")) - (delete-file scide))))))) + (list + #:configure-flags + #~(list "-DSYSTEM_BOOST=ON" + "-DSYSTEM_YAMLCPP=ON" + "-DSC_QT=ON" + "-DCMAKE_BUILD_TYPE=Release" + "-DFORTIFY=ON" + ;; "-DLIBSCSYNTH=ON" ; TODO: Re-enable? + "-DSC_EL=OFF") ;scel is packaged individually as emacs-scel + #:phases + #~(modify-phases %standard-phases + ;; HOME must be defined otherwise supercollider throws a "ERROR: + ;; Primitive '_FileMkDir' failed." error when generating the doc. + ;; The graphical tests also hang without it. + (add-after 'unpack 'set-home-directory + (lambda _ + (setenv "HOME" (getcwd)))) + (add-after 'unpack 'patch-scclass-dir + (lambda _ + (let* ((scclass-dir + (string-append #$output + "/share/SuperCollider/SCClassLibrary"))) + (substitute* "lang/LangSource/SC_LanguageConfig.cpp" + (((string-append + "SC_Filesystem::instance\\(\\)\\.getDirectory" + "\\(DirName::Resource\\) / CLASS_LIB_DIR_NAME")) + (string-append "Path(\"" scclass-dir "\")")))))) + (add-before 'build 'prepare-x + (lambda _ + (system "Xvfb &") + (setenv "DISPLAY" ":0"))) + (add-before 'install 'install-ide + (lambda _ + (let* ((ide #$output:ide) + (scide "editors/sc-ide/scide")) + (install-file scide + (string-append ide "/bin")) + (delete-file scide))))))) (native-inputs (list ableton-link pkg-config qttools-5 xorg-server-for-tests)) (inputs (list jack-1 -- 2.39.2