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.