/*
 Cache script section locations by <erwin@andreasen.com>
 Reads through the contents of the file and saves location of each
 SECTION XYZ entry

 Calling Script::find() will then seek to that location directly rather
 than having to parse through all of the script
 */

#include <sys/stat.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <errno.h>
#include "uox3.h"
//#include "List.h"
//#include "scriptcache.h"
#include "debug.h"

#define DBGFILE "scriptc.cpp"

extern FILE* scpfile;

// This may not be portable to non-POSIX systems?
char get_modification_date(const char *filename, time_t* mod_time) {
    struct stat stat_buf;
    
    if ((stat(filename, &stat_buf)))
        return 0;

    *mod_time = stat_buf.st_mtime;
    return 1;
}

void Script::reload() {
    FILE *fp;
    char buf[1024], section_name[256];
    int count = 0;
    
    //delete entries;   // we need to figure out why this was crashing on Mingw32
    entries = new List<ScriptEntry,1>;

    
    if (!(fp = fopen(filename, "r"))) {
        fprintf(stderr, "Cannot open %s: %s", filename, strerror(errno));
        exit(1);
    }
    printf ("Reloading %-15s: ", filename); fflush (stdout);

    // Snarf the part of SECTION... until EOL
    while(fgets(buf, sizeof(buf), fp))
        if (sscanf(buf, "SECTION %256[^\n]", section_name) == 1) {
            entries->insert(new ScriptEntry(section_name, ftell(fp)));
            count++;
        }

    printf ("%6d sections found.\n", count);
    
    fclose(fp);
}

// Parse this script, caching section positions
Script::Script(const char *_filename) {
    filename = strdup(_filename);
//Try to fix Ming error    entries = NULL;
    entries = new List<ScriptEntry,1>;
    
    if (!(get_modification_date(filename, &last_modification))) {
        fprintf(stderr, "Cannot stat %s: %s", filename, strerror(errno));
        exit(1);
    }

    reload();
}

// Look for that section in this previously parsed script file
char Script::find(const char *section) {
    time_t current;
    ScriptEntry *sc;
    
    if (!get_modification_date(filename, &current)) {
        fprintf(stderr, "Cannot stat %s: %s", filename, strerror(errno));
        exit(1);
    }

    if (current > last_modification) {
        reload();
        last_modification = current;
    }

    for (sc = entries->rewind(); sc; sc = entries->next())
        if (!strcmp(sc->name, section))
            break;

    if (!sc)
        return 0;

    fseek(scpfile, sc->offset, SEEK_SET);
    return 1;
}
// Look for that section in this previously parsed script file
char Script::isin(const char *section) {
    time_t current;
    ScriptEntry *sc;
    
    if (!get_modification_date(filename, &current)) {
        fprintf(stderr, "Cannot stat %s: %s", filename, strerror(errno));
        exit(1);
    }

    if (current > last_modification) {
        reload();
        last_modification = current;
    }

    for (sc = entries->rewind(); sc; sc = entries->next())
        if (strstr(sc->name,section))
        {
          fseek(scpfile, sc->offset, SEEK_SET);
          return 1;
        }

    return 0;

}