New backend to support impress slides. Fixes bug #30867.

2006-07-11  Bastien Nocera <hadess@hadess.net>

	* Makefile.am:
	* backend/Makefile.am:
	* backend/ev-document-factory.c: (ev_document_factory_add_filters):
	* backend/ev-document-factory.h:
	* configure.ac:
	* impress/.cvsignore:
	* impress/Makefile.am:
	* impress/common.h:
	* impress/document.c: (_imp_load_xml), (imp_open), (imp_nr_pages),
	(imp_get_page), (imp_next_page), (imp_prev_page),
	(imp_get_page_no), (imp_get_page_name), (imp_get_xml), (imp_close):
	* impress/f_oasis.c: (render_object), (render_page),
	(get_geometry), (_imp_oasis_load):
	* impress/f_oo13.c: (render_object), (render_page), (get_geometry),
	(_imp_oo13_load):
	* impress/iksemel.c: (iks_malloc), (iks_free), (iks_set_mem_funcs),
	(iks_strdup), (iks_strcat), (iks_strcmp), (iks_strcasecmp),
	(iks_strncmp), (iks_strncasecmp), (iks_strlen), (iks_escape),
	(iks_unescape), (find_space), (iks_stack_new), (iks_stack_alloc),
	(iks_stack_strdup), (iks_stack_strcat), (iks_stack_stat),
	(iks_stack_delete), (iks_sax_new), (iks_sax_extend),
	(iks_parser_stack), (iks_user_data), (iks_nr_bytes),
	(iks_nr_lines), (stack_init), (stack_expand), (sax_core),
	(iks_parse), (iks_parser_reset), (iks_parser_delete), (iks_new),
	(iks_new_within), (iks_insert), (iks_insert_cdata),
	(iks_insert_attrib), (iks_insert_node), (iks_hide), (iks_delete),
	(iks_next), (iks_next_tag), (iks_prev), (iks_prev_tag),
	(iks_parent), (iks_root), (iks_child), (iks_first_tag),
	(iks_attrib), (iks_find), (iks_find_cdata), (iks_find_attrib),
	(iks_find_with_attrib), (iks_stack), (iks_type), (iks_name),
	(iks_cdata), (iks_cdata_size), (iks_has_children),
	(iks_has_attribs), (escape_size), (my_strcat), (escape),
	(iks_string), (iks_copy_within), (iks_copy), (tagHook),
	(cdataHook), (deleteHook), (iks_dom_new), (iks_set_size_hint),
	(iks_tree), (iks_load), (iks_save):
	* impress/iksemel.h:
	* impress/imposter.h:
	* impress/impress-document.c: (G_DEFINE_TYPE_WITH_CODE),
	(imp_render_draw_bezier_real), (imp_render_get_size),
	(imp_render_set_fg_color), (imp_render_draw_line),
	(imp_render_draw_rect), (imp_render_draw_polygon),
	(imp_render_draw_arc), (imp_render_draw_bezier),
	(imp_render_open_image), (imp_render_get_image_size),
	(imp_render_scale_image), (imp_render_draw_image),
	(imp_render_close_image), (imp_render_markup),
	(imp_render_get_text_size), (imp_render_draw_text),
	(impress_document_load), (impress_document_save),
	(impress_document_get_n_pages), (impress_document_get_page_size),
	(imp_render_get_from_drawable), (impress_document_render_pixbuf),
	(impress_document_finalize), (impress_document_class_init),
	(impress_document_can_get_text), (impress_document_get_info),
	(impress_document_document_iface_init),
	(impress_document_thumbnails_get_thumbnail),
	(impress_document_thumbnails_get_dimensions),
	(impress_document_document_thumbnails_iface_init),
	(impress_document_init):
	* impress/impress-document.h:
	* impress/internal.h:
	* impress/r_back.c: (_imp_fill_back):
	* impress/r_draw.c: (_imp_draw_rect), (_imp_draw_line_end),
	(_imp_draw_image), (_imp_tile_image):
	* impress/r_geometry.c: (r_parse_color), (r_get_color), (fg_color),
	(r_get_x), (r_get_y), (r_get_angle), (r_get_viewbox), (r_polygon),
	(r_polyline):
	* impress/r_gradient.c: (poly_rotate), (r_draw_gradient_simple),
	(r_draw_gradient_complex), (r_draw_gradient):
	* impress/r_style.c: (get_style), (r_get_style), (get_style_x),
	(r_get_bullet):
	* impress/r_text.c: (add_line), (add_span), (calc_sizes),
	(calc_pos), (_imp_draw_layout), (text_span), (text_p), (text_list),
	(r_text):
	* impress/render.c: (imp_create_context), (imp_context_set_page),
	(imp_context_set_step), (imp_render), (imp_delete_context):
	* impress/render.h:
	* impress/zip.c: (zip_error), (find_cd), (get_long), (get_word),
	(list_files), (zip_open), (zip_close), (find_file), (seek_file),
	(zip_load_xml), (zip_get_size), (zip_load):
	* impress/zip.h:
	* shell/ev-utils.c:

	New backend to support impress slides. Fixes bug #30867.

1 files changed, 346 insertions, 0 deletions

diff --git a/impress/zip.c b/impress/zip.c
new file mode 100644
index 0000000..4b179b5
--- /dev/null
+++ b/impress/zip.c
@@ -0,0 +1,346 @@
+/* imposter (OO.org Impress viewer)
+** Copyright (C) 2003-2005 Gurer Ozen
+** This code is free software; you can redistribute it and/or
+** modify it under the terms of GNU General Public License.
+*/
+
+#include "common.h"
+#include "zip.h"
+#include <zlib.h>
+#define _(x) x
+
+enum {
+	ZIP_OK = 0,
+	ZIP_NOMEM,
+	ZIP_NOSIG,
+	ZIP_BADZIP,
+	ZIP_NOMULTI,
+	ZIP_EOPEN,
+	ZIP_EREAD,
+	ZIP_NOFILE
+};
+
+struct zipfile {
+	struct zipfile *next;
+	char *name;
+	ulong crc;
+	ulong zip_size;
+	ulong real_size;
+	ulong pos;
+};
+
+struct zip_struct {
+	FILE *f;
+	struct zipfile *files;
+	ulong cd_pos;
+	ulong cd_size;
+	ulong cd_offset;
+	ulong head_size;
+	ulong rem_size;
+	ulong nr_files;
+};
+
+char *
+zip_error (int err)
+{
+	char *ret;
+
+	switch (err) {
+		case ZIP_OK:
+			ret = _("No error");
+			break;
+		case ZIP_NOMEM:
+			ret = _("Not enough memory");
+			break;
+		case ZIP_NOSIG:
+			ret = _("Cannot find zip signature");
+			break;
+		case ZIP_BADZIP:
+			ret = _("Invalid zip file");
+			break;
+		case ZIP_NOMULTI:
+			ret = _("Multi file zips are not supported");
+			break;
+		case ZIP_EOPEN:
+			ret = _("Cannot open the file");
+			break;
+		case ZIP_EREAD:
+			ret = _("Cannot read data from file");
+			break;
+		case ZIP_NOFILE:
+			ret = _("Cannot find file in the zip archive");
+			break;
+		default:
+			ret = _("Unknown error");
+			break;
+	}
+	return ret;
+}
+
+static int
+find_cd (zip *z)
+{
+	FILE *f;
+	char *buf;
+	ulong size, pos, i, flag;
+
+	f = z->f;
+	if (fseek (f, 0, SEEK_END) != 0) return 1;
+	size = ftell (f);
+	if (size < 0xffff) pos = 0; else pos = size - 0xffff;
+	buf = malloc (size - pos + 1);
+	if (!buf) return 1;
+	if (fseek (f, pos, SEEK_SET) != 0) {
+		free (buf);
+		return 1;
+	}
+	if (fread (buf, size - pos, 1, f) != 1) {
+		free (buf);
+		return 1;
+	}
+	flag = 0;
+	for (i = size - pos - 3; i > 0; i--) {
+		if (buf[i] == 0x50 && buf[i+1] == 0x4b && buf[i+2] == 0x05 && buf[i+3] == 0x06) {
+			z->cd_pos = i + pos;
+			flag = 1;
+			break;
+		}
+	}
+	free (buf);
+	if (flag != 1) return 1;
+	return 0;
+}
+
+static unsigned long
+get_long (unsigned char *buf)
+{
+	return buf[0] + (buf[1] << 8) + (buf[2] << 16) + (buf[3] << 24);
+}
+
+static unsigned long
+get_word (unsigned char *buf)
+{
+	return buf[0] + (buf[1] << 8);
+}
+
+static int
+list_files (zip *z)
+{
+	unsigned char buf[46];
+	struct zipfile *zfile;
+	ulong pat, fn_size;
+	int nr = 0;
+
+	pat = z->cd_offset;
+	while (nr < z->nr_files) {
+		fseek (z->f, pat + z->head_size, SEEK_SET);
+
+		if (fread (buf, 46, 1, z->f) != 1) return ZIP_EREAD;
+		if (get_long (buf) != 0x02014b50) return ZIP_BADZIP;
+
+		zfile = malloc (sizeof (struct zipfile));
+		if (!zfile) return ZIP_NOMEM;
+		memset (zfile, 0, sizeof (struct zipfile));
+
+		zfile->crc = get_long (buf + 16);
+		zfile->zip_size = get_long (buf + 20);
+		zfile->real_size = get_long (buf + 24);
+		fn_size = get_word (buf + 28);
+		zfile->pos = get_long (buf + 42);
+
+		zfile->name = malloc (fn_size + 1);
+		if (!zfile->name) {
+			free (zfile);
+			return ZIP_NOMEM;
+		}
+		fread (zfile->name, fn_size, 1, z->f);
+		zfile->name[fn_size] = '\0';
+
+		zfile->next = z->files;
+		z->files = zfile;
+
+		pat += 0x2e + fn_size + get_word (buf + 30) + get_word (buf + 32);
+		nr++;
+	}
+	return ZIP_OK;
+}
+
+zip *
+zip_open (const char *fname, int *err)
+{
+	unsigned char buf[22];
+	zip *z;
+	FILE *f;
+
+	f = fopen (fname, "rb");
+	if (NULL == f) {
+		*err = ZIP_EOPEN;
+		return NULL;
+	}
+
+	z = malloc (sizeof (zip));
+	memset (z, 0, sizeof (zip));
+	z->f = f;
+
+	if (find_cd (z)) {
+		zip_close (z);
+		*err = ZIP_NOSIG;
+		return NULL;
+	}
+
+	fseek (f, z->cd_pos, SEEK_SET);
+	if (fread (buf, 22, 1, f) != 1) {
+		zip_close (z);
+		*err = ZIP_EREAD;
+		return NULL;
+	}
+	z->nr_files = get_word (buf + 10);
+	if (get_word (buf + 8) != z->nr_files) {
+		zip_close (z);
+		*err =  ZIP_NOMULTI;
+		return NULL;
+	}
+	z->cd_size = get_long (buf + 12);
+	z->cd_offset = get_long (buf + 16);
+	z->rem_size = get_word (buf + 20);
+	z->head_size = z->cd_pos - (z->cd_offset + z->cd_size);
+
+	*err = list_files (z);
+	if (*err != ZIP_OK) {
+		zip_close (z);
+		return NULL;
+	}
+
+	*err = ZIP_OK;
+	return z;
+}
+
+void
+zip_close (zip *z)
+{
+	struct zipfile *zfile, *tmp;
+
+	zfile = z->files;
+	while (zfile) {
+		tmp = zfile->next;
+		if (zfile->name) free (zfile->name);
+		free (zfile);
+		zfile = tmp;
+	}
+	z->files = NULL;
+	if (z->f) fclose (z->f);
+	z->f = NULL;
+}
+
+static struct zipfile *
+find_file (zip *z, const char *name)
+{
+	struct zipfile *zfile;
+
+	zfile = z->files;
+	while (zfile) {
+		if (strcmp (zfile->name, name) == 0) return zfile;
+		zfile = zfile->next;
+	}
+	return NULL;
+}
+
+static int
+seek_file (zip *z, struct zipfile *zfile)
+{
+	unsigned char buf[30];
+
+	fseek (z->f, zfile->pos + z->head_size, SEEK_SET);
+	if (fread (buf, 30, 1, z->f) != 1) return ZIP_EREAD;
+	if (get_long (buf) != 0x04034b50) return ZIP_BADZIP;
+	fseek (z->f, get_word (buf + 26) + get_word (buf + 28), SEEK_CUR);
+	return ZIP_OK;
+}
+
+iks *
+zip_load_xml (zip *z, const char *name, int *err)
+{
+	iksparser *prs;
+	char *real_buf;
+	iks *x;
+	struct zipfile *zfile;
+
+	*err = ZIP_OK;
+
+	zfile = find_file (z, name);
+	if (!zfile) {
+		*err = ZIP_NOFILE;
+		return NULL;
+	}
+
+	seek_file (z, zfile);
+
+	real_buf = malloc (zfile->real_size + 1);
+	if (zfile->zip_size < zfile->real_size) {
+		char *zip_buf;
+		z_stream zs;
+		zs.zalloc = NULL;
+		zs.zfree = NULL;
+		zs.opaque = NULL;
+		zip_buf = malloc (zfile->zip_size);
+		fread (zip_buf, zfile->zip_size, 1, z->f);
+		zs.next_in = zip_buf;
+		zs.avail_in = zfile->zip_size;
+		zs.next_out = real_buf;
+		zs.avail_out = zfile->real_size;
+		inflateInit2 (&zs, -MAX_WBITS);
+		inflate (&zs, Z_FINISH);
+		inflateEnd (&zs);
+		free (zip_buf);
+	} else {
+		fread (real_buf, zfile->real_size, 1, z->f);
+	}
+
+	real_buf[zfile->real_size] = '\0';
+	prs = iks_dom_new (&x);
+	iks_parse (prs, real_buf, zfile->real_size, 1);
+	iks_parser_delete (prs);
+	free (real_buf);
+	return x;
+}
+
+unsigned long zip_get_size (zip *z, const char *name)
+{
+	struct zipfile *zf;
+
+	zf = find_file (z, name);
+	if (!zf) return 0;
+	return zf->real_size;
+}
+
+int zip_load (zip *z, const char *name, char *buf)
+{
+	struct zipfile *zfile;
+
+	zfile = find_file (z, name);
+	if (!zfile) return ZIP_NOFILE;
+
+	seek_file (z, zfile);
+
+	if (zfile->zip_size < zfile->real_size) {
+		char *zip_buf;
+		z_stream zs;
+		zs.zalloc = NULL;
+		zs.zfree = NULL;
+		zs.opaque = NULL;
+		zip_buf = malloc (zfile->zip_size);
+		fread (zip_buf, zfile->zip_size, 1, z->f);
+		zs.next_in = zip_buf;
+		zs.avail_in = zfile->zip_size;
+		zs.next_out = buf;
+		zs.avail_out = zfile->real_size;
+		inflateInit2 (&zs, -MAX_WBITS);
+		inflate (&zs, Z_FINISH);
+		inflateEnd (&zs);
+		free (zip_buf);
+	} else {
+		fread (buf, zfile->real_size, 1, z->f);
+	}
+
+	return ZIP_OK;
+}