/*
 * tapecontents.c - Extract the directory from tape images.
 *
 * Written by
 *  Ettore Perazzoli <ettore@comm2000.it>
 *  Andreas Boose <viceteam@t-online.de>
 *  Tibor Biczo <crown@mail.matav.hu>
 *
 * This file is part of VICE, the Versatile Commodore Emulator.
 * See README for copyright notice.
 *
 *  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.
 *
 */

#include "vice.h"

#include <stdio.h>
#include <string.h>

#include "imagecontents.h"
#include "lib.h"
#include "tape.h"
#include "tapecontents.h"


static void tape_read_contents(tape_image_t *tape_image, image_contents_t *new)
{
    image_contents_file_list_t *lp;

    memset(new->name, 0, IMAGE_CONTENTS_NAME_LEN + 1);
    tape_get_header(tape_image, new->name);

    lp = NULL;

    while (tape_seek_to_next_file(tape_image, 0) >= 0) {
        tape_file_record_t *rec;

        rec = tape_get_current_file_record(tape_image);
        if (rec->type) {
            image_contents_file_list_t *new_list;

            new_list = lib_malloc(sizeof(image_contents_file_list_t));
            memcpy(new_list->name, rec->name, 16);
            new_list->name[IMAGE_CONTENTS_FILE_NAME_LEN] = 0;

            if ( rec->encoding==TAPE_ENCODING_TURBOTAPE )
              new_list->type[0] = 'T';
            else
              new_list->type[0] = ' ';

            if ( rec->type==4 )
              {
                strcpy((char *)new_list->type+1, "SEQ ");
                new_list->size = 0;
              }
            else
              {
                strcpy((char *)new_list->type+1, "PRG ");
                new_list->size = 1 + (rec->end_addr - rec->start_addr) / 254;
              }
            new_list->next = NULL;

            if (lp == NULL) {
                new_list->prev = NULL;
                new->file_list = new_list;
                lp = new->file_list;
            } else {
                new_list->prev = lp;
                lp->next = new_list;
                lp = new_list;
            }
        }
    }
}

image_contents_t *tapecontents_read(const char *file_name)
{
    tape_image_t *tape_image;
    image_contents_t *new;

    tape_image = tape_internal_open_tape_image(file_name, 1);

    if (tape_image == NULL || tape_image->name == NULL)
        return NULL;

    new = image_contents_new();

    *new->id = 0;
    new->blocks_free = -1;
    new->file_list = NULL;

    tape_read_contents(tape_image, new);

    tape_internal_close_tape_image(tape_image);
    return new;
}
