/*
 * $Id$
 *
 * Copyright (c) 2002-2014, Universite catholique de Louvain (UCL), Belgium
 * Copyright (c) 2002-2014, Professor Benoit Macq
 * Copyright (c) 2010-2011, Kaori Hagihara
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS `AS IS'
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */


#include <stdio.h>
#include <stdlib.h>
#include "mhixbox_manager.h"
#include "opj_inttypes.h"

#ifdef SERVER
#include "fcgi_stdio.h"
#define logstream FCGI_stdout
#else
#define FCGI_stdout stdout
#define FCGI_stderr stderr
#define logstream stderr
#endif /*SERVER */


mhixbox_param_t * gene_mhixbox(box_param_t *box)
{
    mhixbox_param_t *mhix;
    markeridx_param_t  *mkridx, *lastmkidx;
    OPJ_OFF_T pos = 0;

    mhix = (mhixbox_param_t *)malloc(sizeof(mhixbox_param_t));

    mhix->tlen = fetch_DBox8bytebigendian(box, (pos += 8) - 8);

    mhix->first = lastmkidx = NULL;
    while ((OPJ_SIZE_T)pos < get_DBoxlen(box)) {

        mkridx = (markeridx_param_t *)malloc(sizeof(markeridx_param_t));
        mkridx->code       = fetch_DBox2bytebigendian(box, (pos += 2) - 2);
        mkridx->num_remain = fetch_DBox2bytebigendian(box, (pos += 2) - 2);
        mkridx->offset     = (OPJ_OFF_T)fetch_DBox8bytebigendian(box, (pos += 8) - 8);
        mkridx->length     = fetch_DBox2bytebigendian(box, (pos += 2) - 2);
        mkridx->next = NULL;

        if (mhix->first) {
            lastmkidx->next = mkridx;
        } else {
            mhix->first = mkridx;
        }
        lastmkidx = mkridx;
    }
    return mhix;
}


markeridx_param_t * search_markeridx(Byte2_t code, mhixbox_param_t *mhix)
{
    markeridx_param_t *found;

    found = mhix->first;

    while (found != NULL) {

        if (code == found->code) {
            return found;
        }

        found = found->next;
    }
    fprintf(FCGI_stderr, "Error: Marker index %#x not found\n", code);

    return NULL;
}


void print_mhixbox(mhixbox_param_t *mhix)
{
    markeridx_param_t *ptr;

    fprintf(logstream, "mhix box info:\n");
    fprintf(logstream, "\t tlen: %#" PRIx64 "\n", mhix->tlen);

    ptr = mhix->first;
    while (ptr != NULL) {
        fprintf(logstream, "marker index info:\n"
                "\t code: %#x\n"
                "\t num_remain: %#x\n"
                "\t offset: %#" PRIx64 "\n"
                "\t length: %#x\n", ptr->code, ptr->num_remain, ptr->offset, ptr->length);
        ptr = ptr->next;
    }
}


void print_markeridx(markeridx_param_t *markeridx)
{
    fprintf(logstream, "marker index info:\n"
            "\t code: %#x\n"
            "\t num_remain: %#x\n"
            "\t offset: %#" PRIx64 "\n"
            "\t length: %#x\n", markeridx->code, markeridx->num_remain, markeridx->offset,
            markeridx->length);
}


void delete_mhixbox(mhixbox_param_t **mhix)
{
    markeridx_param_t *mkPtr, *mkNext;

    mkPtr = (*mhix)->first;
    while (mkPtr != NULL) {
        mkNext = mkPtr->next;
#ifndef SERVER
        /*      fprintf( logstream, "local log: marker index %#x deleted!\n", mkPtr->code); */
#endif
        free(mkPtr);
        mkPtr = mkNext;
    }
    free(*mhix);
}