From patchwork Tue Feb 20 07:03:02 2024 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Efraim Flashner X-Patchwork-Id: 60802 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 1073027BBE9; Tue, 20 Feb 2024 07:05:25 +0000 (GMT) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.7 required=5.0 tests=BAYES_00,DKIM_INVALID, DKIM_SIGNED,MAILING_LIST_MULTI,RCVD_IN_MSPIKE_H4,RCVD_IN_MSPIKE_WL, SPF_HELO_PASS 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 A9C7E27BBE2 for ; Tue, 20 Feb 2024 07:05:21 +0000 (GMT) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1rcKBP-000717-Fe; Tue, 20 Feb 2024 02:04:51 -0500 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 1rcKBK-0006zM-IR for guix-patches@gnu.org; Tue, 20 Feb 2024 02:04:47 -0500 Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1rcKBE-0006rH-II for guix-patches@gnu.org; Tue, 20 Feb 2024 02:04:45 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1rcKBa-0004Xq-1v for guix-patches@gnu.org; Tue, 20 Feb 2024 02:05:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#69283] [PATCH 1/3] gnu: Remove perl6 packages. Resent-From: Efraim Flashner Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Tue, 20 Feb 2024 07:05:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 69283 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 69283@debbugs.gnu.org Cc: Efraim Flashner Received: via spool by 69283-submit@debbugs.gnu.org id=B69283.170841268717429 (code B ref 69283); Tue, 20 Feb 2024 07:05:02 +0000 Received: (at 69283) by debbugs.gnu.org; 20 Feb 2024 07:04:47 +0000 Received: from localhost ([127.0.0.1]:44182 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rcKBJ-0004Wu-Ch for submit@debbugs.gnu.org; Tue, 20 Feb 2024 02:04:47 -0500 Received: from mail-wm1-f46.google.com ([209.85.128.46]:44345) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rcKBF-0004Wc-IF for 69283@debbugs.gnu.org; Tue, 20 Feb 2024 02:04:43 -0500 Received: by mail-wm1-f46.google.com with SMTP id 5b1f17b1804b1-4127011685dso753095e9.1 for <69283@debbugs.gnu.org>; Mon, 19 Feb 2024 23:04:19 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1708412594; x=1709017394; darn=debbugs.gnu.org; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:sender:from:to:cc:subject:date :message-id:reply-to; bh=xqkbaISo/5jGa04OyNPgQIc8lVDx5p9VX9l8h3vkUk4=; b=jtWVSLj98s+hnbTF1OzzPIhoyjR1KXcQoKka5c4un7bPAaZur1izvi/1LrV+3mVJ5Z zdn2+EQVUff4YH3VC+uhj1/plvFXSXvAvvGw1YdB/kOePlAH6UPYPNDugXWRsQOPj9xN g7TBOaU0ejW99OzlnXXt2mJponW8n5rq/VaSchPW3XuWLhW2O26DGx8KVyj8tmKE2Zzc x5UdTG8N4ug9rKDXuFlX2jqbAYsTvJmleSh/bs8tDrgRPdtWDtChN/mfu4zUyuDg39Wv 7RXuOna0oZpV7DjSwpl9a3IFKcJD5U6YldbF85y48MkxuO6E1uJaZ4e4x42EKvoalxQ1 NkbQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1708412594; x=1709017394; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:sender:x-gm-message-state:from :to:cc:subject:date:message-id:reply-to; bh=xqkbaISo/5jGa04OyNPgQIc8lVDx5p9VX9l8h3vkUk4=; b=wK1/Der1EIyhN28sevGidQvlHvxsr6ajvpwf+s36PXbFdgPnSg4uQuZ713X+OzlZOh eJRnbQpQNidMOTXs4jiYsUOh821EyXvrdOmJPe43K0esCW2ko6kwGjnZXs/B4Hkf8ag5 2s43etuYKhQtlaiWPsEn3UQr7i1xm1xY06dcjS09khBdNjsJ2JuvyYJwffJIvLemYQvR L98Z7ly+Ga/UQWnSTaMmhg14rdGaDAQdpuo/x2r8lbcn8dCFBRPotwMp6niCMbNvLS72 En/K9ETFzzr5EQKAgTeLpNJJKD9FmZJ+YfRj0d5mIAXzVPYs5VbarQCv/+ZIMMr3shyW dVsw== X-Gm-Message-State: AOJu0YzLYmwyuCnwgcvgCSNgRL7GDkZQBs9Jw6e10qnxvIo/y+Fnh/sM RI1HgWxa9cfOtaGlqT1SCK/ErjlWaIFXQlm6ojdL7Nf0Y2OpzfPLDrIbl59Aiho= X-Google-Smtp-Source: AGHT+IFfUO1jEFh6uwJbH4WdUIjmKf01pLogCvpLsnp4U15/ObVHl4mcnkJXRpL7LBynKI+0gBP+1w== X-Received: by 2002:a05:600c:91a:b0:40e:f46d:ad35 with SMTP id m26-20020a05600c091a00b0040ef46dad35mr12627724wmp.36.1708412593630; Mon, 19 Feb 2024 23:03:13 -0800 (PST) Received: from localhost ([141.226.12.177]) by smtp.gmail.com with ESMTPSA id jv14-20020a05600c570e00b0040fe3147babsm13654889wmb.0.2024.02.19.23.03.12 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Mon, 19 Feb 2024 23:03:13 -0800 (PST) From: Efraim Flashner Date: Tue, 20 Feb 2024 09:03:02 +0200 Message-ID: <70c8b4cede1f9b2165a9bd9931e275fe1b5742e2.1708411903.git.efraim@flashner.co.il> X-Mailer: git-send-email 2.41.0 In-Reply-To: References: 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: , 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/perl6.scm (perl6-grammar-debugger, perl6-grammar-profiler-simple, perl6-json, perl6-json-class, perl6-json-fast, perl6-json-marshal, perl6-json-name, perl6-json-unmarshal, perl6-license-spdx, perl6-meta6, perl6-mime-base64, perl6-oo-monitors, perl6-svg, perl6-svg-plot, perl6-tap-harness, perl6-terminal-ansicolor, perl6-test-meta, perl6-test-mock, perl6-uri, perl6-xml-writer, perl6-zef): Remove variables. Change-Id: I2fc516bf7f135e4affa31c3e17b3cf08f1500633 --- gnu/packages/perl6.scm | 556 ----------------------------------------- 1 file changed, 556 deletions(-) diff --git a/gnu/packages/perl6.scm b/gnu/packages/perl6.scm index dab9dd477b..4b8899503f 100644 --- a/gnu/packages/perl6.scm +++ b/gnu/packages/perl6.scm @@ -20,10 +20,8 @@ (define-module (gnu packages perl6) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix download) - #:use-module (guix git-download) #:use-module (guix packages) #:use-module (guix build-system perl) - #:use-module (guix build-system rakudo) #:use-module (gnu packages bdw-gc) #:use-module (gnu packages libevent) #:use-module (gnu packages libffi) @@ -223,557 +221,3 @@ (define-public rakudo (description "Rakudo Perl is a compiler that implements the Perl 6 specification and runs on top of several virtual machines.") (license license:artistic2.0))) - -(define-public perl6-grammar-debugger - ;; Last commit was September 2017 - (let ((commit "0375008027c8caa216bd869476ce59ae09b2a702") - (revision "1")) - (package - (name "perl6-grammar-debugger") - (version (git-version "1.0.1" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jnthn/grammar-debugger") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0y826z3m276n7ia810hgcb3div67nxmx125m2fzlc16994zd5vm5")))) - (build-system rakudo-build-system) - (propagated-inputs - (list perl6-terminal-ansicolor)) - (home-page "https://github.com/jnthn/grammar-debugger") - (synopsis "Simple tracing and debugging support for Perl 6 grammars") - (description "This module provides a simple debugger for grammars. Just -@code{use} it: use @code{Grammar::Debugger;} and any grammar in the lexical -scope of the use statement will automatically have debugging enabled. The -debugger will break execution when you first enter the grammar, and provide a -prompt.") - (license license:artistic2.0)))) - -(define-public perl6-grammar-profiler-simple - ;; Last commit was June 2017 - (let ((commit "c0aca5fab323b2974821dabd6b89330c609e0b7d") - (revision "1")) - (package - (name "perl6-grammar-profiler-simple") - (version (git-version "0.02" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/perlpilot/Grammar-Profiler-Simple") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1qcsa4lmcilp3vp0jng0hrgzyzxin9ayg2wjvkcd0k6h7djx9dff")))) - (build-system rakudo-build-system) - (arguments '(#:with-zef? #f)) - (home-page "https://github.com/perlpilot/Grammar-Profiler-Simple") - (synopsis "Simple rule profiling for Perl 6 grammars") - (description "This module provides a simple profiler for Perl 6 grammars. -To enable profiling simply add use @code{Grammar::Profiler::Simple;} to your -code. Any grammar in the lexical scope of the use statement will automatically -have profiling information collected when the grammar is used.") - (license license:artistic2.0)))) - -(define-public perl6-json - (package - (name "perl6-json") - (version "1.0") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/moritz/json") - ;; The commit where 1.0 was "tagged" - (commit "a5ef8c179350dae44ce7fb1abb684fc62c1c2b99"))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1kzryxkqyr129rcckd4jh0dfxdgzv71qx8dpkpm1divbfjyknlay")))) - (build-system rakudo-build-system) - (arguments '(#:with-zef? #f)) - (home-page "https://github.com/moritz/json") - (synopsis "Minimal JSON (de)serializer") - (description "This module is a simple Perl 6 module for serializing and -deserializing JSON.") - (license license:artistic2.0))) - -(define-public perl6-json-class - (package - (name "perl6-json-class") - (version "0.0.12") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jonathanstowe/JSON-Class") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1zyzajc57j3m8q0nr72h9pw4w2nx92rafywlvysgphc5q9sb8np2")))) - (build-system rakudo-build-system) - (propagated-inputs - (list perl6-json-marshal perl6-json-unmarshal)) - (native-inputs - (list perl6-json-fast)) - (home-page "https://github.com/jonathanstowe/JSON-Class") - (synopsis "Provide simple serialisation/deserialisation of objects to/from JSON") - (description "This is a simple role that provides methods to instantiate a -class from a JSON string that (hopefully,) represents it, and to serialise an -object of the class to a JSON string. The JSON created from an instance -should round trip to a new instance with the same values for the public -attributes. Private attributes (that is ones without accessors,) will be -ignored for both serialisation and de-serialisation. The exact behaviour -depends on that of @code{JSON::Marshal} and @code{JSON::Unmarshal} -respectively.") - (license license:artistic2.0))) - -(define-public perl6-json-fast - (package - (name "perl6-json-fast") - (version "0.10") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/timo/json_fast") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 "1g8hr1mdrxwdpzc7hvs9l5r12phvba6y6a5chgkj90ing77ji4b2")))) - (build-system rakudo-build-system) - (arguments '(#:with-zef? #f)) - (home-page "https://github.com/timo/json_fast") - (synopsis "Perl6 json parser") - (description "A naive imperative json parser in pure perl6 (but with direct -access to @code{nqp::} ops), to evaluate performance against @code{JSON::Tiny}. -It is a drop-in replacement for @code{JSON::Tiny}'s from-json and to-json subs, -but it offers a few extra features.") - (license license:artistic2.0))) - -(define-public perl6-json-marshal - (package - (name "perl6-json-marshal") - (version "0.0.16") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jonathanstowe/JSON-Marshal") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0qy7j83h6gjzyyv74ncd92cd9h45rv8diaz3vldiv3b6fqwz4c6i")))) - (build-system rakudo-build-system) - (propagated-inputs - (list perl6-json-fast perl6-json-name)) - (native-inputs - (list perl6-json-fast)) - (home-page "https://github.com/jonathanstowe/JSON-Marshal") - (synopsis "Simple serialisation of objects to JSON") - (description "This library provides a single exported subroutine to create -a JSON representation of an object. It should round trip back into an object -of the same class using @code{JSON::Unmarshal}.") - (license license:artistic2.0))) - -(define-public perl6-json-name - (package - (name "perl6-json-name") - (version "0.0.3") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jonathanstowe/JSON-Name") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "130qwdpbj5qdlsdz05y0rksd79lzbq79scy47n6lnf21b0hz1qjc")))) - (build-system rakudo-build-system) - (arguments '(#:with-zef? #f)) - (home-page "https://github.com/jonathanstowe/JSON-Name") - (synopsis "Provides a trait to store an alternative JSON Name") - (description "This is released as a dependency of @code{JSON::Marshal} and -@code{JSON::Unmarshal} in order to save duplication, it is intended to store a -separate JSON name for an attribute where the name of the JSON attribute might be -changed, either for aesthetic reasons or the name is not a valid Perl identifier. -It will of course also be needed in classes thar are going to use -@code{JSON::Marshal} or @code{JSON::Unmarshal} for serialisation/de-serialisation.") - (license license:artistic2.0))) - -(define-public perl6-json-unmarshal - ;; Last commit was May 2017 - (let ((commit "e1b6288c5f3165058f36c0f4e171cdf2dfd640da") - (revision "1")) - (package - (name "perl6-json-unmarshal") - (version (git-version "0.0.0" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/tadzik/JSON-Unmarshal") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "14azsmzmwdn8k0gqcpvballharcvzylmlyrx2wmv4kpqfnz29fjc")))) - (build-system rakudo-build-system) - (propagated-inputs - (list perl6-json-fast perl6-json-name)) - (home-page "https://github.com/tadzik/JSON-Unmarshal") - (synopsis "Make JSON from an Object") - (description "This library provides a single exported subroutine to -create an object from a JSON representation of an object.") - (license license:expat)))) - -(define-public perl6-license-spdx - (package - (name "perl6-license-spdx") - (version "3.4.0") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jonathanstowe/License-SPDX") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0dl263c3fbxk001gm5fisrzqz1dx182ipaa0x2qva2gxvl075xm8")))) - (build-system rakudo-build-system) - (propagated-inputs - (list perl6-json-class)) - (home-page "https://github.com/jonathanstowe/License-SPDX") - (synopsis "Abstraction over the SPDX License List") - (description "This provides an abstraction over the SPDX License List as -provided in JSON format. Its primary raison d'être is to help the licence -checking of @code{Test::META} and to allow for the warning about deprecated -licences therein.") - (license license:artistic2.0))) - -(define-public perl6-meta6 - (package - (name "perl6-meta6") - (version "0.0.23") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jonathanstowe/META6") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1xnlaamfbdlfb2zidim3bbc4mawsrg6qxhxi6gbld46z1cyry1cw")))) - (build-system rakudo-build-system) - (propagated-inputs - (list perl6-json-class)) - (native-inputs - (list perl6-json-fast)) - (home-page "https://github.com/jonathanstowe/META6") - (synopsis "Do things with Perl 6 [META files]") - (description "This provides a representation of the Perl 6 META files -specification - the META file data can be read, created, parsed and written in a -manner that is conformant with the specification. - -Where they are known about it also makes allowance for customary usage in -existing software (such as installers and so forth.) - -The intent of this is allow the generation and testing of META files for -module authors, so it can provide meta-information whether the attributes are -mandatory as per the spec and where known the places that customary attributes -are used.") - (license license:artistic2.0))) - -(define-public perl6-mime-base64 - (package - (name "perl6-mime-base64") - (version "1.2.1") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/perl6/Perl6-MIME-Base64") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0l67m8mvz3gxml425sd1ggfnhzh4lf754k7w8fngfr453s6lsza1")))) - (build-system rakudo-build-system) - (arguments '(#:with-zef? #f)) - (home-page "https://github.com/perl6/Perl6-MIME-Base64") - (synopsis "Encoding and decoding Base64 ASCII strings") - (description "This Perl 6 module implements encoding and decoding to and -from base64.") - (license license:artistic2.0))) - -(define-public perl6-oo-monitors - (package - (name "perl6-oo-monitors") - (version "1.1") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jnthn/oo-monitors") - ;; The commit where 1.1 was "tagged" - (commit "494db3a3852854f30a80c9bd1489a7d5e429e7c5"))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1sbw2x54wwjjanghjnc7ipmplaw1srvbrphsdv4ym6cipnbmbj9x")))) - (build-system rakudo-build-system) - (arguments '(#:with-zef? #f)) - (home-page "https://github.com/jnthn/oo-monitors") - (synopsis "Monitors with condition variables for Perl 6") - (description "A monitor provides per-instance mutual exclusion for objects. -This means that for a given object instance, only one thread can ever be inside -its methods at a time. This is achieved by a lock being associated with each -object. The lock is acquired automatically at the entry to each method in the -monitor. Condition variables are also supported.") - (license license:artistic2.0))) - -(define-public perl6-svg - ;; Latest commit, basically unchanged since August 2015 - (let ((commit "07190c0602aa276e5319f06aa0012452dbff3582") - (revision "1")) - (package - (name "perl6-svg") - (version (git-version "0.0.0" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/moritz/svg") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0mkjdhg7ajksdn61n8fqhyzfd7ly9myazsvpsm02a5c2q73hdygg")))) - (build-system rakudo-build-system) - (propagated-inputs - (list perl6-xml-writer)) - (home-page "https://github.com/moritz/svg") - (synopsis "Perl 6 module to generate SVG") - (description "This is a Perl 6 module that makes it easy to write -@dfn{Scalable Vector Graphic files} (SVG). Right now it is a shallow wrapper -around @code{XML::Writer}, adding only the xmlns attributes that identifies an -XML file as SVG.") - (license license:artistic2.0)))) - -(define-public perl6-svg-plot - ;; Latest commit - (let ((commit "062570a78fd38c3c6baba29dfe2fbb8ca014f4de") - (revision "1")) - (package - (name "perl6-svg-plot") - (version (git-version "0.0.0" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/moritz/svg-plot") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "095ga5hbg92jnmczxvhk1hjz14yr334zyf8cph4w5w5frcza44my")))) - (build-system rakudo-build-system) - (propagated-inputs - (list perl6-svg)) - (home-page "https://github.com/moritz/svg-plot") - (synopsis "Perl 6 charting and plotting library that produces SVG output") - (description "@code{SVG::Plot} is a simple 2D chart plotter for Perl 6. -It currently supports bars, stacked bars, lines and points (both equally spaced -with optional labels, or xy plots).") - (license license:artistic2.0)))) - -(define-public perl6-tap-harness - (package - (name "perl6-tap-harness") - (version "0.0.7") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/perl6/tap-harness6") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1lig8i0my3fgqvlay9532xslbf3iis2d7wz89gniwvwqffi2kh6r")))) - (build-system rakudo-build-system) - (arguments - '(#:with-zef? #f - #:with-prove6? #f - #:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (invoke "perl6" "-Ilib" "bin/prove6" "-l" "t")))))) - (home-page "https://github.com/perl6/tap-harness6/") - (synopsis "TAP harness for perl6") - (description "This module provides the @command{prove6} command which runs a -TAP based test suite and prints a report. The @command{prove6} command is a -minimal wrapper around an instance of this module.") - (license license:artistic2.0))) - -(define-public perl6-terminal-ansicolor - (package - (name "perl6-terminal-ansicolor") - (version "0.5") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/tadzik/Terminal-ANSIColor") - ;; The commit where 0.5 was "tagged" - (commit "edded4a7116ce11cbc9fb5a83669c7ba119d0212"))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1apm999azkyg5s35gid12wq019aqnvzrkz7qjmipd74mdxgr00x7")))) - (build-system rakudo-build-system) - (arguments '(#:with-zef? #f)) - (home-page "https://github.com/tadzik/Terminal-ANSIColor") - (synopsis "Colorize terminal output") - (description "This is a @code{Terminal::ANSIColor} module for Perl 6.") - (license license:expat))) - -(define-public perl6-test-meta - (package - (name "perl6-test-meta") - (version "0.0.14") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jonathanstowe/Test-META") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1mzrglb7lbiy5h9dlc7dyhvv9gppxmdmpmrv6nzbd695jzr38bri")))) - (build-system rakudo-build-system) - (propagated-inputs - (list perl6-meta6 perl6-uri)) - (home-page "https://github.com/jonathanstowe/Test-META") - (synopsis "Test a distributions META file") - (description "This provides a simple mechanism for module authors to have -some confidence that they have a working distribution META description file.") - (license license:artistic2.0))) - -(define-public perl6-test-mock - (package - (name "perl6-test-mock") - (version "1.5") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jnthn/test-mock") - ;; The commit where 1.5 was "tagged" - (commit "6eddb42f73f40b9ac29c14badb41ce4a04d876f2"))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "07yr3qimc8fl29p23562ayj2j9h53madcnf9sgqvgf2kcprh0zd2")))) - (build-system rakudo-build-system) - (propagated-inputs - (list perl6-oo-monitors)) - (home-page "https://github.com/jnthn/test-mock") - (synopsis "Module for simply generating and checking mock objects") - (description "@code{Test::Mock} is a module that works alongside the -standard Test module to help you write tests when you want to verify what -methods are called on an object, while still having calls to undefined methods -die. You get started just as normal with the test file, but also add a use -statement for @code{Test::Mock}.") - (license license:artistic2.0))) - -(define-public perl6-uri - (package - (name "perl6-uri") - (version "0.1.5") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/perl6-community-modules/uri") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0h318g75jqn2ckw051g35iqyfxz1mps0jyg5z6pd857y3kacbkpl")))) - (build-system rakudo-build-system) - (arguments '(#:with-zef? #f)) - (home-page "https://github.com/perl6-community-modules/uri") - (synopsis "URI implementation using Perl 6") - (description "A URI implementation using Perl 6 grammars to implement RFC -3986 BNF. Currently only implements parsing. Includes @code{URI::Escape} to -(un?)escape characters that aren't otherwise allowed in a URI with % and a hex -character numbering.") - (license license:artistic2.0))) - -(define-public perl6-xml-writer - ;; Last commit was May 2017 - (let ((commit "4d30a9d8e06033ca97387971b653817becd5a759") - (revision "1")) - (package - (name "perl6-xml-writer") - (version (git-version "0.0.0" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/masak/xml-writer") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1kwrf7akp70kyzw1b90khp71a6hpilihwndy2jsjpffcd4hd4m4z")))) - (build-system rakudo-build-system) - (arguments '(#:with-zef? #f)) - (home-page "https://github.com/masak/xml-writer") - (synopsis "Perl 6 module to generate XML") - (description "@code{XML::Writer} is a module for creating XML in Perl 6.") - (license license:artistic2.0)))) - -(define-public perl6-zef - (package - (name "perl6-zef") - (version "0.6.7") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ugexe/zef") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "07n7g1xw2c4g860rs890gx85vyhdq0ysgwbrnzw6q905jph2bkv7")))) - (build-system rakudo-build-system) - (arguments - '(#:with-zef? #f - #:phases - (modify-phases %standard-phases - (replace 'check - (lambda _ - (setenv "HOME" "/tmp") - (invoke "perl6" "-I." "bin/zef" "--debug" - "--tap-harness" "test" ".")))))) - (home-page "https://github.com/ugexe/zef") - (synopsis "Perl6 Module Management") - (description "Zef is a Perl 6 package (module) manager. It can be used to -download and install Perl 6 modules in your home directory or as a system-wide -module.") - (license license:artistic2.0))) From patchwork Tue Feb 20 07:03:03 2024 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Efraim Flashner X-Patchwork-Id: 60801 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 A356627BBEA; Tue, 20 Feb 2024 07:05:21 +0000 (GMT) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.7 required=5.0 tests=BAYES_00,DKIM_INVALID, DKIM_SIGNED,MAILING_LIST_MULTI,RCVD_IN_MSPIKE_H4,RCVD_IN_MSPIKE_WL, SPF_HELO_PASS,URIBL_BLOCKED autolearn=ham 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 77CFD27BBE2 for ; Tue, 20 Feb 2024 07:05:18 +0000 (GMT) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1rcKBR-00072Q-4U; Tue, 20 Feb 2024 02:04:53 -0500 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 1rcKBK-0006zJ-H7 for guix-patches@gnu.org; Tue, 20 Feb 2024 02:04:47 -0500 Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1rcKBF-0006rM-2D for guix-patches@gnu.org; Tue, 20 Feb 2024 02:04:45 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1rcKBa-0004Xy-Hz for guix-patches@gnu.org; Tue, 20 Feb 2024 02:05:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#69283] [PATCH 2/3] guix: Remove rakudo-build-system. Resent-From: Efraim Flashner Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Tue, 20 Feb 2024 07:05:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 69283 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 69283@debbugs.gnu.org Cc: Efraim Flashner Received: via spool by 69283-submit@debbugs.gnu.org id=B69283.170841269217447 (code B ref 69283); Tue, 20 Feb 2024 07:05:02 +0000 Received: (at 69283) by debbugs.gnu.org; 20 Feb 2024 07:04:52 +0000 Received: from localhost ([127.0.0.1]:44185 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rcKBP-0004XK-4A for submit@debbugs.gnu.org; Tue, 20 Feb 2024 02:04:52 -0500 Received: from mail-wm1-f48.google.com ([209.85.128.48]:43468) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rcKBJ-0004Wg-1U for 69283@debbugs.gnu.org; Tue, 20 Feb 2024 02:04:46 -0500 Received: by mail-wm1-f48.google.com with SMTP id 5b1f17b1804b1-410e820a4feso34069445e9.1 for <69283@debbugs.gnu.org>; Mon, 19 Feb 2024 23:04:23 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1708412598; x=1709017398; darn=debbugs.gnu.org; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:sender:from:to:cc:subject:date :message-id:reply-to; bh=1TKYPkNwYpDPplSTK5P4sfKxiroreZGvAd8aA+x64Lk=; b=hZ9HI6E2TxVphmIp/vPV8ENb+LP6y9qSo9OBBSDAXpTEbecsWrfG66ShvZpn2+whxv iFJzHp1MLqg9vvuEYuNEAptNUzgPVbWFr1C3Lz9tF72c679EfXl7ZWu8SV2Snz3IuQ7u rH40/9PxXyMxUbpFmuItuKfW+/y1a+or8lG3Cfiv+hcb6NJSxUMTRgU12T/FvKohT+GN qD+wRkV77694985w7Z3zuAO3PPzcJMpWTwG0f+A7/jCVyx7j5K/AfzFVPBLwPm/KDiUl A1wUakbQZFXq/XAO4m1OlUZGXWOTcY+mpSDUNMTzDzeUxkC5aIhpm+kBBBJb2C4m3YTh HEjw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1708412598; x=1709017398; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:sender:x-gm-message-state:from :to:cc:subject:date:message-id:reply-to; bh=1TKYPkNwYpDPplSTK5P4sfKxiroreZGvAd8aA+x64Lk=; b=J1WIq/DxRxEhL6T9tQQ2ZYxsWuVCsVmi2dPBBotpqgxfXqptQz5SOdz+o5IlEaVPJ8 8NSmah2OiWDvKYnxtum1mChr8yaP7m+VM6zLbwX1tLoAWOwln+yUAW5E4rnAMAtz8E5/ dNRZql+vl/ccOpPn7vWnYc9J2v5D4M9HPCQ1e1kfbeD8T3dyshyRj1pP0f5rLK5qyO4S rU1jD46vUK81l5+bQBuRaExT37yeL1FJwpSu+XVoFsCwHy+LEsG4ly3qLQScDueYXHHf V5mElhJ1dL2vUOyjcnnAft0aIobEOP2PAyXkRY3uZStlqf4DxcK9E06P6EeMyARqfTT3 jOuA== X-Gm-Message-State: AOJu0Yz6V/yN5jwgiByZ6Cj5QlR/PbsEfSnX+1yzHLnx1vCZB3zydxvu djJyrS0HJZIpT1ReHiaj94+1r4lxNgXqjAmAfSeGwOz3p8NAiTskRCuU8kkvX5U= X-Google-Smtp-Source: AGHT+IHXsHBZXqet4WDy0drQa7uwjLVrWO2xMD7ZOwrEs8tdUWqY+Zy4DrEP2QAQk8lUwV2Jr1Py5Q== X-Received: by 2002:a05:6000:174d:b0:33d:1d3a:4412 with SMTP id m13-20020a056000174d00b0033d1d3a4412mr7225226wrf.12.1708412597338; Mon, 19 Feb 2024 23:03:17 -0800 (PST) Received: from localhost ([141.226.12.177]) by smtp.gmail.com with ESMTPSA id h7-20020a056000000700b0033ce214a97csm12408213wrx.17.2024.02.19.23.03.16 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Mon, 19 Feb 2024 23:03:17 -0800 (PST) From: Efraim Flashner Date: Tue, 20 Feb 2024 09:03:03 +0200 Message-ID: <0d38a55be8a40b591a7846d013b957702d6b2145.1708411903.git.efraim@flashner.co.il> X-Mailer: git-send-email 2.41.0 In-Reply-To: References: 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: , 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 * guix/build/rakudo-build-system.scm: Remove file. * guix/build-system/rakudo.scm: Remove file. * doc/guix.texi (Build Systems): Remove section for rakudo-build-system. * etc/snippets/yas/scheme-mode/guix-package: Remove rakudo-build-system. * Makefile.am (MODULES): Remove rakudo-build-system files. Change-Id: Ida6ec6c9be075f10be540c82cee5207176f1cfe2 --- Makefile.am | 2 - doc/guix.texi | 18 --- etc/snippets/yas/scheme-mode/guix-package | 1 - guix/build-system/rakudo.scm | 142 -------------------- guix/build/rakudo-build-system.scm | 153 ---------------------- 5 files changed, 316 deletions(-) delete mode 100644 guix/build-system/rakudo.scm delete mode 100644 guix/build/rakudo-build-system.scm diff --git a/Makefile.am b/Makefile.am index cef972880c..aef56ca90c 100644 --- a/Makefile.am +++ b/Makefile.am @@ -181,7 +181,6 @@ MODULES = \ guix/build-system/python.scm \ guix/build-system/qt.scm \ guix/build-system/r.scm \ - guix/build-system/rakudo.scm \ guix/build-system/rebar.scm \ guix/build-system/renpy.scm \ guix/build-system/ruby.scm \ @@ -245,7 +244,6 @@ MODULES = \ guix/build/qt-build-system.scm \ guix/build/r-build-system.scm \ guix/build/renpy-build-system.scm \ - guix/build/rakudo-build-system.scm \ guix/build/rebar-build-system.scm \ guix/build/ruby-build-system.scm \ guix/build/scons-build-system.scm \ diff --git a/doc/guix.texi b/doc/guix.texi index fe6f82d4a5..06350efd7b 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -10122,24 +10122,6 @@ Build Systems @code{tools::testInstalledPackage}. @end defvar -@defvar rakudo-build-system -This variable is exported by @code{(guix build-system rakudo)}. It -implements the build procedure used by @uref{https://rakudo.org/, -Rakudo} for @uref{https://perl6.org/, Perl6} packages. It installs the -package to @code{/gnu/store/@dots{}/NAME-VERSION/share/perl6} and -installs the binaries, library files and the resources, as well as wrap -the files under the @code{bin/} directory. Tests can be skipped by -passing @code{#f} to the @code{tests?} parameter. - -Which rakudo package is used can be specified with @code{rakudo}. -Which perl6-tap-harness package used for the tests can be specified with -@code{#:prove6} or removed by passing @code{#f} to the -@code{with-prove6?} parameter. -Which perl6-zef package used for tests and installing can be specified -with @code{#:zef} or removed by passing @code{#f} to the -@code{with-zef?} parameter. -@end defvar - @defvar rebar-build-system This variable is exported by @code{(guix build-system rebar)}. It implements a build procedure around @uref{https://rebar3.org,rebar3}, diff --git a/etc/snippets/yas/scheme-mode/guix-package b/etc/snippets/yas/scheme-mode/guix-package index 3bb6307659..d38b32dc05 100644 --- a/etc/snippets/yas/scheme-mode/guix-package +++ b/etc/snippets/yas/scheme-mode/guix-package @@ -36,7 +36,6 @@ "python-build-system" "qt-build-system" "r-build-system" - "rakudo-build-system" "rebar-build-system" "renpy-build-system" "ruby-build-system" diff --git a/guix/build-system/rakudo.scm b/guix/build-system/rakudo.scm deleted file mode 100644 index 3b30fdfd0e..0000000000 --- a/guix/build-system/rakudo.scm +++ /dev/null @@ -1,142 +0,0 @@ -;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2019 Efraim Flashner -;;; Copyright © 2021 Ludovic Courtès -;;; -;;; 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 (guix build-system rakudo) - #:use-module (guix store) - #:use-module (guix utils) - #:use-module (guix gexp) - #:use-module (guix monads) - #:use-module (guix search-paths) - #:use-module (guix build-system) - #:use-module (guix build-system gnu) - #:use-module (guix packages) - #:export (%rakudo-build-system-modules - rakudo-build - rakudo-build-system)) - -;; Commentary: -;; -;; Standard build and install procedure for packages using the Rakudo -;; build system to be installed as system libraries. This is -;; implemented as an extension of `gnu-build-system'. -;; -;; Code: - -(define %rakudo-build-system-modules - ;; Build-side modules imported by default. - `((guix build rakudo-build-system) - ,@%gnu-build-system-modules)) - -(define (default-rakudo) - "Return the default Rakudo package." - - ;; Do not use `@' to avoid introducing circular dependencies. - (let ((module (resolve-interface '(gnu packages perl6)))) - (module-ref module 'rakudo))) - -(define (default-prove6) - "Return the default perl6-tap-harness package for tests." - (let ((module (resolve-interface '(gnu packages perl6)))) - (module-ref module 'perl6-tap-harness))) - -(define (default-zef) - "Return the default perl6-zef package." - (let ((module (resolve-interface '(gnu packages perl6)))) - (module-ref module 'perl6-zef))) - -(define* (lower name - #:key source inputs native-inputs outputs - system target - (rakudo (default-rakudo)) - (prove6 (default-prove6)) - (zef (default-zef)) - (with-prove6? #t) - (with-zef? #t) - #:allow-other-keys - #:rest arguments) - "Return a bag for NAME." - (define private-keywords - '(#:target #:rakudo #:prove6 #:zef #:inputs #:native-inputs)) - - (and (not target) ;XXX: no cross-compilation - (bag - (name name) - (system system) - (host-inputs `(,@(if source - `(("source" ,source)) - '()) - ,@inputs - - ;; Keep the standard inputs of 'gnu-build-system'. - ,@(standard-packages))) - (build-inputs `(("rakudo" ,rakudo) - ,@(if with-prove6? - `(("perl6-tap-harness" ,prove6) - ,@(if with-zef? - `(("perl6-zef" ,zef)) - '())) - '()) - ,@native-inputs)) - (outputs outputs) - (build rakudo-build) - (arguments (strip-keyword-arguments private-keywords arguments))))) - -(define* (rakudo-build name inputs - #:key - source - (search-paths '()) - (tests? #t) - (phases '%standard-phases) - (outputs '("out")) - (system (%current-system)) - (guile #f) - (with-zef? #t) - (with-prove6? #t) - (imported-modules %rakudo-build-system-modules) - (modules '((guix build rakudo-build-system) - (guix build utils)))) - "Build SOURCE using PERL6, and with INPUTS." - (define builder - (with-imported-modules imported-modules - #~(begin - (use-modules #$@(sexp->gexp modules)) - (rakudo-build #:name #$name - #:source #+source - #:search-paths '#$(sexp->gexp - (map search-path-specification->sexp - search-paths)) - #:phases #$phases - #:system #$system - #:tests? #$tests? - #:outputs #$(outputs->gexp outputs) - #:inputs #$(input-tuples->gexp inputs))))) - - (mlet %store-monad ((guile (package->derivation (or guile (default-guile)) - system #:graft? #f))) - (gexp->derivation name builder - #:system system - #:guile-for-build guile))) - -(define rakudo-build-system - (build-system - (name 'rakudo) - (description "The standard Rakudo build system") - (lower lower))) - -;;; rakudo.scm ends here diff --git a/guix/build/rakudo-build-system.scm b/guix/build/rakudo-build-system.scm deleted file mode 100644 index 5cf1cc55bc..0000000000 --- a/guix/build/rakudo-build-system.scm +++ /dev/null @@ -1,153 +0,0 @@ -;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2019 Efraim Flashner -;;; 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 (guix build rakudo-build-system) - #:use-module ((guix build gnu-build-system) #:prefix gnu:) - #:use-module (guix build utils) - #:use-module (ice-9 ftw) - #:use-module (ice-9 match) - #:use-module (srfi srfi-1) - #:use-module (srfi srfi-26) - #:export (%standard-phases - rakudo-build)) - -;; Commentary: -;; -;; Builder-side code of the standard Rakudo package build procedure. -;; -;; Code: - -(define* (check #:key tests? inputs with-prove6? #:allow-other-keys) - (if (and tests? (assoc-ref inputs "perl6-tap-harness")) - ;(if (and tests? with-prove6?) - (invoke "prove6" "-I=lib" "t/") - (format #t "test suite not run~%")) - #t) - -(define* (install #:key inputs outputs with-zef? #:allow-other-keys) - "Install a given Perl6 package." - (let* ((out (assoc-ref outputs "out")) - (perl6 (string-append out "/share/perl6"))) - (if (assoc-ref inputs "perl6-zef") - ;(if with-zef? - (begin - (let ((zef (string-append (assoc-ref inputs "perl6-zef") - "/bin/zef"))) - (setenv "HOME" (getcwd)) - (mkdir-p perl6) - (invoke zef "install" "--verbose" "." - ;; Don't install any of the following: - "--/depends" "--/build-depends" "--/test-depends" - (string-append "--install-to=" perl6)) - (delete-file (string-append perl6 "/repo.lock"))) - #t) - (begin - (let ((inst (string-append (assoc-ref inputs "rakudo") - "/share/perl6/tools/install-dist.p6"))) - (setenv "RAKUDO_RERESOLVE_DEPENDENCIES" "0") - (setenv "RAKUDO_MODULE_DEBUG" "1") ; be verbose while building - (invoke inst (string-append "--to=" perl6) "--for=site")))))) - -(define* (install-libs #:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out")) - (lock "lib/.precomp/.lock")) - (when (file-exists? lock) - (delete-file "lib/.precomp/.lock")) - (copy-recursively "lib" (string-append out "/share/perl6/lib")) - #t)) - -(define* (install-bins #:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (when (file-exists? "bin") - (for-each (lambda (file) - (install-file file (string-append out "/bin")) - (chmod (string-append out "/" file) #o555)) - (find-files "bin" ".*"))) - (when (file-exists? "sbin") - (for-each (lambda (file) - (install-file file (string-append out "/sbin")) - (chmod (string-append out "/" file) #o555)) - (find-files "sbin" ".*"))) - #t)) - -(define* (install-resources #:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (when (file-exists? "resources") - (copy-recursively "resources" - (string-append out "/share/perl6/resources"))) - #t)) - -(define* (wrap #:key inputs outputs #:allow-other-keys) - (define (list-of-files dir) - (map (cut string-append dir "/" <>) - (or (scandir dir (lambda (f) - (let ((s (stat (string-append dir "/" f)))) - (and (eq? 'regular (stat:type s)) - (not (wrapped-program? f)))))) - '()))) - - (define bindirs - (append-map (match-lambda - ((_ . dir) - (list (string-append dir "/bin") - (string-append dir "/sbin")))) - outputs)) - - ;; Do not require bash to be present in the package inputs - ;; even when there is nothing to wrap. - ;; Also, calculate (sh) only once to prevent some I/O. - (define %sh (delay (search-input-file inputs "bin/bash"))) - (define (sh) (force %sh)) - - (let* ((out (assoc-ref outputs "out")) - (var `("PERL6LIB" "," prefix - ,(cons (string-append out "/share/perl6/lib," - out "/share/perl6/site/lib," - out "/share/perl6/vendor/lib") - (search-path-as-string->list - (or (getenv "PERL6LIB") "") #\,))))) - (for-each (lambda (dir) - (let ((files (list-of-files dir))) - (for-each (cut wrap-program <> #:sh (sh) var) - files))) - bindirs) - #t)) - -(define %standard-phases - ;; No need for 'bootstrap, 'configure or 'build. - (modify-phases gnu:%standard-phases - (delete 'bootstrap) - (delete 'configure) - (delete 'build) - (replace 'check check) - (replace 'install install) - (add-before 'install 'install-lib-dir install-libs) - (add-after 'install-lib-dir 'install-resources install-resources) - (add-after 'install-resources 'install-binaries install-bins) - ;; needs to be after 'install-binaries and all 'install phases - (add-after 'install 'wrap wrap))) - -(define* (rakudo-build #:key inputs (phases %standard-phases) - #:allow-other-keys #:rest args) - "Build the given Perl6 package, applying all of PHASES in order." - (apply gnu:gnu-build - #:inputs inputs #:phases phases - args)) - -;;; rakudo-build-system.scm ends here From patchwork Tue Feb 20 07:03:04 2024 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Efraim Flashner X-Patchwork-Id: 60800 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 8753127BBEC; Tue, 20 Feb 2024 07:05:19 +0000 (GMT) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.7 required=5.0 tests=BAYES_00,DKIM_INVALID, DKIM_SIGNED,MAILING_LIST_MULTI,RCVD_IN_MSPIKE_H4,RCVD_IN_MSPIKE_WL, SPF_HELO_PASS,URIBL_BLOCKED autolearn=ham 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 8D2A327BBEA for ; Tue, 20 Feb 2024 07:05:18 +0000 (GMT) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1rcKBR-00071L-4n; Tue, 20 Feb 2024 02:04:53 -0500 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 1rcKBK-0006zN-IS for guix-patches@gnu.org; Tue, 20 Feb 2024 02:04:47 -0500 Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1rcKBF-0006rR-Hs for guix-patches@gnu.org; Tue, 20 Feb 2024 02:04:45 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1rcKBb-0004Y5-1p for guix-patches@gnu.org; Tue, 20 Feb 2024 02:05:03 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#69283] [PATCH 3/3] gnu: perl6.scm: Rename to rakudo.scm. Resent-From: Efraim Flashner Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Tue, 20 Feb 2024 07:05:03 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 69283 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 69283@debbugs.gnu.org Cc: Efraim Flashner Received: via spool by 69283-submit@debbugs.gnu.org id=B69283.170841269217453 (code B ref 69283); Tue, 20 Feb 2024 07:05:03 +0000 Received: (at 69283) by debbugs.gnu.org; 20 Feb 2024 07:04:52 +0000 Received: from localhost ([127.0.0.1]:44187 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rcKBQ-0004XM-A0 for submit@debbugs.gnu.org; Tue, 20 Feb 2024 02:04:52 -0500 Received: from mail-wr1-f52.google.com ([209.85.221.52]:57670) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rcKBK-0004Wi-DC for 69283@debbugs.gnu.org; Tue, 20 Feb 2024 02:04:47 -0500 Received: by mail-wr1-f52.google.com with SMTP id ffacd0b85a97d-33d568fbf62so787719f8f.3 for <69283@debbugs.gnu.org>; Mon, 19 Feb 2024 23:04:24 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1708412599; x=1709017399; darn=debbugs.gnu.org; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:sender:from:to:cc:subject:date :message-id:reply-to; bh=yr9smZebwByuHYy6XdS92HwIyTs3wFlPRW1N9+jlAkM=; b=d3BQkhLwLFR2VONmZc352Mwez20EhvwozUUJH6ci1yUluNU4TWuhoGKMI642SB0w+3 yZb8ZFLBqEpkro86uEQSFZ6YFWbXTGtJUBnKo0Bquyb+Iq09QJGRwYgVEJ7hmQANi4gv HZh3Rlp0dhP04JLqkhy5M/EWURFikl62RXpFKjoxJja0jFn1FZXkws87vG08CiuBVErC 9vxemcozfV1A+IOwhaMy4A9XrI3g0HjIfyUBKBjbok51W2PxqIOU1ExGie2Mvr7Cy0EO xjQrommm/UckP5ZrWbvpzzOqBBsqVlf61c/x3vEBlkcUaxh4GRhT/gPGuDCq5pRWAJmM G/3w== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1708412599; x=1709017399; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:sender:x-gm-message-state:from :to:cc:subject:date:message-id:reply-to; bh=yr9smZebwByuHYy6XdS92HwIyTs3wFlPRW1N9+jlAkM=; b=pIRKjB1uWDho21b/TwQdWivS/0p5XePWmTtz95wuiDadtD5UyUT3lpNjxBUWcsKgvK kH3r9zGmsTGOtZki4KKS3IrK4m8BXlM54a3BCjF1FqKNRmOGmr0i2OgtlcwjPNUjGbm5 iAkpeSdxVzMZ88lpKHCmuCwhrrxK9JxOb126YfspeR+F1ZwSAhyMyyF9VOJYjrmauxf0 FlYxz0IvNaYpn7z1ayp5TlBzskKU9PpEc9uffu5FQIQdCrG5GWO6J5V37DkLK3yRNA6+ 7eoun958mE54Jv1+e2dtsRn5HTaVGGamMw5mjLGEIXMoX1lDyH+qLnHCd05YEuZxFIEY 0BLg== X-Gm-Message-State: AOJu0YxX1ppxWBaqWuZGt9wL3ZzeJlFvWEeGqf9BEdyUXIgWB8rJR9rE ysGkllmhznSelf59TraRIa+OlC3WAGvcaUYLnNZN24a5Kk/ME5/JMF3JwE9sYFQ= X-Google-Smtp-Source: AGHT+IFSuYHDlm2NlmcdrUf6mrpV389JWNZhQMDeIwltPlIpmTDeQyEAFM1NQ9+NVEaXrU1WMiHFjA== X-Received: by 2002:a5d:6b88:0:b0:33d:3ee3:cbfb with SMTP id n8-20020a5d6b88000000b0033d3ee3cbfbmr4342621wrx.46.1708412599114; Mon, 19 Feb 2024 23:03:19 -0800 (PST) Received: from localhost ([141.226.12.177]) by smtp.gmail.com with ESMTPSA id r8-20020adfe688000000b0033cf5094fcesm12355180wrm.36.2024.02.19.23.03.18 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Mon, 19 Feb 2024 23:03:18 -0800 (PST) From: Efraim Flashner Date: Tue, 20 Feb 2024 09:03:04 +0200 Message-ID: <864a8e0147e4667240e3722a8d9affbad7139c26.1708411903.git.efraim@flashner.co.il> X-Mailer: git-send-email 2.41.0 In-Reply-To: References: 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: , 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/perl6.scm: Rename to rakudo.scm. * gnu/local.mk (GNU_SYSTEM_MODULES): Adjust reference. Change-Id: Ie06c80f393ac31020e151f0dd03228a79e1ee6b3 --- gnu/local.mk | 2 +- gnu/packages/{perl6.scm => rakudo.scm} | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) rename gnu/packages/{perl6.scm => rakudo.scm} (99%) diff --git a/gnu/local.mk b/gnu/local.mk index 58011d1149..f58367c657 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -511,7 +511,6 @@ GNU_SYSTEM_MODULES = \ %D%/packages/perl-compression.scm \ %D%/packages/perl-maths.scm \ %D%/packages/perl-web.scm \ - %D%/packages/perl6.scm \ %D%/packages/photo.scm \ %D%/packages/phabricator.scm \ %D%/packages/php.scm \ @@ -554,6 +553,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/radio.scm \ %D%/packages/ragel.scm \ %D%/packages/rails.scm \ + %D%/packages/rakudo.scm \ %D%/packages/raspberry-pi.scm \ %D%/packages/ratpoison.scm \ %D%/packages/rcm.scm \ diff --git a/gnu/packages/perl6.scm b/gnu/packages/rakudo.scm similarity index 99% rename from gnu/packages/perl6.scm rename to gnu/packages/rakudo.scm index 4b8899503f..e017466aea 100644 --- a/gnu/packages/perl6.scm +++ b/gnu/packages/rakudo.scm @@ -17,7 +17,7 @@ ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . -(define-module (gnu packages perl6) +(define-module (gnu packages rakudo) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix download) #:use-module (guix packages)