Initial revision

2002-03-20 15:31:36 +00:00
commit 89c4cdb2d7
148 changed files with 40909 additions and 0 deletions
--- a/cole/internal.c
+++ b/cole/internal.c
@@ -0,0 +1,139 @@
+/*
+   cole - A free C OLE library.
+   Copyright 1998, 1999  Roberto Arturo Tena Sanchez
+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2 of the License, or
+   (at your option) any later version.
+
+   This program 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 General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+/*
+   Arturo Tena <arturo@directmail.org>
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#if !(defined( __WIN32__ ) || defined( __BORLANDC__ ))
+#include <unistd.h>
+#endif
+
+#include "internal.h"
+
+
+#define MIN(a,b) ((a)<(b) ? (a) : (b))
+
+
+int
+__cole_extract_file (FILE **file, char **filename, U32 size, U32 pps_start,
+		    U8 *BDepot, U8 *SDepot, FILE *sbfile, FILE *inputfile)
+{
+	/* FIXME rewrite this cleaner */
+
+	U16 BlockSize, Offset;
+	U8 *Depot;
+	FILE *infile;
+	long FilePos;
+	size_t bytes_to_copy;
+	U8 Block[0x0200];
+#if defined( __WIN32__ ) || defined( __BORLANDC__ )
+	FILE *ret;
+
+	*filename = (char *)malloc (TMPNAM_LEN);
+	if (*filename == NULL)
+		return 1;
+
+	if (tmpnam (*filename) == NULL) {
+		free (*filename);
+		return 2;
+	}
+	ret = fopen (*filename, "w+b");
+	*file = ret;
+	if (ret == NULL) {
+		free (*filename);
+		return 3;
+	}
+#else
+	int ret;
+
+	*filename = malloc (TMPNAM_LEN);
+	if (*filename == NULL)
+		return 1;
+
+	strcpy(*filename, "/tmp/xlHtmlXXXXXX");
+	ret = mkstemp(*filename);
+	if (ret == -1)	{
+		free(*filename);
+		return 2;
+	}
+
+	*file = fdopen(ret, "w+b");
+	if (*file == NULL)	{
+		free(*filename);
+		close(ret);
+		return 3;
+	}
+	/* unlink() is called so this file deletes when we are done with it */
+	unlink(*filename);
+#endif
+	if (size >= 0x1000) {
+		/* read from big block depot */
+		Offset = 1;
+		BlockSize = 0x0200;
+		infile = inputfile;
+		Depot = BDepot;
+	} else {
+		/* read from small block file */
+		Offset = 0;
+		BlockSize = 0x40;
+		infile = sbfile;
+		Depot = SDepot;
+	}
+	while (pps_start != 0xfffffffeUL /*&& pps_start != 0xffffffffUL &&
+		pps_start != 0xfffffffdUL*/) {
+		FilePos = (long)((pps_start + Offset) * BlockSize);
+		if (FilePos < 0) {
+			fclose (*file);
+			remove (*filename);
+			free (*filename);
+			return 4;
+		}
+		bytes_to_copy = MIN ((U32)BlockSize, size);
+		if (fseek (infile, FilePos, SEEK_SET)) {
+			fclose (*file);
+			remove (*filename);
+			free (*filename);
+			return 4;
+		}
+		fread (Block, bytes_to_copy, 1, infile);
+		if (ferror (infile)) {
+			fclose (*file);
+			remove (*filename);
+			free (*filename);
+			return 5;
+		}
+		fwrite (Block, bytes_to_copy, 1, *file);
+		if (ferror (*file)) {
+			fclose (*file);
+			remove (*filename);
+			free (*filename);
+			return 6;
+		}
+		pps_start = fil_sreadU32 (Depot + (pps_start * 4));
+		size -= MIN ((U32)BlockSize, size);
+		if (size == 0)
+			break;
+	}
+
+	return 0;
+}
+