@@ -8,6 +8,7 @@

  *      20250123 Load font.

  *      20250213 Support sticky drop-down menus.

  *      20250216 Modularize menu handling.

+ *      20250222 Able to list files.

  *

  * Author: Dario Rodriguez dario@darionomono.com

  * (c) Dario Rodriguez 2025

@@ -18,6 +19,9 @@

 #include <stdlib.h>

 #include <unistd.h>

 #include <string.h>

+#include <sys/types.h>

+#include <dirent.h>

+#include <sys/stat.h>

 #include "raylib.h"

 #include "roboto_regular.c"

@@ -25,6 +29,14 @@

 #define DEFAULTWIDTH 1280

 #define DEFAULTHEIGHT 768

+#define LEFTSIZE 720

+#define RIGHTELEMHEIGHT 280

+

+#define SEP "/"

+

+#define BLOCKLISTINGBUF 2048

+#define BLOCKLISTINGELEMS 1024

+

 #ifndef FILLXY

 #define FILLXY(xywh,valx,valy) (xywh).x=(valx),(xywh).y=(valy)

 #endif

@@ -70,9 +82,19 @@ typedef struct menubar_t {

         menudata_t **menudata;

 } menubar_t;

+typedef struct listing_t {

+        int sizeelems;

+        int usedelems;

+        char **elems; /* first byte in the elem is the type, next is the name, i.e. a directory is "dhome" and a file is "f.bashrc" */

+        int sizebuf;

+        int usedbuf;

+        char *buf;

+} listing_t;

+

 typedef struct dirdata_t {

         int height;

         char *dirname;

+        listing_t listing;

 } dirdata_t;

 typedef struct im_t {

@@ -88,6 +110,7 @@ typedef struct im_t {

         font_t *font;

 } im_t;

+

 im_t *im_init(char *menus);

 void im_free(im_t *im);

@@ -100,6 +123,9 @@ void im_menubar_free(menubar_t *menubar);

 int im_menubar_mouse(menubar_t *menubar, Vector2 mousepos, int lmbpressed, int lmbreleased, int lmbdown, int *click_avail, char **sel_menu, char **sel_submenu);

 int im_menubar_draw(menubar_t *menubar, font_t *font, int windowwidth, int windowheight);

+int listing_get(listing_t *listing, char *path, int flag_sort);

+void listing_freedata(listing_t *listing);

+

 int imutil_menu_count(char *menus);

 char *imutil_menu_get(char *menus, int targetn, int *len);

 int imutil_submenu_count(char *menus);

@@ -142,6 +168,39 @@ fprintf(stderr,"SELECTED: \"%s\"->\"%s\"\n",sel_menu,sel_submenu);

                 BeginDrawing();

                 ClearBackground(RAYWHITE);

                 im_menubar_draw(im->menubar,im->font,im->w,im->h);

+#if 1

+{

+ int i,j;

+ Vector2 v2;

+ listing_t listing={0};

+ if(listing_get(&listing,".." SEP ".",1)==0) {

+   i=2;

+     v2.x=(float) (im->font->height/2);

+     v2.y=(float) ((im->font->height+im->font->height/2)*i+(im->font->height/4));

+     DrawTextEx(im->font->font

+       ,SEP

+       ,v2

+       ,im->font->height

+       ,0

+       ,((Color){ 45, 45, 45, 255 })

+     );

+   for(j=0;j<listing.usedelems;j++) {

+     Color c;

+     i++;

+     c=((Color){ 45, 45, 45, 255 });

+     v2.x=(float) (im->font->height/2);

+     v2.y=(float) ((im->font->height+im->font->height/2)*i+(im->font->height/4));

+     DrawTextEx(im->font->font

+       ,listing.elems[j]

+       ,v2

+       ,im->font->height

+       ,0

+       ,c

+     );

+   }

+ }

+}

+#endif

                 EndDrawing();

         }

         CloseWindow();

@@ -189,6 +248,7 @@ im_free(im_t *im)

                                 continue;

                         if(dirdata->dirname!=NULL)

                                 free(dirdata->dirname),dirdata->dirname=NULL;

+                        listing_freedata(&(dirdata->listing));

                 }

                 free(im->dirdata),im->dirdata=NULL,im->sizedirdata=0;

         }

@@ -608,3 +668,112 @@ getcodepoints(int *sizecodepoints)

         return(codepoints);

 }

+static int

+strptrcmp(void *a,void *b)

+{

+        return(strcmp(*((char **)a),*((char **)b)));

+}

+

+int

+listing_get(listing_t *listing, char *path, int flag_sort)

+{

+        int l;

+        DIR *d;

+        struct dirent *de;

+        unsigned char dtype;

+        if(listing==NULL)

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

+        listing->usedelems=listing->usedbuf=0;

+        if(path==NULL)

+                return(-1); /* nothing to fill */

+        if((d=opendir(".." SEP "."))==NULL)

+                return(-1); /* dir not found */

+        while((de=readdir(d))!=NULL) {

+                l=strlen(de->d_name);

+                dtype='u';

+#ifdef _DIRENT_HAVE_D_TYPE

+                dtype=(de->d_type==DT_BLK)?'b'

+                      :(de->d_type==DT_CHR)?'c'

+                      :(de->d_type==DT_DIR)?'d'

+                      :(de->d_type==DT_FIFO)?'p'

+                      :(de->d_type==DT_LNK)?'l'

+                      :(de->d_type==DT_REG)?'f'

+                      :(de->d_type==DT_SOCK)?'s'

+                      :'u';

+#endif

+                if(dtype=='u') {

+                        char stpath[1024];

+                        struct stat st;

+                        mode_t m;

+                        snprintf(stpath,sizeof(stpath),"%s%s%s",path,SEP,de->d_name);

+                        stpath[sizeof(stpath)-1]='\0';

+                        if(stat(stpath,&st)==0 && (m=(st.st_mode&S_IFMT))!=0) {

+                                dtype=(m==S_IFBLK)?'b'

+                                      :(m==S_IFCHR)?'c'

+                                      :(m==S_IFDIR)?'d'

+                                      :(m==S_IFIFO)?'p'

+#ifdef S_IFLNK

+                                      :(m==S_IFLNK)?'l'

+#endif

+                                      :(m==S_IFREG)?'f'

+#ifdef S_IFSOCK

+                                      :(m==S_IFSOCK)?'s'

+#endif

+                                      :'u';

+                        }

+                }

+                /* check for space for this elem (and get space if necessary) */

+                if(listing->usedelems==listing->sizeelems) {

+                        char **newelems;

+                        if((newelems=realloc(listing->elems,sizeof(char *)*(listing->sizeelems+BLOCKLISTINGELEMS)))==NULL) {

+                                closedir(d),d=NULL;

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

+                        }

+                        listing->elems=newelems;

+                        listing->sizeelems+=BLOCKLISTINGELEMS;

+                }

+                /* check for space for this elem data (and get space if necessary) */

+                if((listing->sizebuf+l+2)>listing->sizebuf) {

+                        int i;

+                        char *newbuf;

+                        int newsize;

+                        int off;

+                        newsize=listing->sizebuf+l+2+BLOCKLISTINGBUF-1;

+                        newsize/=BLOCKLISTINGBUF;

+                        newsize*=BLOCKLISTINGBUF;

+                        if((newbuf=realloc(listing->buf,newsize))==NULL) {

+                                closedir(d),d=NULL;

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

+                        }

+                        /* the elem data buffer has a new pointer, fix previous entries */

+                        for(i=0;i<listing->usedelems;i++) {

+                                off=(listing->elems[i])-listing->buf;

+                                listing->elems[i]=newbuf+off;

+                        }

+                        listing->buf=newbuf;

+                        listing->sizebuf+=BLOCKLISTINGELEMS;

+                }

+                /* store the data */

+                listing->elems[listing->usedelems++]=listing->buf+listing->usedbuf;

+                listing->buf[listing->usedbuf++]=dtype;

+                memcpy(listing->buf+listing->usedbuf,de->d_name,l+1);

+                listing->usedbuf+=l+1;

+        }

+        closedir(d),d=NULL;

+        if(flag_sort)

+                qsort(listing->elems,listing->usedelems,sizeof(char *),(int (*)(const void *, const void *)) strptrcmp);

+        return(0);

+}

+

+void

+listing_freedata(listing_t *listing)

+{

+        if(listing==NULL)

+                return; /* nothing to do */

+        if(listing->elems!=NULL)

+                free(listing->elems),listing->elems=NULL,listing->sizeelems=listing->usedelems=0;

+        if(listing->buf!=NULL)

+                free(listing->buf),listing->buf=NULL,listing->sizebuf=listing->usedbuf=0;

+        return;

+}

+