/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 *      db_dictlog.cc
 *
 *      Copyright (c) 1988-2000 by Sun Microsystems, Inc.
 *      All Rights Reserved.
 */

#include <stdio.h>

#include <malloc.h>
#include <string.h>
#ifdef TDRPC
#include <sysent.h>
#endif
#include <unistd.h>

#include "nisdb_rw.h"

#include "db_headers.h"
#include "db_dictlog.h"

#include "nisdb_mt.h"


/*
 * Constructor:  Create a log entry using the given parameters.  Note that
 * pointers to db_query and entry_object are simply assigned, not copied.
 */
db_dictlog_entry::db_dictlog_entry(int a, vers * v, char *tname,
                                    table_obj *obj)
{
        action = a;
        aversion.assign(v);
        table_name = tname;
        table_object = obj;
        next = NULL;
        bversion.assign(v);
}

db_dictlog_entry::~db_dictlog_entry()
{
/* we might not have allocated these ourselves, so we cannot delete them */
}

/* prints a line from the journal */
void
db_dictlog_entry::print()
{
        switch (action) {
        case DB_ADD_TABLE:
            printf ("add: ");
            break;
        case DB_REMOVE_TABLE:
            printf ("remove: ");
            break;
        default:
            printf ("action(%d): ", action);
            break;
        }

        aversion.print(stdout);
        putchar(' ');
        if (table_name != NULL)
                printf ("table %s\n", table_name);
        else
                printf("no table!\n");
        bversion.print(stdout);
        putchar('\n');
}

static void
free_table_entry(table_obj* obj)
{
        if (obj == NULL)
                return;

        if (obj->ta_type != NULL)
                free(obj->ta_type);

        table_col* tcs = obj->ta_cols.ta_cols_val;
        int i;
        for (i = 0; i < obj->ta_cols.ta_cols_len; i++) {
                if (tcs[i].tc_name != NULL)
                        delete tcs[i].tc_name;
        }
        if (tcs != NULL)
                delete tcs;
        if (obj->ta_path != NULL)
                free(obj->ta_path);
        free(obj);
}

static void
delete_log_entry(db_dictlog_entry *lentry)
{
        char *tname;
        table_obj *obj;
        if (lentry) {
                if ((tname = lentry->get_table_name())) {
                        delete tname;
                }
                if ((obj = lentry->get_table_object())) {
                    free_table_entry(obj);
                }
                delete lentry;
        }
}

/*
 * Execute given function 'func' on log.
 * function takes as arguments: pointer to log entry, character pointer to
 * another argument, and pointer to an integer, which is used as a counter.
 * 'func' should increment this value for each successful application.
 * The log is traversed until either 'func' returns FALSE, or when the log
 * is exhausted.  The second argument to 'execute_on_log' is passed as the
 * second argument to 'func'.  The third argument, 'clean' determines whether
 * the log entry is deleted after the function has been applied.
 * Returns the number of times that 'func' incremented its third argument.
 */
int
db_dictlog::execute_on_log(bool_t (*func) (db_dictlog_entry *,
                                            char *, int *),
                                            char* dict, bool_t clean)
{
        db_dictlog_entry    *j;
        int count = 0;
        bool_t done = FALSE;

        WRITELOCK(this, 0, "w db_dictlog::execute_on_log");
        if (open() == FALSE) {   // open log
                WRITEUNLOCK(this, 0, "wu db_dictlog::execute_on_log");
                return (0);
        }
        while (!done) {
                j = get();
                if (j == NULL)
                        break;
                if ((*func)(j, dict, &count) == FALSE) done = TRUE;
                if (clean) delete_log_entry(j);
        }

        close();
        WRITEUNLOCK(this, count, "wu db_dictlog::execute_on_log");
        return (count);
}

static bool_t
print_log_entry(db_dictlog_entry *j, char*, int *count)
{
        j->print();
        ++ *count;
        return (TRUE);
}

/* Print contents of log file to stdout */
int
db_dictlog::print()
{
        return (execute_on_log(&(print_log_entry), NULL));
}

/*
 * Return the next element in current log; return NULL if end of log or error.
 * Log must have been opened for READ.
 */
db_dictlog_entry
*db_dictlog::get()
{
        db_dictlog_entry *j;

        READLOCK(this, NULL, "r db_dictlog::get");
        if (mode != PICKLE_READ) {
                READUNLOCK(this, NULL, "ru db_dictlog::get");
                return (NULL);
        }

        j = new db_dictlog_entry;

        if (j == NULL) {
                READUNLOCK(this, NULL, "ru db_dictlog::get");
                return (NULL);
        }
        if (xdr_db_dictlog_entry(&(xdr), j) == FALSE) {
                delete_log_entry (j);
/*    WARNING("Could not sucessfully finish reading log"); */
                READUNLOCK(this, NULL, "ru db_dictlog::get");
                return (NULL);
        }
        if (! j->sane()) {
                WARNING("truncated log entry found");
                delete_log_entry(j);
                j = NULL;
        }
        READUNLOCK(this, j, "ru db_dictlog::get");
        return (j);
}

/* Append given log entry to log. */
int
db_dictlog::append(db_dictlog_entry *j)
{
        int status;

        WRITELOCK(this, -1, "w db_dictlog::append");
        if (mode != PICKLE_APPEND) {
                WRITEUNLOCK(this, -1, "wu db_dictlog::append");
                return (-1);
        }

        /* xdr returns TRUE if successful, FALSE otherwise */
        status = ((xdr_db_dictlog_entry(&(xdr), j)) ? 0 : -1);
        if (status < 0) {
                WARNING("db_dictlog: could not write log entry");
                WRITEUNLOCK(this, status, "wu db_dictlog::append");
                return (status);
        }

        status = fflush(file);
        if (status < 0) {
                WARNING("db_dictlog: could not flush log entry to disk");
                WRITEUNLOCK(this, status, "wu db_dictlog::append");
                return (status);
        }

        status = fsync(fileno(file));
        if (status < 0) {
                WARNING("db_dictlog: could not sync log entry to disk");
        }

        WRITEUNLOCK(this, status, "wu db_dictlog::append");
        return (status);
}