Merge of cuix back in trunk

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4309 dbcabf3a-b0e7-0310-adc4-f8d773084564

1 files changed, 386 insertions, 0 deletions

diff --git a/src/fe-text/cuix-api.c b/src/fe-text/cuix-api.c
new file mode 100644
index 00000000..f8e9f614
--- /dev/null
+++ b/src/fe-text/cuix-api.c
@@ -0,0 +1,386 @@
+#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);
+    }
+}