/*
 * $Id$
 *
 * Copyright (c) 2002-2011, Communications and Remote Sensing Laboratory, Universite catholique de Louvain (UCL), Belgium
 * Copyright (c) 2002-2011, 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 "metadata_manager.h"
#include "opj_inttypes.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <limits.h>
#include <assert.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*/


metadatalist_param_t * gene_metadatalist(void)
{
  metadatalist_param_t *list;

  list = (metadatalist_param_t *)malloc( sizeof(metadatalist_param_t));
  
  list->first = NULL;
  list->last  = NULL;

  return list;
}

metadatalist_param_t * const_metadatalist( int fd)
{
  metadatalist_param_t *metadatalist;
  metadata_param_t *metabin;
  boxlist_param_t *toplev_boxlist;
  box_param_t *box, *next;
  placeholderlist_param_t *phldlist;
  placeholder_param_t *phld;
  Byte8_t idx;
  Byte8_t filesize;

  if(!(filesize = (Byte8_t)get_filesize( fd)))
    return NULL;
  
  if( !(toplev_boxlist = get_boxstructure( fd, 0, filesize))){
    fprintf( FCGI_stderr, "Error: Not correctl JP2 format\n");
    return NULL;
  }
  
  phldlist = gene_placeholderlist();
  metadatalist = gene_metadatalist();

  box = toplev_boxlist->first;
  idx = 0;
  while( box){
    next = box->next;
    if( strncmp( box->type, "jP  ",4)!=0 && strncmp( box->type, "ftyp",4)!=0 && strncmp( box->type, "jp2h",4)!=0){
      boxlist_param_t *boxlist = NULL;
      boxcontents_param_t *boxcontents = NULL;

      phld = gene_placeholder( box, ++idx);
      insert_placeholder_into_list( phld, phldlist);

      boxlist = get_boxstructure( box->fd, get_DBoxoff( box), get_DBoxlen(box));
      if( !boxlist)
	boxcontents = gene_boxcontents( get_DBoxoff( box), get_DBoxlen(box));
      
      delete_box_in_list( &box, toplev_boxlist);
      metabin = gene_metadata( idx, boxlist, NULL, boxcontents);
      insert_metadata_into_list( metabin, metadatalist);
    }
    box = next;
  }

  metabin = gene_metadata( 0, toplev_boxlist, phldlist, NULL);
  insert_metadata_into_list( metabin, metadatalist);

  return metadatalist;
}

void delete_metadatalist( metadatalist_param_t **list)
{
  metadata_param_t *ptr, *next;

  ptr = (*list)->first;

  while( ptr != NULL){
    next=ptr->next;
    delete_metadata( &ptr);
    ptr=next;
  }
  free( *list);
}

metadata_param_t * gene_metadata( Byte8_t idx, boxlist_param_t *boxlist, placeholderlist_param_t *phldlist, boxcontents_param_t *boxcontents)
{
  metadata_param_t *bin;
  
  bin = (metadata_param_t *)malloc( sizeof(metadata_param_t));
  bin->idx = idx;
  bin->boxlist = boxlist;
  bin->placeholderlist = phldlist;
  bin->boxcontents = boxcontents;
  bin->next = NULL;

  return bin;
}

void delete_metadata( metadata_param_t **metadata)
{
  delete_boxlist( &((*metadata)->boxlist));
  delete_placeholderlist( &((*metadata)->placeholderlist));
  if((*metadata)->boxcontents)
    free((*metadata)->boxcontents);
#ifndef SERVER
  /*  fprintf( logstream, "local log: Metadata-bin: %d deleted\n", (*metadata)->idx);*/
#endif
  free( *metadata);
}

void insert_metadata_into_list( metadata_param_t *metabin, metadatalist_param_t *metadatalist)
{
  if( metadatalist->first)
    metadatalist->last->next = metabin;
  else
    metadatalist->first = metabin;
  metadatalist->last = metabin;
}

void print_metadata( metadata_param_t *metadata)
{
  boxcontents_param_t *boxcont;
  fprintf( logstream, "metadata-bin %" PRIu64 " info:\n", metadata->idx);
  print_allbox( metadata->boxlist);
  print_allplaceholder( metadata->placeholderlist);
 
  boxcont = metadata->boxcontents;
  if( boxcont)
      fprintf( logstream, "box contents:\n"
	       "\t offset: %" PRId64 " %#" PRIx64 "\n" 
         "\t length: %" PRId64 " %#" PRIx64 "\n", boxcont->offset,
         boxcont->offset, boxcont->length, boxcont->length);
}

void print_allmetadata( metadatalist_param_t *list)
{
  metadata_param_t *ptr;
  
  fprintf( logstream, "all metadata info: \n");
  ptr = list->first;
  while( ptr != NULL){
    print_metadata( ptr);
    ptr=ptr->next;
  }
}

boxcontents_param_t * gene_boxcontents( OPJ_OFF_T offset, OPJ_SIZE_T length)
{
  boxcontents_param_t *contents;

  contents = (boxcontents_param_t *)malloc( sizeof(boxcontents_param_t));

  contents->offset = offset;
  contents->length = length;

  return contents;
}

metadata_param_t * search_metadata( Byte8_t idx, metadatalist_param_t *list)
{ 
  metadata_param_t *found;

  found = list->first;
  
  while( found){
    
    if( found->idx == idx)
      return found;
      
    found = found->next;
  }
  return NULL;
}

Byte8_t search_metadataidx( char boxtype[4], metadatalist_param_t *list)
{
  /* MM FIXME: what is the return type of this function ?
   Byte8_t or int ? */
  metadata_param_t *ptr;
  int i;

  for( i=0; i<4; i++)
    if( boxtype[i] == '_')
      boxtype[i] = ' ';
  
  ptr = list->first;
  while( ptr){
    if( ptr->boxlist){
      box_param_t *box = ptr->boxlist->first;
      while( box){
	if( strncmp ( boxtype, box->type, 4) == 0)
	  return ptr->idx;
	box = box->next;
      }
    }
    ptr = ptr->next;
  }

  ptr = list->first;
  while( ptr){
    if( ptr->placeholderlist){
      placeholder_param_t *phld = ptr->placeholderlist->first;
      while( phld){
	if( strncmp ( boxtype, (char *)phld->OrigBH+4, 4) == 0){
	  return phld->OrigID;
	}
	phld = phld->next;
      }
    }
    ptr = ptr->next;
  }
  return (Byte8_t)-1;
}
