source: trunk/gsdl/packages/yaz/retrieval/d1_sumout.c@ 1343

/*
 * Copyright (c) 1995-1999, Index Data.
 * See the file LICENSE for details.
 * Sebastian Hammer, Adam Dickmeiss
 *
 * $Log$
 * Revision 1.1  2000/08/03 03:11:36  johnmcp
 * Added the YAZ toolkit source to the packages directory (for z39.50 stuff)
 *
 * Revision 1.5  1999/11/30 13:47:12  adam
 * Improved installation. Moved header files to include/yaz.
 *
 * Revision 1.4  1999/08/27 09:40:32  adam
 * Renamed logf function to yaz_log. Removed VC++ project files.
 *
 * Revision 1.3  1998/02/11 11:53:35  adam
 * Changed code so that it compiles as C++.
 *
 * Revision 1.2  1997/09/17 12:10:38  adam
 * YAZ version 1.4.
 *
 * Revision 1.1  1996/06/10 08:56:03  quinn
 * Work on Summary.
 *
 *
 */

#include <assert.h>
#include <string.h>
#include <stdlib.h>

#include <yaz/log.h>
#include <yaz/proto.h>
#include <yaz/data1.h>

static int *f_integer(data1_node *c, ODR o)
{
    int *r;
    char intbuf[64];

    if (!c->child || c->child->which != DATA1N_data ||
    c->child->u.data.len > 63)
    return 0;
    r = (int *)odr_malloc(o, sizeof(*r));
    sprintf(intbuf, "%.*s", 63, c->child->u.data.data);
    *r = atoi(intbuf);
    return r;
}

static char *f_string(data1_node *c, ODR o)
{
    char *r;

    if (!c->child || c->child->which != DATA1N_data)
    return 0;
    r = (char *)odr_malloc(o, c->child->u.data.len+1);
    memcpy(r, c->child->u.data.data, c->child->u.data.len);
    r[c->child->u.data.len] = '\0';
    return r;
}

Z_BriefBib *data1_nodetosummary (data1_handle dh, data1_node *n,
                 int select, ODR o)
{
    Z_BriefBib *res = (Z_BriefBib *)odr_malloc(o, sizeof(*res));
    data1_node *c;

    assert(n->which == DATA1N_root);
    if (strcmp(n->u.root.type, "summary"))
    {
    yaz_log(LOG_WARN, "Attempt to convert a non-summary record");
    return 0;
    }

    res->title = "[UNKNOWN]";
    res->author = 0;
    res->callNumber = 0;
    res->recordType = 0;
    res->bibliographicLevel = 0;
    res->num_format = 0;
    res->format = 0;
    res->publicationPlace = 0;
    res->publicationDate = 0;
    res->targetSystemKey = 0;
    res->satisfyingElement = 0;
    res->rank = 0;
    res->documentId = 0;
    res->abstract = 0;
    res->otherInfo = 0;

    for (c = n->child; c; c = c->next)
    {
    if (c->which != DATA1N_tag || !c->u.tag.element)
    {
        yaz_log(LOG_WARN, "Malformed element in Summary record");
        return 0;
    }
    if (select && !c->u.tag.node_selected)
        continue;
    switch (c->u.tag.element->tag->value.numeric)
    {
        case 0: res->title = f_string(c, o); break;
        case 1: res->author = f_string(c, o); break;
        case 2: res->callNumber = f_string(c, o); break;
        case 3: res->recordType = f_string(c, o); break;
        case 4: res->bibliographicLevel = f_string(c, o); break;
        case 5: abort();   /* TODO */
        case 10: res->publicationPlace = f_string(c, o); break;
        case 11: res->publicationDate = f_string(c, o); break;
        case 12: res->targetSystemKey = f_string(c, o); break;
        case 13: res->satisfyingElement = f_string(c, o); break;
        case 14: res->rank = f_integer(c, o); break;
        case 15: res->documentId = f_string(c, o); break;
        case 16: res->abstract = f_string(c, o); break;
        case 17: abort(); /* TODO */
        default:
            yaz_log(LOG_WARN, "Unknown element in Summary record.");
    }
    }
    return res;
}