/*
 * CDE - Common Desktop Environment
 *
 * Copyright (c) 1993-2012, The Open Group. All rights reserved.
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these librararies and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
 */
// $XConsortium: c_api_book.cc /main/4 1996/06/11 17:26:37 cde-hal $

#include "oliasdb/c_api_common.h"

static doc_smart_ptr*
getDocUsingPrOrSecOrSeq(DtMmdbInfoRequest* request)
{
   mtry {
      info_base* x = getBookCase(request -> bookcase_descriptor);
      if ( x == 0 ) return 0;

      oid_t * id = getPrimiaryOid(request);

      if ( id ) {
         return new doc_smart_ptr(x, *id);
      }

      id = getSecondaryOid(request); // book id

      if ( id ) {
         return new doc_smart_ptr(*id, x);
      }

      int seq = getSeqNum(request); // seq number

      if ( seq == -1 ) return 0;

// bookcase is treated 1 based internally. But 0-based externally.
      return new doc_smart_ptr(x, seq+1);
   }

   mcatch (mmdbException &,e)
   {
     return 0;
   } end_try;
     return 0;
}

DtMmdbHandle*
DtMmdbBookGetTocObjectId(DtMmdbInfoRequest* request)
{
   mtry {
      doc_smart_ptr* x = getDocUsingPrOrSecOrSeq(request);
      if ( x == 0 ) return 0;

      DtMmdbHandle *z = newDtMmdbHandle(x -> locator_id());

      delete x;
      return z;
   }

   mcatch (mmdbException &,e)
   {
     return 0;
   } end_try;
     return 0;
}

const char*
DtMmdbBookGetShortTitle(DtMmdbInfoRequest* request, unsigned int* length)
{
   mtry {
      doc_smart_ptr* x = getDocUsingPrOrSecOrSeq(request);
      if ( x == 0 ) return 0;

      const char* z = x -> short_title();

      if ( length ) *length = strlen(z);

      delete x;
      return z;
   }

   mcatch (mmdbException &,e)
   {
     return 0;
   } end_try;
     return 0;
}

const char*
DtMmdbBookGetLongTitle(DtMmdbInfoRequest* request, unsigned int* length)
{
   mtry {
      doc_smart_ptr* x = getDocUsingPrOrSecOrSeq(request);
      if ( x == 0 ) return 0;

      const char* z = x -> long_title();

      if ( length ) *length = strlen(z);

      delete x;
      return z;
   }

   mcatch (mmdbException &,e)
   {
     return 0;
   } end_try;
     return 0;
}

int DtMmdbBookGetSeqNum(DtMmdbInfoRequest* request)
{
   mtry {
      doc_smart_ptr* x = getDocUsingPrOrSecOrSeq(request);
      if ( x == 0 ) return 0;

      int z = x -> seq_num();

      delete x;
      return z;
   }

   mcatch (mmdbException &,e)
   {
     return 0;
   } end_try;
     return 0;
}

const char*
DtMmdbBookGetSeqLIcense(DtMmdbInfoRequest* request, unsigned int* length)
{
    mtry {
      doc_smart_ptr* x = getDocUsingPrOrSecOrSeq(request);
      if ( x == 0 ) return 0;

      const char* z = x -> license_terms();
      if ( length ) 
        *length = x -> license_terms_size();

      delete x;
      return z;
   }

   mcatch (mmdbException &,e)
   {
     return 0;
   } end_try;
     return 0;
}

DtMmdbHandle** DtMmdbBookGetTabList(DtMmdbInfoRequest* request, unsigned int* length)
{
   mtry {
      doc_smart_ptr* x = getDocUsingPrOrSecOrSeq(request);
      if ( x == 0 ) return 0;

      short_list_handler* z = x -> tab_list();

      if ( z == 0 ) return 0;

      int count = (*z) -> count();

      DtMmdbHandle** u = (DtMmdbHandle**)malloc(sizeof(DtMmdbHandle*)* (count+1));

      if ( u == 0 ) return 0;
         
      const char* desc = 0;
      pstring_handler *p = 0;

      int i;
      for (i=0; i<count; i++) {
         p = (pstring_handler *)((*z)->get_component (i+1));

// The format is the title, a tab char, then the section oid.
         desc = (*p)->get();

         while (*desc != '\0' && *desc != '\t') desc++;

         if (*desc != '\t')
           return 0;

         desc++;

         oid_t w((char*)desc, true, false);
         u[i] = newDtMmdbHandle(w);

         delete p;

      }

      u[i] = 0;

      if ( length ) *length = count;

      delete z;
      delete x;
      return u;
   }

   mcatch (mmdbException &,e)
   {
     return 0;
   } end_try;
     return 0;
}