Subject: [PATCH 1/3] gnu: Remove perl6 packages.

From: Efraim Flashner <[email-masked]>
Date: Tue, 20 Feb 2024 09:03:02 +0200

* 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)))
-- 
Efraim Flashner   <[email-masked]>   רנשלפ םירפא
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted