/*
 * Implementation of the Microsoft Installer (msi.dll)
 *
 * Copyright 2004 Mike McCormack for CodeWeavers
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
 */

#include <stdarg.h>

#include "debug.h"
#include "libmsi.h"
#include "msipriv.h"

#include "query.h"



/* below is the query interface to a table */

typedef struct _LibmsiInsertView
{
    LibmsiView          view;
    LibmsiView         *table;
    LibmsiDatabase     *db;
    bool             bIsTemp;
    LibmsiView         *sv;
    column_info     *vals;
} LibmsiInsertView;

static unsigned insert_view_fetch_int( LibmsiView *view, unsigned row, unsigned col, unsigned *val )
{
    LibmsiInsertView *iv = (LibmsiInsertView*)view;

    TRACE("%p %d %d %p\n", iv, row, col, val );

    return LIBMSI_RESULT_FUNCTION_FAILED;
}

/*
 * msi_query_merge_record
 *
 * Merge a value_list and a record to create a second record.
 * Replace wildcard entries in the valuelist with values from the record
 */
LibmsiRecord *msi_query_merge_record( unsigned fields, const column_info *vl, LibmsiRecord *rec )
{
    LibmsiRecord *merged;
    unsigned wildcard_count = 1, i;

    merged = libmsi_record_new( fields );
    for( i=1; i <= fields; i++ )
    {
        if( !vl )
        {
            TRACE("Not enough elements in the list to insert\n");
            goto err;
        }
        switch( vl->val->type )
        {
        case EXPR_SVAL:
            TRACE("field %d -> %s\n", i, debugstr_a(vl->val->u.sval));
            libmsi_record_set_string( merged, i, vl->val->u.sval );
            break;
        case EXPR_IVAL:
            libmsi_record_set_int( merged, i, vl->val->u.ival );
            break;
        case EXPR_WILDCARD:
            if( !rec )
                goto err;
            _libmsi_record_copy_field( rec, wildcard_count, merged, i );
            wildcard_count++;
            break;
        default:
            g_critical("Unknown expression type %d\n", vl->val->type);
        }
        vl = vl->next;
    }

    return merged;
err:
    g_object_unref(merged);
    return NULL;
}

/* checks to see if the column order specified in the INSERT query
 * matches the column order of the table
 */
static bool msi_columns_in_order(LibmsiInsertView *iv, unsigned col_count)
{
    const char *a;
    const char *b;
    unsigned i;

    for (i = 1; i <= col_count; i++)
    {
        iv->sv->ops->get_column_info(iv->sv, i, &a, NULL, NULL, NULL);
        iv->table->ops->get_column_info(iv->table, i, &b, NULL, NULL, NULL);

        if (strcmp( a, b )) return false;
    }
    return true;
}

/* rearranges the data in the record to be inserted based on column order,
 * and pads the record for any missing columns in the INSERT query
 */
static unsigned msi_arrange_record(LibmsiInsertView *iv, LibmsiRecord **values)
{
    LibmsiRecord *padded;
    unsigned col_count, val_count;
    unsigned r, i, colidx;
    const char *a;
    const char *b;

    r = iv->table->ops->get_dimensions(iv->table, NULL, &col_count);
    if (r != LIBMSI_RESULT_SUCCESS)
        return r;

    val_count = libmsi_record_get_field_count(*values);

    /* check to see if the columns are arranged already
     * to avoid unnecessary copying
     */
    if (col_count == val_count && msi_columns_in_order(iv, col_count))
        return LIBMSI_RESULT_SUCCESS;

    padded = libmsi_record_new(col_count);
    if (!padded)
        return LIBMSI_RESULT_OUTOFMEMORY;

    for (colidx = 1; colidx <= val_count; colidx++)
    {
        r = iv->sv->ops->get_column_info(iv->sv, colidx, &a, NULL, NULL, NULL);
        if (r != LIBMSI_RESULT_SUCCESS)
            goto err;

        for (i = 1; i <= col_count; i++)
        {
            r = iv->table->ops->get_column_info(iv->table, i, &b, NULL,
                                                NULL, NULL);
            if (r != LIBMSI_RESULT_SUCCESS)
                goto err;

            if (!strcmp( a, b ))
            {
                _libmsi_record_copy_field(*values, colidx, padded, i);
                break;
            }
        }
    }
    g_object_unref(*values);
    *values = padded;
    return LIBMSI_RESULT_SUCCESS;

err:
    g_object_unref(padded);
    return r;
}

static bool row_has_null_primary_keys(LibmsiInsertView *iv, LibmsiRecord *row)
{
    unsigned r, i, col_count, type;

    r = iv->table->ops->get_dimensions( iv->table, NULL, &col_count );
    if (r != LIBMSI_RESULT_SUCCESS)
        return false;

    for (i = 1; i <= col_count; i++)
    {
        r = iv->table->ops->get_column_info(iv->table, i, NULL, &type,
                                            NULL, NULL);
        if (r != LIBMSI_RESULT_SUCCESS)
            return false;

        if (!(type & MSITYPE_KEY))
            continue;

        if (libmsi_record_is_null(row, i))
            return true;
    }

    return false;
}

static unsigned insert_view_execute( LibmsiView *view, LibmsiRecord *record )
{
    LibmsiInsertView *iv = (LibmsiInsertView*)view;
    unsigned r, row = -1, col_count = 0;
    LibmsiView *sv;
    LibmsiRecord *values = NULL;

    TRACE("%p %p\n", iv, record );

    sv = iv->sv;
    if( !sv )
        return LIBMSI_RESULT_FUNCTION_FAILED;

    r = sv->ops->execute( sv, 0 );
    TRACE("sv execute returned %x\n", r);
    if( r )
        return r;

    r = sv->ops->get_dimensions( sv, NULL, &col_count );
    if( r )
        goto err;

    /*
     * Merge the wildcard values into the list of values provided
     * in the query, and create a record containing both.
     */
    values = msi_query_merge_record( col_count, iv->vals, record );
    if( !values )
        goto err;

    r = msi_arrange_record( iv, &values );
    if( r != LIBMSI_RESULT_SUCCESS )
        goto err;

    /* rows with NULL primary keys are inserted at the beginning of the table */
    if( row_has_null_primary_keys( iv, values ) )
        row = 0;

    r = iv->table->ops->insert_row( iv->table, values, row, iv->bIsTemp );

err:
    if( values )
        g_object_unref(values);

    return r;
}


static unsigned insert_view_close( LibmsiView *view )
{
    LibmsiInsertView *iv = (LibmsiInsertView*)view;
    LibmsiView *sv;

    TRACE("%p\n", iv);

    sv = iv->sv;
    if( !sv )
        return LIBMSI_RESULT_FUNCTION_FAILED;

    return sv->ops->close( sv );
}

static unsigned insert_view_get_dimensions( LibmsiView *view, unsigned *rows, unsigned *cols )
{
    LibmsiInsertView *iv = (LibmsiInsertView*)view;
    LibmsiView *sv;

    TRACE("%p %p %p\n", iv, rows, cols );

    sv = iv->sv;
    if( !sv )
        return LIBMSI_RESULT_FUNCTION_FAILED;

    return sv->ops->get_dimensions( sv, rows, cols );
}

static unsigned insert_view_get_column_info( LibmsiView *view, unsigned n, const char **name,
                                    unsigned *type, bool *temporary, const char **table_name )
{
    LibmsiInsertView *iv = (LibmsiInsertView*)view;
    LibmsiView *sv;

    TRACE("%p %d %p %p %p %p\n", iv, n, name, type, temporary, table_name );

    sv = iv->sv;
    if( !sv )
        return LIBMSI_RESULT_FUNCTION_FAILED;

    return sv->ops->get_column_info( sv, n, name, type, temporary, table_name );
}

static unsigned insert_view_delete( LibmsiView *view )
{
    LibmsiInsertView *iv = (LibmsiInsertView*)view;
    LibmsiView *sv;

    TRACE("%p\n", iv );

    sv = iv->sv;
    if( sv )
        sv->ops->delete( sv );
    g_object_unref(iv->db);
    msi_free( iv );

    return LIBMSI_RESULT_SUCCESS;
}

static unsigned insert_view_find_matching_rows( LibmsiView *view, unsigned col,
    unsigned val, unsigned *row, MSIITERHANDLE *handle )
{
    TRACE("%p, %d, %u, %p\n", view, col, val, *handle);

    return LIBMSI_RESULT_FUNCTION_FAILED;
}


static const LibmsiViewOps insert_ops =
{
    insert_view_fetch_int,
    NULL,
    NULL,
    NULL,
    NULL,
    NULL,
    insert_view_execute,
    insert_view_close,
    insert_view_get_dimensions,
    insert_view_get_column_info,
    insert_view_delete,
    insert_view_find_matching_rows,
    NULL,
    NULL,
    NULL,
    NULL,
    NULL,
    NULL,
};

G_GNUC_PURE
static unsigned count_column_info( const column_info *ci )
{
    unsigned n = 0;
    for ( ; ci; ci = ci->next )
        n++;
    return n;
}

unsigned insert_view_create( LibmsiDatabase *db, LibmsiView **view, const char *table,
                        column_info *columns, column_info *values, bool temp )
{
    LibmsiInsertView *iv = NULL;
    unsigned r;
    LibmsiView *tv = NULL, *sv = NULL;

    TRACE("%p\n", iv );

    /* there should be one value for each column */
    if ( count_column_info( columns ) != count_column_info(values) )
        return LIBMSI_RESULT_BAD_QUERY_SYNTAX;

    r = table_view_create( db, table, &tv );
    if( r != LIBMSI_RESULT_SUCCESS )
        return r;

    r = select_view_create( db, &sv, tv, columns );
    if( r != LIBMSI_RESULT_SUCCESS )
    {
        if( tv )
            tv->ops->delete( tv );
        return r;
    }

    iv = msi_alloc_zero( sizeof *iv );
    if( !iv )
        return LIBMSI_RESULT_FUNCTION_FAILED;

    /* fill the structure */
    iv->view.ops = &insert_ops;

    iv->table = tv;
    iv->db = g_object_ref(db);
    iv->vals = values;
    iv->bIsTemp = temp;
    iv->sv = sv;
    *view = (LibmsiView*) iv;

    return LIBMSI_RESULT_SUCCESS;
}