(address . guix-patches@gnu.org)
86ft6m2nou.fsf@gmail.com
Hi,
these patches add the missing dependencies for slic3r.
Malte
From e80c0bd2fdb606d184a1069828e3b2e57ff7351b Mon Sep 17 00:00:00 2001
From: Malte Frank Gerdes <malte.f.gerdes@gmail.com>
Date: Wed, 7 Oct 2020 18:07:50 +0200
Subject: [PATCH 2/7] gnu: Add perl-alien-wxwidgets.
* gnu/packages/perl.scm (perl-alien-wxwidgets): New variable.
---
gnu/packages/perl.scm | 28 ++++++++++++++++++++++++++++
1 file changed, 28 insertions(+)
Toggle diff (48 lines)
diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 9916c579e4..2cbc57d174 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -76,6 +76,7 @@
#:use-module (gnu packages textutils)
#:use-module (gnu packages video)
#:use-module (gnu packages web)
+ #:use-module (gnu packages wxwidgets)
#:use-module (gnu packages xorg))
;;;
@@ -386,6 +387,33 @@ possibility to download and install prebuilt binaries or to build SDL & co.@:
from source codes.")
(license license:perl-license)))
+(define-public perl-alien-wxwidgets
+ (package
+ (name "perl-alien-wxwidgets")
+ (version "0.69")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://cpan/authors/id/M/MD/MDOOTSON/Alien-wxWidgets-"
+ version
+ ".tar.gz"))
+ (sha256
+ (base32
+ "0jg2dmkzhj03f6b0vmv597yryfw9cclsdn9ynvvlrzzgpd5lw8jk"))))
+ (build-system perl-build-system)
+ (native-inputs
+ `(("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
+ ("perl-module-build" ,perl-module-build)
+ ("wxwidgets-gtk" ,wxwidgets-gtk2)))
+ (propagated-inputs
+ `(("perl-module-pluggable" ,perl-module-pluggable)))
+ (home-page "https://metacpan.org/release/Alien-wxWidgets")
+ (synopsis "building, finding and using wxWidgets binaries")
+ (description "Alien::wxWidgets can be used to detect and get configuration
+settings from an installed wxWidgets.")
+ (license license:perl-license)))
+
(define-public perl-any-moose
(package
(name "perl-any-moose")
--
2.28.0
From c959affd510b3c4f8ba74283684fc63d170d9f4b Mon Sep 17 00:00:00 2001
From: Malte Frank Gerdes <malte.f.gerdes@gmail.com>
Date: Wed, 7 Oct 2020 18:08:59 +0200
Subject: [PATCH 3/7] gnu: Add perl-data-uuid.
* gnu/packages/perl.scm (perl-data-uuid): New variable.
---
gnu/packages/perl.scm | 23 +++++++++++++++++++++++
1 file changed, 23 insertions(+)
Toggle diff (36 lines)
diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 2cbc57d174..3658382884 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -2862,6 +2862,29 @@ necessary later on.")
variants.")
(license (package-license perl))))
+(define-public perl-data-uuid
+ (package
+ (name "perl-data-uuid")
+ (version "1.226")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://cpan/authors/id/R/RJ/RJBS/Data-UUID-"
+ version
+ ".tar.gz"))
+ (sha256
+ (base32
+ "0lv4k4ibxwkw7zz9hw97s34za9nvjxb4kbmgmx5sj4fll3zmfg89"))))
+ (build-system perl-build-system)
+ (home-page "https://metacpan.org/release/Data-UUID")
+ (synopsis "Globally/Universally Unique Identifiers (GUIDs/UUIDs)")
+ (description "This module provides a framework for generating v3 UUIDs
+(Universally Unique Identifiers, also known as GUIDs (Globally Unique
+Identifiers). A UUID is 128 bits long, and is guaranteed to be different
+from all other UUIDs/GUIDs generated until 3400 CE.")
+ (license license:bsd-3)))
+
(define-public perl-data-visitor
(package
(name "perl-data-visitor")
--
2.28.0
From dfc0b42e3723aabf254ba6a4f54e4956553bcce1 Mon Sep 17 00:00:00 2001
From: Malte Frank Gerdes <malte.f.gerdes@gmail.com>
Date: Wed, 7 Oct 2020 18:10:14 +0200
Subject: [PATCH 4/7] gnu: Add perl-net-bonjour.
* gnu/packages/perl.scm (perl-net-bonjour): New variable.
---
gnu/packages/perl.scm | 26 ++++++++++++++++++++++++++
1 file changed, 26 insertions(+)
Toggle diff (46 lines)
diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 3658382884..bdf962e027 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -67,6 +67,7 @@
#:use-module (gnu packages image)
#:use-module (gnu packages less)
#:use-module (gnu packages ncurses)
+ #:use-module (gnu packages networking)
#:use-module (gnu packages perl-check)
#:use-module (gnu packages perl-compression)
#:use-module (gnu packages perl-web)
@@ -7744,6 +7745,31 @@ kernel routing table of the host system. However, such operations could be
implemented using the API provided by the module.")
(license license:perl-license)))
+(define-public perl-net-bonjour
+ (package
+ (name "perl-net-bonjour")
+ (version "0.96")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://cpan/authors/id/C/CH/CHLIGE/Net-Bonjour-"
+ version
+ ".tar.gz"))
+ (sha256
+ (base32
+ "15qzkfk0isn6c4js3ih95k3dylq6scijp863s0485c00n8x1z2n3"))))
+ (build-system perl-build-system)
+ (propagated-inputs
+ `(("perl-net-dns" ,perl-net-dns)))
+ (home-page "https://metacpan.org/release/Net-Bonjour")
+ (synopsis "Module for DNS service discovery (Apple's Bonjour)")
+ (description "Net::Bonjour is a set of modules that allow one to discover
+local services via multicast DNS (mDNS) or enterprise services via
+traditional DNS. This method of service discovery has been branded as
+Bonjour by Apple Computer.")
+ (license license:perl-license)))
+
(define-public perl-net-dns-native
(package
(name "perl-net-dns-native")
--
2.28.0
From a684261d723bf57553c909b20774152db3ef2798 Mon Sep 17 00:00:00 2001
From: Malte Frank Gerdes <malte.f.gerdes@gmail.com>
Date: Wed, 7 Oct 2020 18:15:13 +0200
Subject: [PATCH 5/7] gnu: Add perl-growl-gntp.
* gnu/packages/perl.scm (perl-growl-gntp): New variable.
---
gnu/packages/perl.scm | 26 ++++++++++++++++++++++++++
1 file changed, 26 insertions(+)
Toggle diff (39 lines)
diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index bdf962e027..a34eab43c2 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -5017,6 +5017,32 @@ vaguely inspired by John Ousterhout's Tk_ParseArgv.")
the abstract data structures.")
(license (package-license perl))))
+(define-public perl-growl-gntp
+ (package
+ (name "perl-growl-gntp")
+ (version "0.21")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://cpan/authors/id/M/MA/MATTN/Growl-GNTP-"
+ version
+ ".tar.gz"))
+ (sha256
+ (base32
+ "0gq8ypam6ifp8f3s2mf5d6sw53m7h3ki1zfahh2p41kl8a77yy98"))))
+ (build-system perl-build-system)
+ (native-inputs
+ `(("perl-module-build-tiny" ,perl-module-build-tiny)))
+ (propagated-inputs
+ `(("perl-crypt-cbc" ,perl-crypt-cbc)
+ ("perl-data-uuid" ,perl-data-uuid)))
+ (home-page "https://metacpan.org/release/Growl-GNTP")
+ (synopsis "Perl implementation of GNTP Protocol (Client Part)")
+ (description "Growl::GNTP is Perl implementation of GNTP Protocol (Client
+Part)")
+ (license license:perl-license)))
+
(define-public perl-guard
(package
(name "perl-guard")
--
2.28.0
From 34c09a396ddd4db0ea821d8114c7f4537f4c7468 Mon Sep 17 00:00:00 2001
From: Malte Frank Gerdes <malte.f.gerdes@gmail.com>
Date: Wed, 7 Oct 2020 18:16:46 +0200
Subject: [PATCH 6/7] gnu: Add perl-wx.
* gnu/packages/perl.scm (perl-wx): New variable.
---
gnu/packages/perl.scm | 36 ++++++++++++++++++++++++++++++++++++
1 file changed, 36 insertions(+)
Toggle diff (49 lines)
diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index a34eab43c2..879fdd4e74 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -10877,6 +10877,42 @@ it. With this module, you can add your own magic to any variable without
having to write a single line of XS.")
(license (package-license perl))))
+(define-public perl-wx
+ (package
+ (name "perl-wx")
+ (version "0.9932")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://cpan/authors/id/M/MD/MDOOTSON/Wx-"
+ version
+ ".tar.gz"))
+ (sha256
+ (base32
+ "0w0vcpk8bmklh16c0z1vxgipnmvdw7cckcmay7k7cihgb99vdz8w"))))
+ (build-system perl-build-system)
+ (arguments
+ '(#:phases
+ (modify-phases %standard-phases
+ (add-before 'check 'pre-check
+ (lambda _
+ ;; Tests require a running X server.
+ (system "Xvfb :1 &")
+ (setenv "DISPLAY" ":1")
+ #t)))))
+ (native-inputs
+ `(("perl-alien-wxwidgets" ,perl-alien-wxwidgets)
+ ("perl-extutils-xspp" ,perl-extutils-xspp)
+ ("xvfb" ,xorg-server-for-tests)))
+ (propagated-inputs
+ `(("perl-alien-wxwidgets" ,perl-alien-wxwidgets)))
+ (home-page "https://metacpan.org/release/Wx")
+ (synopsis "interface to the wxWidgets cross-platform GUI toolkit")
+ (description "The Wx module is a wrapper for the wxWidgets (formerly
+known as wxWindows) GUI toolkit.")
+ (license license:perl-license)))
+
(define-public perl-xml-writer
(package
(name "perl-xml-writer")
--
2.28.0
From 2348760d580539199e99e4a7f3b9141f6c7884f2 Mon Sep 17 00:00:00 2001
From: Malte Frank Gerdes <malte.f.gerdes@gmail.com>
Date: Wed, 7 Oct 2020 18:17:14 +0200
Subject: [PATCH 7/7] gnu: Add perl-wx-glcanvas.
* gnu/packages/perl.scm (perl-wx-glcanvas): New variable.
---
gnu/packages/perl.scm | 34 ++++++++++++++++++++++++++++++++++
1 file changed, 34 insertions(+)
Toggle diff (47 lines)
diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 879fdd4e74..9bf60433e3 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -10913,6 +10913,40 @@ having to write a single line of XS.")
known as wxWindows) GUI toolkit.")
(license license:perl-license)))
+(define-public perl-wx-glcanvas
+ (package
+ (name "perl-wx-glcanvas")
+ (version "0.09")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://cpan/authors/id/M/MB/MBARBON/Wx-GLCanvas-"
+ version
+ ".tar.gz"))
+ (sha256
+ (base32
+ "1q4gvj4gdx4l8k4mkgiix24p9mdfy1miv7abidf0my3gy2gw5lka"))))
+ (build-system perl-build-system)
+ (arguments
+ '(#:phases
+ (modify-phases %standard-phases
+ (add-before 'check 'pre-check
+ (lambda _
+ ;; Tests require a running X server.
+ (system "Xvfb :1 &")
+ (setenv "DISPLAY" ":1")
+ #t)))))
+ (native-inputs `(("perl-wx" ,perl-wx)
+ ("xvfb" ,xorg-server-for-tests)))
+ (inputs `(("mesa" ,mesa)))
+ (propagated-inputs `(("perl-wx" ,perl-wx)))
+ (home-page "https://metacpan.org/release/Wx-GLCanvas")
+ (synopsis "interface to wxWidgets' OpenGL canvas")
+ (description "The documentation for this module is included in the main
+wxPerl distribution (wxGLCanvas).")
+ (license license:perl-license)))
+
(define-public perl-xml-writer
(package
(name "perl-xml-writer")
--
2.28.0