/*
**  L2 - OSSP Logging Library
**  Copyright (c) 2001 The OSSP Project (http://www.ossp.org/)
**  Copyright (c) 2001 Cable & Wireless Deutschland (http://www.cw.com/de/)
**
**  This file is part of OSSP L2, a flexible logging library which
**  can be found at http://www.ossp.org/pkg/l2/.
**
**  Permission to use, copy, modify, and distribute this software for
**  any purpose with or without fee is hereby granted, provided that
**  the above copyright notice and this permission notice appear in all
**  copies.
**
**  THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED 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 AUTHORS AND COPYRIGHT HOLDERS AND THEIR
**  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.
**
**  l2.c: internal C implementation
**
*/

#include "l2.h"
#include "l2_p.h"

l2_stream_t *l2_stream_create(void)
{
    l2_stream_t *st;
    int i;
    
    if ((st = (l2_stream_t *)malloc(sizeof(l2_stream_t))) == NULL)
        return NULL;
    st->levelmask = 0;
    for (i = 0; i < L2_MAX_CHANNELS; i++)
        st->channels[i] = NULL;
    for (i = 0; i < L2_MAX_FORMATTERS; i++)
        st->formatters[i].name = NULL;
    return st;
}

l2_result_t l2_stream_channel(l2_stream_t *st, l2_channel_t *ch, unsigned int levelmask)
{
    int i;

    if (st == NULL || ch == NULL)
        return L2_ERROR;
    for (i = 0; i < L2_MAX_CHANNELS && st->channels[i] != NULL; i++)
        ;
    if (i == L2_MAX_CHANNELS)
        return L2_ERROR;
    st->channels[i] = ch;
    return L2_OK;
}

l2_result_t l2_stream_formatter(l2_stream_t *st, const char *name, l2_formatter_t cb, l2_context_t *ctx)
{
    int i;

    if (st == NULL || name == NULL || cb != NULL)
        return L2_ERROR;
    for (i = 0; i < L2_MAX_FORMATTERS && st->formatters[i].name != NULL; i++)
        ;
    if (i == L2_MAX_FORMATTERS)
        return L2_ERROR;
    st->formatters[i].name = strdup(name);
    st->formatters[i].context = ctx;
    st->formatters[i].callback = cb;
    return L2_OK;
}

l2_result_t l2_stream_levels(l2_stream_t *st, unsigned int levelmask, unsigned int *levelmaskold)
{
    if (st == NULL)
        return L2_ERROR;
    if (levelmaskold != NULL)
        *levelmaskold = st->levelmask;
    st->levelmask = levelmask;
    return L2_OK;
}

l2_result_t l2_stream_log(l2_stream_t *st, unsigned int log_level, const char *fmt, ...)
{
    va_list ap;
    l2_result_t rv;

    if (st == NULL || log_level == 0 || fmt == NULL)
        return L2_ERROR;
    va_start(ap, fmt);
    rv = l2_stream_vlog(st, log_level, fmt, ap);
    va_end(ap);
    return rv;
}

l2_result_t l2_stream_vlog(l2_stream_t *st, unsigned int log_level, const char *fmt, va_list ap)
{
    int i;
    size_t len;
    l2_result_t rv;

    if (st == NULL || log_level == 0 || fmt == NULL || ap == NULL)
        return L2_ERROR;

    /* XXX use st->formatter!! XXX */
    len = vsnprintf(st->message, L2_MAX_MSGSIZE, fmt, ap);

    rv = L2_OK;
    for (i = 0; i < L2_MAX_CHANNELS && st->channels[i] != NULL; i++) {
        /* XXX write only if st->levelmask contains log_level */
        if ((rv = l2_channel_write(st->channels[i], st->message, len)) != L2_OK)
            break;
    }
    return rv;
}

l2_result_t l2_stream_destroy(l2_stream_t *st)
{
    int i;

    if (st == NULL)
        return L2_ERROR;
    for (i = 0; i < L2_MAX_CHANNELS && st->channels[i] != NULL; i++)
        l2_channel_destroy(st->channels[i]);
    for (i = 0; i < L2_MAX_FORMATTERS && st->formatters[i].name != NULL; i++)
        free(st->formatters[i].name);
    free(st);
    return L2_OK;
}