@@ -1,4 +1,5 @@

 *.reu

+errors.txt

 toolchain-zig

 toolchain-zig-dl

 toolchain-emscripten

@@ -1,6 +1,6 @@

 CC=gcc

-CFLAGS=-Wall -g -I/usr/include/SDL2 -DLINUX

-LDFLAGS=-lSDL2_ttf -lSDL2

+CFLAGS=-Wall -g -Isdl3/SDL-preview-3.1.3/include -Isdl3/SDL_ttf/include -DLINUX

+LDFLAGS=sdl3/libSDL3.so sdl3/libSDL3_ttf.so

 all: boxui_demo_helloworld boxui_demo_helloworld.exe boxui_demo_helloworld.html

@@ -24,14 +24,14 @@ boxui-windows.o: boxui.c boxui.h notosans_regular_ttf.c notosans_regular_ttf.h

 # boxui-html.o: html5

 boxui-html.o: boxui.c boxui.h notosans_regular_ttf.c notosans_regular_ttf.h

-	sh -c ". toolchain-emscripten/env.sh ; emcc -g -Wall -s USE_SDL=2 -s USE_SDL_TTF=2 boxui.c -c -o boxui-html.o"

+	sh -c ". toolchain-emscripten/env.sh ; emcc -g -Wall -s USE_SDL=3 -s USE_SDL_TTF=3 boxui.c -c -o boxui-html.o"

 # boxui_demo_helloworld: linux

 boxui_demo_helloworld.o: boxui_demo_helloworld.c boxui.h

 boxui_demo_helloworld: boxui.o boxui_demo_helloworld.o

-	gcc boxui_demo_helloworld.o boxui.o -o boxui_demo_helloworld -lSDL2_ttf -lSDL2

+	gcc boxui_demo_helloworld.o boxui.o $(LDFLAGS) -o boxui_demo_helloworld 

 # boxui_demo_helloworld: windows

@@ -44,10 +44,10 @@ boxui_demo_helloworld.exe: boxui-icon_256x256.png boxui-windows.o boxui_demo_hel

 # boxui_demo_helloworld: html5

 boxui_demo_helloworld-html.o: boxui_demo_helloworld.c

-	sh -c ". toolchain-emscripten/env.sh ; emcc -g -Wall -s USE_SDL=2 -s USE_SDL_TTF=2 boxui_demo_helloworld.c -c -o boxui_demo_helloworld-html.o"

+	sh -c ". toolchain-emscripten/env.sh ; emcc -g -Wall -s USE_SDL=3 -s USE_SDL_TTF=3 boxui_demo_helloworld.c -c -o boxui_demo_helloworld-html.o"

 boxui_demo_helloworld.html: boxui-html.template boxui-html.o boxui_demo_helloworld-html.o

-	sh -c ". toolchain-emscripten/env.sh ; emcc boxui_demo_helloworld-html.o boxui-html.o -o boxui_demo_helloworld.html -s USE_SDL=2 -s USE_SDL_TTF=2 && sed s/PROGRAMNAME/boxui_demo_helloworld/g < boxui-html.template > boxui_demo_helloworld.html && zip -pr boxui_demo_helloworld-html.zip boxui_demo_helloworld.html boxui_demo_helloworld.js boxui_demo_helloworld.wasm"

+	sh -c ". toolchain-emscripten/env.sh ; emcc boxui_demo_helloworld-html.o boxui-html.o -o boxui_demo_helloworld.html -s USE_SDL=3 -s USE_SDL_TTF=3 && sed s/PROGRAMNAME/boxui_demo_helloworld/g < boxui-html.template > boxui_demo_helloworld.html && zip -pr boxui_demo_helloworld-html.zip boxui_demo_helloworld.html boxui_demo_helloworld.js boxui_demo_helloworld.wasm"

 clean:

 	rm -f *.o *.js *.html *.wasm *.exe \

@@ -1,10 +1,10 @@

 /*

  * boxui.c

  *

- * Multiplatform UI library for SDL2.

+ * Multiplatform UI library for SDL3.

  *

- * (c) 2023 Dario Rodriguez <antartica@box-ui.org>

- * Licensed under the terms of the GNU GPL v3.

+ * (c) 2023-2024 Dario Rodriguez <antartica@box-ui.org>

+ * Licensed under the terms of the MIT/X license.

  */

 #include <stdio.h>

@@ -13,287 +13,337 @@

 #include <string.h>

 #include <time.h>

 #include <signal.h>

+#include <stdarg.h>

-#include "SDL.h"

-#include "SDL_rwops.h"

-#include "SDL_ttf.h"

+#include "SDL3/SDL.h"

+#include "SDL3/SDL_iostream.h"

+#include "SDL3_ttf/SDL_ttf.h"

 #include "boxui.h"

 #include "notosans_regular_ttf.c"

-#define DEFAULT_FPS 30

+#define DEFAULTFONTSIZE 16

+

+#define MAXPENDINGSIGNAL 64

+#define BLOCKSIGNALACTION 16

+#define BLOCKWINDOW 8

+

+#ifdef DEBUG_BOXUI

+#define DEBUGFPRINTF(a) fprintf a

+#else

+#define DEBUGFPRINTF(a)

+#endif

+

+typedef enum datatype_t {

+        datatype_literal=0, /* inline string */

+        datatype_escapedquotedliteral, /* (only used when parsing) inline quoted string */

+        datatype_quotedliteral, /* quoted string (%s or unescaping escapedquotedliteral) */

+        datatype_integer, /* (only used when parsing) %i */

+        datatype_textvariable, /* %s%i */

+        datatype_asset, /* %p%i%i */

+        datatype_callback, /* %p%p */

+} datatype_t;

+

+typedef struct signalaction_t {

+        int nsignal;

+        char *actionstr;

+} signalaction_t;

+

+typedef struct signaldata_t {

+        int readpos;

+        int writepos;

+        int buf[MAXPENDINGSIGNAL];

+        int sizeactions;

+        int usedactions;

+        signalaction_t *actions;

+} signaldata_t;

 typedef struct intboxui_t {

-        char *title;

-        int defaultw,defaulth;

-        int fps;

-        long long fpsepoch;

-        long long fpsepochframeno;

-        void *userptr;

-        int isdirty;

-        long long lastrenderedframeno;

-        int sizeafterbuf;

-        int usedafterbuf;

-        char *afterbuf;

-        /* temporary members (to be able to test) */

-        int screenw;

-        int screenh;

-        SDL_Window *win;

+        SDL_Window *window;

         SDL_Renderer *renderer;

-        SDL_RWops *defaultfontdata;

+        int width;

+        int height;

+        signaldata_t signaldata;

+        SDL_IOStream *defaultfontdata;

         TTF_Font *defaultfont;

-        int defaultfontheight;

         int defaultfontwidth;

+        int defaultfontheight;

+        void *userptr;

+        int isdirty;

+        int haschanged;

+        SDL_Texture *texture;

+        /* temporary members (to be able to test) */

         char currenttext[1024];

         char currentclickevent[1024];

         char currentactionstr[1024];

         int flag_currentactionstrused;

-        /* end of temporary members (to be able to test) */

 } intboxui_t;

-int intboxui_waittick(intboxui_t *boxui);

-int intboxui_render(intboxui_t *boxui);

-int intboxui_after_doexpired(intboxui_t *boxui);

+static void intboxui_signalhandler_gen(int nsignal, int is_set, intboxui_t *boxuiset);

+static int intboxui_render(intboxui_t *boxui);

+static char *intboxuiutil_getnext(char *data, int *posdata, va_list valist, int *resl, datatype_t *datatype, char **ptr1, char **ptr2, int *int1, int *int2, int *in_error);

+static char *datatypedup_literalquotedliteral(datatype_t datatype, char *ptr1, char *ptr2, int int1, int int2);

+static int datatypedup_int(datatype_t datatype, char *ptr1, char *ptr2, int int1, int int2, int defaultint, int *in_error);

+static int datatypedup_istrue(datatype_t datatype, char *ptr1, char *ptr2, int int1, int int2, int *in_error);

+static int memstrcmp(char *ptr, int l, char *str);

 boxui_t *

-boxui_init(char *title,int defaultw, int defaulth, int flags)

+boxui_init(SDL_Window *window, SDL_Renderer *renderer, int width, int height)

 {

         intboxui_t *boxui;

-        title=(title==NULL)?"":title;

-        if((boxui=malloc(sizeof(intboxui_t)))==NULL)

+        if((boxui=malloc(sizeof(intboxui_t)))==NULL) {

+                SDL_Log("boxui: insufficient memory for main structure\n");

                 return(NULL); /* insuf. mem for boxui struct */

-        memset(boxui,0,sizeof(intboxui_t));

-        if((boxui->title=strdup(title))==NULL) {

-                boxui_free((boxui_t *)boxui),boxui=NULL;

-                return(NULL); /* insuf. mem for title string */

-        }

-        /* temporary initialization (to be able to test) */

-        if(SDL_Init(SDL_INIT_VIDEO)<0

-          || (boxui->win=SDL_CreateWindow(title,

-            SDL_WINDOWPOS_UNDEFINED,SDL_WINDOWPOS_UNDEFINED,

-            defaultw,defaulth,0))==NULL

-          || (boxui->renderer=SDL_CreateRenderer(boxui->win,-1,

-            SDL_RENDERER_ACCELERATED|SDL_RENDERER_PRESENTVSYNC))==NULL) {

-                boxui_free(boxui),boxui=NULL;

-                return(NULL); /* ERROR: Couldn't init video */

-        }

-        boxui->screenw=defaultw,boxui->screenh=defaulth;

-        if((boxui->defaultfontdata=SDL_RWFromConstMem(notosans_regular_ttf,notosans_regular_ttf_len))==NULL

-          || TTF_Init()==-1) {

-                boxui_free(boxui),boxui=NULL;

-                return(NULL); /* ERROR: Couldn't init font data */

         }

-        SDL_RWseek(boxui->defaultfontdata,0,RW_SEEK_SET);

-        if(boxui->defaultfontdata==NULL

-          || (boxui->defaultfont=TTF_OpenFontRW(boxui->defaultfontdata,0,/* default font size */ 16))==NULL) {

+        memset(boxui,0,sizeof(intboxui_t));

+        if(!TTF_Init()

+          || (boxui->defaultfontdata=SDL_IOFromConstMem(notosans_regular_ttf,notosans_regular_ttf_len))==NULL

+          || (boxui->defaultfont=TTF_OpenFontIO(boxui->defaultfontdata,0,DEFAULTFONTSIZE))==NULL

+        ) {

                 boxui_free(boxui),boxui=NULL;

-                return(NULL); /* ERROR: Couldn't init defaultfont */

+                SDL_Log("boxui: Couldn't initialize TTF: %s\n",SDL_GetError());

+                return(NULL);

         }

+        boxui->window=window;

+        boxui->renderer=renderer;

+        boxui->width=width;

+        boxui->height=height;

+        boxui->isdirty=1;

         /* font width and height */

         {

-                SDL_Surface *s;

-                SDL_Color c={0,0,0,0};

+                int w,h;

                 /* width */

-                if((s=TTF_RenderUTF8_Blended(boxui->defaultfont,"m",c))==NULL) {

-                        boxui_free(boxui),boxui=NULL;

-                        return(NULL); /* ERROR: Couldn't query font width */

-                }

-                boxui->defaultfontwidth=s->w;

-                SDL_FreeSurface(s),s=NULL;

+                TTF_GetStringSize(boxui->defaultfont,"m",0,&w,&h);

+                boxui->defaultfontwidth=w;

                 /* height */

-                if((s=TTF_RenderUTF8_Blended(boxui->defaultfont,"gjpqy_",c))==NULL) {

-                        boxui_free(boxui),boxui=NULL;

-                        return(NULL); /* ERROR: Couldn't query font height */

-                }

-                boxui->defaultfontheight=s->h;

-                SDL_FreeSurface(s),s=NULL;

+                boxui->defaultfontheight=TTF_GetFontHeight(boxui->defaultfont);

         }

-        /* end of temporary initialization (to be able to test) */

-        /* return the struct */

         return((boxui_t *)boxui);

 }

 void

 boxui_free(boxui_t *paramboxui)

 {

-        intboxui_t *boxui=(intboxui_t *)paramboxui;

-        if(boxui==NULL)

-                return; /* sanity check failed */

-        if(boxui->title!=NULL)

-                free(boxui->title),boxui->title=NULL;

-        /* temporary initialization freeing */

+        int i;

+        intboxui_t *boxui;

+        if((boxui=(intboxui_t *)paramboxui)==NULL)

+                return; /* nothing to do */

+        intboxui_signalhandler_gen(0,1,NULL);

+        if(boxui->signaldata.actions!=NULL) {

+                signalaction_t *action;

+                for(i=0,action=boxui->signaldata.actions

+                  ;i<boxui->signaldata.usedactions

+                  ;i++,action++

+                ) {

+                        if(action->actionstr!=NULL)

+                                free(action->actionstr),action->actionstr=NULL;

+                }

+                free(boxui->signaldata.actions),boxui->signaldata.actions=NULL,boxui->signaldata.sizeactions=boxui->signaldata.usedactions=0;

+        }

         if(boxui->defaultfont!=NULL)

                 TTF_CloseFont(boxui->defaultfont),boxui->defaultfont=NULL;

-        if(TTF_WasInit())

-                TTF_Quit();

         if(boxui->defaultfontdata!=NULL)

-                SDL_FreeRW(boxui->defaultfontdata),boxui->defaultfontdata=NULL;

-        if(boxui->renderer!=NULL)

-                SDL_DestroyRenderer(boxui->renderer),boxui->renderer=NULL;

-        if(boxui->win!=NULL)

-                SDL_DestroyWindow(boxui->win),boxui->win=NULL;

-        SDL_Quit();

-        /* end of temporary initialization freeing */

-        free(boxui),boxui=NULL,paramboxui=NULL;

+                SDL_CloseIO(boxui->defaultfontdata),boxui->defaultfontdata=NULL;

+        if(boxui->texture!=NULL)

+                SDL_DestroyTexture(boxui->texture),boxui->texture=NULL;

+        free(boxui),boxui=NULL;

         return;

 }

 int

-boxui_setuserptr(boxui_t *paramboxui, void *userptr)

+boxui_resize(boxui_t *paramboxui, int width, int height)

 {

         intboxui_t *boxui=(intboxui_t *)paramboxui;

-        if(boxui==NULL)

-                return(-1); /* sanity check failed */

-        boxui->userptr=userptr;

+        if(boxui==NULL) {

+                /* XXX (OLD): DEBUGFPRINTF((stderr,"WARNING: %s%s%i: boxui_resize: called with NULL boxui", (filedubug!=NULL)?filedebug:"",(filedubug!=NULL)?":":"",linedebug)); */

+                return(-1);

+        }

+        boxui->width=width;

+        boxui->height=height;

+        boxui->isdirty=1;

         return(0);

-

-}

-

-void *

-boxui_getuserptr(boxui_t *paramboxui)

-{

-        intboxui_t *boxui=(intboxui_t *)paramboxui;

-        if(boxui==NULL)

-                return(NULL); /* sanity check failed */

-        return(boxui->userptr);

 }

 int

-boxui_setfps(boxui_t *paramboxui, int fps)

+boxui_setuserptr(boxui_t *boxui, void *userptr)

 {

-        intboxui_t *boxui=(intboxui_t *)paramboxui;

-        if(boxui==NULL || fps<1)

-                return(-1); /* sanity check failed */

-        boxui->fps=fps;

-#if SDL_VERSION_ATLEAST(2,0,18)

-        boxui->fpsepoch=(long long)SDL_GetTicks64();

-#else

-        boxui->fpsepoch=(long long)SDL_GetTicks();

-#endif

-        boxui->fpsepochframeno=boxui->lastrenderedframeno;

+        if(boxui==NULL)

+                return(-1);

+        ((intboxui_t *)boxui)->userptr=userptr;

         return(0);

 }

-int

-boxui_getfps(boxui_t *paramboxui)

+void *

+boxui_getuserptr(boxui_t *boxui)

 {

-        intboxui_t *boxui=(intboxui_t *)paramboxui;

         if(boxui==NULL)

-                return(DEFAULT_FPS); /* sanity check failed */

-        return((boxui->fps==0)?DEFAULT_FPS:boxui->fps);

+                return(NULL);

+        return(((intboxui_t *)boxui)->userptr);

 }

-

-

-int

-boxui_tick(boxui_t *paramboxui)

+static void

+intboxui_signalhandler_gen(int nsignal, int is_set, intboxui_t *boxuiset)

 {

-        intboxui_t *boxui=(intboxui_t *)paramboxui;

-        if(boxui==NULL) {

-                SDL_Delay(1);

-                return(-1); /* sanity check failed */

-        }

-        if(boxui->isdirty) {

-                boxui_ghostrender((boxui_t *)boxui);

-                intboxui_waittick(boxui);

-                intboxui_render(boxui);

-        } else {

-                intboxui_waittick(boxui);

+        static signaldata_t *signaldata;

+        int pos;

+        if(is_set) {

+                signaldata=(boxuiset!=NULL)?&(boxuiset->signaldata):NULL;

+                return;

         }

-        boxui->lastrenderedframeno++;

-        return(0);

+        if(signaldata==NULL)

+                return; /* no handler */

+        pos=signaldata->writepos;

+        pos%=MAXPENDINGSIGNAL;

+        signaldata->buf[pos]=nsignal;

+        pos++;

+        pos%=MAXPENDINGSIGNAL;

+        signaldata->writepos=pos;

+        return;

 }

-int

-boxui_ghostrender(boxui_t *boxui)

+void

+intboxui_signalhandler(int nsignal)

 {

-#warning TODO

-        return(-1);

+        intboxui_signalhandler_gen(nsignal, 0, NULL);

+        return;

 }

 int

-boxui_refreshevents(boxui_t *paramboxui)

+boxui_setsignal(boxui_t *paramboxui, int nsignal, char *actionstr)

 {

         intboxui_t *boxui=(intboxui_t *)paramboxui;

-        if(boxui==NULL)

+        int i;

+        signaldata_t *signaldata;

+        char *newstr;

+        if(boxui==NULL || actionstr==NULL)

                 return(-1); /* sanity check failed */

-        SDL_PumpEvents();

+        intboxui_signalhandler_gen(0,1,boxui);

+        signaldata=&(((intboxui_t*)boxui)->signaldata);

+        /* check if signal already registered */

+        for(i=0;i<signaldata->usedactions;i++) {

+                if(signaldata->actions[i].nsignal==nsignal) {

+                        if(strcmp(actionstr,signaldata->actions[i].actionstr)==0)

+                                return(0); /* already configured */

+                        if((newstr=strdup(actionstr))==NULL)

+                                return(-1); /* mem. insuf. */

+                        free(signaldata->actions[i].actionstr),signaldata->actions[i].actionstr=NULL;

+                        signaldata->actions[i].actionstr=newstr;

+                        return(0); /* all done */

+                }

+        }

+        /* enlarge array if necessary */

+        if(signaldata->usedactions==signaldata->sizeactions) {

+                signalaction_t *newactions;

+                int reqsize=sizeof(signalaction_t)*(signaldata->sizeactions+BLOCKSIGNALACTION);

+                if((newactions=realloc(signaldata->actions,reqsize))==NULL)

+                        return(-1); /* mem. insuf. */

+                signaldata->actions=newactions,newactions=NULL;

+                memset(signaldata->actions+signaldata->sizeactions,0,sizeof(signalaction_t)*BLOCKSIGNALACTION);

+                signaldata->sizeactions+=BLOCKSIGNALACTION;

+        }

+        /* add element */

+        if((signaldata->actions[signaldata->usedactions].actionstr=strdup(actionstr))==NULL)

+                return(-1); /* mem. insuf. */

+        signaldata->actions[signaldata->usedactions].nsignal=nsignal;

+        signaldata->usedactions++;

+        /* install signal handler */

         return(0);

 }

 int

-boxui_getevent(boxui_t *paramboxui, SDL_Event *event)

+boxui_event(boxui_t *paramboxui, SDL_Event *event)

 {

+#warning TODO: we do not have the position of the texture in the window

         intboxui_t *boxui=(intboxui_t *)paramboxui;

         if(boxui==NULL || event==NULL)

                 return(-1); /* sanity check failed */

-        while(SDL_PeepEvents(event,1,SDL_GETEVENT,SDL_FIRSTEVENT,SDL_LASTEVENT)>0) {

+        if(event->type==SDL_EVENT_WINDOW_SHOWN

+          || event->type==SDL_EVENT_WINDOW_EXPOSED

+          || event->type==SDL_EVENT_WINDOW_RESIZED

+          || event->type==SDL_EVENT_WINDOW_PIXEL_SIZE_CHANGED

+          || event->type==SDL_EVENT_WINDOW_MINIMIZED

+          || event->type==SDL_EVENT_WINDOW_MAXIMIZED

+          || event->type==SDL_EVENT_WINDOW_RESTORED

+          || event->type==SDL_EVENT_WINDOW_OCCLUDED

+          || event->type==SDL_EVENT_WINDOW_ENTER_FULLSCREEN

+          || event->type==SDL_EVENT_WINDOW_LEAVE_FULLSCREEN

+        ) {

+                boxui->isdirty=1;

+        } else

 #if 1

-                /* test */

-                if(event->type==SDL_MOUSEBUTTONUP) {

-                        if(boxui->currentclickevent[0]!='\0') {

-                                boxui_putactionstr((boxui_t *)boxui,boxui->currentclickevent,NULL);

-                                continue; /* we have used the event */

-                        }

+        /* test */

+               if(event->type==SDL_EVENT_MOUSE_BUTTON_UP) {

+                if(boxui->currentclickevent[0]!='\0') {

+                        boxui_putaction((boxui_t *)boxui,boxui->currentclickevent,NULL);

                 }

-                /* end of test */

-#endif

-                return(0); /* event found and put into "event" */

         }

-        return(-1); /* no events remaining */

+        /* end of test */

+#endif

+        return(0);

 }

 int

-boxui_event_isquit(boxui_t *paramboxui, SDL_Event *event)

+boxui_tick(boxui_t *paramboxui)

 {

         intboxui_t *boxui=(intboxui_t *)paramboxui;

-        if(boxui==NULL || event==NULL)

-                return(0); /* sanity check failed */

-        if(event->type==SDL_WINDOWEVENT && event->window.event==SDL_WINDOWEVENT_CLOSE)

-                return(1);

+        if(boxui==NULL)

+                return(-1); /* sanity check failed */

+        if(boxui->isdirty)

+                intboxui_render(boxui);

         return(0);

 }

+

 int

-boxui_event_iskeydown(boxui_t *paramboxui, SDL_Event *event, int *keycode)

+boxui_haschanged(boxui_t *paramboxui)

 {

         intboxui_t *boxui=(intboxui_t *)paramboxui;

-        if(boxui==NULL || event==NULL)

+        if(boxui==NULL)

                 return(0); /* sanity check failed */

-        if(event->type==SDL_KEYDOWN) {

-                if(keycode!=NULL)

-                        *keycode=event->key.keysym.sym;

-                return(1);

-        }

-        return(0);

+        return(boxui->isdirty || boxui->haschanged);

 }

-int

-boxui_event_isresize(boxui_t *paramboxui, SDL_Event *event, int *neww, int *newh)

+SDL_Texture *

+boxui_gettexture(boxui_t *paramboxui)

 {

         intboxui_t *boxui=(intboxui_t *)paramboxui;

-        if(boxui==NULL || event==NULL)

-                return(0); /* sanity check failed */

-        if(event->type==SDL_WINDOWEVENT_RESIZED

-          || event->type==SDL_WINDOWEVENT_SIZE_CHANGED) {

-                if(neww!=NULL)

-                        *neww=event->window.data1;

-                if(newh!=NULL)

-                        *newh=event->window.data2;

-                return(1);

+        if(boxui==NULL)

+                return(NULL);

+#if 0

+fprintf(stderr,"GETTEXTURE\n");

+#endif

+        if(boxui->texture==NULL || boxui->isdirty) {

+                boxui->isdirty=1;

+                boxui_tick((boxui_t *) boxui);

+                if(boxui->texture==NULL) {

+                        SDL_Log("boxui: Couldn't generate texture\n");

+                        return(NULL);

+                }

         }

-        return(0);

+        boxui->haschanged=0;

+        return(boxui->texture);

 }

-void

-boxui_resize(boxui_t *boxui, int neww, int newh)

+

+

+char *

+boxui_getaction(boxui_t *paramboxui, char **actiondata)

 {

+        intboxui_t *boxui=(intboxui_t *)paramboxui;

+        if(boxui==NULL)

+                return(NULL); /* sanity check failed */

+        /* test */

+        if(boxui->flag_currentactionstrused || boxui->currentactionstr[0]=='\0')

+                return(NULL);

+        boxui->flag_currentactionstrused=1;

+        return(boxui->currentactionstr);

+        /* end of test */

 #warning TODO

-        return;

+        return(NULL);

 }

 int

-boxui_putactionstr(boxui_t *paramboxui, char *firstelem, ...)

+boxui_putaction(boxui_t *paramboxui, char *firstelem, ...)

 {

         intboxui_t *boxui=(intboxui_t *)paramboxui;

         if(boxui==NULL || firstelem==NULL)

@@ -307,22 +357,6 @@ boxui_putactionstr(boxui_t *paramboxui, char *firstelem, ...)

         return(-1);

 }

-char *

-boxui_getactionstr(boxui_t *paramboxui, char **secondelemtoend)

-{

-        intboxui_t *boxui=(intboxui_t *)paramboxui;

-        if(boxui==NULL)

-                return(NULL); /* sanity check failed */

-        /* test */

-        if(boxui->flag_currentactionstrused || boxui->currentactionstr[0]=='\0')

-                return(NULL);

-        boxui->flag_currentactionstrused=1;

-        return(boxui->currentactionstr);

-        /* end of test */

-#warning TODO

-        return(NULL);

-}

-

 char *

 boxui_add(boxui_t *paramboxui, char *filedebug, int linedebug, char *classwiname, char *format, ...)

 {

@@ -332,9 +366,9 @@ boxui_add(boxui_t *paramboxui, char *filedebug, int linedebug, char *classwiname

         /* test */

         if(strchr(format,'%')==NULL)

                 boxui_config(boxui,NULL,-1,classwiname,format);

+        return(classwiname);

         /* end of test */

 #warning TODO

-        return(NULL);

 }

 char *

@@ -371,86 +405,266 @@ boxui_config(boxui_t *paramboxui, char *filedebug, int linedebug, char *winame,

                 }

         }

+        return(winame);

         /* end of test */

 #warning TODO

-        return(NULL);

 }

-char *

-boxui_pack(boxui_t *boxui, char *filedebug, int linedebug, char *winame, char *format, ...)

+int

+boxuiutil_datacmp(char *datastr,char *key,char *value)

 {

 #warning TODO

-        return(NULL);

+        return(-1);

 }

 int

-intboxui_waittick(intboxui_t *paramboxui)

+boxui_pack(boxui_t *boxui, char *filedebug, int linedebug, char *winame, char *format, ...)

 {

-        long long delay;

-        intboxui_t *boxui=(intboxui_t *)paramboxui;

-        if(boxui==NULL) {

-                SDL_Delay(1);

-                return(-1); /* sanity check failed */

-        }

-#if SDL_VERSION_ATLEAST(2,0,18)

-        delay=((long long)SDL_GetTicks64());

-#else

-        delay=((long long)SDL_GetTicks());

-#endif

-        delay-=boxui->fpsepoch;

-        delay=(((boxui->lastrenderedframeno-boxui->fpsepochframeno)+1)*1000/((boxui->fps==0)?DEFAULT_FPS:boxui->fps))-delay;

-        if(delay>0) {

-                SDL_Delay(delay);

-        } else if(delay<-1000) {

-                /* reset epoch if unsyncronized by more than 1s */

-#if SDL_VERSION_ATLEAST(2,0,18)

-                boxui->fpsepoch=((long long)SDL_GetTicks64());

-#else

-                boxui->fpsepoch=((long long)SDL_GetTicks());

-#endif

-                boxui->fpsepochframeno=boxui->lastrenderedframeno;

-        }

-        intboxui_after_doexpired(boxui);

+#warning TODO

         return(0);

 }

-int

+static int

 intboxui_render(intboxui_t *paramboxui)

 {

         intboxui_t *boxui=(intboxui_t *)paramboxui;

         if(boxui==NULL)

                 return(-1); /* sanity check failed */

         /* test */

+#if 0

+fprintf(stderr,"RENDER: START\n");

+#endif

+        if(boxui->texture==NULL) {

+                if((boxui->texture=SDL_CreateTexture(boxui->renderer,SDL_PIXELFORMAT_RGBA8888,SDL_TEXTUREACCESS_TARGET,boxui->width,boxui->height))==NULL) {

+                        SDL_Log("boxui: couldn't create output texture\n");

+                        return(-1);

+                }

+        }

+        SDL_SetRenderTarget(boxui->renderer,boxui->texture);

         SDL_SetRenderDrawColor(boxui->renderer,0xff,0xff,0xff,0xff);

         SDL_RenderClear(boxui->renderer);

         if(boxui->currenttext[0]!='\0') {

                 SDL_Surface *fgsurface=NULL;

-                SDL_Texture *fg=NULL;

-                SDL_Rect dstrect;

-                SDL_Color c={0x00,0x00,0x00,0xff};

-                if((fgsurface=TTF_RenderUTF8_Blended(boxui->defaultfont,boxui->currenttext,c))!=NULL

-                  && (fg=SDL_CreateTextureFromSurface(boxui->renderer,fgsurface))!=NULL) {

-                        dstrect.x=(boxui->screenw-fgsurface->w)/2;

-                        dstrect.y=(boxui->screenh-fgsurface->h)/2;

+                SDL_Texture *fgtexture=NULL;

+                SDL_FRect dstrect;

+                SDL_Color bg={0x00,0x00,0x00,0x00};

+                SDL_Color fg={0x00,0x00,0x00,0xff};

+                if((fgsurface=TTF_RenderText_Shaded(boxui->defaultfont,boxui->currenttext,0,fg,bg))!=NULL

+                  && (fgtexture=SDL_CreateTextureFromSurface(boxui->renderer,fgsurface))!=NULL) {

+#if 0

+fprintf(stderr,"RENDER: text (w:%i h:%i)\n",fgsurface->w,fgsurface->h);

+#endif

+                        dstrect.x=(boxui->width-fgsurface->w)/2;

+                        dstrect.y=(boxui->height-fgsurface->h)/2;

                         dstrect.w=fgsurface->w,dstrect.h=fgsurface->h;

-                        SDL_RenderCopy(boxui->renderer,fg,NULL,&dstrect);

+#if 0

+fprintf(stderr,"RENDER: text (w:%i h:%i) dstrect:%ix%i+%i+%i\n",fgsurface->w,fgsurface->h,dstrect.w,dstrect.h,dstrect.x,dstrect.y);

+#endif

+                        SDL_RenderTexture(boxui->renderer,fgtexture,NULL,&dstrect);

                 }

                 if(fgsurface!=NULL)

-                        SDL_FreeSurface(fgsurface),fgsurface=NULL;

-                if(fg!=NULL)

-                        SDL_DestroyTexture(fg),fg=NULL;

+                        SDL_DestroySurface(fgsurface),fgsurface=NULL;

+                if(fgtexture!=NULL)

+                        SDL_DestroyTexture(fgtexture),fgtexture=NULL;

         }

-        SDL_RenderPresent(boxui->renderer);

+        SDL_SetRenderTarget(boxui->renderer,NULL);

         boxui->isdirty=0;

+        boxui->haschanged=1;

+#if 0

+fprintf(stderr,"RENDER: START\n");

+#endif

         /* end of test */

 #warning TODO

         return(0);

 }

-int

-intboxui_after_doexpired(intboxui_t *boxui)

+

+static char *

+intboxuiutil_getnext(char *data, int *posdata, va_list valist, int *resl, datatype_t *datatype, char **ptr1, char **ptr2, int *int1, int *int2, int *in_error)

 {

-#warning TODO

+        char *ptr;

+        char *res;

+        ptr=data+*posdata;

+        /* skip trailing spaces */

+        while(*ptr==' ')

+                ptr++;

+        if(*ptr!='-') {

+                *in_error=1;

+                DEBUGFPRINTF((stderr,"WARNING: intboxuiutil_getnext(): wrong data in \"%s\", analyzing \"%s\", '-' not found at \"%s\"\n",data,data+*posdata,ptr));

+                return(NULL);

+        }

+        /* get keyword (including the '-') */

+        res=ptr;

+        while(*ptr!=' ' && *ptr!='\0')

+                ptr++;

+        *resl=ptr-res;

+        /* skip the space */

+        ptr++;

+        /* get value */

+        if(*ptr!='\"' && *ptr!='%') {

+                *datatype=datatype_literal;

+                *ptr1=ptr;

+                while(*ptr!=' ' && *ptr!='\0')

+                        ptr++;

+

+                *int1=ptr-*ptr1;

+        } else if(*ptr=='\"') {

+                int flag_esc;

+                *datatype=datatype_escapedquotedliteral;

+                ptr++;

+                *ptr1=ptr;

+                for(flag_esc=0;!(flag_esc==0 && *ptr=='\"') && *ptr!='\0';ptr++) {

+                        if(flag_esc)

+                                flag_esc=0;

+                        else if(*ptr=='\\')

+                                flag_esc=1;

+                }

+                if(*ptr!='\"') {

+                        *in_error=1;

+                        DEBUGFPRINTF((stderr,"WARNING: intboxuiutil_getnext(): wrong data in \"%s\", analyzing \"%s\", unterminated string at \"%s\"\n",data,data+*posdata,*ptr1));

+                        return(NULL);

+                }

+                *int1=ptr-*ptr1;

+                ptr++;

+        } else if(ptr[0]=='%' && ptr[1]=='s' && (ptr[2]=='\0' || ptr[2]==' ')) {

+                *datatype=datatype_quotedliteral;

+                *ptr1=va_arg(valist, char *);

+                *int1=strlen(*ptr1);

+                ptr+=2;

+        } else if(ptr[0]=='%' && ptr[1]=='i' && (ptr[2]=='\0' || ptr[2]==' ')) {

+                *datatype=datatype_integer;

+                *int1=va_arg(valist, int);

+                ptr+=2;

+        } else if(ptr[0]=='%' && ptr[1]=='s' && ptr[2]=='%' && ptr[3]=='i' && (ptr[4]=='\0' || ptr[4]==' ')) {

+                *datatype=datatype_textvariable;

+                *ptr1=va_arg(valist, char *);

+                *int1=va_arg(valist, int);

+                ptr+=4;

+        } else if(ptr[0]=='%' && ptr[1]=='p' && ptr[2]=='%' && ptr[3]=='i' && ptr[4]=='%' && ptr[5]=='i' && (ptr[6]=='\0' || ptr[6]==' ')) {

+                *datatype=datatype_asset;

+                *ptr1=va_arg(valist, char *);

+                *int1=va_arg(valist, int);

+                *int2=va_arg(valist, int);

+                ptr+=6;

+        } else if(ptr[0]=='%' && ptr[1]=='p' && ptr[2]=='%' && ptr[3]=='p' && (ptr[4]=='\0' || ptr[4]==' ')) {

+                *datatype=datatype_callback;

+                *ptr1=va_arg(valist, char *);

+                *ptr2=va_arg(valist, char *);

+                ptr+=4;

+        } else {

+                *in_error=1;

+                DEBUGFPRINTF((stderr,"WARNING: intboxuiutil_getnext(): wrong data in \"%s\", analyzing \"%s\", unrecognized value type at \"%s\"\n",data,data+*posdata,ptr));

+                return(NULL);

+        }

+        /* save the current position and return the key */

+        *posdata=ptr-data;

+        return(res);

+}

+

+static char *

+datatypedup_literalquotedliteral(datatype_t datatype, char *ptr1, char *ptr2, int int1, int int2)

+{

+        char *res,*aux;

+        int t,i;

+        int flag_esc;

+        res=NULL;

+        int req;

+        /* two passes; first calculates needed storage space, second copies the data */

+        for(t=0,req=0;t<2;t++) {

+                if(datatype==datatype_literal || datatype==datatype_quotedliteral) {

+                        req=int1+1;

+                        if(t) {

+                                memcpy(res,ptr1,req);

+                                ptr1[int1]='\0';

+                        }

+                } else if(datatype==datatype_escapedquotedliteral) {

+                        for(req=0,aux=ptr1,flag_esc=0,i=0;!(flag_esc==0 && *aux=='\"') && *aux!='\0' && i<int1;aux++) {

+                                if(flag_esc) {

+                                        if(t)

+                                                res[req]=*aux;

+                                        req++;

+                                        flag_esc=0;

+                                } else if(*aux=='\\') {

+                                        flag_esc=1;

+                                } else {

+                                        if(t)

+                                                res[req]=*aux;

+                                        req++;

+                                }

+                        }

+                        if(t)

+                                res[req]='\0';

+                        req++;

+                } else if(datatype==datatype_integer) {

+                        int l=req;

+                        for(i=int1,req=0;i>0 || req==0;) {

+                                if(t)

+                                        res[(l-2)-req]=(i%10)+'0';

+                                req++;

+                                i/=10;

+                        }

+                        if(t)

+                                res[l-1]='\0';

+                        req++;

+                } else {

+                        return(NULL); /* type is not amenable to strdup */

+                }

+                if(t==0) {

+                        if((res=malloc(req))==NULL)

+                                return(NULL); /* insuf. mem. */

+                }

+        }

+        return(res);

+}

+

+static int

+datatypedup_int(datatype_t datatype, char *ptr1, char *ptr2, int int1, int int2, int defaultint, int *in_error)

+{

+        if(in_error!=NULL)

+                *in_error=0;

+        if(datatype==datatype_integer)

+                return(int1);

+        else if(datatype==datatype_literal || datatype==datatype_escapedquotedliteral || datatype==datatype_quotedliteral) {