idf forgotten
This commit is contained in:
p.kosyh
parent
e747feeed9
commit
5d32ac9a87
359
src/sdl-instead/idf.c
Normal file
359
src/sdl-instead/idf.c
Normal file
|
|
@ -0,0 +1,359 @@
|
|||
#include "externals.h"
|
||||
#include "internals.h"
|
||||
#include "idf.h"
|
||||
#include "list.h"
|
||||
#include <SDL/SDL_rwops.h>
|
||||
|
||||
typedef struct _idfd_t {
|
||||
unsigned long offset;
|
||||
unsigned long size;
|
||||
unsigned long pos;
|
||||
idf_t idf;
|
||||
} idfd_t;
|
||||
|
||||
struct _idf_t {
|
||||
unsigned long size;
|
||||
FILE *fd;
|
||||
cache_t dir;
|
||||
};
|
||||
|
||||
void idf_done(idf_t idf)
|
||||
{
|
||||
if (!idf)
|
||||
return;
|
||||
if (idf->dir)
|
||||
cache_free(idf->dir);
|
||||
if (idf->fd)
|
||||
fclose(idf->fd);
|
||||
free(idf);
|
||||
}
|
||||
|
||||
static int read_word(FILE *fd, unsigned long *w)
|
||||
{
|
||||
unsigned char word[4];
|
||||
if (fread(word, 1, 4, fd) != 4)
|
||||
return -1;
|
||||
*w = (unsigned long)word[0] | ((unsigned long)word[1] << 8) |
|
||||
((unsigned long)word[2] << 16) |
|
||||
((unsigned long)word[3] << 24);
|
||||
return 0;
|
||||
}
|
||||
|
||||
static int write_word(FILE *fd, unsigned long w)
|
||||
{
|
||||
char word[4];
|
||||
|
||||
word[0] = w & 0xff;
|
||||
word[1] = (w & 0xff00) >> 8;
|
||||
word[2] = (w & 0xff0000) >> 16;
|
||||
word[3] = (w & 0xff000000) >> 24;
|
||||
|
||||
if (fwrite(word, 1, 4, fd) != 4)
|
||||
return -1;
|
||||
return 0;
|
||||
}
|
||||
|
||||
idf_t idf_init(const char *fname)
|
||||
{
|
||||
char sign[4];
|
||||
unsigned long dir_size;
|
||||
char *fp = dirpath(fname);
|
||||
idf_t idf = malloc(sizeof(struct _idf_t));
|
||||
if (!idf)
|
||||
return NULL;
|
||||
idf->fd = fopen(fp, "rb");
|
||||
idf->dir = cache_init(-1, free);
|
||||
if (!idf->fd || !idf->dir)
|
||||
goto err;
|
||||
if (fseek(idf->fd, 0, SEEK_END))
|
||||
goto err;
|
||||
idf->size = ftell(idf->fd);
|
||||
if (idf->size < 0)
|
||||
goto err;
|
||||
if (fseek(idf->fd, 0, SEEK_SET))
|
||||
goto err;
|
||||
if (fread(sign, 1, 4, idf->fd) != 4)
|
||||
goto err;
|
||||
if (memcmp(sign, "IDF\n", 4))
|
||||
goto err;
|
||||
if (read_word(idf->fd, &dir_size))
|
||||
goto err;
|
||||
if (dir_size > idf->size)
|
||||
goto err;
|
||||
while (dir_size > 0) {
|
||||
unsigned long off;
|
||||
unsigned long size;
|
||||
unsigned char sz;
|
||||
char name[256];
|
||||
idfd_t *e;
|
||||
if (fread(&sz, 1, 1, idf->fd) != 1)
|
||||
goto err;
|
||||
if (fread(name, 1, sz, idf->fd) != sz)
|
||||
goto err;
|
||||
name[sz] = 0;
|
||||
if (read_word(idf->fd, &off))
|
||||
goto err;
|
||||
if (read_word(idf->fd, &size))
|
||||
goto err;
|
||||
e = malloc(sizeof(idfd_t));
|
||||
if (!e)
|
||||
goto err;
|
||||
e->offset = off;
|
||||
e->size = size;
|
||||
e->pos = 0;
|
||||
e->idf = idf;
|
||||
if (cache_add(idf->dir, name, e)) {
|
||||
free(e);
|
||||
goto err;
|
||||
}
|
||||
cache_forget(idf->dir, e); /* use like hash */
|
||||
fprintf(stderr,"Parsed: '%s' @ %ld, %ld\n", name, off, size);
|
||||
dir_size -= (1 + sz + 4 + 4);
|
||||
}
|
||||
return idf;
|
||||
err:
|
||||
idf_done(idf);
|
||||
return NULL;
|
||||
}
|
||||
|
||||
typedef struct {
|
||||
struct list_head list;
|
||||
char *path;
|
||||
long size;
|
||||
} idf_item_t;
|
||||
|
||||
static int fcopy(FILE *to, const char *fname)
|
||||
{
|
||||
int rc = -1;
|
||||
char buff[4096];
|
||||
FILE *fd;
|
||||
fd = fopen(fname, "rb");
|
||||
if (!fd)
|
||||
return -1;
|
||||
while (!feof(fd)) {
|
||||
int s = fread(buff, 1, sizeof(buff), fd);
|
||||
if (!s) {
|
||||
if (feof(fd))
|
||||
break;
|
||||
goto err;
|
||||
}
|
||||
if (fwrite(buff, 1, s, to) != s)
|
||||
goto err;
|
||||
}
|
||||
rc = 0;
|
||||
err:
|
||||
fclose(fd);
|
||||
return rc;
|
||||
}
|
||||
|
||||
static int idf_tree(const char *path, struct list_head *list)
|
||||
{
|
||||
DIR *d;
|
||||
struct dirent *de;
|
||||
if (!path)
|
||||
return 0;
|
||||
d = opendir(dirpath(path));
|
||||
if (!d) {
|
||||
if (!access(dirpath(path), R_OK)) {
|
||||
FILE *fd; idf_item_t *i;
|
||||
fd = fopen(dirpath(path), "rb");
|
||||
i = malloc(sizeof(idf_item_t));
|
||||
if (!i)
|
||||
return -1;
|
||||
INIT_LIST_HEAD(&i->list);
|
||||
if (!(i->path = strdup(path)))
|
||||
goto err;
|
||||
if (fseek(fd, 0, SEEK_END) < 0)
|
||||
goto err;
|
||||
if ((i->size = ftell(fd)) < 0)
|
||||
goto err;
|
||||
fclose(fd);
|
||||
fprintf(stderr, "Added file: '%s' size: %ld\n", path, i->size);
|
||||
list_add(&i->list, list);
|
||||
return 0;
|
||||
err:
|
||||
if (i->path)
|
||||
free(i->path);
|
||||
free(i);
|
||||
return -1;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
while ((de = readdir(d))) {
|
||||
char *p;
|
||||
if (!strcmp(de->d_name, ".") || !strcmp(de->d_name, ".."))
|
||||
continue;
|
||||
p = getfilepath(path, de->d_name);
|
||||
if (p) {
|
||||
idf_tree(p, list);
|
||||
free(p);
|
||||
}
|
||||
}
|
||||
closedir(d);
|
||||
return 0;
|
||||
}
|
||||
|
||||
int idf_create(const char *file, const char *path)
|
||||
{
|
||||
int rc = -1;
|
||||
FILE *fd;
|
||||
unsigned long off = 0;
|
||||
long dict_size = 0;
|
||||
struct list_head *pos;
|
||||
|
||||
LIST_HEAD(items);
|
||||
idf_tree(path, &items);
|
||||
|
||||
list_for_each(pos, &items) {
|
||||
idf_item_t *it = (idf_item_t *)pos;
|
||||
dict_size += (1 + strlen(it->path) + 4 + 4);
|
||||
}
|
||||
|
||||
fd = fopen(dirpath(file), "wb");
|
||||
fwrite("IDF\n", 1, 4, fd);
|
||||
write_word(fd, dict_size);
|
||||
off = 4 + 4 + dict_size;
|
||||
|
||||
list_for_each(pos, &items) {
|
||||
unsigned char s;
|
||||
idf_item_t *it = (idf_item_t *)pos;
|
||||
s = strlen(it->path);
|
||||
if (fwrite(&s, 1, 1, fd) != 1)
|
||||
goto err;
|
||||
if (fwrite(it->path, 1, s, fd) != s)
|
||||
goto err;
|
||||
if (write_word(fd, off) < 0)
|
||||
goto err;
|
||||
if (write_word(fd, it->size) < 0)
|
||||
goto err;
|
||||
off += it->size;
|
||||
}
|
||||
|
||||
list_for_each(pos, &items) {
|
||||
idf_item_t *it = (idf_item_t *)pos;
|
||||
if (fcopy(fd, it->path))
|
||||
goto err;
|
||||
}
|
||||
rc = 0;
|
||||
err:
|
||||
while (!list_empty(&items)) {
|
||||
idf_item_t *it = (idf_item_t *)items.next;
|
||||
free(it->path);
|
||||
list_del(&it->list);
|
||||
free(it);
|
||||
}
|
||||
fclose(fd);
|
||||
return rc;
|
||||
}
|
||||
|
||||
|
||||
static int idfrw_seek(struct SDL_RWops *context, int offset, int whence)
|
||||
{
|
||||
idfd_t *dir = (idfd_t *)context->hidden.unknown.data1;
|
||||
switch (whence) {
|
||||
case SEEK_SET:
|
||||
if (offset < 0 || offset > dir->size) {
|
||||
return -1;
|
||||
}
|
||||
dir->pos = offset;
|
||||
break;
|
||||
case SEEK_END:
|
||||
if (dir->size + offset > dir->size || dir->size + offset < 0) {
|
||||
return -1;
|
||||
}
|
||||
dir->pos = dir->size + offset;
|
||||
break;
|
||||
case SEEK_CUR:
|
||||
if (dir->pos + offset > dir->size || dir->pos + offset < 0) {
|
||||
return -1;
|
||||
}
|
||||
dir->pos = dir->pos + offset;
|
||||
break;
|
||||
}
|
||||
if (!fseek(dir->idf->fd, dir->pos + dir->offset, SEEK_SET))
|
||||
return dir->pos;
|
||||
return -1;
|
||||
}
|
||||
|
||||
static int idfrw_read(struct SDL_RWops *context, void *ptr, int size, int maxnum)
|
||||
{
|
||||
int rc = 0;
|
||||
long pos;
|
||||
idfd_t *dir = (idfd_t *)context->hidden.unknown.data1;
|
||||
|
||||
if (fseek(dir->idf->fd, dir->offset + dir->pos, SEEK_SET) < 0) {
|
||||
return 0;
|
||||
}
|
||||
#if 0
|
||||
while (maxnum) {
|
||||
if (dir->pos + size > dir->size) {
|
||||
break;
|
||||
}
|
||||
if (fread(ptr, 1, size, dir->idf->fd) != size) {
|
||||
fprintf(stderr, "read 2 err\n");
|
||||
break;
|
||||
}
|
||||
dir->pos += size;
|
||||
ptr += size;
|
||||
maxnum --;
|
||||
rc ++;
|
||||
}
|
||||
#endif
|
||||
rc = fread(ptr, size, maxnum, dir->idf->fd);
|
||||
pos = ftell(dir->idf->fd);
|
||||
dir->pos = pos - dir->offset;
|
||||
return rc;
|
||||
}
|
||||
|
||||
static int idfrw_close(struct SDL_RWops *context)
|
||||
{
|
||||
idfd_t *dir = (idfd_t *)context->hidden.unknown.data1;
|
||||
dir->pos = 0;
|
||||
return 0; /* nothing todo */
|
||||
}
|
||||
#if 0
|
||||
int idf_extract(idf_t idf, const char *fname)
|
||||
{
|
||||
FILE *out;
|
||||
int size;
|
||||
idfd_t *dir = NULL;
|
||||
char buff[4096];
|
||||
if (idf)
|
||||
dir = cache_lookup(idf->dir, fname);
|
||||
if (!dir)
|
||||
return -1;
|
||||
fseek(idf->fd, dir->offset, SEEK_SET);
|
||||
out = fopen("out.bin", "wb");
|
||||
size = dir->size;
|
||||
while (size>0) {
|
||||
int s ;
|
||||
if (size < sizeof(buff))
|
||||
s = fread(buff, 1, size, idf->fd);
|
||||
else
|
||||
s = fread(buff, 1, sizeof(buff), idf->fd);
|
||||
fwrite(buff, 1, s, out);
|
||||
size -= s;
|
||||
fprintf(stderr, "size = %d\n", size);
|
||||
}
|
||||
fclose(out);
|
||||
return 0;
|
||||
}
|
||||
#endif
|
||||
SDL_RWops *RWFromIdf(idf_t idf, const char *fname)
|
||||
{
|
||||
idfd_t *dir = NULL;
|
||||
SDL_RWops *n;
|
||||
|
||||
if (idf)
|
||||
dir = cache_lookup(idf->dir, fname);
|
||||
if (!dir)
|
||||
return SDL_RWFromFile(dirpath(fname), "rb");
|
||||
n = SDL_AllocRW();
|
||||
if (!n)
|
||||
return NULL;
|
||||
n->seek = idfrw_seek;
|
||||
n->read = idfrw_read;
|
||||
n->close = idfrw_close;
|
||||
n->hidden.unknown.data1 = dir;
|
||||
return n;
|
||||
}
|
||||
13
src/sdl-instead/idf.h
Normal file
13
src/sdl-instead/idf.h
Normal file
|
|
@ -0,0 +1,13 @@
|
|||
#ifndef __IDF_H_INCLUDED
|
||||
#define __IDF_H_INCLUDED
|
||||
|
||||
struct _idf_t;
|
||||
typedef struct _idf_t *idf_t;
|
||||
|
||||
extern idf_t idf_init(const char *path);
|
||||
extern void idf_done(idf_t idf);
|
||||
|
||||
extern SDL_RWops *RWFromIdf(idf_t idf, const char *fname);
|
||||
extern int idf_create(const char *file, const char *path);
|
||||
|
||||
#endif
|
||||
Loading…
Reference in a new issue