ui/motif/text.c

/*
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
 *
 * Copyright 2025 Olaf Wintermann. All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *
 *   1. Redistributions of source code must retain the above copyright
 *      notice, this list of conditions and the following disclaimer.
 *
 *   2. Redistributions in binary form must reproduce the above copyright
 *      notice, this list of conditions and the following disclaimer in the
 *      documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>

#include "text.h"
#include "container.h"
#include "pathbar.h"

#include <cx/string.h>


/* ------------------------------ Text Area ------------------------------ */

UIWIDGET ui_textarea_create(UiObject *obj, UiTextAreaArgs *args) {
    Arg xargs[16];
    int n = 0;
    
    XtSetArg(xargs[n], XmNeditMode, XmMULTI_LINE_EDIT); n++;
    
    UiContainerPrivate *ctn = ui_obj_container(obj);
    UiLayout layout = UI_ARGS2LAYOUT(args);
    
    Widget parent = ui_container_prepare(ctn, &layout, xargs, &n);
    char *name = args->name ? (char*)args->name : "textarea";
    XtSetArg(xargs[n], XmNwidth, 100); n++;
    Widget widget = XmCreateScrolledText(parent, name, xargs, n);
    XtManageChild(widget);
    ui_container_add(ctn, widget);
    
    UiVar* var = uic_widget_var(obj->ctx, obj->ctx, args->value, args->varname, UI_VAR_TEXT);
    
    UiTextArea *textarea = malloc(sizeof(UiTextArea));
    memset(textarea, 0, sizeof(UiTextArea));
    textarea->obj = obj;
    textarea->var = var;
    
    if(var) {
        UiText *value = var->value;
        if(value->value.ptr) {
            XmTextSetString(widget, value->value.ptr);
            value->value.free(value->value.ptr);
            value->value.ptr = NULL;
        }
        
        value->save = ui_textarea_save;
        value->restore = ui_textarea_restore;
        value->destroy = ui_textarea_text_destroy;
        value->set = ui_textarea_set;
        value->get = ui_textarea_get;
        value->getsubstr = ui_textarea_getsubstr;
        value->insert = ui_textarea_insert;
        value->setposition = ui_textarea_setposition;
        value->position = ui_textarea_position;
        value->selection = ui_textarea_selection;
        value->length = ui_textarea_length;
        value->value.ptr = NULL;
        value->obj = widget;
        
        if(!value->data2) {
            value->data2 = ui_create_undomgr();
        }
        
        XtAddCallback(
                widget,
                XmNmodifyVerifyCallback,
                (XtCallbackProc)ui_text_modify_callback,
                var);
    }
    
    return widget;
}

char* ui_textarea_get(UiText *text) {
    if(text->value.ptr) {
        text->value.free(text->value.ptr);
    }
    char *str = XmTextGetString(text->obj);
    text->value.ptr = str;
    text->value.free = (ui_freefunc)XtFree;
    return str;
}

void ui_textarea_save(UiText *text) {
    (void)ui_textarea_get(text);
}

void ui_textarea_restore(UiText *text) {
    if(text->value.ptr) {
        ui_textarea_set(text, text->value.ptr);
    }
}

void ui_textarea_text_destroy(UiText *text) {
    if(text->value.free) {
        text->value.free(text->value.ptr);
    }
    if(text->data2) {
        ui_destroy_undomgr(text->data2);
    }
}

void ui_textarea_set(UiText *text, const char *str) {
    XmTextSetString(text->obj, (char*)str);
    if(text->value.ptr) {
        text->value.free(text->value.ptr);
    }
    text->value.ptr = NULL;
}

char* ui_textarea_getsubstr(UiText *text, int begin, int end) {
    if(text->value.ptr) {
        text->value.free(text->value.ptr);
    }
    int length = end - begin;
    char *str = XtMalloc(length + 1);
    XmTextGetSubstring(text->obj, begin, length, length + 1, str);
    text->value.ptr = str;
    text->value.free = (ui_freefunc)XtFree;
    return str;
}

void ui_textarea_insert(UiText *text, int pos, char *str) {
    text->value.ptr = NULL;
    XmTextInsert(text->obj, pos, str);
    if(text->value.ptr) {
        text->value.free(text->value.ptr);
    }
}

void ui_textarea_setposition(UiText *text, int pos) {
    XmTextSetInsertionPosition(text->obj, pos);
}

int ui_textarea_position(UiText *text) {
    long begin;
    long end;
    XmTextGetSelectionPosition(text->obj, &begin, &end);
    text->pos = begin;
    return text->pos;
}

void ui_textarea_selection(UiText *text, int *begin, int *end) {
    XmTextGetSelectionPosition(text->obj, (long*)begin, (long*)end);
}

int ui_textarea_length(UiText *text) {
    return (int)XmTextGetLastPosition(text->obj);
}


UiUndoMgr* ui_create_undomgr() {
    UiUndoMgr *mgr = malloc(sizeof(UiUndoMgr));
    mgr->begin = NULL;
    mgr->end = NULL;
    mgr->cur = NULL;
    mgr->length = 0;
    mgr->event = 1;
    return mgr;
}

void ui_destroy_undomgr(UiUndoMgr *mgr) {
    UiTextBufOp *op = mgr->begin;
    while(op) {
        UiTextBufOp *nextOp = op->next;
        if(op->text) {
            free(op->text);
        }
        free(op);
        op = nextOp;
    }
    free(mgr);
}

void ui_text_selection_callback(
        Widget widget,
        UiTextArea *textarea,
        XtPointer data)
{
    long left = 0;
    long right = 0;
    XmTextGetSelectionPosition(widget, &left, &right);
    int sel = left < right ? 1 : 0;
    if(sel != textarea->last_selection_state) {
        if(sel) {
            ui_set_group(textarea->obj->ctx, UI_GROUP_SELECTION);
        } else {
            ui_unset_group(textarea->obj->ctx, UI_GROUP_SELECTION);
        }
    }
    textarea->last_selection_state = sel;
}

void ui_text_modify_callback(Widget widget, UiVar *var, XtPointer data) {
    UiText *value = var->value;
    if(!value->obj) {
        // TODO: bug, fix
        return;
    }
    if(!value->data2) {
        value->data2 = ui_create_undomgr();
    }
    
    XmTextVerifyCallbackStruct *txv = (XmTextVerifyCallbackStruct*)data;
    int type = txv->text->length > 0 ? UI_TEXTBUF_INSERT : UI_TEXTBUF_DELETE;
    UiUndoMgr *mgr = value->data2;
    if(!mgr->event) {
        return;
    }
    
    char *text = txv->text->ptr;
    int length = txv->text->length;
    
    if(mgr->cur) {
        UiTextBufOp *elm = mgr->cur->next;
        if(elm) {
            mgr->cur->next = NULL;
            mgr->end = mgr->cur;
            while(elm) {
                elm->prev = NULL;   
                UiTextBufOp *next = elm->next;
                ui_free_textbuf_op(elm);
                elm = next;
            }
        }
        
        UiTextBufOp *last_op = mgr->cur;
        if(
            last_op->type == UI_TEXTBUF_INSERT &&
            ui_check_insertstr(last_op->text, last_op->len, text, length) == 0)
        {
            // append text to last op       
            int ln = last_op->len;
            char *newtext = malloc(ln + length + 1);
            memcpy(newtext, last_op->text, ln);
            memcpy(newtext+ln, text, length);
            newtext[ln+length] = '\0';
            
            last_op->text = newtext;
            last_op->len = ln + length;
            last_op->end += length;
            
            return;
        }
    }
    
    char *str;
    if(type == UI_TEXTBUF_INSERT) {
        str = malloc(length + 1);
        memcpy(str, text, length);
        str[length] = 0;
    } else {
        length = txv->endPos - txv->startPos;
        str = malloc(length + 1);
        XmTextGetSubstring(value->obj, txv->startPos, length, length+1, str);
    }
    
    UiTextBufOp *op = malloc(sizeof(UiTextBufOp));
    op->prev = NULL;
    op->next = NULL;
    op->type = type;
    op->start = txv->startPos;
    op->end = txv->endPos + 1;
    op->len = length;
    op->text = str;
    
    cx_linked_list_add(
            (void**)&mgr->begin,
            (void**)&mgr->end,
            offsetof(UiTextBufOp, prev),
            offsetof(UiTextBufOp, next),
            op);
    
    mgr->cur = op;
}

int ui_check_insertstr(char *oldstr, int oldlen, char *newstr, int newlen) {
    // return 1 if oldstr + newstr are one word
    
    int has_space = 0;
    for(int i=0;i<oldlen;i++) {
        if(oldstr[i] < 33) {
            has_space = 1;
            break;
        }
    }
    
    for(int i=0;i<newlen;i++) {
        if(has_space && newstr[i] > 32) {
            return 1;
        }
    }
    
    return 0;
}

void ui_free_textbuf_op(UiTextBufOp *op) {
    if(op->text) {
        free(op->text);
    }
    free(op);
}


void ui_text_undo(UiText *value) {
    UiUndoMgr *mgr = value->data2;
    
    if(mgr->cur) {
        UiTextBufOp *op = mgr->cur;
        mgr->event = 0;
        switch(op->type) {
            case UI_TEXTBUF_INSERT: {
                XmTextReplace(value->obj, op->start, op->end, "");
                break;
            }
            case UI_TEXTBUF_DELETE: {
                XmTextInsert(value->obj, op->start, op->text);
                break;
            }
        }
        mgr->event = 1;
        mgr->cur = mgr->cur->prev;
    }
}

void ui_text_redo(UiText *value) {
    UiUndoMgr *mgr = value->data2;
    
    UiTextBufOp *elm = NULL;
    if(mgr->cur) {
        if(mgr->cur->next) {
            elm = mgr->cur->next;
        }
    } else if(mgr->begin) {
        elm = mgr->begin;
    }
    
    if(elm) {
        UiTextBufOp *op = elm;
        mgr->event = 0;
        switch(op->type) {
            case UI_TEXTBUF_INSERT: {
                XmTextInsert(value->obj, op->start, op->text);
                break;
            }
            case UI_TEXTBUF_DELETE: {
                XmTextReplace(value->obj, op->start, op->end, "");
                break;
            }
        }
        mgr->event = 1;
        mgr->cur = elm;
    }
}


/* ------------------------------ Text Field ------------------------------ */

static UIWIDGET create_textfield(UiObject *obj, UiTextFieldArgs *args, int frameless, int password) {
    Arg xargs[16];
    int n = 0;
    
    if(frameless) {
        XtSetArg(xargs[n], XmNshadowThickness, 0);
        n++;
    }
    if(password) {
        // TODO
    }
    
    UiContainerPrivate *ctn = ui_obj_container(obj);
    UiLayout layout = UI_ARGS2LAYOUT(args);
    
    Widget parent = ui_container_prepare(ctn, &layout, xargs, &n);
    char *name = args->name ? (char*)args->name : "textfield";
    Widget textfield = XmCreateTextField(parent, name, xargs, n);
    XtManageChild(textfield);
    ui_container_add(ctn, textfield);
    
    ui_set_widget_groups(obj->ctx, textfield, args->groups);
    
    UiEventDataExt *eventdata = malloc(sizeof(UiEventDataExt));
    memset(eventdata, 0, sizeof(UiEventDataExt));
    eventdata->obj = obj;
    eventdata->callback = args->onactivate;
    eventdata->userdata = args->onactivatedata;
    eventdata->callback2 = args->onchange;
    eventdata->userdata2 = args->onchangedata;
    
    UiVar* var = uic_widget_var(obj->ctx, obj->ctx, args->value, args->varname, UI_VAR_STRING);
    if(var) {
        eventdata->customdata0 = var;
        
        UiString *value = (UiString*)var->value;
        value->obj = textfield;
        value->get = ui_textfield_get;
        value->set = ui_textfield_set;
        
        if(value->value.ptr) {
            ui_textfield_set(value, value->value.ptr);
        }
    }
    
    XtAddCallback(
            textfield,
            XmNactivateCallback,
            (XtCallbackProc)ui_textfield_activate,
            eventdata);
    XtAddCallback(
            textfield,
            XmNvalueChangedCallback,
            (XtCallbackProc)ui_textfield_value_changed,
            eventdata);
    XtAddCallback(
            textfield,
            XmNdestroyCallback,
            (XtCallbackProc)ui_destroy_data,
            eventdata);
    
    return textfield;
}

static void textfield_event(UiEventDataExt *eventdata, ui_callback callback, void *userdata) {
    if(callback) {
        UiVar *var = eventdata->customdata0;
        UiString *value = var ? var->value : NULL;
        
        UiEvent e;
        e.obj = eventdata->obj;
        e.window = e.obj->window;
        e.document = e.obj->ctx->document;
        e.eventdata = value;
        e.eventdatatype = value ? UI_EVENT_DATA_TEXT_VALUE : 0;
        e.intval = 0;
        e.set = ui_get_setop();
        callback(&e, userdata);
    }
}

void ui_textfield_activate(Widget widget, XtPointer ud, XtPointer cb) {
    UiEventDataExt *eventdata = ud;
    textfield_event(ud, eventdata->callback, eventdata->userdata);
}

void ui_textfield_value_changed(Widget widget, XtPointer ud, XtPointer cb) {
    UiEventDataExt *eventdata = ud;
    if(ui_onchange_events_is_enabled()) {
        textfield_event(ud, eventdata->callback2, eventdata->userdata2);
    }
}

UIWIDGET ui_textfield_create(UiObject *obj, UiTextFieldArgs *args) {
    return create_textfield(obj, args, FALSE, FALSE);
}

UIWIDGET ui_frameless_textfield_create(UiObject* obj, UiTextFieldArgs *args) {
    return create_textfield(obj, args, TRUE, FALSE);
}

UIWIDGET ui_passwordfield_create(UiObject* obj, UiTextFieldArgs *args) {
    return create_textfield(obj, args, FALSE, FALSE);
}

char* ui_textfield_get(UiString *str) {
    if(str->value.free) {
        str->value.free(str->value.ptr);
    }
    char *value = XmTextFieldGetString(str->obj);
    str->value.ptr = value;
    str->value.free = (ui_freefunc)XtFree;
    return value;
}

void ui_textfield_set(UiString *str, const char *value) {
    XmTextFieldSetString(str->obj, (void*)value);
    if(str->value.free) {
        str->value.free(str->value.ptr);
    }
    str->value.ptr = NULL;
}


/* ---------------------------- Path Text Field ---------------------------- */

static void destroy_pathbar(Widget w, XtPointer *data, XtPointer d) {
    PathBar *pathbar = (PathBar*)data;
    // TODO: check if there is somonething missing
    XtFree((void*)pathbar->pathSegments);
    XtFree((void*)pathbar);
}

// TODO: move to common
static UiPathElm* default_pathelm_func(const char* full_path, size_t len, size_t* ret_nelm, void* data) {
    cxstring *pathelms;
    size_t nelm = cx_strsplit_a(cxDefaultAllocator, cx_strn(full_path, len), CX_STR("/"), 4096, &pathelms);

    if (nelm == 0) {
        *ret_nelm = 0;
        return NULL;
    }

    UiPathElm* elms = (UiPathElm*)calloc(nelm, sizeof(UiPathElm));
    size_t n = nelm;
    int j = 0;
    for (int i = 0; i < nelm; i++) {
        cxstring c = pathelms[i];
        if (c.length == 0) {
            if (i == 0) {
                c.length = 1;
            }
            else {
                n--;
                continue;
            }
        }

        cxmutstr m = cx_strdup(c);
        elms[j].name = m.ptr;
        elms[j].name_len = m.length;
        
        size_t elm_path_len = c.ptr + c.length - full_path;
        cxmutstr elm_path = cx_strdup(cx_strn(full_path, elm_path_len));
        elms[j].path = elm_path.ptr;
        elms[j].path_len = elm_path.length;

        j++;
    }
    *ret_nelm = n;

    return elms;
}

static void pathbar_activate(void *data, char *path, int index) {
    UiEventData *event = data;
    UiEvent evt;
    evt.obj = event->obj;
    evt.window = evt.obj->window;
    evt.document = evt.obj->ctx->document;
    evt.eventdata = path;
    evt.eventdatatype = UI_EVENT_DATA_STRING;
    evt.intval = index;
    event->callback(&evt, event->userdata);
}

UIWIDGET ui_path_textfield_create(UiObject* obj, UiPathTextFieldArgs *args) {
    Arg xargs[16];
    int n = 0;
    
    UiContainerPrivate *ctn = ui_obj_container(obj);
    UiLayout layout = UI_ARGS2LAYOUT(args);
    
    Widget parent = ui_container_prepare(ctn, &layout, xargs, &n);
    // TODO: name
    

    PathBar *pathbar = CreatePathBar(parent, xargs, n);
    if(!args->getpathelm) {
        pathbar->getpathelm= default_pathelm_func;
    } else {
        pathbar->getpathelm = args->getpathelm;
        pathbar->getpathelmdata = args->getpathelmdata;
    }
    
    
    XtManageChild(pathbar->widget);
    ui_container_add(ctn, pathbar->widget);
    
    UiVar* var = uic_widget_var(obj->ctx, obj->ctx, args->value, args->varname, UI_VAR_STRING);
    if (var) {
        UiString* value = (UiString*)var->value;
        value->obj = pathbar;
        value->get = ui_path_textfield_get;
        value->set = ui_path_textfield_set;
        
        if(value->value.ptr) {
            char *str = strdup(value->value.ptr);
            ui_string_set(value, str);
            free(str);
        }
    }
    
    if(args->onactivate) {
        UiEventData *eventdata = malloc(sizeof(UiEventData));
        eventdata->callback = args->onactivate;
        eventdata->userdata = args->onactivatedata;
        eventdata->obj = obj;
        eventdata->value = 0;
        
        pathbar->updateDir = pathbar_activate;
        pathbar->updateDirData = eventdata;
        
        XtAddCallback(
                pathbar->widget,
                XmNdestroyCallback,
                (XtCallbackProc)ui_destroy_data,
                eventdata);
    }
    
    XtAddCallback(
            pathbar->widget,
            XmNdestroyCallback,
            (XtCallbackProc)destroy_pathbar,
            pathbar);
    
    return pathbar->widget;
}

char* ui_path_textfield_get(UiString *str) {
    PathBar *pathbar = str->obj;
    str->value.free(str->value.ptr);
    char *value = XmTextFieldGetString(pathbar->textfield);
    str->value.ptr = value;
    str->value.free = (ui_freefunc)XtFree;
    return value;
}

void ui_path_textfield_set(UiString *str, const char *value) {
    PathBarSetPath(str->obj, value);
}