GNU bug report logs - #67205
[PATCH] gnu: add cl-libjpeg-turbo 1.0.

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 67205 in the body.
You can then email your comments to 67205 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: cage <cage-dev <at> twistfold.it>
To: guix-patches <at> gnu.org
Subject: [PATCH] gnu: add cl-libjpeg-turbo 1.0.
Date: Wed, 15 Nov 2023 18:51:23 +0100

Change-Id: Id64bd481c1b44a169c037260fc02023c35f15e9d
---
 gnu/packages/lisp-xyz.scm | 41 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 760d0e9e45..5787188ff5 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -12132,6 +12132,47 @@ (define-public cl-jpeg
 (define-public ecl-cl-jpeg
   (sbcl-package->ecl-package sbcl-cl-jpeg))

+(define-public sbcl-jpeg-turbo
+  (let ((commit "f79c646cc266c107bdace53572a31664754c6e0c")
+        (revision "1"))
+    (package
+      (name "sbcl-jpeg-turbo")
+      (version (git-version "1.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/shamazmazum/jpeg-turbo/")
+               (commit commit)))
+         (file-name (git-file-name "cl-jpeg-turbo" version))
+         (sha256
+          (base32 "1andd1ibbk3224idnpsnrn96flr5d1wm9ja3di57fs04wn577sag"))))
+      (build-system asdf-build-system/sbcl)
+      (arguments
+       `(#:phases
+         (modify-phases %standard-phases
+           (add-after 'unpack 'fix-lib-paths
+             (lambda* (#:key inputs #:allow-other-keys)
+               (substitute* "src/jpeg-turbo.lisp"
+                 (("\"libturbojpeg\\.so\\.0\"")
+                  (string-append "\""
+                                 (assoc-ref inputs "libjpeg-turbo")
+                                 "/lib/libturbojpeg.so\""))))))))
+      (inputs
+       `(("cffi" ,sbcl-cffi)
+         ("libjpeg-turbo" ,libjpeg-turbo)))
+      (synopsis "Common Lisp wrapper for libjpeg-turbo")
+      (description
+       "jpeg-turbo is a Common Lisp wrapper for libjpeg-turbo library which provides TurboJPEG API for compressing and decompressing JPEG images.")
+      (home-page "https://github.com/shamazmazum/jpeg-turbo/")
+      (license license:bsd-2))))
+
+(define-public cl-jpeg-turbo
+  (sbcl-package->cl-source-package sbcl-jpeg-turbo))
+
+(define-public ecl-cl-jpeg-turbo
+  (sbcl-package->ecl-package sbcl-jpeg-turbo))
+
 (define-public sbcl-png
   (let ((commit "11b965fe378fd0561abe3616b18ff03af5179648")
         (revision "1"))

base-commit: 66132d6a20b3a8fa4649df338568765540057bd1
--
2.41.0

Message #10 received at 67205-done <at> debbugs.gnu.org (full text, mbox):

From: Guillaume Le Vaillant <glv <at> posteo.net>
To: cage <cage-dev <at> twistfold.it>
Cc: 67205-done <at> debbugs.gnu.org
Subject: Re: [bug#67205] [PATCH] gnu: add cl-libjpeg-turbo 1.0.
Date: Sat, 18 Nov 2023 16:11:51 +0000

[Message part 1 (text/plain, inline)]

Patch applied with some style changes (no input labels, use of
search-input-file function, etc) as
b9ec0d4ef98bf1b9f5488a44a79de2cefa26ab9e.
Thanks.

[signature.asc (application/pgp-signature, inline)]

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.