/*
   Copyright (C) 2001-2006, William Joseph.
   All Rights Reserved.

   This file is part of GtkRadiant.

   GtkRadiant 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.

   GtkRadiant 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 GtkRadiant; if not, write to the Free Software
   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 */

#include "archive.h"

#include "idatastream.h"
#include "iarchive.h"

#include <stdio.h>
#include <stdlib.h>
#include <vector>

#include "stream/filestream.h"
#include "stream/textfilestream.h"
#include "string/string.h"
#include "os/path.h"
#include "os/file.h"
#include "os/dir.h"
#include "archivelib.h"
#include "fs_path.h"


class DirectoryArchive : public Archive {
    CopiedString m_root;
public:
    DirectoryArchive(const char *root) : m_root(root)
    {
    }

    void release()
    {
        delete this;
    }

    virtual ArchiveFile *openFile(const char *name)
    {
        UnixPath path(m_root.c_str());
        path.push_filename(name);
        DirectoryArchiveFile *file = new DirectoryArchiveFile(name, path.c_str());
        if (!file->failed()) {
            return file;
        }
        file->release();
        return 0;
    }

    virtual ArchiveTextFile *openTextFile(const char *name)
    {
        UnixPath path(m_root.c_str());
        path.push_filename(name);
        DirectoryArchiveTextFile *file = new DirectoryArchiveTextFile(name, path.c_str());
        if (!file->failed()) {
            return file;
        }
        file->release();
        return 0;
    }

    virtual bool containsFile(const char *name)
    {
        UnixPath path(m_root.c_str());
        path.push_filename(name);
        return file_readable(path.c_str());
    }

    virtual void forEachFile(VisitorFunc visitor, const char *root)
    {
        std::vector<Directory *> dirs;
        UnixPath path(m_root.c_str());
        path.push(root);
        dirs.push_back(directory_open(path.c_str()));

        while (!dirs.empty() && directory_good(dirs.back())) {
            const char *name = directory_read_and_increment(dirs.back());

            if (name == 0) {
                directory_close(dirs.back());
                dirs.pop_back();
                path.pop();
            } else if (!string_equal(name, ".") && !string_equal(name, "..")) {
                path.push_filename(name);

                bool is_directory = file_is_directory(path.c_str());

                if (!is_directory) {
                    visitor.file(path_make_relative(path.c_str(), m_root.c_str()));
                }

                path.pop();

                if (is_directory) {
                    path.push(name);

                    if (!visitor.directory(path_make_relative(path.c_str(), m_root.c_str()), dirs.size())) {
                        dirs.push_back(directory_open(path.c_str()));
                    } else {
                        path.pop();
                    }
                }
            }
        }
    }
};

Archive *OpenArchive(const char *name)
{
    return new DirectoryArchive(name);
}

#if 0

class TestArchive
{
class TestVisitor : public Archive::IVisitor
{
public:
virtual void visit( const char* name ){
    int bleh = 0;
}
};
public:
void test1(){
    Archive* archive = OpenArchive( "d:/quake/id1/" );
    ArchiveFile* file = archive->openFile( "quake101.wad" );
    if ( file != 0 ) {
        char buffer[1024];
        file->getInputStream().read( buffer, 1024 );
        file->release();
    }
    TestVisitor visitor;
    archive->forEachFile( Archive::VisitorFunc( &visitor, Archive::eFilesAndDirectories, 0 ), "" );
    archive->release();
}
void test2(){
    Archive* archive = OpenArchive( "d:/gtkradiant_root/baseq3/" );
    TestVisitor visitor;
    archive->forEachFile( Archive::VisitorFunc( &visitor, Archive::eFilesAndDirectories, 2 ), "" );
    archive->forEachFile( Archive::VisitorFunc( &visitor, Archive::eFiles, 1 ), "textures" );
    archive->forEachFile( Archive::VisitorFunc( &visitor, Archive::eDirectories, 1 ), "textures" );
    archive->forEachFile( Archive::VisitorFunc( &visitor, Archive::eFilesAndDirectories, 1 ), "textures" );
    archive->release();
}
TestArchive(){
    test1();
    test2();
}
};

TestArchive g_test;

#endif