From 4072d56305129ddcc81f1a4968ceabd3af73a066 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 20 May 2023 11:29:49 +0100
Subject: Remove unused make-base64-output-port

---
 guix-build-coordinator/utils.scm | 42 ----------------------------------------
 1 file changed, 42 deletions(-)

diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index b126efb..a98121b 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -47,8 +47,6 @@
   #:use-module (guix scripts substitute)
   #:export (random-v4-uuid
 
-            make-base64-output-port
-
             &port-timeout
             &port-read-timeout
             &port-write-timeout
@@ -170,46 +168,6 @@
        "-"))))
 
 
-(define (make-base64-output-port port)
-  (define line-length 72)               ; must be a multiple of 4
-  (define buffer-length
-    (let ((bytes-per-line (* 3 (/ 72 4)))
-          (lines-per-buffer 65536))
-      (* bytes-per-line lines-per-buffer)))
-
-  (define buffer (make-bytevector buffer-length))
-  (define buffered-bytes 0)
-
-  (define (write! bv start count)
-    (let ((remaining-buffer-space (- buffer-length buffered-bytes)))
-      (if (<= count remaining-buffer-space)
-          (begin
-            (bytevector-copy! bv start
-                              buffer buffered-bytes count)
-            (set! buffered-bytes (+ buffered-bytes count))
-            count)
-          (begin
-            (bytevector-copy! bv start
-                              buffer buffered-bytes remaining-buffer-space)
-            (base64-encode buffer 0 buffer-length line-length
-                           #f base64-alphabet port)
-            (set! buffered-bytes 0)
-            remaining-buffer-space))))
-
-  (define (close)
-    (base64-encode buffer 0 buffered-bytes line-length
-                   #f base64-alphabet port)
-    (set! buffer #f)
-    (set! buffered-bytes 0)
-    #t)
-
-  (make-custom-binary-output-port
-   "base64-output"
-   write!
-   #f
-   #f
-   close))
-
 (define (request-query-parameters request)
   (define (parse-query-string query)
     "Parse and decode the URI query string QUERY and return an alist."
-- 
cgit v1.2.3