#include "module.h"
#include "settings.h"
#include "term.h"
#include "gui-windows.h"
#include <stdarg.h>
#if defined(USE_NCURSES) && !defined(RENAMED_NCURSES)
#  include <ncurses.h>
#else
#  include <curses.h>
#endif
#include <form.h>
#include <panel.h>
#include <menu.h>


#include "cuix-api.h"

#define INIT_ENTRIES 8
#define X0_OFFSET 4
#define Y0_OFFSET 2
#define Y_OFFSET 1
#define CUIX_FIELD_WIDTH 16

object *create_object (char *title, int type, void **entries)
{
    object *obj;
    void **new_entries;
    int i;

    obj = g_malloc (sizeof(object));
    if (!obj) {
        return NULL;
    }
    obj->type = type;
    obj->title = title;
    if (!entries) {
        new_entries = g_new0 (void *, INIT_ENTRIES);
        obj->entries = new_entries;
        obj->alloced = INIT_ENTRIES;
        obj->last = 0;
    } else {
        for (i = 0; ((entry **)entries)[i]; i++);
        obj->alloced = i;
        obj->last = i;
        obj->entries = entries;
    }
    return obj;
}


object *create_menu (char *title)
{
    return create_object (title, CUIX_MENU, NULL);
}


object *create_form (char *title)
{
    return create_object (title, CUIX_FORM, NULL);
}


/* entries must be NULL terminated */
object *create_list (char *title, entry **entries)
{
    return create_object (title, CUIX_LIST, (void **)entries);
}

entry *create_entry (char *label, int type, action_fn_type action)
{
    entry *entry;
    
    entry = g_malloc (sizeof(object));
    if (!entry) {
        return NULL;
    }
    entry->type = type;
    entry->data = label;
    entry->action = action;
    return entry;
}

entry *create_menuentry (char *label, action_fn_type action)
{
    return create_entry (label, CUIX_MENUENTRY, action);
}

entry *create_label (char *label)
{
    return create_entry (label, CUIX_LABEL, NULL);
}


entry *create_field (char *label, action_fn_type action)
{
    return create_entry (label, CUIX_FIELD, action);
}



/* Adds child at the last position of father->entries */
void attach_entry (object *father, void *child)
{
    void **entries;
    int i;

    /* Check that we have enough space in father->entries, otherwise alloc
     * twice more than previously */
    if (father->last >= father->alloced) {
        entries = g_new0 (void *,2 * father->alloced);
        if (!entries) {
            fprintf (stderr, "Problem with memory allocation, quitting now...\n");
            exit (1);
        }
        for (i = 0; i < father->alloced; i++) {
            entries[i] = father->entries[i];
        }
        g_free (father->entries);
        father->entries = entries;
        father->alloced *= 2;
    }
    father->entries[father->last++] = child;
}


/* Adds a submenu to father */
void attach_submenu (object *father, object *child)
{ 

    /* Check that both are really menus */
    if (father->type != CUIX_MENU || child->type != CUIX_MENU) {
        fprintf (stderr, "Typing error, trying to add %p (%d) as child of"
                "%p (%d)\n", father, father->type, child, child->type);
        exit (1);
    }
    attach_entry (father, (void *)child);
}


/* Returns the maximum width occupied by labels */
int get_labels_width (object *obj)
{
    int i;
    unsigned int w = 0;
    entry *e;
    object *o;

    for (i = 0; i < obj->last; i++) {
        e = (entry *)obj->entries[i];
        if (e->type == CUIX_LABEL || e->type == CUIX_MENUENTRY) {
            w = (w > strlen (e->data)) ? w : strlen (e->data);
        }
        if (e->type == CUIX_MENU) {
            o = (object *)obj->entries[i];
            w = (w > strlen (o->title)) ? w : strlen (o->title);
        }

    }
    w += 2 * X0_OFFSET;
    return (int)w;
}


/* Puts in x and y the coordinates to center an object of size objw and objh
 * in the window win */
void get_center (WINDOW *win, int objh, int objw, int *y, int *x)
{
    int begx, begy, maxx, maxy, w, h;
    getbegyx (win, begy, begx);
    getmaxyx (win, maxy, maxx);
    w = maxx - begx;
    h = maxy - begy;
    *x = (w - objw) / 2 + begx;
    *y = (h - objh) / 2 + begy;
    if (*x < 0)
        *x = 0;
    if (*y < 0)
        *y = 0;
}



void display_object (object *obj)
{
    WINDOW *subwin;
    FORM *form;
    MENU *menu;
    FIELD **fields;
    ITEM **items, *cur_item;
    object *o;
    entry *e;
    char *result;
    int i, x, y, w, h;
    int ch;
    p_main = new_panel(root_window->win);

    if (obj->type >= CUIX_LABEL) {
        fprintf (stderr, "Trying to display an entry %p (%d), terminating...\n",
                obj, obj->type);
        exit (1);
    }

    switch (obj->type) {
        case CUIX_LIST:
            w = get_labels_width (obj);
            h = Y_OFFSET * obj->last + 2 * Y0_OFFSET;
            get_center (root_window->win, h, w, &y, &x);
            cuix_win = newwin (h, w, y, x);
            box (cuix_win, 0, 0);
            p_cuix = new_panel(cuix_win);
            x = X0_OFFSET;
            y = Y0_OFFSET;

            for (i = 0; i < obj->last; i++) {
                e = (entry *)obj->entries[i];
                if (e->type != CUIX_LABEL) {
                    fprintf (stderr, "Non-label entry in a list.\n");
                    exit (1);
                } 
                wmove (cuix_win,y,x);
                waddstr (cuix_win,e->data);
                y += Y_OFFSET;
                x = X0_OFFSET;
            }
            top_panel (p_cuix);
            update_panels();
            doupdate();
            wgetch(cuix_win);
            /* refresh (); */
            /* wrefresh (cuix_win); */
            break;

        case CUIX_FORM:
            w = get_labels_width (obj);
            w = (w > CUIX_FIELD_WIDTH + 2 * X0_OFFSET) ?
                w : CUIX_FIELD_WIDTH + 2 * X0_OFFSET;
            h = Y_OFFSET * obj->last + 2 * Y0_OFFSET;
            fields = g_new0 (FIELD *, obj->last + 1);
            for (i = 0; i < obj->last; i++) {
                e = (entry *)obj->entries[i];
                fields[i] = new_field (1, w,
                        Y0_OFFSET + i * Y_OFFSET, X0_OFFSET, 0, 0);
                if (e->type == CUIX_LABEL) {
                    field_opts_off (fields[i], O_ACTIVE);
                    field_opts_off (fields[i], O_EDIT);
                    set_field_back  (fields[i], A_BOLD);
                }
                set_field_buffer (fields[i], 0, e->data);
            }
            fields[obj->last] = NULL;
            form = new_form (fields);
            scale_form (form, &h, &w);
            h += Y0_OFFSET;
            w += 2 * X0_OFFSET;
            get_center (root_window->win, h, w, &y, &x);
            cuix_win = newwin (h, w, y, x);
            keypad (cuix_win, TRUE);
            nonl ();
            set_form_win (form, cuix_win);
            set_form_sub (form, derwin(cuix_win, w, h, X0_OFFSET, Y0_OFFSET));
            post_form (form);
            box (cuix_win, 0, 0);
            p_cuix = new_panel (cuix_win);
            top_panel (p_cuix);
            while((ch = wgetch(cuix_win)) != '\n' && ch != '\r' && ch != 27 /* ESC */) {       
                switch(ch) {       
                    case KEY_DOWN:
                        /* Go to next field */
                        form_driver(form, REQ_NEXT_FIELD);
                        /* Go to the end of the present buffer */
                        /* Leaves nicely at the last character */
                        form_driver(form, REQ_END_LINE);
                        break;
                    case KEY_UP:
                        /* Go to previous field */
                        form_driver(form, REQ_PREV_FIELD);
                        form_driver(form, REQ_END_LINE);
                        break;
                    case KEY_BACKSPACE:
                        form_driver(form, REQ_PREV_CHAR);
                        form_driver(form, REQ_DEL_CHAR);
                        break;
                    case KEY_LEFT:
                        form_driver(form, REQ_PREV_CHAR);
                        break;
                    case KEY_RIGHT:
                        form_driver(form, REQ_NEXT_CHAR);
                        break;
                    default:
                        /* If this is a normal character, it gets */
                        /* Printed                                */    
                        form_driver(form, ch);
                        break;
                }
            }
            form_driver (form, REQ_VALIDATION);
            if (ch != 27) {
                for (i = 0; i < obj->last; i++) {
                    e = (entry *)obj->entries[i];
                    if (e->type == CUIX_FIELD) {
                        result = field_buffer(fields[i],0);
                        e->action (result);
                    }
                }
            }
            for (i = 0; i < obj->last; i++) {
                free_field (fields[i]);
            }
            g_free (fields);
            unpost_form (form);

            break;

        case CUIX_MENU:
            w = get_labels_width (obj);
            w = (w > CUIX_FIELD_WIDTH + 2 * X0_OFFSET) ?
                w : CUIX_FIELD_WIDTH + 2 * X0_OFFSET;
            h = Y_OFFSET * obj->last + 2 * Y0_OFFSET;
            items = g_new0 (ITEM *, obj->last + 1);
            for (i = 0; i < obj->last; i++) {
                e = (entry *)obj->entries[i];
                o = (object *)obj->entries[i];
                if (e->type == CUIX_MENUENTRY) {
                    items[i] = new_item (e->data, "");
                    set_item_userptr (items[i], (void*)e);
                } else {
                    if (e->type == CUIX_LABEL) {
                        items[i] = new_item (e->data, "");
                        item_opts_off (items[i], O_SELECTABLE);
                    } else {
                        items[i] = new_item (o->title, " (SUB) ");
                        set_item_userptr (items[i], (void*)o);
                    }
                }
            }
            items[obj->last] = NULL;
            menu = new_menu (items);
            set_menu_mark (menu, " * ");
            scale_menu (menu, &h, &w);
            h += 4 * Y0_OFFSET;
            w += 4 * X0_OFFSET;
            get_center (root_window->win, h, w, &y, &x);
             cuix_win = newwin (h, w, y, x);
            keypad (cuix_win, TRUE);
            nonl ();
            set_menu_win (menu, cuix_win);
            subwin = derwin (cuix_win,
                    h - 2 * Y0_OFFSET, w - 2 * X0_OFFSET, Y0_OFFSET, X0_OFFSET);
            set_menu_sub (menu, subwin);
            box (cuix_win, 0, 0);
            post_menu (menu);
            p_cuix = new_panel (cuix_win);
            top_panel (p_cuix);
            while((ch = wgetch(cuix_win)) != 27 /* ESC */) {       
                switch(ch) {       
                    case KEY_DOWN:
                        menu_driver(menu, REQ_DOWN_ITEM);
                        break;
                    case KEY_UP:
                        menu_driver(menu, REQ_UP_ITEM);
                        break;
                    case '\n':
                    case '\r':
                        cur_item = current_item(menu);
                        e = (entry *)item_userptr(cur_item);
                        o = (object *)item_userptr(cur_item);
                        if (e->type == CUIX_MENUENTRY)
                        {
                            e->action ("");
                        } else {
                            display_object (o);
                        }
                        goto end;
                        break;
                    default:
                        break;
                }
            }
end:
            for (i = 0; i < obj->last; i++) {
                free_item (items[i]);
            }
            g_free (items);
            unpost_menu (menu);
    }
}