Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

export gif IO functions and add them to the read-image-file and frien…

…ds machinery
  • Loading branch information...
commit 3e484106822f8409a941fa5ad4dbf71ac15da3fc 1 parent e1d8ecc
Cyrus Harmon slyrus authored
Showing with 23 additions and 15 deletions.
  1. +18 −15 io.lisp
  2. +5 −0 package.lisp
33 io.lisp
View
@@ -6,26 +6,28 @@
(destructuring-bind (x y) z
(setf (gethash x *image-stream-reader-hash-table*) y)))
'((:tiff read-tiff-stream)
- (:tif read-tiff-stream)
- (:jpeg read-jpeg-stream)
- (:jpg read-jpeg-stream)
- (:png read-png-stream)
- (:pbm read-pbm-stream)
- (:pgm read-pgm-stream)
- (:ppm read-ppm-stream)))
+ (:tif read-tiff-stream)
+ (:jpeg read-jpeg-stream)
+ (:jpg read-jpeg-stream)
+ (:png read-png-stream)
+ (:pbm read-pbm-stream)
+ (:pgm read-pgm-stream)
+ (:ppm read-ppm-stream)
+ (:gif read-gif-stream)))
(defparameter *image-file-reader-hash-table* (make-hash-table))
(map nil (lambda (z)
(destructuring-bind (x y) z
(setf (gethash x *image-file-reader-hash-table*) y)))
'((:tiff read-tiff-file)
- (:tif read-tiff-file)
- (:jpeg read-jpeg-file)
- (:jpg read-jpeg-file)
- (:png read-png-file)
- (:pbm read-pbm-file)
- (:pgm read-pgm-file)
- (:ppm read-ppm-file)))
+ (:tif read-tiff-file)
+ (:jpeg read-jpeg-file)
+ (:jpg read-jpeg-file)
+ (:png read-png-file)
+ (:pbm read-pbm-file)
+ (:pgm read-pgm-file)
+ (:ppm read-ppm-file)
+ (:gif read-gif-file)))
(defparameter *image-file-writer-hash-table* (make-hash-table))
(map nil (lambda (z)
@@ -38,7 +40,8 @@
(:png write-png-file)
(:pbm write-pbm-file)
(:pgm write-pgm-file)
- (:ppm write-ppm-file)))
+ (:ppm write-ppm-file)
+ (:gif write-gif-file)))
(defun get-image-stream-reader (type)
(let* ((key (intern (string-upcase type) :keyword)))
5 package.lisp
View
@@ -119,6 +119,11 @@
#:write-ppm-stream
#:write-ppm-file
+ #:read-gif-stream
+ #:read-gif-file
+ #:write-gif-stream
+ #:write-gif-file
+
#:read-image-file
#:read-image-stream
#:write-image-file
Please sign in to comment.
Something went wrong with that request. Please try again.