/**********************************************************
 * MODULE:    mysql
 * AUTHOR(S): Radim Blazek (radim.blazek@gmail.com)
 * PURPOSE:   MySQL database driver
 * COPYRIGHT: (C) 2001 by the GRASS Development Team
 *            This program is free software under the
 *            GNU General Public License (>=v2).
 *            Read the file COPYING that comes with GRASS
 *            for details.
 **********************************************************/
#include <stdlib.h>
#include <string.h>

#include <grass/gis.h>
#include <grass/dbmi.h>
#include <grass/glocale.h>

#include "globals.h"
#include "proto.h"

int db__driver_fetch(dbCursor *cn, int position, int *more)
{
    cursor *c;
    dbToken token;
    dbTable *table;
    int i;

    /* get cursor token */
    token = db_get_cursor_token(cn);

    /* get the cursor by its token */
    if (!(c = (cursor *)db_find_token(token))) {
        db_d_append_error(_("Cursor not found"));
        db_d_report_error();
        return DB_FAILED;
    }

    /* fetch on position */
    switch (position) {
    case DB_NEXT:
        c->row = mysql_fetch_row(c->res);
        break;

    case DB_CURRENT:
        break;

    case DB_PREVIOUS:
    case DB_FIRST:
    case DB_LAST:
    default:
        db_d_append_error(_("Cursor position is not supported "
                            "by MySQL driver"));
        db_d_report_error();
        return DB_FAILED;
    }

    G_debug(3, "nrows = %d", c->nrows);
    if (c->row == NULL) {
        *more = 0;
        return DB_OK;
    }

    *more = 1;

    /* get the data out of the descriptor into the table */
    table = db_get_cursor_table(cn);

    for (i = 0; i < c->ncols; i++) {
        int col, sqltype, mysqltype;
        dbColumn *column;
        dbValue *value;
        char *val;

        col = c->cols[i]; /* known column */

        column = db_get_table_column(table, i);
        mysqltype = db_get_column_host_type(column);
        sqltype = db_get_column_sqltype(column);

        value = db_get_column_value(column);
        db_zero_string(&value->s);
        value->t.year = 0;
        value->t.month = 0;
        value->t.day = 0;
        value->t.hour = 0;
        value->t.minute = 0;
        value->t.seconds = 0.0;

        val = c->row[i];
        if (!val) {
            value->isNull = 1;
            continue;
        }
        else {
            value->isNull = 0;
        }

        G_debug(3, "col %d, mysqltype %d, sqltype %d, val = '%s'", col,
                mysqltype, sqltype, c->row[col]);

        /* defined in /usr/include/mysql/mysql_com.h */
        switch (mysqltype) {
            int ns;

        case MYSQL_TYPE_TINY:
        case MYSQL_TYPE_SHORT:
        case MYSQL_TYPE_LONG:
        case MYSQL_TYPE_INT24:
        case MYSQL_TYPE_LONGLONG:
        case MYSQL_TYPE_YEAR:
            value->i = atoi(val);
            break;

        case MYSQL_TYPE_FLOAT:
        case MYSQL_TYPE_DOUBLE:
            value->d = atof(val);
            break;

            /* MySQL TIMESTAMP < 4.1: YYYYMMDDHHMMSS TIMESTAMP(14)
             *                        YYMMDDHHMMSS   TIMESTAMP(12)
             *                        YYMMDDHHMM     TIMESTAMP(10)
             *                        YYYYMMDD       TIMESTAMP(8)
             *                        YYMMDD         TIMESTAMP(6)
             *                        YYMM           TIMESTAMP(4)
             *                        YY             YY
             * MySQL TIMESTAMP >= 4.1: 'YYYY-MM-DD HH:MM:SS' (19 chars) */
        case MYSQL_TYPE_TIMESTAMP: {
            char valbuf[25], buf[10];

            memset(valbuf, 0, 25);
            strcpy(valbuf, val);

            switch (strlen(val)) {
            case 2:
            case 4:
            case 6:
            case 10:
            case 12:
                strncpy(buf, val, 2);
                buf[2] = 0;
                value->t.year = atoi(buf);
                strncpy(buf, val + 2, 2);
                buf[2] = 0;
                value->t.month = atoi(buf);
                strncpy(buf, val + 4, 2);
                buf[2] = 0;
                value->t.day = atoi(buf);
                strncpy(buf, val + 6, 2);
                buf[2] = 0;
                value->t.hour = atoi(buf);
                strncpy(buf, val + 8, 2);
                buf[2] = 0;
                value->t.minute = atoi(buf);
                strncpy(buf, val + 10, 2);
                buf[2] = 0;
                value->t.seconds = atof(buf);
                break;

            case 8:
            case 14:
                strncpy(buf, val, 4);
                buf[4] = 0;
                value->t.year = atoi(buf);
                strncpy(buf, val + 4, 2);
                buf[2] = 0;
                value->t.month = atoi(buf);
                strncpy(buf, val + 6, 2);
                buf[2] = 0;
                value->t.day = atoi(buf);
                strncpy(buf, val + 8, 2);
                buf[2] = 0;
                value->t.hour = atoi(buf);
                strncpy(buf, val + 10, 2);
                buf[2] = 0;
                value->t.minute = atoi(buf);
                strncpy(buf, val + 12, 2);
                buf[2] = 0;
                value->t.seconds = atof(buf);
                break;

            case 19:
                ns =
                    sscanf(val, "%4d-%2d-%2d %2d:%2d:%lf", &(value->t.year),
                           &(value->t.month), &(value->t.day), &(value->t.hour),
                           &(value->t.minute), &(value->t.seconds));

                if (ns != 6) {
                    db_d_append_error("%s %s", _("Unable to scan timestamp: "),
                                      val);
                    db_d_report_error();
                    return DB_FAILED;
                }
                break;

            default:
                db_d_append_error("%s %s", _("Unknown timestamp format: "),
                                  val);
                db_d_report_error();
                return DB_FAILED;
            }
        } break;

            /* MySQL DATE: 'YYYY-MM-DD' */
        case MYSQL_TYPE_DATE:
            ns = sscanf(val, "%4d-%2d-%2d", &(value->t.year), &(value->t.month),
                        &(value->t.day));

            if (ns != 3) {
                db_d_append_error("%s %s", _("Unable to scan date: "), val);
                db_d_report_error();
                return DB_FAILED;
            }
            break;

            /* MySQL DATETIME: 'HH:MM:SS' */
        case MYSQL_TYPE_TIME:
            ns = sscanf(val, "%2d:%2d:%lf", &(value->t.hour),
                        &(value->t.minute), &(value->t.seconds));

            if (ns != 3) {
                db_d_append_error("%s %s", _("Unable to scan time: "), val);
                db_d_report_error();
                return DB_FAILED;
            }
            break;

            /* MySQL DATETIME: 'YYYY-MM-DD HH:MM:SS' */
        case MYSQL_TYPE_DATETIME:
            ns = sscanf(val, "%4d-%2d-%2d %2d:%2d:%lf", &(value->t.year),
                        &(value->t.month), &(value->t.day), &(value->t.hour),
                        &(value->t.minute), &(value->t.seconds));

            if (ns != 6) {
                db_d_append_error("%s %s", _("Unable to scan datetime:"), val);
                db_d_report_error();
                return DB_FAILED;
            }
            break;

        case MYSQL_TYPE_STRING:
        case MYSQL_TYPE_VAR_STRING:
        case MYSQL_TYPE_SET:
        case MYSQL_TYPE_ENUM:
        case MYSQL_TYPE_BLOB:
            db_set_string(&(value->s), val);
            break;
        }
    }
    G_debug(3, "Row fetched");
    return DB_OK;
}

int db__driver_get_num_rows(cn)
dbCursor *cn;
{
    cursor *c;
    dbToken token;

    /* get cursor token */
    token = db_get_cursor_token(cn);

    /* get the cursor by its token */
    if (!(c = (cursor *)db_find_token(token))) {
        db_d_append_error(_("Cursor not found"));
        db_d_report_error();
        return DB_FAILED;
    }

    return (c->nrows);
}
