-/*
- * io-xpm.c: GdkPixBuf I/O for XPM files.
+/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
+/* GdkPixbuf library - XPM image loader
+ *
* Copyright (C) 1999 Mark Crichton
- * Author: Mark Crichton <crichton@gimp.org>
+ * Copyright (C) 1999 The Free Software Foundation
+ *
+ * Authors: Mark Crichton <crichton@gimp.org>
+ * Federico Mena-Quintero <federico@gimp.org>
*
* This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
+ * modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library 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
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Cambridge, MA 02139, USA.
+ * Lesser General Public License for more details.
*
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
*/
-#include <config.h>
+#include "config.h"
#include <stdio.h>
+#include <stdlib.h>
#include <string.h>
#include <glib.h>
-
-/* We need gdk.h since we might need to parse X color names */
-#include <gdk/gdk.h>
-
-#include "gdk-pixbuf.h"
-/*#include "gdk-pixbuf-io.h" */
+#ifdef HAVE_UNISTD_H
+#include <unistd.h> /* for unlink */
+#endif
+#include <errno.h>
+#include "gdk-pixbuf-private.h"
+#include "gdk-pixbuf-io.h"
+#include <glib/gstdio.h>
+\f
/* I have must have done something to deserve this.
* XPM is such a crappy format to handle.
*/
enum buf_op {
- op_header,
- op_cmap,
- op_body
+ op_header,
+ op_cmap,
+ op_body
};
typedef struct {
- gchar *color_string;
- GdkColor color;
- gint transparent;
-} _XPMColor;
+ gchar *color_string;
+ guint16 red;
+ guint16 green;
+ guint16 blue;
+ gint transparent;
+} XPMColor;
struct file_handle {
- FILE *infile;
- gchar *buffer;
- guint buffer_size;
-} file_handle;
+ FILE *infile;
+ gchar *buffer;
+ guint buffer_size;
+};
struct mem_handle {
- gchar **data;
- int offset;
-} mem_handle;
+ const gchar **data;
+ int offset;
+};
-static gint
- xpm_seek_string(FILE * infile,
- const gchar * str,
- gint skip_comments)
+/* The following 2 routines (parse_color, find_color) come from Tk, via the Win32
+ * port of GDK. The licensing terms on these (longer than the functions) is:
+ *
+ * This software is copyrighted by the Regents of the University of
+ * California, Sun Microsystems, Inc., and other parties. The following
+ * terms apply to all files associated with the software unless explicitly
+ * disclaimed in individual files.
+ *
+ * The authors hereby grant permission to use, copy, modify, distribute,
+ * and license this software and its documentation for any purpose, provided
+ * that existing copyright notices are retained in all copies and that this
+ * notice is included verbatim in any distributions. No written agreement,
+ * license, or royalty fee is required for any of the authorized uses.
+ * Modifications to this software may be copyrighted by their authors
+ * and need not follow the licensing terms described here, provided that
+ * the new terms are clearly indicated on the first page of each file where
+ * they apply.
+ *
+ * IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY
+ * FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
+ * ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
+ * DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ *
+ * THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
+ * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE
+ * IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
+ * NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
+ * MODIFICATIONS.
+ *
+ * GOVERNMENT USE: If you are acquiring this software on behalf of the
+ * U.S. government, the Government shall have only "Restricted Rights"
+ * in the software and related documentation as defined in the Federal
+ * Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2). If you
+ * are acquiring the software on behalf of the Department of Defense, the
+ * software shall be classified as "Commercial Computer Software" and the
+ * Government shall have only "Restricted Rights" as defined in Clause
+ * 252.227-7013 (c) (1) of DFARs. Notwithstanding the foregoing, the
+ * authors grant the U.S. Government and others acting in its behalf
+ * permission to use and distribute the software in accordance with the
+ * terms specified in this license.
+ */
+
+#include "xpm-color-table.h"
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * find_color --
+ *
+ * This routine finds the color entry that corresponds to the
+ * specified color.
+ *
+ * Results:
+ * Returns non-zero on success. The RGB values of the XColor
+ * will be initialized to the proper values on success.
+ *
+ * Side effects:
+ * None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+compare_xcolor_entries (const void *a, const void *b)
{
- char instr[1024];
-
- while (!feof(infile)) {
- fscanf(infile, "%1023s", instr);
- if (skip_comments == TRUE && strcmp(instr, "/*") == 0) {
- fscanf(infile, "%1023s", instr);
- while (!feof(infile) && strcmp(instr, "*/") != 0)
- fscanf(infile, "%1023s", instr);
- fscanf(infile, "%1023s", instr);
- }
- if (strcmp(instr, str) == 0)
- return TRUE;
- }
+ return g_ascii_strcasecmp ((const char *) a,
+ color_names + ((const XPMColorEntry *)b)->name_offset);
+}
- return FALSE;
+static gboolean
+find_color(const char *name,
+ XPMColor *colorPtr)
+{
+ XPMColorEntry *found;
+
+ found = bsearch (name, xColors, G_N_ELEMENTS (xColors), sizeof (XPMColorEntry),
+ compare_xcolor_entries);
+ if (found == NULL)
+ return FALSE;
+
+ colorPtr->red = (found->red * 65535) / 255;
+ colorPtr->green = (found->green * 65535) / 255;
+ colorPtr->blue = (found->blue * 65535) / 255;
+
+ return TRUE;
}
-static gint
- xpm_seek_char(FILE * infile,
- gchar c)
+/*
+ *----------------------------------------------------------------------
+ *
+ * parse_color --
+ *
+ * Partial implementation of X color name parsing interface.
+ *
+ * Results:
+ * Returns TRUE on success.
+ *
+ * Side effects:
+ * None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static gboolean
+parse_color (const char *spec,
+ XPMColor *colorPtr)
{
- gint b, oldb;
-
- while ((b = getc(infile)) != EOF) {
- if (c != b && b == '/') {
- b = getc(infile);
- if (b == EOF)
- return FALSE;
- else if (b == '*') { /* we have a comment */
- b = -1;
- do {
- oldb = b;
- b = getc(infile);
- if (b == EOF)
+ if (spec[0] == '#') {
+ char fmt[16];
+ int i, red, green, blue;
+
+ if ((i = strlen (spec + 1)) % 3) {
return FALSE;
}
- while (!(oldb == '*' && b == '/'));
- }
- } else if (c == b)
- return TRUE;
- }
- return FALSE;
+ i /= 3;
+
+ g_snprintf (fmt, 16, "%%%dx%%%dx%%%dx", i, i, i);
+
+ if (sscanf (spec + 1, fmt, &red, &green, &blue) != 3) {
+ return FALSE;
+ }
+ if (i == 4) {
+ colorPtr->red = red;
+ colorPtr->green = green;
+ colorPtr->blue = blue;
+ } else if (i == 1) {
+ colorPtr->red = (red * 65535) / 15;
+ colorPtr->green = (green * 65535) / 15;
+ colorPtr->blue = (blue * 65535) / 15;
+ } else if (i == 2)
+ {
+ colorPtr->red = (red * 65535) / 255;
+ colorPtr->green = (green * 65535) / 255;
+ colorPtr->blue = (blue * 65535) / 255;
+ } else /* if (i == 3) */ {
+ colorPtr->red = (red * 65535) / 4095;
+ colorPtr->green = (green * 65535) / 4095;
+ colorPtr->blue = (blue * 65535) / 4095;
+ }
+ } else {
+ if (!find_color(spec, colorPtr))
+ return FALSE;
+ }
+ return TRUE;
}
static gint
- xpm_read_string(FILE * infile,
- gchar ** buffer,
- guint * buffer_size)
+xpm_seek_string (FILE *infile, const gchar *str)
{
- gint c;
- guint cnt = 0, bufsiz, ret = FALSE;
- gchar *buf;
-
- buf = *buffer;
- bufsiz = *buffer_size;
- if (buf == NULL) {
- bufsiz = 10 * sizeof(gchar);
- buf = g_new(gchar, bufsiz);
- }
- do
- c = getc(infile);
- while (c != EOF && c != '"');
-
- if (c != '"')
- goto out;
-
- while ((c = getc(infile)) != EOF) {
- if (cnt == bufsiz) {
- guint new_size = bufsiz * 2;
- if (new_size > bufsiz)
- bufsiz = new_size;
- else
- goto out;
+ char instr[1024];
- buf = (gchar *) g_realloc(buf, bufsiz);
- buf[bufsiz - 1] = '\0';
- }
- if (c != '"')
- buf[cnt++] = c;
- else {
- buf[cnt] = 0;
- ret = TRUE;
- break;
+ while (!feof (infile)) {
+ if (fscanf (infile, "%1023s", instr) < 0)
+ return FALSE;
+ if (strcmp (instr, str) == 0)
+ return TRUE;
}
- }
- out:
- buf[bufsiz - 1] = '\0'; /* ensure null termination for errors */
- *buffer = buf;
- *buffer_size = bufsiz;
- return ret;
+ return FALSE;
}
-static gchar *
- xpm_skip_whitespaces(gchar * buffer)
+static gint
+xpm_seek_char (FILE *infile, gchar c)
{
- gint32 index = 0;
-
- while (buffer[index] != 0 && (buffer[index] == 0x20 || buffer[index] == 0x09))
- index++;
+ gint b, oldb;
+
+ while ((b = getc (infile)) != EOF) {
+ if (c != b && b == '/') {
+ b = getc (infile);
+ if (b == EOF)
+ return FALSE;
+
+ else if (b == '*') { /* we have a comment */
+ b = -1;
+ do {
+ oldb = b;
+ b = getc (infile);
+ if (b == EOF)
+ return FALSE;
+ } while (!(oldb == '*' && b == '/'));
+ }
+ } else if (c == b)
+ return TRUE;
+ }
- return &buffer[index];
+ return FALSE;
}
-static gchar *
- xpm_skip_string(gchar * buffer)
+static gint
+xpm_read_string (FILE *infile, gchar **buffer, guint *buffer_size)
{
- gint32 index = 0;
+ gint c;
+ guint cnt = 0, bufsiz, ret = FALSE;
+ gchar *buf;
+
+ buf = *buffer;
+ bufsiz = *buffer_size;
+ if (buf == NULL) {
+ bufsiz = 10 * sizeof (gchar);
+ buf = g_new (gchar, bufsiz);
+ }
- while (buffer[index] != 0 && buffer[index] != 0x20 && buffer[index] != 0x09)
- index++;
+ do {
+ c = getc (infile);
+ } while (c != EOF && c != '"');
- return &buffer[index];
-}
+ if (c != '"')
+ goto out;
-/* Xlib crashed once at a color name lengths around 125 */
-#define MAX_COLOR_LEN 120
+ while ((c = getc (infile)) != EOF) {
+ if (cnt == bufsiz) {
+ guint new_size = bufsiz * 2;
-static gchar *
- xpm_extract_color(gchar * buffer)
-{
- gint counter, numnames;
- gchar *ptr = NULL, ch, temp[128];
- gchar color[MAX_COLOR_LEN], *retcol;
- gint space;
- counter = 0;
- while (ptr == NULL) {
- if (buffer[counter] == 'c') {
- ch = buffer[counter + 1];
- if (ch == 0x20 || ch == 0x09)
- ptr = &buffer[counter + 1];
- } else if (buffer[counter] == 0)
- return NULL;
-
- counter++;
- }
- ptr = xpm_skip_whitespaces(ptr);
-
- if (ptr[0] == 0)
- return NULL;
- else if (ptr[0] == '#') {
- counter = 1;
- while (ptr[counter] != 0 &&
- ((ptr[counter] >= '0' && ptr[counter] <= '9') ||
- (ptr[counter] >= 'a' && ptr[counter] <= 'f') ||
- (ptr[counter] >= 'A' && ptr[counter] <= 'F')))
- counter++;
- retcol = g_new(gchar, counter + 1);
- strncpy(retcol, ptr, counter);
-
- retcol[counter] = 0;
-
- return retcol;
- }
- color[0] = 0;
- numnames = 0;
-
- space = MAX_COLOR_LEN - 1;
- while (space > 0) {
- sscanf(ptr, "%127s", temp);
-
- if (((gint) ptr[0] == 0) ||
- (strcmp("s", temp) == 0) || (strcmp("m", temp) == 0) ||
- (strcmp("g", temp) == 0) || (strcmp("g4", temp) == 0)) {
- break;
- } else {
- if (numnames > 0) {
- space -= 1;
- strcat(color, " ");
- }
- strncat(color, temp, space);
- space -= MIN(space, strlen(temp));
- ptr = xpm_skip_string(ptr);
- ptr = xpm_skip_whitespaces(ptr);
- numnames++;
+ if (new_size > bufsiz)
+ bufsiz = new_size;
+ else
+ goto out;
+
+ buf = g_realloc (buf, bufsiz);
+ buf[bufsiz - 1] = '\0';
+ }
+
+ if (c != '"')
+ buf[cnt++] = c;
+ else {
+ buf[cnt] = 0;
+ ret = TRUE;
+ break;
+ }
}
- }
- retcol = g_strdup(color);
- return retcol;
+ out:
+ buf[bufsiz - 1] = '\0'; /* ensure null termination for errors */
+ *buffer = buf;
+ *buffer_size = bufsiz;
+ return ret;
}
+static gchar *
+xpm_extract_color (const gchar *buffer)
+{
+ const gchar *p = &buffer[0];
+ gint new_key = 0;
+ gint key = 0;
+ gint current_key = 1;
+ gint space = 128;
+ gchar word[129], color[129], current_color[129];
+ gchar *r;
+
+ word[0] = '\0';
+ color[0] = '\0';
+ current_color[0] = '\0';
+ while (1) {
+ /* skip whitespace */
+ for (; *p != '\0' && g_ascii_isspace (*p); p++) {
+ }
+ /* copy word */
+ for (r = word; *p != '\0' && !g_ascii_isspace (*p) && r - word < sizeof (word) - 1; p++, r++) {
+ *r = *p;
+ }
+ *r = '\0';
+ if (*word == '\0') {
+ if (color[0] == '\0') /* incomplete colormap entry */
+ return NULL;
+ else /* end of entry, still store the last color */
+ new_key = 1;
+ }
+ else if (key > 0 && color[0] == '\0') /* next word must be a color name part */
+ new_key = 0;
+ else {
+ if (strcmp (word, "c") == 0)
+ new_key = 5;
+ else if (strcmp (word, "g") == 0)
+ new_key = 4;
+ else if (strcmp (word, "g4") == 0)
+ new_key = 3;
+ else if (strcmp (word, "m") == 0)
+ new_key = 2;
+ else if (strcmp (word, "s") == 0)
+ new_key = 1;
+ else
+ new_key = 0;
+ }
+ if (new_key == 0) { /* word is a color name part */
+ if (key == 0) /* key expected */
+ return NULL;
+ /* accumulate color name */
+ if (color[0] != '\0') {
+ strncat (color, " ", space);
+ space -= MIN (space, 1);
+ }
+ strncat (color, word, space);
+ space -= MIN (space, strlen (word));
+ }
+ else { /* word is a key */
+ if (key > current_key) {
+ current_key = key;
+ strcpy (current_color, color);
+ }
+ space = 128;
+ color[0] = '\0';
+ key = new_key;
+ if (*p == '\0') break;
+ }
+
+ }
+ if (current_key > 1)
+ return g_strdup (current_color);
+ else
+ return NULL;
+}
/* (almost) direct copy from gdkpixmap.c... loads an XPM from a file */
-static gchar *
- file_buffer(enum buf_op op, gpointer handle)
+static const gchar *
+file_buffer (enum buf_op op, gpointer handle)
{
- struct file_handle *h = handle;
-
- switch (op) {
- case op_header:
- if (xpm_seek_string(h->infile, "XPM", FALSE) != TRUE)
- break;
-
- if (xpm_seek_char(h->infile, '{') != TRUE)
- break;
- /* Fall through to the next xpm_seek_char. */
-
- case op_cmap:
- xpm_seek_char(h->infile, '"');
- fseek(h->infile, -1, SEEK_CUR);
- /* Fall through to the xpm_read_string. */
-
- case op_body:
- xpm_read_string(h->infile, &h->buffer, &h->buffer_size);
- return h->buffer;
- }
- return NULL;
+ struct file_handle *h = handle;
+
+ switch (op) {
+ case op_header:
+ if (xpm_seek_string (h->infile, "XPM") != TRUE)
+ break;
+
+ if (xpm_seek_char (h->infile, '{') != TRUE)
+ break;
+ /* Fall through to the next xpm_seek_char. */
+
+ case op_cmap:
+ xpm_seek_char (h->infile, '"');
+ fseek (h->infile, -1, SEEK_CUR);
+ /* Fall through to the xpm_read_string. */
+
+ case op_body:
+ if(!xpm_read_string (h->infile, &h->buffer, &h->buffer_size))
+ return NULL;
+ return h->buffer;
+
+ default:
+ g_assert_not_reached ();
+ }
+
+ return NULL;
}
/* This reads from memory */
-static gchar *
- mem_buffer(enum buf_op op, gpointer handle)
+static const gchar *
+mem_buffer (enum buf_op op, gpointer handle)
{
- struct mem_handle *h = handle;
- switch (op) {
- case op_header:
- case op_cmap:
- case op_body:
- if (h->data[h->offset])
- return h->data[h->offset++];
- }
- return NULL;
+ struct mem_handle *h = handle;
+ switch (op) {
+ case op_header:
+ case op_cmap:
+ case op_body:
+ if (h->data[h->offset]) {
+ const gchar* retval;
+
+ retval = h->data[h->offset];
+ h->offset += 1;
+ return retval;
+ }
+ break;
+
+ default:
+ g_assert_not_reached ();
+ break;
+ }
+
+ return NULL;
}
/* This function does all the work. */
-
-static GdkPixBuf *
- _pixbuf_create_from_xpm(gchar * (*get_buf) (enum buf_op op, gpointer handle),
- gpointer handle)
+static GdkPixbuf *
+pixbuf_create_from_xpm (const gchar * (*get_buf) (enum buf_op op, gpointer handle), gpointer handle,
+ GError **error)
{
- gint w, h, n_col, cpp;
- gint cnt, xcnt, ycnt, wbytes, n, ns;
- gint is_trans = FALSE;
- gchar *buffer, *name_buf;
- gchar pixel_str[32];
- GHashTable *color_hash;
- _XPMColor *colors, *color, *fallbackcolor;
- art_u8 *pixels, *pixtmp;
- GdkPixBuf *pixbuf;
-
- buffer = (*get_buf) (op_header, handle);
- if (!buffer) {
- g_warning("No XPM header found");
- return NULL;
- }
- sscanf(buffer, "%d %d %d %d", &w, &h, &n_col, &cpp);
- if (cpp >= 32) {
- g_warning("XPM has more than 31 chars per pixel.");
- return NULL;
- }
- /* The hash is used for fast lookups of color from chars */
- color_hash = g_hash_table_new(g_str_hash, g_str_equal);
+ gint w, h, n_col, cpp, x_hot, y_hot, items;
+ gint cnt, xcnt, ycnt, wbytes, n;
+ gint is_trans = FALSE;
+ const gchar *buffer;
+ gchar *name_buf;
+ gchar pixel_str[32];
+ GHashTable *color_hash;
+ XPMColor *colors, *color, *fallbackcolor;
+ guchar *pixtmp;
+ GdkPixbuf *pixbuf;
+
+ fallbackcolor = NULL;
+
+ buffer = (*get_buf) (op_header, handle);
+ if (!buffer) {
+ g_set_error_literal (error,
+ GDK_PIXBUF_ERROR,
+ GDK_PIXBUF_ERROR_CORRUPT_IMAGE,
+ _("No XPM header found"));
+ return NULL;
+ }
+ items = sscanf (buffer, "%d %d %d %d %d %d", &w, &h, &n_col, &cpp, &x_hot, &y_hot);
+
+ if (items != 4 && items != 6) {
+ g_set_error_literal (error,
+ GDK_PIXBUF_ERROR,
+ GDK_PIXBUF_ERROR_CORRUPT_IMAGE,
+ _("Invalid XPM header"));
+ return NULL;
+ }
- name_buf = g_new(gchar, n_col * (cpp + 1));
- colors = g_new(_XPMColor, n_col);
+ if (w <= 0) {
+ g_set_error_literal (error,
+ GDK_PIXBUF_ERROR,
+ GDK_PIXBUF_ERROR_CORRUPT_IMAGE,
+ _("XPM file has image width <= 0"));
+ return NULL;
- for (cnt = 0; cnt < n_col; cnt++) {
- gchar *color_name;
+ }
+ if (h <= 0) {
+ g_set_error_literal (error,
+ GDK_PIXBUF_ERROR,
+ GDK_PIXBUF_ERROR_CORRUPT_IMAGE,
+ _("XPM file has image height <= 0"));
+ return NULL;
- buffer = (*get_buf) (op_cmap, handle);
- if (!buffer) {
- g_warning("Can't load XPM colormap");
- g_free(name_buf);
- g_free(colors);
- return NULL;
}
- color = &colors[cnt];
- color->color_string = &name_buf[cnt * (cpp + 1)];
- strncpy(color->color_string, buffer, cpp);
- color->color_string[cpp] = 0;
- buffer += strlen(color->color_string);
- color->transparent = FALSE;
-
- color_name = xpm_extract_color(buffer);
-
- if ((!color_name) || (g_strcasecmp(color_name, "None") == 0)
- || (gdk_color_parse(color_name, &color->color) == FALSE)) {
- color->transparent = TRUE;
- is_trans = TRUE;
+ if (cpp <= 0 || cpp >= 32) {
+ g_set_error_literal (error,
+ GDK_PIXBUF_ERROR,
+ GDK_PIXBUF_ERROR_CORRUPT_IMAGE,
+ _("XPM has invalid number of chars per pixel"));
+ return NULL;
}
- g_free(color_name);
- g_hash_table_insert(color_hash, color->color_string, color);
-
- if (cnt == 0)
- fallbackcolor = color;
- }
-
- if (is_trans)
- pixels = art_alloc(w * h * 4);
- else
- pixels = art_alloc(w * h * 3);
-
- if (!pixels) {
- g_warning("XPM: Cannot alloc ArtBuf");
- g_hash_table_destroy(color_hash);
- g_free(colors);
- g_free(name_buf);
- return NULL;
- }
- wbytes = w * cpp;
- pixtmp = pixels;
-
- for (ycnt = 0; ycnt < h; ycnt++) {
- buffer = (*get_buf) (op_body, handle);
- if ((!buffer) || (strlen(buffer) < wbytes))
- continue;
- for (n = 0, cnt = 0, xcnt = 0; n < wbytes; n += cpp, xcnt++) {
- strncpy(pixel_str, &buffer[n], cpp);
- pixel_str[cpp] = 0;
- ns = 0;
-
- color = g_hash_table_lookup(color_hash, pixel_str);
-
- /* Bad XPM...punt */
- if (!color)
- color = fallbackcolor;
-
- pixtmp[0] = color->color.red;
- pixtmp[1] = color->color.green;
- pixtmp[2] = color->color.blue;
- if ((is_trans) && (color->transparent)) {
- pixtmp[3] = 0;
- pixtmp++;
- } else if (is_trans) {
- pixtmp[3] = 0xFF;
- pixtmp++;
- }
- pixtmp += 3;
+ if (n_col <= 0 ||
+ n_col >= G_MAXINT / (cpp + 1) ||
+ n_col >= G_MAXINT / sizeof (XPMColor)) {
+ g_set_error_literal (error,
+ GDK_PIXBUF_ERROR,
+ GDK_PIXBUF_ERROR_CORRUPT_IMAGE,
+ _("XPM file has invalid number of colors"));
+ return NULL;
}
- }
- /* Ok, now stuff the GdkPixBuf with goodies */
- pixbuf = g_new(GdkPixBuf, 1);
+ /* The hash is used for fast lookups of color from chars */
+ color_hash = g_hash_table_new (g_str_hash, g_str_equal);
+
+ name_buf = g_try_malloc (n_col * (cpp + 1));
+ if (!name_buf) {
+ g_set_error_literal (error,
+ GDK_PIXBUF_ERROR,
+ GDK_PIXBUF_ERROR_INSUFFICIENT_MEMORY,
+ _("Cannot allocate memory for loading XPM image"));
+ g_hash_table_destroy (color_hash);
+ return NULL;
+ }
+ colors = (XPMColor *) g_try_malloc (sizeof (XPMColor) * n_col);
+ if (!colors) {
+ g_set_error_literal (error,
+ GDK_PIXBUF_ERROR,
+ GDK_PIXBUF_ERROR_INSUFFICIENT_MEMORY,
+ _("Cannot allocate memory for loading XPM image"));
+ g_hash_table_destroy (color_hash);
+ g_free (name_buf);
+ return NULL;
+ }
- if (is_trans)
- pixbuf->art_pixbuf = art_pixbuf_new_rgba(pixels, w, h, (w * 4));
- else
- pixbuf->art_pixbuf = art_pixbuf_new_rgb(pixels, w, h, (w * 3));
+ for (cnt = 0; cnt < n_col; cnt++) {
+ gchar *color_name;
+
+ buffer = (*get_buf) (op_cmap, handle);
+ if (!buffer) {
+ g_set_error_literal (error,
+ GDK_PIXBUF_ERROR,
+ GDK_PIXBUF_ERROR_CORRUPT_IMAGE,
+ _("Cannot read XPM colormap"));
+ g_hash_table_destroy (color_hash);
+ g_free (name_buf);
+ g_free (colors);
+ return NULL;
+ }
- /* Ok, I'm anal...shoot me */
- if (!(pixbuf->art_pixbuf))
- return NULL;
- pixbuf->ref_count = 0;
- pixbuf->unref_func = NULL;
+ color = &colors[cnt];
+ color->color_string = &name_buf[cnt * (cpp + 1)];
+ strncpy (color->color_string, buffer, cpp);
+ color->color_string[cpp] = 0;
+ buffer += strlen (color->color_string);
+ color->transparent = FALSE;
+
+ color_name = xpm_extract_color (buffer);
+
+ if ((color_name == NULL) || (g_ascii_strcasecmp (color_name, "None") == 0)
+ || (parse_color (color_name, color) == FALSE)) {
+ color->transparent = TRUE;
+ color->red = 0;
+ color->green = 0;
+ color->blue = 0;
+ is_trans = TRUE;
+ }
+
+ g_free (color_name);
+ g_hash_table_insert (color_hash, color->color_string, color);
+
+ if (cnt == 0)
+ fallbackcolor = color;
+ }
+
+ pixbuf = gdk_pixbuf_new (GDK_COLORSPACE_RGB, is_trans, 8, w, h);
+
+ if (!pixbuf) {
+ g_set_error_literal (error,
+ GDK_PIXBUF_ERROR,
+ GDK_PIXBUF_ERROR_INSUFFICIENT_MEMORY,
+ _("Cannot allocate memory for loading XPM image"));
+ g_hash_table_destroy (color_hash);
+ g_free (colors);
+ g_free (name_buf);
+ return NULL;
+ }
+
+ wbytes = w * cpp;
+
+ for (ycnt = 0; ycnt < h; ycnt++) {
+ pixtmp = pixbuf->pixels + ycnt * pixbuf->rowstride;
+
+ buffer = (*get_buf) (op_body, handle);
+ if ((!buffer) || (strlen (buffer) < wbytes))
+ continue;
+
+ for (n = 0, xcnt = 0; n < wbytes; n += cpp, xcnt++) {
+ strncpy (pixel_str, &buffer[n], cpp);
+ pixel_str[cpp] = 0;
+
+ color = g_hash_table_lookup (color_hash, pixel_str);
- g_hash_table_destroy(color_hash);
- g_free(colors);
- g_free(name_buf);
+ /* Bad XPM...punt */
+ if (!color)
+ color = fallbackcolor;
- return pixbuf;
+ *pixtmp++ = color->red >> 8;
+ *pixtmp++ = color->green >> 8;
+ *pixtmp++ = color->blue >> 8;
+
+ if (is_trans && color->transparent)
+ *pixtmp++ = 0;
+ else if (is_trans)
+ *pixtmp++ = 0xFF;
+ }
+ }
+
+ g_hash_table_destroy (color_hash);
+ g_free (colors);
+ g_free (name_buf);
+
+ if (items == 6) {
+ gchar hot[10];
+ g_snprintf (hot, 10, "%d", x_hot);
+ gdk_pixbuf_set_option (pixbuf, "x_hot", hot);
+ g_snprintf (hot, 10, "%d", y_hot);
+ gdk_pixbuf_set_option (pixbuf, "y_hot", hot);
+
+ }
+
+ return pixbuf;
}
/* Shared library entry point for file loading */
-GdkPixBuf *image_load(FILE * f)
+static GdkPixbuf *
+gdk_pixbuf__xpm_image_load (FILE *f,
+ GError **error)
+{
+ GdkPixbuf *pixbuf;
+ struct file_handle h;
+
+ memset (&h, 0, sizeof (h));
+ h.infile = f;
+ pixbuf = pixbuf_create_from_xpm (file_buffer, &h, error);
+ g_free (h.buffer);
+
+ return pixbuf;
+}
+
+/* Shared library entry point for memory loading */
+static GdkPixbuf *
+gdk_pixbuf__xpm_image_load_xpm_data (const gchar **data)
{
- GdkPixBuf *pixbuf;
- struct file_handle h;
+ GdkPixbuf *pixbuf;
+ struct mem_handle h;
+ GError *error = NULL;
+
+ h.data = data;
+ h.offset = 0;
+
+ pixbuf = pixbuf_create_from_xpm (mem_buffer, &h, &error);
+
+ if (error) {
+ g_warning ("Inline XPM data is broken: %s", error->message);
+ g_error_free (error);
+ error = NULL;
+ }
+
+ return pixbuf;
+}
- g_return_val_if_fail(f != NULL, NULL);
+/* Progressive loader */
+typedef struct _XPMContext XPMContext;
+struct _XPMContext
+{
+ GdkPixbufModulePreparedFunc prepare_func;
+ GdkPixbufModuleUpdatedFunc update_func;
+ gpointer user_data;
- h.infile = f;
- pixbuf = _pixbuf_create_from_xpm(file_buffer, &h);
- g_free(h.buffer);
+ gchar *tempname;
+ FILE *file;
+ gboolean all_okay;
+};
- return pixbuf;
+/*
+ * FIXME xpm loading progressively is not properly implemented.
+ * Instead we will buffer to a file then load that file when done.
+ * This is very broken but it should be relayively simple to fix
+ * in the future.
+ */
+static gpointer
+gdk_pixbuf__xpm_image_begin_load (GdkPixbufModuleSizeFunc size_func,
+ GdkPixbufModulePreparedFunc prepare_func,
+ GdkPixbufModuleUpdatedFunc update_func,
+ gpointer user_data,
+ GError **error)
+{
+ XPMContext *context;
+ gint fd;
+
+ context = g_new (XPMContext, 1);
+ context->prepare_func = prepare_func;
+ context->update_func = update_func;
+ context->user_data = user_data;
+ context->all_okay = TRUE;
+ fd = g_file_open_tmp ("gdkpixbuf-xpm-tmp.XXXXXX", &context->tempname,
+ NULL);
+ if (fd < 0) {
+ g_free (context);
+ return NULL;
+ }
+
+ context->file = fdopen (fd, "w+");
+ if (context->file == NULL) {
+ g_free (context->tempname);
+ g_free (context);
+ return NULL;
+ }
+
+ return context;
+}
+
+static gboolean
+gdk_pixbuf__xpm_image_stop_load (gpointer data,
+ GError **error)
+{
+ XPMContext *context = (XPMContext*) data;
+ GdkPixbuf *pixbuf;
+ gboolean retval = FALSE;
+
+ g_return_val_if_fail (data != NULL, FALSE);
+
+ fflush (context->file);
+ rewind (context->file);
+ if (context->all_okay) {
+ pixbuf = gdk_pixbuf__xpm_image_load (context->file, error);
+
+ if (pixbuf != NULL) {
+ if (context->prepare_func)
+ (* context->prepare_func) (pixbuf,
+ NULL,
+ context->user_data);
+ if (context->update_func)
+ (* context->update_func) (pixbuf, 0, 0, pixbuf->width, pixbuf->height, context->user_data);
+ g_object_unref (pixbuf);
+
+ retval = TRUE;
+ }
+ }
+
+ fclose (context->file);
+ g_unlink (context->tempname);
+ g_free (context->tempname);
+ g_free ((XPMContext *) context);
+
+ return retval;
+}
+
+static gboolean
+gdk_pixbuf__xpm_image_load_increment (gpointer data,
+ const guchar *buf,
+ guint size,
+ GError **error)
+{
+ XPMContext *context = (XPMContext *) data;
+
+ g_return_val_if_fail (data != NULL, FALSE);
+
+ if (fwrite (buf, sizeof (guchar), size, context->file) != size) {
+ gint save_errno = errno;
+ context->all_okay = FALSE;
+ g_set_error_literal (error,
+ G_FILE_ERROR,
+ g_file_error_from_errno (save_errno),
+ _("Failed to write to temporary file when loading XPM image"));
+ return FALSE;
+ }
+
+ return TRUE;
+}
+
+#ifndef INCLUDE_xpm
+#define MODULE_ENTRY(function) G_MODULE_EXPORT void function
+#else
+#define MODULE_ENTRY(function) void _gdk_pixbuf__xpm_ ## function
+#endif
+
+MODULE_ENTRY (fill_vtable) (GdkPixbufModule *module)
+{
+ module->load = gdk_pixbuf__xpm_image_load;
+ module->load_xpm_data = gdk_pixbuf__xpm_image_load_xpm_data;
+ module->begin_load = gdk_pixbuf__xpm_image_begin_load;
+ module->stop_load = gdk_pixbuf__xpm_image_stop_load;
+ module->load_increment = gdk_pixbuf__xpm_image_load_increment;
+}
+
+MODULE_ENTRY (fill_info) (GdkPixbufFormat *info)
+{
+ static GdkPixbufModulePattern signature[] = {
+ { "/* XPM */", NULL, 100 },
+ { NULL, NULL, 0 }
+ };
+ static gchar * mime_types[] = {
+ "image/x-xpixmap",
+ NULL
+ };
+ static gchar * extensions[] = {
+ "xpm",
+ NULL
+ };
+
+ info->name = "xpm";
+ info->signature = signature;
+ info->description = N_("The XPM image format");
+ info->mime_types = mime_types;
+ info->extensions = extensions;
+ info->flags = GDK_PIXBUF_FORMAT_THREADSAFE;
+ info->license = "LGPL";
}