experimenting with UI

1 files changed, 294 insertions, 0 deletions

diff --git a/sources/x11.c b/sources/x11.c
new file mode 100644
index 0000000..b9f27b3
--- /dev/null
+++ b/sources/x11.c
@@ -0,0 +1,294 @@
+#if true != True
+    #error "true != Xlib's True"
+#endif
+
+#if false != False
+    #error "false != Xlib's False"
+#endif
+
+#define RGB(r, g, b) (((r) << 16) | ((g) << 8) | (b))
+
+static const char icon_tga[] =
+{
+    #include "../resources/icon.tga.h"
+};
+
+
+typedef struct xctx
+{
+    Display* disp;
+    int      scrn; /* X screen */
+    Window   root;
+    Window   wnd;
+    GC       gc;   /* Not sure if I wanna keep just one GC, but works ok on modern linux */
+    XFontStruct* xfs;
+    XrmDatabase xrdb;
+    Atom xa_delwnd;
+
+    union
+    {
+        struct
+        {
+            u32 fg;
+            u32 bg;
+            u32 col[16];
+
+        } as;
+
+        u32 arr[18];
+
+    } cols;
+
+} xctx;
+
+
+static int x11_err_handler(Display* disp, XErrorEvent* eev)
+{
+    char buf[512] = {0};
+
+    assert(disp);
+    assert(eev);
+
+    XGetErrorText(disp, eev->error_code, buf, sizeof(buf) - 1);
+
+    report(ERR, "X11: '%s' resource - %X; opcode %d(%d)\n",
+            buf, eev->resourceid, eev->request_code, eev->minor_code);
+
+    return 0;
+}
+
+
+static char ascii_lower(char c)
+{
+    if(c >= 'A' && c <= 'Z') return c + ('a' - 'A');
+    else                     return c;
+}
+
+/* TODO: write tests maybe? */
+/* TODO: parse #rgb */
+/* TODO: parse X11 color names */
+static long parse_color(const char* s, long len)
+{
+    long col = 0;
+
+    if(!s || len == 0)
+    {
+        report(WARN, "parse_color: invalid input");
+        goto fail;
+    }
+
+    if(s[0] == '#')
+    {
+        long i;
+
+        if(len < 7)
+        {
+            goto fail;
+            report(WARN, "parse_color: bad length");
+        }
+
+        for(i = 1; i < len; i++)
+        {
+            char c = ascii_lower(s[i]);
+            char r = 0;
+
+            if(c >= '0' && c <= '9')      r = c - '0';
+            else if(c >= 'a' && c <= 'f') r = c - 'a' + 10;
+            else
+            {
+                goto fail;
+                report(WARN, "parse_color: bad hexcode");
+            }
+
+            col |= r << (20 - (i - 1)*4);
+        }
+    }
+    else goto fail;
+
+    return col;
+fail:
+    return RGB(255, 0, 255);
+}
+
+static void x11_init(int width, int height, char* title, int argc, char** argv, xctx* ctx)
+{
+    if(!ctx) report(FATAL, "x11_init: ctx == NULL");
+
+    ctx->disp = XOpenDisplay(NULL);
+    if(!ctx->disp) report(FATAL, "XOpenDisplay");
+
+    XSetErrorHandler(x11_err_handler);
+
+    ctx->scrn = DefaultScreen(ctx->disp);
+    ctx->root = RootWindow(ctx->disp, ctx->scrn);
+
+    {
+        int      xver = 0;
+        int      xrev = 0;
+        int      xrel = 0;
+        char* xvendor = NULL;
+
+        xver = XProtocolVersion(ctx->disp);
+        xrev = XProtocolRevision(ctx->disp);
+
+        xvendor = XServerVendor(ctx->disp);
+        xrel    = XVendorRelease(ctx->disp);
+
+        report(INFO, "X11: Connected to X server '%s' %d\n", xvendor, xrel);
+        report(INFO, "X11: Protocol ver %d.%d\n", xver, xrev);
+        report(INFO, "X11: Screen %d %dx%d\n", ctx->scrn,
+                     DisplayWidth(ctx->disp,  ctx->scrn),
+                     DisplayHeight(ctx->disp, ctx->scrn));
+    }
+
+    /* TODO: make cfg_load() or something that loads the colorscheme */
+    {
+        int i = 0;
+        char* rcmgr = NULL;
+        const long defcols[16] =
+        {
+            RGB(64,64,64),
+            RGB(128,0,0),
+            RGB(0,128,0),
+            RGB(128,128,0),
+            RGB(0,0,128),
+            RGB(128,0,128),
+            RGB(0,128,128),
+            RGB(220,220,220),
+            RGB(210,210,210),
+            RGB(255,0,0),
+            RGB(0,255,0),
+            RGB(255,255,0),
+            RGB(0,0,255),
+            RGB(255,0,255),
+            RGB(0,255,255),
+            RGB(255,255,255)
+        };
+
+
+        ctx->cols.as.fg = RGB(0, 0, 0);
+        ctx->cols.as.bg = RGB(255, 255, 255);
+        for(i = 0; i < 16; i++) ctx->cols.arr[i+2] = defcols[i];
+
+        XrmInitialize();
+        rcmgr = XResourceManagerString(ctx->disp);
+        if(rcmgr && (ctx->xrdb = XrmGetStringDatabase(rcmgr)))
+        {
+            XrmValue val = {0};
+            char*  type = NULL;
+
+            if(XrmGetResource(ctx->xrdb, "foreground", "Foreground", &type, &val))
+                ctx->cols.as.fg = parse_color(val.addr, val.size - 1);
+
+            if(XrmGetResource(ctx->xrdb, "background", "Background", &type, &val))
+                ctx->cols.as.bg = parse_color(val.addr, val.size - 1);
+
+            for(i = 0; i < 16; i++)
+            {
+                char name[8]  = {0};
+                char class[8] = {0};
+                snprintf(name, 8, "color%d", i);
+                strcpy(class, name);
+                class[0] = 'C';
+
+                if(XrmGetResource(ctx->xrdb, name, class, &type, &val))
+                    ctx->cols.arr[i+2] = parse_color(val.addr, val.size - 1);
+            }
+        }
+        else report(WARN, "X11: failed to load X Resources database\n");
+    }
+
+    ctx->wnd = XCreateSimpleWindow(ctx->disp, ctx->root,
+                    0, 0, width, height, 0,
+                    BlackPixel(ctx->disp, ctx->scrn), WhitePixel(ctx->disp, ctx->scrn));
+
+    XSelectInput(ctx->disp, ctx->wnd,
+                  KeyPressMask    | KeyReleaseMask    | KeymapStateMask
+                | ButtonPressMask | ButtonReleaseMask | PointerMotionMask
+                | FocusChangeMask | ExposureMask      | StructureNotifyMask
+                );
+
+    {
+        Atom     xa_wnd_type = {0};
+        Atom xa_wnd_types[3] = {0};
+        Atom         xa_icon = {0};
+
+        XClassHint class = {0};
+        XSizeHints  size = {0};
+
+        texture icon_tex = {0};
+        ssize    icon_sz = 0;
+        long*       icon = NULL;
+
+        char    buf[512] = {0};
+
+
+        ctx->xa_delwnd  = XInternAtom(ctx->disp, "WM_DELETE_WINDOW", false);
+        xa_wnd_type     = XInternAtom(ctx->disp, "_NET_WM_WINDOW_TYPE", false);
+        xa_wnd_types[0] = XInternAtom(ctx->disp, "_NET_WM_WINDOW_TYPE_UTILITY", false);
+        xa_wnd_types[1] = XInternAtom(ctx->disp, "_NET_WM_WINDOW_TYPE_DIALOG",  false);
+        xa_wnd_types[2] = XInternAtom(ctx->disp, "_NET_WM_WINDOW_TYPE_NORMAL",  false);
+        xa_icon         = XInternAtom(ctx->disp, "_NET_WM_ICON",  false);
+
+
+        class.res_name  = title;
+
+        /* FIXME: add class arg */
+        snprintf(buf, sizeof(buf) - 1, "digital.cabin.%s", title);
+        class.res_class = buf;
+
+        size.flags  = PSize | PMinSize | PMaxSize;
+        size.width  = size.min_width  = size.max_width  = width;
+        size.height = size.min_height = size.max_height = height;
+
+        Xutf8SetWMProperties(ctx->disp, ctx->wnd, title, class.res_name, argv, argc, &size, NULL, &class);
+        XSetWMProtocols(ctx->disp, ctx->wnd, &ctx->xa_delwnd, 1);
+        XChangeProperty(ctx->disp, ctx->wnd, xa_wnd_type, XA_ATOM, 32, PropModeReplace,
+                        (u8*)xa_wnd_types, lengthof(xa_wnd_types));
+
+        /* FIXME: add u8[] icon arg */
+        if(tga2tex_from_mem(&icon_tex, (u8*)icon_tga))
+        {
+            icon_sz = 2 + icon_tex.width * icon_tex.height;
+            icon = malloc(sizeof(long) * icon_sz);
+            if(icon)
+            {
+                u32 x, y, y2;
+                icon[0] = icon_tex.width;
+                icon[1] = icon_tex.height;
+
+                for(y = 0, y2 = icon_tex.height - 1; y < icon_tex.height; y++, y2--)
+                    for(x = 0; x < icon_tex.width; x++)
+                        (icon + 2)[x + icon_tex.height * y] =
+                            icon_tex.texels[x + icon_tex.height * y2].rgba;
+
+                XChangeProperty(ctx->disp, ctx->wnd, xa_icon, XA_CARDINAL, 32, PropModeReplace,
+                        (u8*)icon, icon_sz);
+
+                free(icon);
+            }
+            else report(ERR, "Could not allocate X ICON temporary buffer");
+
+            free(icon_tex.texels);
+        }
+        else report(ERR, "Could not read embedded icon.tga");
+    }
+
+    ctx->gc  = XCreateGC(ctx->disp, ctx->wnd, 0, NULL);
+    ctx->xfs = XQueryFont(ctx->disp, XGContextFromGC(ctx->gc)); /* TODO: better font support */
+
+    XClearWindow(ctx->disp, ctx->wnd);
+    XMapWindow(ctx->disp, ctx->wnd);
+}
+
+static void x11_cleanup(xctx* ctx)
+{
+    if(!ctx) return;
+
+    XSetCloseDownMode(ctx->disp, DestroyAll);
+
+    XFreeFontInfo(NULL, ctx->xfs, 1);
+    XFreeGC(ctx->disp, ctx->gc);
+    XDestroyWindow(ctx->disp, ctx->wnd);
+    XCloseDisplay(ctx->disp);
+}