/*
   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 = 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;
}