diff options
author | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-10 23:08:10 +0900 |
---|---|---|
committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-10 23:13:11 +0900 |
commit | 9d052c650ba59ddc8132bce881bd487df31c5348 (patch) | |
tree | 6437286280cf2694f4220809c3c7d92a15a406d5 /image-format/pnm/private | |
parent | e59d89f39f090f8feb16a48ed150e5ac48c2858f (diff) |
Add `image-format` prefix to library name
Diffstat (limited to 'image-format/pnm/private')
-rw-r--r-- | image-format/pnm/private/bitwise.scm | 38 | ||||
-rw-r--r-- | image-format/pnm/private/checker.scm | 65 | ||||
-rw-r--r-- | image-format/pnm/private/double-byte.scm | 29 |
3 files changed, 132 insertions, 0 deletions
diff --git a/image-format/pnm/private/bitwise.scm b/image-format/pnm/private/bitwise.scm new file mode 100644 index 0000000..ffca4e9 --- /dev/null +++ b/image-format/pnm/private/bitwise.scm @@ -0,0 +1,38 @@ +;;; R7RS-PNM --- Library for reading and writing PNM (Portable Any Map) files for R7RS +;;; Copyright © 2024 Masaya Tojo <masaya@tojo.tokyo> +;;; +;;; This file is part of R7RS-PNM. +;;; +;;; R7RS-PNM is free software: you can redistribute it and/or modify it +;;; under the terms of the GNU Lesser General Public License as published +;;; by the Free Software Foundation, either version 3 of the License, or +;;; (at your option) any later version. +;;; +;;; R7RS-PNM is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU Lesser General Public License for more details. +;;; +;;; You should have received a copy of the GNU Lesser General Public License +;;; along with R7RS-PNM. If not, see <https://www.gnu.org/licenses/>. + +(define-library (image-format pnm private bitwise) + (export bitwise-and + bitwise-ior + arithmetic-shift + bit-set? + copy-bit) + (import (scheme base)) + (cond-expand + ((library (scheme bitwise)) + (import (only (scheme bitwise) + bitwise-and bitwise-ior arithmetic-shift + bit-set? copy-bit))) + ((library (srfi 60)) + (import (only (srfi 60) + bitwise-and bitwise-ior arithmetic-shift + bit-set? copy-bit))) + ((library (srfi 151)) + (import (only (srfi 151) + bitwise-and bitwise-ior arithmetic-shift + bit-set? copy-bit))))) diff --git a/image-format/pnm/private/checker.scm b/image-format/pnm/private/checker.scm new file mode 100644 index 0000000..8b7fcb6 --- /dev/null +++ b/image-format/pnm/private/checker.scm @@ -0,0 +1,65 @@ +;;; R7RS-PNM --- Library for reading and writing PNM (Portable Any Map) files for R7RS +;;; Copyright © 2024 Masaya Tojo <masaya@tojo.tokyo> +;;; +;;; This file is part of R7RS-PNM. +;;; +;;; R7RS-PNM is free software: you can redistribute it and/or modify it +;;; under the terms of the GNU Lesser General Public License as published +;;; by the Free Software Foundation, either version 3 of the License, or +;;; (at your option) any later version. +;;; +;;; R7RS-PNM is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU Lesser General Public License for more details. +;;; +;;; You should have received a copy of the GNU Lesser General Public License +;;; along with R7RS-PNM. If not, see <https://www.gnu.org/licenses/>. + +(define-library (image-format pnm private checker) + (export make-xy-checker + make-value-checker + make-boolean-value-checker) + (import (scheme base) + (scheme case-lambda) + (image-format pnm image)) + (begin + (define (make-xy-checker width height) + (lambda (x y) + (when (or (not (exact-integer? x)) + (< x 0) + (<= width x)) + (error (string-append "`x` must be an integer such that 0 <= `x` < " + (number->string width)) + x)) + (when (and (not (exact-integer? y)) + (< y 0) + (<= height y)) + (error (string-append "`y` must be an integer such that 0 <= `y` < " + (number->string width)) + y)))) + + (define (make-value-checker maxval sym) + (define message + (string-append "`" (symbol->string sym) "`" + " must be an integer such that 0 < " + "`" (symbol->string sym) "`" + " < " + (number->string maxval))) + (lambda (v) + (when (or (not (exact-integer? v)) + (< v 0) + (< maxval v)) + (error message v)))) + + (define (make-boolean-value-checker) + (lambda (v) + (when (not (boolean? v)) + (error "`v` must be a boolean value" v)))) + + (define (split-value v) + (values (modulo (quotient v 256) 256) + (modulo v 256))) + + (define (combine-values l r) + (+ (* 256 l) r)))) diff --git a/image-format/pnm/private/double-byte.scm b/image-format/pnm/private/double-byte.scm new file mode 100644 index 0000000..156b409 --- /dev/null +++ b/image-format/pnm/private/double-byte.scm @@ -0,0 +1,29 @@ +;;; R7RS-PNM --- Library for reading and writing PNM (Portable Any Map) files for R7RS +;;; Copyright © 2024 Masaya Tojo <masaya@tojo.tokyo> +;;; +;;; This file is part of R7RS-PNM. +;;; +;;; R7RS-PNM is free software: you can redistribute it and/or modify it +;;; under the terms of the GNU Lesser General Public License as published +;;; by the Free Software Foundation, either version 3 of the License, or +;;; (at your option) any later version. +;;; +;;; R7RS-PNM is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU Lesser General Public License for more details. +;;; +;;; You should have received a copy of the GNU Lesser General Public License +;;; along with R7RS-PNM. If not, see <https://www.gnu.org/licenses/>. + +(define-library (image-format pnm private double-byte) + (export split-double-byte combine-bytes) + (import (scheme base) + (image-format pnm private bitwise)) + (begin + (define (split-double-byte v) + (values (arithmetic-shift v -8) + (bitwise-and v 255))) + + (define (combine-bytes l r) + (bitwise-ior (arithmetic-shift l 8) r)))) |