From d7299fe4ab8040c2b31d62cc6202357853efa45e Mon Sep 17 00:00:00 2001
From: Krzysztof Baranowski <pharcosyle@gmail.com>
Date: Sat, 8 Apr 2023 15:11:15 -0700
Subject: nongnu: Add facetimehd-firmware.

* nongnu/packages/firmware.scm (dump-file-chunk): New function.
(facetimehd-firmware): New variable.

Signed-off-by: Jonathan Brielmaier <jonathan.brielmaier@web.de>
---
 nongnu/packages/firmware.scm | 82 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 82 insertions(+)

(limited to 'nongnu/packages/firmware.scm')

diff --git a/nongnu/packages/firmware.scm b/nongnu/packages/firmware.scm
index a71104c..0b9a01f 100644
--- a/nongnu/packages/firmware.scm
+++ b/nongnu/packages/firmware.scm
@@ -1,8 +1,11 @@
 ;;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;; Copyright © 2022-2023 Jonathan Brielmaier <jonathan.brielmaier@web.de>
 ;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
+;;; Copyright © 2023 Krzysztof Baranowski <pharcosyle@gmail.com>
 
 (define-module (nongnu packages firmware)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages cpio)
   #:use-module (gnu packages efi)
   #:use-module (gnu packages firmware)
   #:use-module (guix build-system copy)
@@ -176,3 +179,82 @@ and STLC2300 Bluetooth chips.")
     (license (list guix-license:gpl2+
                    (nonfree
                     "file:///share/doc/bluez-firmware-1.2/BCM-LEGAL.txt")))))
+
+(define dump-file-chunk
+  #~(lambda (in out count start)
+      (use-modules (rnrs io ports))
+      (call-with-output-file out
+        (lambda (out-port)
+          (put-bytevector
+           out-port
+           (call-with-input-file in
+             (lambda (in-port)
+               (seek in-port start SEEK_SET)
+               (get-bytevector-n in-port count))))))))
+
+(define-public facetimehd-firmware
+  (package
+    (name "facetimehd-firmware")
+    (version "1.43")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "https://updates.cdn-apple.com/2019/cert"
+             "/041-88431-20191011-e7ee7d98-2878-4cd9-bc0a-d98b3a1e24b1"
+             "/OSXUpd10.11.5.dmg"))
+       (sha256
+        (base32
+         "009kfk1nrrialgp69c5smzgbmd5xpvk35xmqr2fzb15h6pp33ka6"))))
+    (build-system copy-build-system)
+    (arguments
+     (list
+      #:substitutable? #f
+      #:install-plan #~'(("firmware.bin" "/lib/firmware/facetimehd/"))
+      #:phases
+      (let ((dmg-subset-size 207733123)
+            (dmg-subset-offset 204909802)
+            (firmware-size 603715)
+            (firmware-offset 81920))
+        #~(modify-phases %standard-phases
+            (add-before 'install 'extract
+              (lambda* (#:key inputs #:allow-other-keys)
+                (let ((firmware-in
+                       (string-append
+                        "System/Library/Extensions/AppleCameraInterface.kext"
+                        "/Contents/MacOS/AppleCameraInterface")))
+                  (let ((dmg-subset "dmg-subset"))
+                    (#$dump-file-chunk #$source
+                                       dmg-subset
+                                       #$dmg-subset-size
+                                       #$dmg-subset-offset)
+                    (system
+                     (string-join
+                      (list (search-input-file inputs "/bin/xz")
+                            "--decompress"
+                            "--stdout"
+                            dmg-subset
+                            "|"
+                            (search-input-file inputs "/bin/cpio")
+                            "--format=odc"
+                            "--extract"
+                            "--make-directories"
+                            (string-append "./" firmware-in)))))
+                  (let ((firmware-out "firmware.bin.gz"))
+                    (#$dump-file-chunk firmware-in
+                                       firmware-out
+                                       #$firmware-size
+                                       #$firmware-offset)
+                    (invoke
+                     (search-input-file inputs "/bin/gzip")
+                     "--decompress"
+                     (string-append firmware-out))))))))))
+    (native-inputs
+     (list cpio gzip xz))
+    (synopsis "Firmware for the FacetimeHD (Broadcom 1570) PCIe webcam")
+    (description "Firmware for the FacetimeHD webcam.  See
+@uref{https://github.com/patjak/facetimehd/wiki/Get-Started#firmware-extraction,
+patjak's facetimehd wiki} for more information.")
+    (home-page "https://support.apple.com")
+    (license (nonfree "https://www.apple.com/legal"))
+    (supported-systems '("i686-linux" "x86_64-linux"))))
-- 
cgit v1.2.3