/* * Quake PAK support routines for PhysicsFS. * * This driver handles id Software Quake PAK files. * * Please see the file LICENSE in the source's root directory. * *  This file written by Ed Sinjiashvili. */#if HAVE_CONFIG_H#  include <config.h>#endif#if (defined PHYSFS_SUPPORTS_QPAK)#include <stdio.h>#include <stdlib.h>#include <string.h>#include "physfs.h"#define __PHYSICSFS_INTERNAL__#include "physfs_internal.h"#define QPAK_MAXDIRLEN 60typedef struct{    char          name[56];    PHYSFS_uint32 offset;    PHYSFS_uint32 size;} QPAKentry;typedef struct tagQPAKdirentry{    char                   *name;    QPAKentry              *entry;    struct tagQPAKdirentry *next;} QPAKdirentry;typedef struct QPAKDirectory{    char name[QPAK_MAXDIRLEN];    struct QPAKDirectory *dirs, *next;    QPAKdirentry *files;} QPAKdirectory;typedef struct{    void               *handle;    char               *filename;    PHYSFS_uint32       dirOffset;    PHYSFS_uint32       totalEntries;    QPAKentry          *entries;    QPAKdirectory      *root;} QPAKinfo;typedef struct{    void         *handle;    QPAKentry    *entry;    PHYSFS_sint64 curPos;} QPAKfileinfo;static int           QPAK_isArchive(const char *filename, int forWriting);static DirHandle    *QPAK_openArchive(const char *name, int forWriting);static void          QPAK_dirClose(DirHandle *h);static LinkedStringList *QPAK_enumerateFiles(DirHandle *h, const char *dirname,                                             int omitSymLinks);static int           QPAK_exists(DirHandle *h, const char *name);static int           QPAK_isDirectory(DirHandle *h, const char *name, int *e);static int           QPAK_isSymLink(DirHandle *h, const char *name, int *e);static PHYSFS_sint64 QPAK_getLastModTime(DirHandle *h, const char *n, int *e);static FileHandle   *QPAK_openRead(DirHandle *h, const char *name, int *e);static FileHandle   *QPAK_openWrite(DirHandle *h, const char *name);static FileHandle   *QPAK_openAppend(DirHandle *h, const char *name);static PHYSFS_sint64 QPAK_read(FileHandle *handle, void *buffer,                               PHYSFS_uint32 objSize, PHYSFS_uint32 objCount);static PHYSFS_sint64 QPAK_write(FileHandle *handle, const void *buffer,                                PHYSFS_uint32 objSize, PHYSFS_uint32 objCount);static int           QPAK_eof(FileHandle *handle);static PHYSFS_sint64 QPAK_tell(FileHandle *handle);static int           QPAK_seek(FileHandle *handle, PHYSFS_uint64 offset);static PHYSFS_sint64 QPAK_fileLength(FileHandle *handle);static int           QPAK_fileClose(FileHandle *handle);static int           QPAK_remove(DirHandle *h, const char *name);static int           QPAK_mkdir(DirHandle *h, const char *name);const PHYSFS_ArchiveInfo __PHYSFS_ArchiveInfo_QPAK ={    "PAK",    "Quake PAK file format",    "Ed Sinjiashvili <slimb@swes.saren.ru>",    "http://icculus.org/physfs/",};static const FileFunctions __PHYSFS_FileFunctions_QPAK ={    QPAK_read,               /* read() method       */    QPAK_write,              /* write() method      */    QPAK_eof,                /* eof() method        */    QPAK_tell,               /* tell() method       */    QPAK_seek,               /* seek() method       */    QPAK_fileLength,         /* fileLength() method */    QPAK_fileClose           /* fileClose() method  */};const DirFunctions __PHYSFS_DirFunctions_QPAK ={    &__PHYSFS_ArchiveInfo_QPAK,    QPAK_isArchive,          /* isArchive() method      */    QPAK_openArchive,        /* openArchive() method    */    QPAK_enumerateFiles,     /* enumerateFiles() method */    QPAK_exists,             /* exists() method         */    QPAK_isDirectory,        /* isDirectory() method    */    QPAK_isSymLink,          /* isSymLink() method      */    QPAK_getLastModTime,     /* getLastModTime() method */    QPAK_openRead,           /* openRead() method       */    QPAK_openWrite,          /* openWrite() method      */    QPAK_openAppend,         /* openAppend() method     */    QPAK_remove,             /* remove() method         */    QPAK_mkdir,              /* mkdir() method          */    QPAK_dirClose            /* dirClose() method       */};#define QPAK_MAGIC 0x4B434150  /* look like "PACK" in ascii. *//* * Read an unsigned 32-bit int and swap to native byte order. */static int readui32(void *in, PHYSFS_uint32 *val){    PHYSFS_uint32 v;    BAIL_IF_MACRO(__PHYSFS_platformRead(in, &v, sizeof (v), 1) != 1, NULL, 0);    *val = PHYSFS_swapULE32(v);    return(1);} /* readui32 */static int openQPak(const char *filename, int forWriting, void **fileHandle){    PHYSFS_uint32 sig;    *fileHandle = NULL;    BAIL_IF_MACRO(forWriting, ERR_ARC_IS_READ_ONLY, 0);    *fileHandle = __PHYSFS_platformOpenRead(filename);    BAIL_IF_MACRO(*fileHandle == NULL, NULL, 0);        if (!readui32(*fileHandle, &sig))        goto openPak_failed;        if (sig != QPAK_MAGIC)    {        __PHYSFS_setError(ERR_UNSUPPORTED_ARCHIVE);        goto openPak_failed;    } /* if */    return(1);openPak_failed:    if (*fileHandle != NULL)        __PHYSFS_platformClose(*fileHandle);    *fileHandle = NULL;    return(0);} /* openQPak */static int QPAK_isArchive(const char *filename, int forWriting){    void *fileHandle;    int retval = openQPak(filename, forWriting, &fileHandle);    if (fileHandle != NULL)        __PHYSFS_platformClose(fileHandle);    return(retval);} /* QPAK_isArchive */static int qpak_loadEntries(void *fh, int dirOffset, int numEntries,                            QPAKentry *entries){    PHYSFS_sint32 i;    BAIL_IF_MACRO(__PHYSFS_platformSeek(fh, dirOffset) == 0, NULL, 0);    for (i = 0; i < numEntries; i++, entries++)    {        PHYSFS_sint64 r = __PHYSFS_platformRead(fh, entries->name, 56, 1);        BAIL_IF_MACRO(r == 0, NULL, 0);        BAIL_IF_MACRO(!readui32(fh, &entries->offset), NULL, 0);        BAIL_IF_MACRO(!readui32(fh, &entries->size), NULL, 0);    } /* for */    return(1);} /* qpak_loadEntries */static QPAKdirentry *qpak_newDirentry(char *name, QPAKentry *entry){    QPAKdirentry *retval = (QPAKdirentry *) malloc(sizeof (QPAKdirentry));    BAIL_IF_MACRO(retval == NULL, ERR_OUT_OF_MEMORY, 0);    retval->name  = name;    retval->entry = entry;    retval->next  = NULL;    return(retval);} /* qpak_newDirentry */static void qpak_deleteDirentry(QPAKdirentry *e){    while (e != NULL)    {        QPAKdirentry *next = e->next;        free(e);        e = next;    } /* while */} /* qpak_deleteDirentry */static QPAKdirectory *qpak_newDirectory(char *name){    QPAKdirectory *dir = (QPAKdirectory *) malloc(sizeof (QPAKdirectory));    BAIL_IF_MACRO(dir == NULL, ERR_OUT_OF_MEMORY, 0);    strcpy(dir->name, name);    dir->dirs = NULL;    dir->next = NULL;    dir->files = NULL;    return dir;} /* qpak_newDirectory */static void qpak_deleteDirectory(QPAKdirectory *d){    while (d != NULL)    {        QPAKdirectory *next = d->next;        qpak_deleteDirentry(d->files);        qpak_deleteDirectory(d->dirs);        free(d);        d = next;    } /* while */} /* qpak_deleteDirectory */static int qpak_addFile(QPAKdirectory *dir, char *name, QPAKentry *entry){    QPAKdirentry *file = qpak_newDirentry(name, entry);    if (file == NULL)        return(0);    /* !!! FIXME: Traversing a linkedlist gets slower with each added file. */    if (dir->files == NULL)    {        dir->files = file;    } /* if */    else    {        QPAKdirentry *tail = dir->files;        while (tail->next != NULL)            tail = tail->next;        tail->next = file;    } /* else */    return(1);} /* qpak_addFile */static QPAKdirectory *qpak_findDirectory(QPAKdirectory *root, const char *name){    char *p = strchr(name, '/');    if (p == NULL)    {        QPAKdirectory *thisDir = root->dirs;        while (thisDir != NULL)        {            if (__PHYSFS_platformStricmp(thisDir->name, name) == 0)                return(thisDir);            thisDir = thisDir->next;        } /* while */    } /* if */    else    {        char temp[QPAK_MAXDIRLEN];        QPAKdirectory *thisDir = root->dirs;        strncpy (temp, name, p - name);        temp[p - name] = '\0';        while (thisDir != NULL)        {            if (__PHYSFS_platformStricmp(thisDir->name, temp) == 0)                return(qpak_findDirectory(thisDir, p + 1));            thisDir = thisDir->next;        } /* while */    } /* else */    BAIL_MACRO(ERR_NO_SUCH_PATH, 0);} /* qpak_findDirectory */static QPAKdirectory *qpak_addDir(QPAKdirectory *dir, char *name){    QPAKdirectory *newDir = qpak_findDirectory(dir, name);    if (newDir != 0)        return(newDir);    newDir = qpak_newDirectory(name);    if (newDir == 0)        return 0;    if (dir->dirs == NULL)    {        dir->dirs = newDir;    } /* if */    else    {        QPAKdirectory *tail = dir->dirs;        while (tail->next != NULL)            tail = tail->next;        tail->next = newDir;    } /* else */    return(newDir);} /* qpak_addDir */static int qpak_addEntry(QPAKdirectory *dir, char *name, QPAKentry *entry){    char tempName[QPAK_MAXDIRLEN];    QPAKdirectory *child;    char *p = strchr(name, '/');    if (p == NULL)        return(qpak_addFile(dir, name, entry));    strncpy(tempName, name, p - name);    tempName[p - name] = '\0';    child = qpak_addDir(dir, tempName);    return(qpak_addEntry(child, p + 1, entry));} /* qpak_addEntry */static QPAKentry *qpak_findEntry(QPAKdirectory *root, const char *name){    QPAKdirectory *dir = NULL;    QPAKdirentry *thisFile = NULL;    const char *t = strrchr(name, '/');    if (t == NULL)    {        dir = root;        t = name;    } /* if */    else    {        char temp[QPAK_MAXDIRLEN];        strncpy(temp, name, t - name);        temp[t - name] = '\0';        dir = qpak_findDirectory(root, temp);        t++;    } /* else */    if (dir == NULL)        return(0);    thisFile = dir->files;    while (thisFile != NULL)    {        if (__PHYSFS_platformStricmp(thisFile->name, t) == 0)