-
-/* GdkPixbuf library - JPEG image loader
+/* GdkPixbuf library - SUNRAS image loader
*
* Copyright (C) 1999 The Free Software Foundation
*
* Authors: Arjan van de Ven <arjan@fenrus.demon.nl>
* Federico Mena-Quintero <federico@gimp.org>
*
+ * Based on io-gif.c, io-tiff.c and io-png.c
+ *
* 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.
+ * Lesser General Public License for more details.
*
- * You should have received a copy of the GNU Library General Public
+ * 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.
*/
+/*
+
+Known bugs:
+ * Compressed rasterfiles don't work yet
+
+*/
+
#include <config.h>
#include <stdio.h>
-#include <glib.h>
-#include "gdk-pixbuf.h"
+#ifdef HAVE_UNISTD_H
+#include <unistd.h>
+#endif
+#include <string.h>
+#include "gdk-pixbuf-private.h"
#include "gdk-pixbuf-io.h"
\f
-/* Header structure for sunras files.
+/*
+ Header structure for sunras files.
All values are in big-endian order on disk
+
+ Note: Every scanline is padded to be a multiple of 16 bits
*/
-
-struct rasterfile
-{
- guint magic;
- guint width;
- guint height;
- guint depth;
- guint length;
- guint type;
- guint maptype;
- guint maplength;
+
+struct rasterfile {
+ guint magic;
+ guint width;
+ guint height;
+ guint depth;
+ guint length;
+ guint type;
+ guint maptype;
+ guint maplength;
};
/*
-This does a byte-order swap. Does glib have something like
-be32_to_cpu() ??
+ This does a byte-order swap. Does glib have something like
+ be32_to_cpu() ??
*/
-unsigned int ByteOrder(unsigned int i)
-{
- unsigned int i2;
- i2 = ((i&255)<<24) | (((i>>8)&255)<<16) | (((i>>16)&255)<<8)|((i>>24)&255);
- return i2;
-}
-/* Destroy notification function for the libart pixbuf */
-static void
-free_buffer (gpointer user_data, gpointer data)
-{
- free (data);
-}
+/* Progressive loading */
+
+struct ras_progressive_state {
+ ModulePreparedNotifyFunc prepared_func;
+ ModuleUpdatedNotifyFunc updated_func;
+ gpointer user_data;
+
+ gint HeaderSize; /* The size of the header-part (incl colormap) */
+ guchar *HeaderBuf; /* The buffer for the header (incl colormap) */
+ gint HeaderDone; /* The nr of bytes actually in HeaderBuf */
+
+ gint LineWidth; /* The width of a line in bytes */
+ guchar *LineBuf; /* Buffer for 1 line */
+ gint LineDone; /* # of bytes in LineBuf */
+ gint Lines; /* # of finished lines */
+
+ gint RasType; /* 32 = BGRA
+ 24 = BGR
+ 8 = 8 bit colormapped
+ 1 = 1 bit bitonal
+ */
+
+
+ struct rasterfile Header; /* Decoded (BE->CPU) header */
+
+
+ GdkPixbuf *pixbuf; /* Our "target" */
+};
+
+static gpointer
+gdk_pixbuf__ras_image_begin_load(ModulePreparedNotifyFunc prepared_func,
+ ModuleUpdatedNotifyFunc updated_func,
+ gpointer user_data,
+ GError **error);
+static gboolean gdk_pixbuf__ras_image_stop_load(gpointer data, GError **error);
+static gboolean gdk_pixbuf__ras_image_load_increment(gpointer data,
+ const guchar * buf, guint size,
+ GError **error);
+
+
/* Shared library entry point */
-GdkPixbuf *
-image_load (FILE *f)
+static GdkPixbuf *gdk_pixbuf__ras_image_load(FILE * f, GError **error)
{
- gboolean failed = FALSE;
- gint i, ctype, bpp;
- guchar *pixels;
+ guchar *membuf;
+ size_t length;
+ struct ras_progressive_state *State;
+
+ GdkPixbuf *pb;
- struct rasterfile Header;
+ State = gdk_pixbuf__ras_image_begin_load(NULL, NULL, NULL, error);
+
+ membuf = g_malloc(4096);
+
+ g_assert(membuf != NULL);
+
+ while (feof(f) == 0) {
+ length = fread(membuf, 1, 4096, f);
+ if (!gdk_pixbuf__ras_image_load_increment(State, membuf, length,
+ error)) {
+ gdk_pixbuf__ras_image_stop_load (State, NULL);
+ return NULL;
+ }
+ }
+ g_free(membuf);
+ if (State->pixbuf != NULL)
+ gdk_pixbuf_ref(State->pixbuf);
+
+ pb = State->pixbuf;
+
+ gdk_pixbuf__ras_image_stop_load(State, NULL);
+ return pb;
+}
+
+static void RAS2State(struct rasterfile *RAS,
+ struct ras_progressive_state *State)
+{
+ State->Header.width = GUINT32_FROM_BE(RAS->width);
+ State->Header.height = GUINT32_FROM_BE(RAS->height);
+ State->Header.depth = GUINT32_FROM_BE(RAS->depth);
+ State->Header.type = GUINT32_FROM_BE(RAS->type);
+ State->Header.maptype = GUINT32_FROM_BE(RAS->maptype);
+ State->Header.maplength = GUINT32_FROM_BE(RAS->maplength);
+
+ g_assert(State->Header.maplength <= 768); /* Otherwise, we are in trouble */
+
+ State->RasType = State->Header.depth; /* This may be less trivial someday */
+ State->HeaderSize = 32 + State->Header.maplength;
+
+ if (State->RasType == 32)
+ State->LineWidth = State->Header.width * 4;
+ if (State->RasType == 24)
+ State->LineWidth = State->Header.width * 3;
+ if (State->RasType == 8)
+ State->LineWidth = State->Header.width * 1;
+ if (State->RasType == 1) {
+ State->LineWidth = State->Header.width / 8;
+ if ((State->Header.width & 7) != 0)
+ State->LineWidth++;
+ }
- i=fread(&Header,1,sizeof(Header),f);
- g_assert(i==32);
- Header.width = ByteOrder(Header.width);
- Header.height = ByteOrder(Header.height);
- Header.depth = ByteOrder(Header.depth);
+ /* Now padd the line to be a multiple of 16 bits */
+ if ((State->LineWidth & 1) != 0)
+ State->LineWidth++;
+
+ if (State->LineBuf == NULL)
+ State->LineBuf = g_malloc(State->LineWidth);
+
+ g_assert(State->LineBuf != NULL);
+
+
+ if (State->pixbuf == NULL) {
+ if (State->RasType == 32)
+ State->pixbuf = gdk_pixbuf_new(GDK_COLORSPACE_RGB, TRUE,
+ 8,
+ (gint)
+ State->Header.width,
+ (gint)
+ State->Header.
+ height);
+ else
+ State->pixbuf =
+ gdk_pixbuf_new(GDK_COLORSPACE_RGB, FALSE, 8,
+ (gint) State->Header.width,
+ (gint) State->Header.height);
+ if (State->prepared_func != NULL)
+ /* Notify the client that we are ready to go */
+ (*State->prepared_func) (State->pixbuf,
+ NULL,
+ State->user_data);
+
+ }
-
- if (Header.depth == 32)
- bpp = 4;
- else
- bpp = 3;
-
- pixels = (guchar*)malloc (Header.width * Header.height * bpp);
- if (!pixels) {
- return NULL;
+ if ((State->Header.maplength==0)&&(State->RasType==1)) {
+ State->HeaderBuf[32] = 255;
+ State->HeaderBuf[33] = 0;
+ State->HeaderBuf[34] = 255;
+ State->HeaderBuf[35] = 0;
+ State->HeaderBuf[36] = 255;
+ State->HeaderBuf[37] = 0;
}
- fread(pixels,Header.width*bpp,Header.height,f);
-
- if (bpp==4)
- return gdk_pixbuf_new_from_data (pixels, ART_PIX_RGB, TRUE,
- Header.width, Header.height,
- Header.width * bpp,
- free_buffer, NULL);
- else
- return gdk_pixbuf_new_from_data (pixels, ART_PIX_RGB, FALSE,
- Header.width, Header.height, Header.width * bpp,
- free_buffer, NULL);
}
-/* These avoid the setjmp()/longjmp() crap in libpng */
+/*
+ * func - called when we have pixmap created (but no image data)
+ * user_data - passed as arg 1 to func
+ * return context (opaque to user)
+ */
-typedef struct _LoadContext LoadContext;
+static gpointer
+gdk_pixbuf__ras_image_begin_load(ModulePreparedNotifyFunc prepared_func,
+ ModuleUpdatedNotifyFunc updated_func,
+ gpointer user_data,
+ GError **error)
+{
+ struct ras_progressive_state *context;
-struct _LoadContext {
+ context = g_new0(struct ras_progressive_state, 1);
+ context->prepared_func = prepared_func;
+ context->updated_func = updated_func;
+ context->user_data = user_data;
- ModulePreparedNotifyFunc notify_func;
- gpointer notify_user_data;
+ context->HeaderSize = 32;
+ context->HeaderBuf = g_malloc(32 + 768); /* 32 for rasheader,
+ 768 for the colormap */
+ context->HeaderDone = 0;
- GdkPixbuf* pixbuf;
-
- guint fatal_error_occurred : 1;
+ context->LineWidth = 0;
+ context->LineBuf = NULL;
+ context->LineDone = 0;
+ context->Lines = 0;
-};
+ context->RasType = 0;
+
+ memset(&context->Header, 0, sizeof(struct rasterfile));
+
+
+ context->pixbuf = NULL;
-gpointer
-image_begin_load (ModulePreparedNotifyFunc prepare_func,
- ModuleUpdatedNotifyFunc update_func,
- gpointer user_data)
+
+ return (gpointer) context;
+}
+
+/*
+ * context - returned from image_begin_load
+ *
+ * free context, unref gdk_pixbuf
+ */
+static gboolean
+gdk_pixbuf__ras_image_stop_load(gpointer data, GError **error)
{
- LoadContext* lc;
-
- lc = g_new0(LoadContext, 1);
-
- lc->fatal_error_occurred = FALSE;
+ struct ras_progressive_state *context =
+ (struct ras_progressive_state *) data;
+
+ /* FIXME this thing needs to report errors if
+ * we have unused image data
+ */
+
+ g_return_val_if_fail(context != NULL, TRUE);
- lc->notify_func = prepare_func;
- lc->notify_user_data = user_data;
+ if (context->LineBuf != NULL)
+ g_free(context->LineBuf);
+ if (context->HeaderBuf != NULL)
+ g_free(context->HeaderBuf);
- return lc;
+ if (context->pixbuf)
+ gdk_pixbuf_unref(context->pixbuf);
+
+ g_free(context);
+
+ return TRUE;
}
-void
-image_stop_load (gpointer context)
+/*
+ OneLine is called when enough data is received to process 1 line
+ of pixels
+ */
+
+static void OneLine32(struct ras_progressive_state *context)
{
- LoadContext* lc = context;
+ gint X;
+ guchar *Pixels;
+
+ X = 0;
+ Pixels = context->pixbuf->pixels + context->pixbuf->rowstride * context->Lines;
+ while (X < context->Header.width) {
+ /* The joys of having a BGR byteorder */
+ Pixels[X * 4 + 0] = context->LineBuf[X * 4 + 2];
+ Pixels[X * 4 + 1] = context->LineBuf[X * 4 + 1];
+ Pixels[X * 4 + 2] = context->LineBuf[X * 4 + 0];
+ Pixels[X * 4 + 3] = context->LineBuf[X * 4 + 3];
+ X++;
+ }
+}
+
+static void OneLine24(struct ras_progressive_state *context)
+{
+ gint X;
+ guchar *Pixels;
+
+ X = 0;
+ Pixels = context->pixbuf->pixels + context->pixbuf->rowstride * context->Lines;
+ while (X < context->Header.width) {
+ /* The joys of having a BGR byteorder */
+ Pixels[X * 3 + 0] = context->LineBuf[X * 3 + 2];
+ Pixels[X * 3 + 1] = context->LineBuf[X * 3 + 1];
+ Pixels[X * 3 + 2] = context->LineBuf[X * 3 + 0];
+ X++;
+ }
+
+}
+
+static void OneLine8(struct ras_progressive_state *context)
+{
+ gint X;
+ guchar *Pixels;
+
+ X = 0;
+ Pixels = context->pixbuf->pixels + context->pixbuf->rowstride * context->Lines;
+ while (X < context->Header.width) {
+ /* The joys of having a BGR byteorder */
+ Pixels[X * 3 + 0] =
+ context->HeaderBuf[context->LineBuf[X] + 32];
+ Pixels[X * 3 + 1] =
+ context->HeaderBuf[context->LineBuf[X] + 256 + 32];
+ Pixels[X * 3 + 2] =
+ context->HeaderBuf[context->LineBuf[X] + 512 + 32];
+ X++;
+ }
+}
- g_return_if_fail(lc != NULL);
+static void OneLine1(struct ras_progressive_state *context)
+{
+ gint X;
+ guchar *Pixels;
- gdk_pixbuf_unref(lc->pixbuf);
-
- g_free(lc);
+ X = 0;
+ Pixels = context->pixbuf->pixels + context->pixbuf->rowstride * context->Lines;
+ while (X < context->Header.width) {
+ int Bit;
+
+ Bit = (context->LineBuf[X/8])>>(7-(X&7));
+ Bit = Bit & 1;
+ /* The joys of having a BGR byteorder */
+ Pixels[X * 3 + 0] =
+ context->HeaderBuf[Bit + 32];
+ Pixels[X * 3 + 1] =
+ context->HeaderBuf[Bit + 2 + 32];
+ Pixels[X * 3 + 2] =
+ context->HeaderBuf[Bit + 4 + 32];
+ X++;
+ }
}
-gboolean
-image_load_increment(gpointer context, guchar *buf, guint size)
+
+static void OneLine(struct ras_progressive_state *context)
{
- LoadContext* lc = context;
+ if (context->RasType == 32)
+ OneLine32(context);
+ if (context->RasType == 24)
+ OneLine24(context);
+ if (context->RasType == 8)
+ OneLine8(context);
+ if (context->RasType == 1)
+ OneLine1(context);
- g_return_val_if_fail(lc != NULL, FALSE);
+ context->LineDone = 0;
+ if (context->Lines > context->Header.height)
+ return;
+ context->Lines++;
+ if (context->updated_func != NULL) {
+ (*context->updated_func) (context->pixbuf,
+ 0,
+ context->Lines,
+ context->Header.width,
+ context->Header.height,
+ context->user_data);
- if (lc->fatal_error_occurred)
- return FALSE;
- else
- return TRUE;
+ }
}
+/*
+ * context - from image_begin_load
+ * buf - new image data
+ * size - length of new image data
+ *
+ * append image data onto inrecrementally built output image
+ */
+static gboolean
+gdk_pixbuf__ras_image_load_increment(gpointer data,
+ const guchar * buf, guint size,
+ GError **error)
+{
+ struct ras_progressive_state *context =
+ (struct ras_progressive_state *) data;
+
+ gint BytesToCopy;
+
+ while (size > 0) {
+ if (context->HeaderDone < context->HeaderSize) { /* We still
+ have headerbytes to do */
+ BytesToCopy =
+ context->HeaderSize - context->HeaderDone;
+ if (BytesToCopy > size)
+ BytesToCopy = size;
+
+ memmove(context->HeaderBuf + context->HeaderDone,
+ buf, BytesToCopy);
+
+ size -= BytesToCopy;
+ buf += BytesToCopy;
+ context->HeaderDone += BytesToCopy;
+
+ } else {
+ /* Pixeldata only */
+ BytesToCopy =
+ context->LineWidth - context->LineDone;
+ if (BytesToCopy > size)
+ BytesToCopy = size;
+ if (BytesToCopy > 0) {
+ memmove(context->LineBuf +
+ context->LineDone, buf,
+ BytesToCopy);
+
+ size -= BytesToCopy;
+ buf += BytesToCopy;
+ context->LineDone += BytesToCopy;
+ }
+ if ((context->LineDone >= context->LineWidth) &&
+ (context->LineWidth > 0))
+ OneLine(context);
+
+
+ }
+
+ if (context->HeaderDone >= 32)
+ RAS2State((struct rasterfile *) context->HeaderBuf,
+ context);
+
+
+ }
+
+ return TRUE;
+}
+
+void
+gdk_pixbuf__ras_fill_vtable (GdkPixbufModule *module)
+{
+ module->load = gdk_pixbuf__ras_image_load;
+ module->begin_load = gdk_pixbuf__ras_image_begin_load;
+ module->stop_load = gdk_pixbuf__ras_image_stop_load;
+ module->load_increment = gdk_pixbuf__ras_image_load_increment;
+}