d1_sutrs.c

Go to the documentation of this file.

/* This file is part of the Zebra server.
   Copyright (C) Index Data
 
Zebra 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, or (at your option) any later
version.
 
Zebra 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., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 
*/
 
/* converts data1 tree to SUTRS record */
 
#if HAVE_CONFIG_H
#include <config.h>
#endif
#include <idzebra/data1.h>
 
#define NTOBUF_INDENT  2
#define NTOBUF_MARGIN 75
 
static int wordlen(char *b, int i)
{
    int l = 0;
 
    while (i && !d1_isspace(*b))
        l++, b++, i--;
    return l;
}
 
static int nodetobuf(data1_node *n, int select, WRBUF b, int indent, int col)
{
    data1_node *c;
 
    for (c = n->child; c; c = c->next)
    {
        char *tag;
 
        if (c->which == DATA1N_tag)
        {
            if (select && !c->u.tag.node_selected)
                continue;
            if (c->u.tag.element && c->u.tag.element->tag)
                tag = c->u.tag.element->tag->names->name; /* first name */
            else
                tag = c->u.tag.tag; /* local string tag */
            if (data1_matchstr(tag, "wellknown")) /* skip wellknown */
            {
                if (col)
                    wrbuf_putc(b, '\n');
                wrbuf_printf(b, "%*s%s:", indent * NTOBUF_INDENT, "", tag);
                col = indent * NTOBUF_INDENT + 1 + strlen(tag);
            }
            if (nodetobuf(c, select, b, indent+1, col) < 0)
                return 0;
        }
        else if (c->which == DATA1N_data)
        {
            char *p = c->u.data.data;
            int l = c->u.data.len;
            int first = 0;
 
            if ((c->u.data.what == DATA1I_text ||
                c->u.data.what == DATA1I_xmltext) && c->u.data.formatted_text)
            {
                wrbuf_putc(b, '\n');
                wrbuf_write(b, c->u.data.data, c->u.data.len);
                wrbuf_printf(b, "%*s", indent * NTOBUF_INDENT, "");
                col = indent * NTOBUF_INDENT;
            }
            else if (c->u.data.what == DATA1I_text ||
                     c->u.data.what == DATA1I_xmltext)
            {
                while (l)
                {
                    int wlen;
 
                    while (l && d1_isspace(*p))
                        p++, l--;
                    if (!l)
                        break;
                    /* break if we'll cross margin and word is not too long */
                    if (col + (wlen = wordlen(p, l)) > NTOBUF_MARGIN && wlen <
                        NTOBUF_MARGIN - indent * NTOBUF_INDENT)
                    {
                        wrbuf_printf(b, "\n%*s", indent * NTOBUF_INDENT, "");
                        col = indent * NTOBUF_INDENT;
                        first = 1;
                    }
                    if (!first)
                    {
                        wrbuf_putc(b, ' ');
                        col++;
                    }
                    while (l && !d1_isspace(*p))
                    {
                        if (col > NTOBUF_MARGIN)
                        {
                            wrbuf_putc(b, '=');
                            wrbuf_putc(b, '\n');
                            wrbuf_printf(b, "%*s", indent * NTOBUF_INDENT, "");
                            col = indent * NTOBUF_INDENT;
                        }
                        wrbuf_putc(b, *p);
                        p++;
                        l--;
                        col++;
                    }
                    first = 0;
                }
            }
            else if (c->u.data.what == DATA1I_num)
            {
                wrbuf_putc(b, ' ');
                wrbuf_write(b, c->u.data.data, c->u.data.len);
            }
        }
    }
    return 0;
}
 
/*
 * Return area containing SUTRS-formatted data. Ownership of this data
 * remains in this module, and the buffer is reused on next call. This may
 * need changing.
 */
 
char *data1_nodetobuf(data1_handle dh, data1_node *n, int select, int *len)
{
    WRBUF b = data1_get_wrbuf(dh);
 
    wrbuf_rewind(b);
    if (nodetobuf(n, select, b, 0, 0))
        return 0;
    wrbuf_putc(b, '\n');
    *len = wrbuf_len(b);
    return wrbuf_buf(b);
}
/*
 * Local variables:
 * c-basic-offset: 4
 * c-file-style: "Stroustrup"
 * indent-tabs-mode: nil
 * End:
 * vim: shiftwidth=4 tabstop=8 expandtab
 */