[cl-gd-cvs] CVS update: cl-gd/cl-gd-glue-gif.c cl-gd/CHANGELOG cl-gd/README cl-gd/cl-gd-glue.c cl-gd/cl-gd-test.lisp cl-gd/colors-aux.lisp cl-gd/colors.lisp cl-gd/drawing.lisp cl-gd/gd-uffi.lisp cl-gd/images.lisp cl-gd/init.lisp cl-gd/misc.lisp cl-gd/specials.lisp cl-gd/strings.lisp cl-gd/transform.lisp cl-gd/util.lisp
Edi Weitz
eweitz at common-lisp.net
Sun Apr 25 20:34:04 UTC 2004
Update of /project/cl-gd/cvsroot/cl-gd
In directory common-lisp.net:/tmp/cvs-serv28834
Modified Files:
CHANGELOG README cl-gd-glue.c cl-gd-test.lisp colors-aux.lisp
colors.lisp drawing.lisp gd-uffi.lisp images.lisp init.lisp
misc.lisp specials.lisp strings.lisp transform.lisp util.lisp
Added Files:
cl-gd-glue-gif.c
Log Message:
pre-0.3.2 with bugfix for LW bivalent streams
Date: Sun Apr 25 16:34:02 2004
Author: eweitz
Index: cl-gd/CHANGELOG
diff -u cl-gd/CHANGELOG:1.2 cl-gd/CHANGELOG:1.3
--- cl-gd/CHANGELOG:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/CHANGELOG Sun Apr 25 16:34:01 2004
@@ -1,5 +1,11 @@
-Version 0.3.1
+Version 0.3.2
????-??-??
+Replaced WRITE-BYTE with WRITE-SEQUENCE for LispWorks - see <http://article.gmane.org/gmane.lisp.lispworks.general/1827>
+
+Version 0.3.1
+2004-04-25
+Two separate C source files (with and without GIF support)
+Added note about failed tests
Added hyperdoc support
Added :CL-GD to *FEATURES*
Index: cl-gd/README
diff -u cl-gd/README:1.2 cl-gd/README:1.3
--- cl-gd/README:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/README Sun Apr 25 16:34:01 2004
@@ -61,3 +61,5 @@
where you should obviously replace the path above with the full path
to the font on your machine.
+
+(See the note about failed tests in the documentation.)
\ No newline at end of file
Index: cl-gd/cl-gd-glue.c
diff -u cl-gd/cl-gd-glue.c:1.2 cl-gd/cl-gd-glue.c:1.3
--- cl-gd/cl-gd-glue.c:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/cl-gd-glue.c Sun Apr 25 16:34:01 2004
@@ -45,23 +45,6 @@
return NULL;
}
-gdImagePtr gdImageCreateFromGifFile (char *filename, int *err) {
- FILE *in;
- gdImagePtr im;
-
- if (in = fopen(filename, "rb")) {
- im = gdImageCreateFromGif(in);
- if (im == NULL) {
- *err = 0;
- return NULL;
- }
- fclose(in);
- return im;
- }
- *err = errno;
- return NULL;
-}
-
gdImagePtr gdImageCreateFromPngFile (char *filename, int *err) {
FILE *in;
gdImagePtr im;
Index: cl-gd/cl-gd-test.lisp
diff -u cl-gd/cl-gd-test.lisp:1.2 cl-gd/cl-gd-test.lisp:1.3
--- cl-gd/cl-gd-test.lisp:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/cl-gd-test.lisp Sun Apr 25 16:34:01 2004
@@ -1,5 +1,5 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-GD; Base: 10 -*-
-;;; $Header: /project/cl-gd/cvsroot/cl-gd/cl-gd-test.lisp,v 1.2 2004/04/24 00:29:25 eweitz Exp $
+;;; $Header: /project/cl-gd/cvsroot/cl-gd/cl-gd-test.lisp,v 1.3 2004/04/25 20:34:01 eweitz Exp $
;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved.
@@ -225,7 +225,7 @@
(and (= +max-colors+ (number-of-colors))
(null (find-color 255 0 0 :exact t))
(let ((match (find-color 255 0 0))) ; green
- (and (= 64
+ (and (= 85
(color-component :red match)
(color-component :green match)
(color-component :blue match)))))))
Index: cl-gd/colors-aux.lisp
diff -u cl-gd/colors-aux.lisp:1.2 cl-gd/colors-aux.lisp:1.3
--- cl-gd/colors-aux.lisp:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/colors-aux.lisp Sun Apr 25 16:34:01 2004
@@ -1,5 +1,5 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-GD; Base: 10 -*-
-;;; $Header: /project/cl-gd/cvsroot/cl-gd/colors-aux.lisp,v 1.2 2004/04/24 00:29:25 eweitz Exp $
+;;; $Header: /project/cl-gd/cvsroot/cl-gd/colors-aux.lisp,v 1.3 2004/04/25 20:34:01 eweitz Exp $
;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved.
Index: cl-gd/colors.lisp
diff -u cl-gd/colors.lisp:1.2 cl-gd/colors.lisp:1.3
--- cl-gd/colors.lisp:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/colors.lisp Sun Apr 25 16:34:01 2004
@@ -1,5 +1,5 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-GD; Base: 10 -*-
-;;; $Header: /project/cl-gd/cvsroot/cl-gd/colors.lisp,v 1.2 2004/04/24 00:29:25 eweitz Exp $
+;;; $Header: /project/cl-gd/cvsroot/cl-gd/colors.lisp,v 1.3 2004/04/25 20:34:01 eweitz Exp $
;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved.
Index: cl-gd/drawing.lisp
diff -u cl-gd/drawing.lisp:1.2 cl-gd/drawing.lisp:1.3
--- cl-gd/drawing.lisp:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/drawing.lisp Sun Apr 25 16:34:01 2004
@@ -1,5 +1,5 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-GD; Base: 10 -*-
-;;; $Header: /project/cl-gd/cvsroot/cl-gd/drawing.lisp,v 1.2 2004/04/24 00:29:25 eweitz Exp $
+;;; $Header: /project/cl-gd/cvsroot/cl-gd/drawing.lisp,v 1.3 2004/04/25 20:34:01 eweitz Exp $
;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved.
Index: cl-gd/gd-uffi.lisp
diff -u cl-gd/gd-uffi.lisp:1.2 cl-gd/gd-uffi.lisp:1.3
--- cl-gd/gd-uffi.lisp:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/gd-uffi.lisp Sun Apr 25 16:34:01 2004
@@ -1,5 +1,5 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-GD; Base: 10 -*-
-;;; $Header: /project/cl-gd/cvsroot/cl-gd/gd-uffi.lisp,v 1.2 2004/04/24 00:29:25 eweitz Exp $
+;;; $Header: /project/cl-gd/cvsroot/cl-gd/gd-uffi.lisp,v 1.3 2004/04/25 20:34:01 eweitz Exp $
;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved.
Index: cl-gd/images.lisp
diff -u cl-gd/images.lisp:1.2 cl-gd/images.lisp:1.3
--- cl-gd/images.lisp:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/images.lisp Sun Apr 25 16:34:01 2004
@@ -1,5 +1,5 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-GD; Base: 10 -*-
-;;; $Header: /project/cl-gd/cvsroot/cl-gd/images.lisp,v 1.2 2004/04/24 00:29:25 eweitz Exp $
+;;; $Header: /project/cl-gd/cvsroot/cl-gd/images.lisp,v 1.3 2004/04/25 20:34:01 eweitz Exp $
;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved.
@@ -221,10 +221,20 @@
(subtypep (stream-element-type stream) 'base-char)
(subtypep (stream-element-type stream) '(unsigned-byte 8)))
(with-foreign-object (size :int)
- (let ((memory ,gd-call))
+ (let ((memory ,gd-call)
+ #+:lispworks4.3 (temp-array (make-array 1 :element-type
+ '(unsigned-byte 8))))
(unwind-protect
(with-cast-pointer (temp memory :unsigned-byte)
(dotimes (i (deref-pointer size :int))
+ ;; LispWorks workaround, WRITE-BYTE won't work - see
+ ;; <http://article.gmane.org/gmane.lisp.lispworks.general/1827>
+ #+:lispworks4.3
+ (setf (aref temp-array 0)
+ (deref-array temp '(:array :unsigned-byte) i))
+ #+:lispworks4.3
+ (write-sequence temp-array stream)
+ #-:lispworks4.3
(write-byte (deref-array temp '(:array :unsigned-byte) i)
stream))
image)
@@ -254,7 +264,7 @@
QUALITY is not specified, the default IJG JPEG quality value is
used. Otherwise, for practical purposes, quality should be a value in
the range 0-95. STREAM must be a character stream or a binary stream
-of element type (UNSIGNED-BYTE 8). If STREAM is a character stream,
+of element type \(UNSIGNED-BYTE 8). If STREAM is a character stream,
the user of this function has to make sure the external format is
yields faithful output of all 8-bit characters.")
Index: cl-gd/init.lisp
diff -u cl-gd/init.lisp:1.2 cl-gd/init.lisp:1.3
--- cl-gd/init.lisp:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/init.lisp Sun Apr 25 16:34:01 2004
@@ -1,5 +1,5 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-GD; Base: 10 -*-
-;;; $Header: /project/cl-gd/cvsroot/cl-gd/init.lisp,v 1.2 2004/04/24 00:29:25 eweitz Exp $
+;;; $Header: /project/cl-gd/cvsroot/cl-gd/init.lisp,v 1.3 2004/04/25 20:34:01 eweitz Exp $
;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved.
Index: cl-gd/misc.lisp
diff -u cl-gd/misc.lisp:1.2 cl-gd/misc.lisp:1.3
--- cl-gd/misc.lisp:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/misc.lisp Sun Apr 25 16:34:01 2004
@@ -1,5 +1,5 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-GD; Base: 10 -*-
-;;; $Header: /project/cl-gd/cvsroot/cl-gd/misc.lisp,v 1.2 2004/04/24 00:29:25 eweitz Exp $
+;;; $Header: /project/cl-gd/cvsroot/cl-gd/misc.lisp,v 1.3 2004/04/25 20:34:01 eweitz Exp $
;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved.
Index: cl-gd/specials.lisp
diff -u cl-gd/specials.lisp:1.2 cl-gd/specials.lisp:1.3
--- cl-gd/specials.lisp:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/specials.lisp Sun Apr 25 16:34:01 2004
@@ -1,5 +1,5 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-GD; Base: 10 -*-
-;;; $Header: /project/cl-gd/cvsroot/cl-gd/specials.lisp,v 1.2 2004/04/24 00:29:25 eweitz Exp $
+;;; $Header: /project/cl-gd/cvsroot/cl-gd/specials.lisp,v 1.3 2004/04/25 20:34:01 eweitz Exp $
;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved.
Index: cl-gd/strings.lisp
diff -u cl-gd/strings.lisp:1.2 cl-gd/strings.lisp:1.3
--- cl-gd/strings.lisp:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/strings.lisp Sun Apr 25 16:34:01 2004
@@ -1,5 +1,5 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-GD; Base: 10 -*-
-;;; $Header: /project/cl-gd/cvsroot/cl-gd/strings.lisp,v 1.2 2004/04/24 00:29:25 eweitz Exp $
+;;; $Header: /project/cl-gd/cvsroot/cl-gd/strings.lisp,v 1.3 2004/04/25 20:34:01 eweitz Exp $
;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved.
Index: cl-gd/transform.lisp
diff -u cl-gd/transform.lisp:1.2 cl-gd/transform.lisp:1.3
--- cl-gd/transform.lisp:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/transform.lisp Sun Apr 25 16:34:01 2004
@@ -1,5 +1,5 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-GD; Base: 10 -*-
-;;; $Header: /project/cl-gd/cvsroot/cl-gd/transform.lisp,v 1.2 2004/04/24 00:29:25 eweitz Exp $
+;;; $Header: /project/cl-gd/cvsroot/cl-gd/transform.lisp,v 1.3 2004/04/25 20:34:01 eweitz Exp $
;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved.
Index: cl-gd/util.lisp
diff -u cl-gd/util.lisp:1.2 cl-gd/util.lisp:1.3
--- cl-gd/util.lisp:1.2 Fri Apr 23 20:29:25 2004
+++ cl-gd/util.lisp Sun Apr 25 16:34:01 2004
@@ -1,5 +1,5 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-GD; Base: 10 -*-
-;;; $Header: /project/cl-gd/cvsroot/cl-gd/util.lisp,v 1.2 2004/04/24 00:29:25 eweitz Exp $
+;;; $Header: /project/cl-gd/cvsroot/cl-gd/util.lisp,v 1.3 2004/04/25 20:34:01 eweitz Exp $
;;; Copyright (c) 2003, Dr. Edmund Weitz. All rights reserved.
More information about the Cl-gd-cvs
mailing list