From e59d89f39f090f8feb16a48ed150e5ac48c2858f Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Sat, 10 Aug 2024 22:53:12 +0900
Subject: Rename procedures from `image-*` to `pnm-image-*`

---
 pnm/write.scm | 52 ++++++++++++++++++++++++++--------------------------
 1 file changed, 26 insertions(+), 26 deletions(-)

(limited to 'pnm/write.scm')

diff --git a/pnm/write.scm b/pnm/write.scm
index 849e3de..60dbd0e 100644
--- a/pnm/write.scm
+++ b/pnm/write.scm
@@ -17,15 +17,15 @@
 ;;; along with R7RS-PNM. If not, see <https://www.gnu.org/licenses/>.
 
 (define-library (pnm write)
-  (export image-write)
+  (export pnm-image-write)
   (import (scheme base)
           (scheme case-lambda)
           (pnm image))
   (begin
-    (define image-write
+    (define pnm-image-write
       (case-lambda
-        ((image out)
-         (case (image-type image)
+        ((pnm-image out)
+         (case (pnm-image-type pnm-image)
            ((ppm)
             (write-string-u8 "P6\n" out))
            ((pgm)
@@ -33,23 +33,23 @@
            ((pbm)
             (write-string-u8 "P4\n" out))
            (else
-            (error "(pnm write) image-write: Not supported type" (image-type image))))
-         (write-string-u8 (number->string (image-width image)) out)
+            (error "(pnm write) pnm-image-write: Not supported type" (pnm-image-type pnm-image))))
+         (write-string-u8 (number->string (pnm-image-width pnm-image)) out)
          (write-string-u8 " " out)
-         (write-string-u8 (number->string (image-height image)) out)
+         (write-string-u8 (number->string (pnm-image-height pnm-image)) out)
          (write-string-u8 "\n" out)
-         (case (image-type image)
+         (case (pnm-image-type pnm-image)
            ((pgm ppm)
-            (write-string-u8 (number->string (image-maxval image)) out)
+            (write-string-u8 (number->string (pnm-image-maxval pnm-image)) out)
             (write-string-u8 "\n" out)))
-         (write-bytevector (image-data image) out))
-        ((image out plain?)
+         (write-bytevector (pnm-image-data pnm-image) out))
+        ((pnm-image out plain?)
          (if plain?
-             (image-write/plan image out)
-             (image-write image out)))))
+             (pnm-image-write/plan pnm-image out)
+             (pnm-image-write pnm-image out)))))
 
-    (define (image-write/plan image out)
-      (case (image-type image)
+    (define (pnm-image-write/plan pnm-image out)
+      (case (pnm-image-type pnm-image)
         ((ppm)
          (write-string-u8 "P3\n" out))
         ((pgm)
@@ -57,19 +57,19 @@
         ((pbm)
          (write-string-u8 "P1\n" out))
         (else
-         (error "(pnm write) image-write: Not supported type" (image-type image))))
-      (write-string-u8 (number->string (image-width image)) out)
+         (error "(pnm write) image-write: Not supported type" (pnm-image-type pnm-image))))
+      (write-string-u8 (number->string (pnm-image-width pnm-image)) out)
       (write-string-u8 " " out)
-      (write-string-u8 (number->string (image-height image)) out)
+      (write-string-u8 (number->string (pnm-image-height pnm-image)) out)
       (write-string-u8 "\n" out)
-      (case (image-type image)
+      (case (pnm-image-type pnm-image)
         ((pgm ppm)
-         (write-string-u8 (number->string (image-maxval image)) out)
+         (write-string-u8 (number->string (pnm-image-maxval pnm-image)) out)
          (write-string-u8 "\n" out)))
       (let-values (((write-token write-newline)
                     (limit-line-length-writer 70 out)))
-        (let ((width (image-width image))
-              (height (image-height image)))
+        (let ((width (pnm-image-width pnm-image))
+              (height (pnm-image-height pnm-image)))
           (define (write-raster write-pixel)
             (do ((y 0 (+ y 1)))
                 ((= y height))
@@ -78,23 +78,23 @@
                   ((= x width))
                 (write-pixel x y))
               (write-newline)))
-          (case (image-type image)
+          (case (pnm-image-type pnm-image)
             ((ppm)
              (write-raster
               (lambda (x y)
-                (let-values (((r g b) (image-ref image x y)))
+                (let-values (((r g b) (pnm-image-ref pnm-image x y)))
                   (write-token (number->string r))
                   (write-token (number->string g))
                   (write-token (number->string b))))))
             ((pgm)
              (write-raster
               (lambda (x y)
-                (let ((v (image-ref image x y)))
+                (let ((v (pnm-image-ref pnm-image x y)))
                   (write-token (number->string v))))))
             ((pbm)
              (write-raster
               (lambda (x y)
-                (let ((b (image-ref image x y)))
+                (let ((b (pnm-image-ref pnm-image x y)))
                   (write-token (if b "1" "0"))))))))))
 
     (define (write-string-u8 str out)
-- 
cgit v1.2.3