xlhtml/cole/internal.c
2002-03-20 15:31:36 +00:00

140 lines
3.1 KiB
C

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