iremove overly generic code - iomenu - interactive terminal-based selection menu	Err	bitreich.org	70
hgit clone git://bitreich.org/iomenu git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/iomenu	URL:git://bitreich.org/iomenu git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/iomenu	bitreich.org	70
1Log	/scm/iomenu/log.gph	bitreich.org	70
1Files	/scm/iomenu/files.gph	bitreich.org	70
1Refs	/scm/iomenu/refs.gph	bitreich.org	70
1Tags	/scm/iomenu/tag	bitreich.org	70
1README	/scm/iomenu/file/README.gph	bitreich.org	70
1LICENSE	/scm/iomenu/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit 774936ea25643995d42c2ca1cd7052875fc35573	/scm/iomenu/commit/774936ea25643995d42c2ca1cd7052875fc35573.gph	bitreich.org	70
1parent f099742c20929af4c304bb477ad8ec42e0bb6f17	/scm/iomenu/commit/f099742c20929af4c304bb477ad8ec42e0bb6f17.gph	bitreich.org	70
hAuthor: Josuah Demangeon <me@josuah.net>	URL:mailto:me@josuah.net	bitreich.org	70
iDate:   Tue, 27 Oct 2020 22:34:48 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iremove overly generic code	Err	bitreich.org	70
i	Err	bitreich.org	70
iGeneric library-style code is good for larger projects that have an interest	Err	bitreich.org	70
iat putting in common a lot of code.	Err	bitreich.org	70
i	Err	bitreich.org	70
iNarrowing the scope to just the problem to solve makes the implementation simpler.	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M Makefile                            |       9 ++++-----	Err	bitreich.org	70
i  A compat.c                            |      59 +++++++++++++++++++++++++++++++	Err	bitreich.org	70
i  R src/compat.h -> compat.h            |       0 	Err	bitreich.org	70
i  M iomenu.c                            |     129 +++++++++++++++++++------------	Err	bitreich.org	70
i  D src/compat/strcasestr.c             |      25 -------------------------	Err	bitreich.org	70
i  D src/compat/strlcpy.c                |      15 ---------------	Err	bitreich.org	70
i  D src/compat/strsep.c                 |      23 -----------------------	Err	bitreich.org	70
i  D src/log.c                           |      72 -------------------------------	Err	bitreich.org	70
i  D src/log.h                           |      14 --------------	Err	bitreich.org	70
i  D src/mem.c                           |     160 -------------------------------	Err	bitreich.org	70
i  D src/mem.h                           |      59 -------------------------------	Err	bitreich.org	70
i  D src/term.c                          |     107 -------------------------------	Err	bitreich.org	70
i  D src/term.h                          |      39 -------------------------------	Err	bitreich.org	70
i  A term.c                              |     107 +++++++++++++++++++++++++++++++	Err	bitreich.org	70
i  A term.h                              |      38 +++++++++++++++++++++++++++++++	Err	bitreich.org	70
i  R src/utf8.c -> utf8.c                |       0 	Err	bitreich.org	70
i  R src/utf8.h -> utf8.h                |       0 	Err	bitreich.org	70
i  R src/compat/wcwidth.c -> wcwidth.c   |       0 	Err	bitreich.org	70
i  A wcwidth.h                           |      13 +++++++++++++	Err	bitreich.org	70
i	Err	bitreich.org	70
i19 files changed, 299 insertions(+), 570 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/Makefile b/Makefile	/scm/iomenu/file/Makefile.gph	bitreich.org	70
i@@ -1,12 +1,11 @@	Err	bitreich.org	70
i NAME = iomenu	Err	bitreich.org	70
i VERSION = 0.1	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-SRC = src/utf8.c src/log.c src/mem.c src/compat/strcasestr.c \	Err	bitreich.org	70
i-  src/compat/strsep.c src/compat/strlcpy.c src/compat/wcwidth.c src/term.c	Err	bitreich.org	70
i-HDR = src/mem.h src/compat.h src/log.h src/term.h src/utf8.h	Err	bitreich.org	70
i+SRC = utf8.c compat.c wcwidth.c term.c	Err	bitreich.org	70
i+HDR = utf8.h compat.h wcwidth.h term.h	Err	bitreich.org	70
i+OBJ = ${SRC:.c=.o}	Err	bitreich.org	70
i BIN = iomenu	Err	bitreich.org	70
i MAN1 = ${BIN:=.1}	Err	bitreich.org	70
i-OBJ = ${SRC:.c=.o}	Err	bitreich.org	70
i LIB =	Err	bitreich.org	70
i 	Err	bitreich.org	70
i W = -Wall -Wextra -std=c99 --pedantic	Err	bitreich.org	70
i@@ -28,7 +27,7 @@ ${BIN}: ${OBJ} ${BIN:=.o}	Err	bitreich.org	70
i         ${CC} ${LDFLAGS} -o $@ $@.o ${OBJ} ${LIB}	Err	bitreich.org	70
i 	Err	bitreich.org	70
i clean:	Err	bitreich.org	70
i-        rm -rf *.o */*.o ${BIN} ${NAME}-${VERSION} *.gz	Err	bitreich.org	70
i+        rm -rf *.o ${BIN} ${NAME}-${VERSION} *.gz	Err	bitreich.org	70
i 	Err	bitreich.org	70
i install:	Err	bitreich.org	70
i         mkdir -p ${DESTDIR}${PREFIX}/bin	Err	bitreich.org	70
1diff --git a/compat.c b/compat.c	/scm/iomenu/file/compat.c.gph	bitreich.org	70
i@@ -0,0 +1,59 @@	Err	bitreich.org	70
i+#include <ctype.h>	Err	bitreich.org	70
i+#include <stddef.h>	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#include <string.h>	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#include "compat.h"	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+char *	Err	bitreich.org	70
i+strcasestr(const char *str1, const char *str2)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        const char *s1;	Err	bitreich.org	70
i+        const char *s2;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        for (;;) {	Err	bitreich.org	70
i+                s1 = str1;	Err	bitreich.org	70
i+                s2 = str2;	Err	bitreich.org	70
i+                while (*s1 != '\0' && tolower(*s1) == tolower(*s2))	Err	bitreich.org	70
i+                        s1++, s2++;	Err	bitreich.org	70
i+                if (*s2 == '\0')	Err	bitreich.org	70
i+                        return (char *) str1;	Err	bitreich.org	70
i+                if (*s1 == '\0')	Err	bitreich.org	70
i+                        return NULL;	Err	bitreich.org	70
i+                str1++;	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        return NULL;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+size_t	Err	bitreich.org	70
i+strlcpy(char *buf, char const *str, size_t sz)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        size_t len, cpy;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        len = strlen(str);	Err	bitreich.org	70
i+        cpy = (len > sz) ? (sz) : (len);	Err	bitreich.org	70
i+        memcpy(buf, str, cpy + 1);	Err	bitreich.org	70
i+        buf[sz - 1] = '\0';	Err	bitreich.org	70
i+        return len;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+char *	Err	bitreich.org	70
i+strsep(char **str_p, char const *sep)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        char *s, *prev;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if (*str_p == NULL)	Err	bitreich.org	70
i+                return NULL;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        for (s = prev = *str_p; strchr(sep, *s) == NULL; s++)	Err	bitreich.org	70
i+                continue;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if (*s == '\0') {	Err	bitreich.org	70
i+                *str_p = NULL;	Err	bitreich.org	70
i+        } else {	Err	bitreich.org	70
i+                *s = '\0';	Err	bitreich.org	70
i+                *str_p = s + 1;	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        return prev;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
1diff --git a/src/compat.h b/compat.h	/scm/iomenu/file/compat.h.gph	bitreich.org	70
1diff --git a/iomenu.c b/iomenu.c	/scm/iomenu/file/iomenu.c.gph	bitreich.org	70
i@@ -10,23 +10,21 @@	Err	bitreich.org	70
i #include <sys/ioctl.h>	Err	bitreich.org	70
i #include <termios.h>	Err	bitreich.org	70
i #include <unistd.h>	Err	bitreich.org	70
i+#include <assert.h>	Err	bitreich.org	70
i 	Err	bitreich.org	70
i #include "compat.h"	Err	bitreich.org	70
i-#include "log.h"	Err	bitreich.org	70
i-#include "mem.h"	Err	bitreich.org	70
i #include "term.h"	Err	bitreich.org	70
i #include "utf8.h"	Err	bitreich.org	70
i 	Err	bitreich.org	70
i struct {	Err	bitreich.org	70
i-        FILE *tty;	Err	bitreich.org	70
i         char input[LINE_MAX];	Err	bitreich.org	70
i         size_t cur;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         char **lines_buf;	Err	bitreich.org	70
i-        size_t lines_len;	Err	bitreich.org	70
i+        size_t lines_count;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         char **match_buf;	Err	bitreich.org	70
i-        size_t match_len;	Err	bitreich.org	70
i+        size_t match_count;	Err	bitreich.org	70
i } ctx;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i int opt_comment;	Err	bitreich.org	70
i@@ -51,20 +49,44 @@ match_line(char *line, char **tokv)	Err	bitreich.org	70
i  * error message.	Err	bitreich.org	70
i  */	Err	bitreich.org	70
i static void	Err	bitreich.org	70
i-goodbye(const char *s)	Err	bitreich.org	70
i+die(const char *msg)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         int e = errno;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         term_raw_off(2);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        fprintf(stderr, "iomenu: ");	Err	bitreich.org	70
i         errno = e;	Err	bitreich.org	70
i-        die("%s", s);	Err	bitreich.org	70
i+        perror(msg);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        exit(1);	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+void *	Err	bitreich.org	70
i+xrealloc(void *ptr, size_t sz)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        ptr = realloc(ptr, sz);	Err	bitreich.org	70
i+        if (ptr == NULL)	Err	bitreich.org	70
i+                die("realloc");	Err	bitreich.org	70
i+        return ptr;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+void *	Err	bitreich.org	70
i+xmalloc(size_t sz)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        void *ptr;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        ptr = malloc(sz);	Err	bitreich.org	70
i+        if (ptr == NULL)	Err	bitreich.org	70
i+                die("malloc");	Err	bitreich.org	70
i+        return ptr;	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i static void	Err	bitreich.org	70
i do_move(int sign)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         /* integer overflow will do what we need */	Err	bitreich.org	70
i-        for (size_t i = ctx.cur + sign; i < ctx.match_len; i += sign) {	Err	bitreich.org	70
i+        for (size_t i = ctx.cur + sign; i < ctx.match_count; i += sign) {	Err	bitreich.org	70
i                 if (opt_comment == 0 || ctx.match_buf[i][0] != '#') {	Err	bitreich.org	70
i                         ctx.cur = i;	Err	bitreich.org	70
i                         break;	Err	bitreich.org	70
i@@ -78,7 +100,7 @@ do_move(int sign)	Err	bitreich.org	70
i  * of `searchv' of size `searchc'	Err	bitreich.org	70
i  */	Err	bitreich.org	70
i static void	Err	bitreich.org	70
i-do_filter(char **search_buf, size_t search_len)	Err	bitreich.org	70
i+do_filter(char **search_buf, size_t search_count)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         char **t, *tokv[(sizeof ctx.input + 1) * sizeof(char *)];	Err	bitreich.org	70
i         char *b, buf[sizeof ctx.input];	Err	bitreich.org	70
i@@ -89,10 +111,10 @@ do_filter(char **search_buf, size_t search_len)	Err	bitreich.org	70
i                 continue;	Err	bitreich.org	70
i         *t = NULL;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        ctx.cur = ctx.match_len = 0;	Err	bitreich.org	70
i-        for (size_t n = 0; n < search_len; n++)	Err	bitreich.org	70
i+        ctx.cur = ctx.match_count = 0;	Err	bitreich.org	70
i+        for (size_t n = 0; n < search_count; n++)	Err	bitreich.org	70
i                 if (match_line(search_buf[n], tokv))	Err	bitreich.org	70
i-                        ctx.match_buf[ctx.match_len++] = search_buf[n];	Err	bitreich.org	70
i+                        ctx.match_buf[ctx.match_count++] = search_buf[n];	Err	bitreich.org	70
i         if (opt_comment && ctx.match_buf[ctx.cur][0] == '#')	Err	bitreich.org	70
i                 do_move(+1);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i@@ -103,7 +125,7 @@ do_move_page(signed int sign)	Err	bitreich.org	70
i         int rows = term.winsize.ws_row - 1;	Err	bitreich.org	70
i         size_t i = ctx.cur - ctx.cur % rows + rows * sign;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        if (i >= ctx.match_len)	Err	bitreich.org	70
i+        if (i >= ctx.match_count)	Err	bitreich.org	70
i                 return;	Err	bitreich.org	70
i         ctx.cur = i - 1;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i@@ -120,7 +142,7 @@ do_move_header(signed int sign)	Err	bitreich.org	70
i         for (ctx.cur += sign;; ctx.cur += sign) {	Err	bitreich.org	70
i                 char *cur = ctx.match_buf[ctx.cur];	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-                if (ctx.cur >= ctx.match_len) {	Err	bitreich.org	70
i+                if (ctx.cur >= ctx.match_count) {	Err	bitreich.org	70
i                         ctx.cur--;	Err	bitreich.org	70
i                         break;	Err	bitreich.org	70
i                 }	Err	bitreich.org	70
i@@ -142,7 +164,7 @@ do_remove_word(void)	Err	bitreich.org	70
i         len = strlen(ctx.input) - 1;	Err	bitreich.org	70
i         for (i = len; i >= 0 && !isspace(ctx.input[i]); i--)	Err	bitreich.org	70
i                 ctx.input[i] = '\0';	Err	bitreich.org	70
i-        do_filter(ctx.lines_buf, ctx.lines_len);	Err	bitreich.org	70
i+        do_filter(ctx.lines_buf, ctx.lines_count);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i static void	Err	bitreich.org	70
i@@ -157,7 +179,7 @@ do_add_char(char c)	Err	bitreich.org	70
i                 ctx.input[len] = c;	Err	bitreich.org	70
i                 ctx.input[len + 1] = '\0';	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i-        do_filter(ctx.match_buf, ctx.match_len);	Err	bitreich.org	70
i+        do_filter(ctx.match_buf, ctx.match_count);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i static void	Err	bitreich.org	70
i@@ -175,7 +197,7 @@ do_print_selection(void)	Err	bitreich.org	70
i                 fprintf(stdout, "%c", '\t');	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i         term_raw_off(2);	Err	bitreich.org	70
i-        if (ctx.match_len == 0	Err	bitreich.org	70
i+        if (ctx.match_count == 0	Err	bitreich.org	70
i           || (opt_comment && ctx.match_buf[ctx.cur][0] == '#'))	Err	bitreich.org	70
i                 fprintf(stdout, "%s\n", ctx.input);	Err	bitreich.org	70
i         else	Err	bitreich.org	70
i@@ -204,7 +226,7 @@ key_action(void)	Err	bitreich.org	70
i                 return -1;	Err	bitreich.org	70
i         case TERM_KEY_CTRL('U'):	Err	bitreich.org	70
i                 ctx.input[0] = '\0';	Err	bitreich.org	70
i-                do_filter(ctx.lines_buf, ctx.lines_len);	Err	bitreich.org	70
i+                do_filter(ctx.lines_buf, ctx.lines_count);	Err	bitreich.org	70
i                 break;	Err	bitreich.org	70
i         case TERM_KEY_CTRL('W'):	Err	bitreich.org	70
i                 do_remove_word();	Err	bitreich.org	70
i@@ -212,7 +234,7 @@ key_action(void)	Err	bitreich.org	70
i         case TERM_KEY_DELETE:	Err	bitreich.org	70
i         case TERM_KEY_BACKSPACE:	Err	bitreich.org	70
i                 ctx.input[strlen(ctx.input) - 1] = '\0';	Err	bitreich.org	70
i-                do_filter(ctx.lines_buf, ctx.lines_len);	Err	bitreich.org	70
i+                do_filter(ctx.lines_buf, ctx.lines_count);	Err	bitreich.org	70
i                 break;	Err	bitreich.org	70
i         case TERM_KEY_ARROW_UP:	Err	bitreich.org	70
i         case TERM_KEY_CTRL('P'):	Err	bitreich.org	70
i@@ -237,10 +259,10 @@ key_action(void)	Err	bitreich.org	70
i                 do_move_page(+1);	Err	bitreich.org	70
i                 break;	Err	bitreich.org	70
i         case TERM_KEY_TAB:	Err	bitreich.org	70
i-                if (ctx.match_len == 0)	Err	bitreich.org	70
i+                if (ctx.match_count == 0)	Err	bitreich.org	70
i                         break;	Err	bitreich.org	70
i                 strlcpy(ctx.input, ctx.match_buf[ctx.cur], sizeof(ctx.input));	Err	bitreich.org	70
i-                do_filter(ctx.match_buf, ctx.match_len);	Err	bitreich.org	70
i+                do_filter(ctx.match_buf, ctx.match_count);	Err	bitreich.org	70
i                 break;	Err	bitreich.org	70
i         case TERM_KEY_ENTER:	Err	bitreich.org	70
i         case TERM_KEY_CTRL('M'):	Err	bitreich.org	70
i@@ -281,7 +303,7 @@ do_print_screen(void)	Err	bitreich.org	70
i         i = ctx.cur - ctx.cur % rows;	Err	bitreich.org	70
i         m = ctx.match_buf + i;	Err	bitreich.org	70
i         fprintf(stderr, "\x1b[2J");	Err	bitreich.org	70
i-        while (p < rows && i < ctx.match_len) {	Err	bitreich.org	70
i+        while (p < rows && i < ctx.match_count) {	Err	bitreich.org	70
i                 print_line(*m, i == ctx.cur);	Err	bitreich.org	70
i                 p++, i++, m++;	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i@@ -294,7 +316,7 @@ static void	Err	bitreich.org	70
i sig_winch(int sig)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         if (ioctl(STDERR_FILENO, TIOCGWINSZ, &term.winsize) == -1)	Err	bitreich.org	70
i-                goodbye("ioctl");	Err	bitreich.org	70
i+                die("ioctl");	Err	bitreich.org	70
i         do_print_screen();	Err	bitreich.org	70
i         signal(sig, sig_winch);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i@@ -306,15 +328,25 @@ usage(char const *arg0)	Err	bitreich.org	70
i         exit(1);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-static void	Err	bitreich.org	70
i-read_stdin(char **buf, struct mem_pool *pool)	Err	bitreich.org	70
i+static int	Err	bitreich.org	70
i+read_stdin(char **buf)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        if (mem_read((void **)buf, pool) < 0)	Err	bitreich.org	70
i-                goodbye("reading standard input");	Err	bitreich.org	70
i-        if (memchr(*buf, '\0', mem_length(*buf)) != NULL)	Err	bitreich.org	70
i-                goodbye("'\\0' byte in input");	Err	bitreich.org	70
i-        if (mem_append((void **)buf, "", 1) < 0)	Err	bitreich.org	70
i-                goodbye("adding '\\0' terminator");	Err	bitreich.org	70
i+        size_t len = 0;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        assert(*buf == NULL);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        for (int c; (c = fgetc(stdin)) != EOF;) {	Err	bitreich.org	70
i+                if (c == '\0') {	Err	bitreich.org	70
i+                        fprintf(stderr, "iomenu: ignoring '\\0' byte in input\r\n");	Err	bitreich.org	70
i+                        continue;	Err	bitreich.org	70
i+                }	Err	bitreich.org	70
i+                *buf = xrealloc(*buf, sizeof *buf + len + 1);	Err	bitreich.org	70
i+                (*buf)[len++] = c;	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        *buf = xrealloc(*buf, sizeof *buf + len + 1);	Err	bitreich.org	70
i+        (*buf)[len] = '\0';	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        return 0;	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i@@ -322,27 +354,24 @@ read_stdin(char **buf, struct mem_pool *pool)	Err	bitreich.org	70
i  * line, but using the input buffer and replacing '\n' by '\0'.	Err	bitreich.org	70
i  */	Err	bitreich.org	70
i static void	Err	bitreich.org	70
i-split_lines(char *s, struct mem_pool *pool)	Err	bitreich.org	70
i+split_lines(char *s)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        ctx.lines_buf = mem_alloc(pool, 0);	Err	bitreich.org	70
i-        if (ctx.lines_buf == NULL)	Err	bitreich.org	70
i-                goodbye("initializing full lines buffer");	Err	bitreich.org	70
i+        size_t sz;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        ctx.lines_len = 0;	Err	bitreich.org	70
i+        ctx.lines_count = 0;	Err	bitreich.org	70
i         for (;;) {	Err	bitreich.org	70
i-                if (mem_append((void **)&ctx.lines_buf, &s, sizeof s) < 0)	Err	bitreich.org	70
i-                        goodbye("adding line to array");	Err	bitreich.org	70
i-                ctx.lines_len++;	Err	bitreich.org	70
i+                sz = (ctx.lines_count + 1) * sizeof s;	Err	bitreich.org	70
i+                ctx.lines_buf = xrealloc(ctx.lines_buf, sz);	Err	bitreich.org	70
i+                ctx.lines_buf[ctx.lines_count++] = s;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i                 s = strchr(s, '\n');	Err	bitreich.org	70
i                 if (s == NULL)	Err	bitreich.org	70
i                         break;	Err	bitreich.org	70
i                 *s++ = '\0';	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        ctx.match_buf = mem_alloc(pool, mem_length(ctx.lines_buf));	Err	bitreich.org	70
i-        if (ctx.match_buf == NULL)	Err	bitreich.org	70
i-                goodbye("initializing matching lines buffer");	Err	bitreich.org	70
i+        sz = ctx.lines_count * sizeof s;	Err	bitreich.org	70
i+        ctx.match_buf = xmalloc(sz);	Err	bitreich.org	70
i+        memcpy(ctx.match_buf, ctx.lines_buf, sz);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i@@ -353,8 +382,7 @@ split_lines(char *s, struct mem_pool *pool)	Err	bitreich.org	70
i int	Err	bitreich.org	70
i main(int argc, char *argv[])	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        struct mem_pool pool = {0};	Err	bitreich.org	70
i-        char *buf;	Err	bitreich.org	70
i+        char *buf = NULL, *arg0;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         arg0 = *argv;	Err	bitreich.org	70
i         for (int opt; (opt = getopt(argc, argv, "#v")) > 0;) {	Err	bitreich.org	70
i@@ -372,17 +400,17 @@ main(int argc, char *argv[])	Err	bitreich.org	70
i         argc -= optind;	Err	bitreich.org	70
i         argv += optind;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        read_stdin(&buf, &pool);	Err	bitreich.org	70
i-        split_lines(buf, &pool);	Err	bitreich.org	70
i+        read_stdin(&buf);	Err	bitreich.org	70
i+        split_lines(buf);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        do_filter(ctx.lines_buf, ctx.lines_len);	Err	bitreich.org	70
i+        do_filter(ctx.lines_buf, ctx.lines_count);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         if (!isatty(2))	Err	bitreich.org	70
i-                goodbye("file descriptor 2 (stderr)");	Err	bitreich.org	70
i+                die("file descriptor 2 (stderr)");	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         freopen("/dev/tty", "w+", stderr);	Err	bitreich.org	70
i         if (stderr == NULL)	Err	bitreich.org	70
i-                goodbye("re-opening standard error read/write");	Err	bitreich.org	70
i+                die("re-opening standard error read/write");	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         term_raw_on(2);	Err	bitreich.org	70
i         sig_winch(SIGWINCH);	Err	bitreich.org	70
i@@ -396,6 +424,5 @@ main(int argc, char *argv[])	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         term_raw_off(2);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        mem_free(&pool);	Err	bitreich.org	70
i         return 0;	Err	bitreich.org	70
i }	Err	bitreich.org	70
1diff --git a/src/compat/strcasestr.c b/src/compat/strcasestr.c	/scm/iomenu/file/src/compat/strcasestr.c.gph	bitreich.org	70
i@@ -1,25 +0,0 @@	Err	bitreich.org	70
i-#include <ctype.h>	Err	bitreich.org	70
i-#include <stddef.h>	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#include "compat.h"	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-char *	Err	bitreich.org	70
i-strcasestr(const char *str1, const char *str2)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        const char *s1;	Err	bitreich.org	70
i-        const char *s2;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        for (;;) {	Err	bitreich.org	70
i-                s1 = str1;	Err	bitreich.org	70
i-                s2 = str2;	Err	bitreich.org	70
i-                while (*s1 != '\0' && tolower(*s1) == tolower(*s2))	Err	bitreich.org	70
i-                        s1++, s2++;	Err	bitreich.org	70
i-                if (*s2 == '\0')	Err	bitreich.org	70
i-                        return (char *) str1;	Err	bitreich.org	70
i-                if (*s1 == '\0')	Err	bitreich.org	70
i-                        return NULL;	Err	bitreich.org	70
i-                str1++;	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        return NULL;	Err	bitreich.org	70
i-}	Err	bitreich.org	70
1diff --git a/src/compat/strlcpy.c b/src/compat/strlcpy.c	/scm/iomenu/file/src/compat/strlcpy.c.gph	bitreich.org	70
i@@ -1,15 +0,0 @@	Err	bitreich.org	70
i-#include "compat.h"	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#include <string.h>	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-size_t	Err	bitreich.org	70
i-strlcpy(char *buf, char const *str, size_t sz)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        size_t len, cpy;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        len = strlen(str);	Err	bitreich.org	70
i-        cpy = (len > sz) ? (sz) : (len);	Err	bitreich.org	70
i-        memcpy(buf, str, cpy + 1);	Err	bitreich.org	70
i-        buf[sz - 1] = '\0';	Err	bitreich.org	70
i-        return len;	Err	bitreich.org	70
i-}	Err	bitreich.org	70
1diff --git a/src/compat/strsep.c b/src/compat/strsep.c	/scm/iomenu/file/src/compat/strsep.c.gph	bitreich.org	70
i@@ -1,23 +0,0 @@	Err	bitreich.org	70
i-#include <string.h>	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#include "compat.h"	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-char *	Err	bitreich.org	70
i-strsep(char **str_p, char const *sep)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        char *s, *prev;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (*str_p == NULL)	Err	bitreich.org	70
i-                return NULL;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        for (s = prev = *str_p; strchr(sep, *s) == NULL; s++)	Err	bitreich.org	70
i-                continue;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (*s == '\0') {	Err	bitreich.org	70
i-                *str_p = NULL;	Err	bitreich.org	70
i-        } else {	Err	bitreich.org	70
i-                *s = '\0';	Err	bitreich.org	70
i-                *str_p = s + 1;	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-        return prev;	Err	bitreich.org	70
i-}	Err	bitreich.org	70
1diff --git a/src/log.c b/src/log.c	/scm/iomenu/file/src/log.c.gph	bitreich.org	70
i@@ -1,72 +0,0 @@	Err	bitreich.org	70
i-#include "log.h"	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#include <assert.h>	Err	bitreich.org	70
i-#include <errno.h>	Err	bitreich.org	70
i-#include <stdio.h>	Err	bitreich.org	70
i-#include <stdlib.h>	Err	bitreich.org	70
i-#include <string.h>	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#ifndef LOG_DEFAULT	Err	bitreich.org	70
i-#define LOG_DEFAULT 3 /* info */	Err	bitreich.org	70
i-#endif	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-char *arg0 = NULL;	Err	bitreich.org	70
i-static int log_level = -1;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i-log_vprintf(int level, char const *flag, char const *fmt, va_list va)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        char *env;	Err	bitreich.org	70
i-        int old_errno = errno;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (log_level < 0) {	Err	bitreich.org	70
i-                env = getenv("LOG");	Err	bitreich.org	70
i-                log_level = (env == NULL) ? 0 : atoi(env);	Err	bitreich.org	70
i-                if (log_level == 0)	Err	bitreich.org	70
i-                        log_level = LOG_DEFAULT;	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (log_level < level)	Err	bitreich.org	70
i-                return;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (arg0 != NULL)	Err	bitreich.org	70
i-                fprintf(stderr, "%s: ", arg0);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        fprintf(stderr, "%s: ", flag);	Err	bitreich.org	70
i-        vfprintf(stderr, fmt, va);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (old_errno != 0)	Err	bitreich.org	70
i-                fprintf(stderr, ": %s", strerror(old_errno));	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        fprintf(stderr, "\n");	Err	bitreich.org	70
i-        fflush(stderr);	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i-die(char const *fmt, ...)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        va_list va;	Err	bitreich.org	70
i-        va_start(va, fmt); log_vprintf(1, "error", fmt, va); va_end(va);	Err	bitreich.org	70
i-        exit(1);	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i-warn(char const *fmt, ...)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        va_list va;	Err	bitreich.org	70
i-        va_start(va, fmt); log_vprintf(2, "warn", fmt, va); va_end(va);	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i-info(char const *fmt, ...)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        va_list va;	Err	bitreich.org	70
i-        va_start(va, fmt); log_vprintf(3, "info", fmt, va); va_end(va);	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i-debug(char const *fmt, ...)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        va_list va;	Err	bitreich.org	70
i-        va_start(va, fmt); log_vprintf(4, "debug", fmt, va); va_end(va);	Err	bitreich.org	70
i-}	Err	bitreich.org	70
1diff --git a/src/log.h b/src/log.h	/scm/iomenu/file/src/log.h.gph	bitreich.org	70
i@@ -1,14 +0,0 @@	Err	bitreich.org	70
i-#ifndef LOG_H	Err	bitreich.org	70
i-#define LOG_H	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#include <stdarg.h>	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-/** src/log.c **/	Err	bitreich.org	70
i-char *arg0;	Err	bitreich.org	70
i-void log_vprintf(int level, char const *flag, char const *fmt, va_list va);	Err	bitreich.org	70
i-void die(char const *fmt, ...);	Err	bitreich.org	70
i-void warn(char const *fmt, ...);	Err	bitreich.org	70
i-void info(char const *fmt, ...);	Err	bitreich.org	70
i-void debug(char const *fmt, ...);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#endif	Err	bitreich.org	70
1diff --git a/src/mem.c b/src/mem.c	/scm/iomenu/file/src/mem.c.gph	bitreich.org	70
i@@ -1,160 +0,0 @@	Err	bitreich.org	70
i-#include "mem.h"	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#include <assert.h>	Err	bitreich.org	70
i-#include <errno.h>	Err	bitreich.org	70
i-#include <stdint.h>	Err	bitreich.org	70
i-#include <stdlib.h>	Err	bitreich.org	70
i-#include <string.h>	Err	bitreich.org	70
i-#include <unistd.h>	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-static struct mem_block *	Err	bitreich.org	70
i-mem_block(void **memp)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        struct mem_block *block = (void *)((char *)memp - sizeof *block);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        assert(memcmp(block->magic, MEM_BLOCK_MAGIC, 8) == 0);	Err	bitreich.org	70
i-        return block;	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-void *	Err	bitreich.org	70
i-mem_alloc(struct mem_pool *pool, size_t len)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        struct mem_block *block;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        block = calloc(1, sizeof *block + len);	Err	bitreich.org	70
i-        if (block == NULL)	Err	bitreich.org	70
i-                return NULL;	Err	bitreich.org	70
i-        memcpy(block->magic, MEM_BLOCK_MAGIC, 8);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        block->len = len;	Err	bitreich.org	70
i-        block->pool = pool;	Err	bitreich.org	70
i-        block->prev = NULL;	Err	bitreich.org	70
i-        block->next = pool->head;	Err	bitreich.org	70
i-        if (pool->head != NULL)	Err	bitreich.org	70
i-                pool->head->prev = block;	Err	bitreich.org	70
i-        pool->head = block;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        return block->buf;	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-int	Err	bitreich.org	70
i-mem_resize(void **memp, size_t len)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        struct mem_block *block = mem_block(*memp);	Err	bitreich.org	70
i-        int is_first = (block == block->pool->head);	Err	bitreich.org	70
i-        int is_same;	Err	bitreich.org	70
i-        void *v;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        v = realloc(block, sizeof *block + len);	Err	bitreich.org	70
i-        if (v == NULL)	Err	bitreich.org	70
i-                return -1;	Err	bitreich.org	70
i-        is_same = (block == v);	Err	bitreich.org	70
i-        block = v;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        block->len = len;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (is_same)	Err	bitreich.org	70
i-                return 0;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (block->prev != NULL)	Err	bitreich.org	70
i-                block->prev->next = v;	Err	bitreich.org	70
i-        if (block->next != NULL)	Err	bitreich.org	70
i-                block->next->prev = v;	Err	bitreich.org	70
i-        if (is_first)	Err	bitreich.org	70
i-                block->pool->head = v;	Err	bitreich.org	70
i-        *memp = block->buf;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        assert(memcmp(block->magic, MEM_BLOCK_MAGIC, 8) == 0);	Err	bitreich.org	70
i-        return 0;	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-int	Err	bitreich.org	70
i-mem_grow(void **memp, size_t len)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        assert(SIZE_MAX - len >= mem_block(*memp)->len);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        return mem_resize(memp, mem_length(*memp) + len);	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-int	Err	bitreich.org	70
i-mem_shrink(void **memp, size_t len)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        assert(mem_block(*memp)->len >= len);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        return mem_resize(memp, mem_length(*memp) - len);	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-size_t	Err	bitreich.org	70
i-mem_length(void *mem)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        return mem_block(mem)->len;	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-int	Err	bitreich.org	70
i-mem_append(void **memp, void const *buf, size_t len)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        size_t old_len = mem_length(*memp);	Err	bitreich.org	70
i-        struct mem_block *block;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (mem_grow(memp, len) < 0)	Err	bitreich.org	70
i-                return -1;	Err	bitreich.org	70
i-        block = mem_block(*memp);	Err	bitreich.org	70
i-        memcpy((char *)block->buf + old_len, buf, len);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        assert(memcmp(block->magic, MEM_BLOCK_MAGIC, 8) == 0);	Err	bitreich.org	70
i-        return 0;	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-int	Err	bitreich.org	70
i-mem_read(void **memp, struct mem_pool *pool)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        struct mem_block *block;	Err	bitreich.org	70
i-        ssize_t sz = 0;	Err	bitreich.org	70
i-        void *mem;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        mem = mem_alloc(pool, 0);	Err	bitreich.org	70
i-        if (mem == NULL)	Err	bitreich.org	70
i-                return -1;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        for (ssize_t r = 1; r > 0; sz += r) {	Err	bitreich.org	70
i-                if (mem_resize(&mem, sz + 2048) < 0)	Err	bitreich.org	70
i-                        return -1;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-                r = read(0, (char *)mem + sz, 2048);	Err	bitreich.org	70
i-                if (r < 0)	Err	bitreich.org	70
i-                        return -1;	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-        block = mem_block(mem);	Err	bitreich.org	70
i-        block->len = sz;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        *memp = mem;	Err	bitreich.org	70
i-        assert(memcmp(block->magic, MEM_BLOCK_MAGIC, 8) == 0);	Err	bitreich.org	70
i-        return 0;	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i-mem_delete(void *mem)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        struct mem_block *block = mem_block(mem);;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (block == block->pool->head)	Err	bitreich.org	70
i-                block->pool->head = block->next;	Err	bitreich.org	70
i-        if (block->next != NULL)	Err	bitreich.org	70
i-                block->next->prev = block->prev;	Err	bitreich.org	70
i-        if (block->prev != NULL)	Err	bitreich.org	70
i-                block->prev->next = block->next;	Err	bitreich.org	70
i-        memset(block, 0, sizeof *block);	Err	bitreich.org	70
i-        free(block);	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i-mem_free(struct mem_pool *pool)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        struct mem_block *block, *next;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        for (block = pool->head; block != NULL; block = next) {	Err	bitreich.org	70
i-                next = block->next;	Err	bitreich.org	70
i-                memset(block, 0, sizeof *block);	Err	bitreich.org	70
i-                free(block);	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-}	Err	bitreich.org	70
1diff --git a/src/mem.h b/src/mem.h	/scm/iomenu/file/src/mem.h.gph	bitreich.org	70
i@@ -1,59 +0,0 @@	Err	bitreich.org	70
i-#ifndef MEM_H	Err	bitreich.org	70
i-#define MEM_H	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-/*	Err	bitreich.org	70
i- * Lightweight wrapper over malloc, that permit to define a memory pool of	Err	bitreich.org	70
i- * multiple buffers, and free them all at once.	Err	bitreich.org	70
i- *	Err	bitreich.org	70
i- *        *──────────┐   	Err	bitreich.org	70
i- *        │ mem_pool │   	Err	bitreich.org	70
i- *        ├──────────┤   	Err	bitreich.org	70
i- *        │*head     │   	Err	bitreich.org	70
i- *        └┬─────────┘   	Err	bitreich.org	70
i- *         v	Err	bitreich.org	70
i- * NULL<   *───────────┐<  >*───────────┐<  >*───────────┐<  >*───────────┐   >NULL	Err	bitreich.org	70
i- *      \  │ mem_block │ \/ │ mem_block │ \/ │ mem_block │ \/ │ mem_block │  /	Err	bitreich.org	70
i- *       \ ├───────────┤ /\ ├───────────┤ /\ ├───────────┤ /\ ├───────────┤ /	Err	bitreich.org	70
i- *        `┤*prev *next├'  `┤*prev *next├'  `┤*prev *next├'  `┤*prev *next├'	Err	bitreich.org	70
i- *         │len        │    │len        │    │len        │    │len        │	Err	bitreich.org	70
i- *         ├─┴─magic───┤    ├─┴─magic───┤    ├─┴─magic───┤    ├─┴─magic───┤	Err	bitreich.org	70
i- *         │///////////│    │///////////│    │///////////│    │///////////│	Err	bitreich.org	70
i- *         │///////////│    │///////////│    │///////////│    │///////////│	Err	bitreich.org	70
i- *         │///////////│    │///////////│    │///////////│    └───────────┘	Err	bitreich.org	70
i- *         └───────────┘    │///////////│    │///////////│	Err	bitreich.org	70
i- *                          │///////////│    └───────────┘	Err	bitreich.org	70
i- *                          └───────────┘	Err	bitreich.org	70
i- *	Err	bitreich.org	70
i- * This permits the type checker to still work on all operations while	Err	bitreich.org	70
i- * providing generic memory management functions for all types of data	Err	bitreich.org	70
i- * structures and keep track of each object's length.	Err	bitreich.org	70
i- */	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#include <stddef.h>	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#define MEM_BLOCK_MAGIC "\xcc\x68\x23\xd7\x9b\x7d\x39\xb9"	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-struct mem_pool {	Err	bitreich.org	70
i-        struct mem_block *head;	Err	bitreich.org	70
i-};	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-struct mem_block {	Err	bitreich.org	70
i-        struct mem_pool *pool;	Err	bitreich.org	70
i-        struct mem_block *prev, *next;	Err	bitreich.org	70
i-        size_t len;	Err	bitreich.org	70
i-        char magic[8]; /* at the end to detect buffer underflow */	Err	bitreich.org	70
i-        char buf[];	Err	bitreich.org	70
i-};	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-/** src/mem.c **/	Err	bitreich.org	70
i-void * mem_alloc(struct mem_pool *pool, size_t len);	Err	bitreich.org	70
i-int mem_resize(void **memp, size_t len);	Err	bitreich.org	70
i-int mem_grow(void **memp, size_t len);	Err	bitreich.org	70
i-int mem_shrink(void **memp, size_t len);	Err	bitreich.org	70
i-size_t mem_length(void *mem);	Err	bitreich.org	70
i-int mem_append(void **memp, void const *buf, size_t len);	Err	bitreich.org	70
i-int mem_read(void **memp, struct mem_pool *pool);	Err	bitreich.org	70
i-void mem_delete(void *mem);	Err	bitreich.org	70
i-void mem_free(struct mem_pool *pool);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#endif	Err	bitreich.org	70
1diff --git a/src/term.c b/src/term.c	/scm/iomenu/file/src/term.c.gph	bitreich.org	70
i@@ -1,107 +0,0 @@	Err	bitreich.org	70
i-#include "term.h"	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#include <ctype.h>	Err	bitreich.org	70
i-#include <stdint.h>	Err	bitreich.org	70
i-#include <stdio.h>	Err	bitreich.org	70
i-#include <string.h>	Err	bitreich.org	70
i-#include <sys/ioctl.h>	Err	bitreich.org	70
i-#include <termios.h>	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#include "compat.h"	Err	bitreich.org	70
i-#include "utf8.h"	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-struct term term = {0};	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-static int	Err	bitreich.org	70
i-term_codepoint_width(uint32_t codepoint, int pos)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        if (codepoint == '\t')	Err	bitreich.org	70
i-                return 8 - pos % 8;	Err	bitreich.org	70
i-        return wcwidth(codepoint);	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-int	Err	bitreich.org	70
i-term_at_width(char const *s, int width, int pos)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        char const *beg = s;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        for (uint32_t state = 0, codepoint; *s != '\0'; s++) {	Err	bitreich.org	70
i-                if (utf8_decode(&state, &codepoint, *s) == UTF8_ACCEPT) {	Err	bitreich.org	70
i-                        pos += term_codepoint_width(codepoint, pos);	Err	bitreich.org	70
i-                        if (pos > width)	Err	bitreich.org	70
i-                                break;	Err	bitreich.org	70
i-                }	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-        return s - beg;	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-int	Err	bitreich.org	70
i-term_raw_on(int fd)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        struct termios new_termios = {0};	Err	bitreich.org	70
i-        char *seq = "\x1b[s\x1b[?1049h\x1b[H";	Err	bitreich.org	70
i-        ssize_t len = strlen(seq);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (write(fd, seq, len) < len)	Err	bitreich.org	70
i-                return -1;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (tcgetattr(fd, &term.old_termios) < 0)	Err	bitreich.org	70
i-                return -1;	Err	bitreich.org	70
i-        memcpy(&new_termios, &term.old_termios, sizeof new_termios);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        new_termios.c_lflag &= ~(ICANON | ECHO | IEXTEN | IGNBRK | ISIG);	Err	bitreich.org	70
i-        if (tcsetattr(fd, TCSANOW, &new_termios) == -1)	Err	bitreich.org	70
i-                return -1;	Err	bitreich.org	70
i-        return 0;	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-int	Err	bitreich.org	70
i-term_raw_off(int fd)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        char *seq = "\x1b[2J\x1b[u\033[?1049l";	Err	bitreich.org	70
i-        ssize_t len = strlen(seq);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (tcsetattr(fd, TCSANOW, &term.old_termios) < 0)	Err	bitreich.org	70
i-                return -1;	Err	bitreich.org	70
i-        if (write(fd, seq, len) < len)	Err	bitreich.org	70
i-                return -1;	Err	bitreich.org	70
i-        return 0;	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-int	Err	bitreich.org	70
i-term_get_key(FILE *fp)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        int key, num;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        key = fgetc(fp);	Err	bitreich.org	70
i-top:	Err	bitreich.org	70
i-        switch (key) {	Err	bitreich.org	70
i-        case EOF:	Err	bitreich.org	70
i-                return -1;	Err	bitreich.org	70
i-        case TERM_KEY_ALT('['):	Err	bitreich.org	70
i-                key = getc(fp);	Err	bitreich.org	70
i-                if (key == EOF)	Err	bitreich.org	70
i-                        return -1;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-                for (num = 0; isdigit(key);) {	Err	bitreich.org	70
i-                        num *= 10;	Err	bitreich.org	70
i-                        num += key - '0';	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-                        key = fgetc(fp);	Err	bitreich.org	70
i-                        if (key == EOF)	Err	bitreich.org	70
i-                                return -1;	Err	bitreich.org	70
i-                }	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-                key = TERM_KEY_CSI(key, num);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-                goto top;	Err	bitreich.org	70
i-        case TERM_KEY_ESC:	Err	bitreich.org	70
i-                key = getc(fp);	Err	bitreich.org	70
i-                if (key == EOF)	Err	bitreich.org	70
i-                        return -1;	Err	bitreich.org	70
i-                key = TERM_KEY_ALT(key);	Err	bitreich.org	70
i-                goto top;	Err	bitreich.org	70
i-        default:	Err	bitreich.org	70
i-                return key;	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-}	Err	bitreich.org	70
1diff --git a/src/term.h b/src/term.h	/scm/iomenu/file/src/term.h.gph	bitreich.org	70
i@@ -1,39 +0,0 @@	Err	bitreich.org	70
i-#ifndef TERM_H	Err	bitreich.org	70
i-#define TERM_H	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#include <stdint.h>	Err	bitreich.org	70
i-#include <stdio.h>	Err	bitreich.org	70
i-#include <sys/ioctl.h>	Err	bitreich.org	70
i-#include <termios.h>	Err	bitreich.org	70
i-#include <unistd.h>	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#define TERM_KEY_CTRL(c)    ((c) & ~0x40)	Err	bitreich.org	70
i-#define TERM_KEY_ALT(c)            (0x100 + (c))	Err	bitreich.org	70
i-#define TERM_KEY_CSI(c, i)  (0x100 + (c) * 0x100 + (i))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-enum term_key {	Err	bitreich.org	70
i-        TERM_KEY_ESC        = 0x1b,	Err	bitreich.org	70
i-        TERM_KEY_DELETE     = 127,	Err	bitreich.org	70
i-        TERM_KEY_BACKSPACE  = TERM_KEY_CTRL('H'),	Err	bitreich.org	70
i-        TERM_KEY_TAB        = TERM_KEY_CTRL('I'),	Err	bitreich.org	70
i-        TERM_KEY_ENTER      = TERM_KEY_CTRL('J'),	Err	bitreich.org	70
i-        TERM_KEY_ARROW_UP   = TERM_KEY_CSI('A', 0),	Err	bitreich.org	70
i-        TERM_KEY_ARROW_DOWN = TERM_KEY_CSI('B', 0),	Err	bitreich.org	70
i-        TERM_KEY_PAGE_UP    = TERM_KEY_CSI('~', 5),	Err	bitreich.org	70
i-        TERM_KEY_PAGE_DOWN  = TERM_KEY_CSI('~', 6),	Err	bitreich.org	70
i-};	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-struct term {	Err	bitreich.org	70
i-        struct winsize winsize;	Err	bitreich.org	70
i-        struct termios old_termios;	Err	bitreich.org	70
i-};	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-/** src/term.c **/	Err	bitreich.org	70
i-struct term term;	Err	bitreich.org	70
i-int term_width_at_pos(uint32_t codepoint, int pos);	Err	bitreich.org	70
i-int term_at_width(char const *s, int width, int pos);	Err	bitreich.org	70
i-int term_raw_on(int fd);	Err	bitreich.org	70
i-int term_raw_off(int fd);	Err	bitreich.org	70
i-int term_get_key(FILE *fp);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-#endif	Err	bitreich.org	70
1diff --git a/term.c b/term.c	/scm/iomenu/file/term.c.gph	bitreich.org	70
i@@ -0,0 +1,107 @@	Err	bitreich.org	70
i+#include "term.h"	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#include <ctype.h>	Err	bitreich.org	70
i+#include <stdint.h>	Err	bitreich.org	70
i+#include <stdio.h>	Err	bitreich.org	70
i+#include <string.h>	Err	bitreich.org	70
i+#include <sys/ioctl.h>	Err	bitreich.org	70
i+#include <termios.h>	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#include "wcwidth.h"	Err	bitreich.org	70
i+#include "utf8.h"	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+struct term term = {0};	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+static int	Err	bitreich.org	70
i+term_codepoint_width(uint32_t codepoint, int pos)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        if (codepoint == '\t')	Err	bitreich.org	70
i+                return 8 - pos % 8;	Err	bitreich.org	70
i+        return wcwidth(codepoint);	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+int	Err	bitreich.org	70
i+term_at_width(char const *s, int width, int pos)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        char const *beg = s;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        for (uint32_t state = 0, codepoint; *s != '\0'; s++) {	Err	bitreich.org	70
i+                if (utf8_decode(&state, &codepoint, *s) == UTF8_ACCEPT) {	Err	bitreich.org	70
i+                        pos += term_codepoint_width(codepoint, pos);	Err	bitreich.org	70
i+                        if (pos > width)	Err	bitreich.org	70
i+                                break;	Err	bitreich.org	70
i+                }	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        return s - beg;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+int	Err	bitreich.org	70
i+term_raw_on(int fd)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        struct termios new_termios = {0};	Err	bitreich.org	70
i+        char *seq = "\x1b[s\x1b[?1049h\x1b[H";	Err	bitreich.org	70
i+        ssize_t len = strlen(seq);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if (write(fd, seq, len) < len)	Err	bitreich.org	70
i+                return -1;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if (tcgetattr(fd, &term.old_termios) < 0)	Err	bitreich.org	70
i+                return -1;	Err	bitreich.org	70
i+        memcpy(&new_termios, &term.old_termios, sizeof new_termios);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        new_termios.c_lflag &= ~(ICANON | ECHO | IEXTEN | IGNBRK | ISIG);	Err	bitreich.org	70
i+        if (tcsetattr(fd, TCSANOW, &new_termios) == -1)	Err	bitreich.org	70
i+                return -1;	Err	bitreich.org	70
i+        return 0;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+int	Err	bitreich.org	70
i+term_raw_off(int fd)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        char *seq = "\x1b[2J\x1b[u\033[?1049l";	Err	bitreich.org	70
i+        ssize_t len = strlen(seq);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if (tcsetattr(fd, TCSANOW, &term.old_termios) < 0)	Err	bitreich.org	70
i+                return -1;	Err	bitreich.org	70
i+        if (write(fd, seq, len) < len)	Err	bitreich.org	70
i+                return -1;	Err	bitreich.org	70
i+        return 0;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+int	Err	bitreich.org	70
i+term_get_key(FILE *fp)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        int key, num;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        key = fgetc(fp);	Err	bitreich.org	70
i+top:	Err	bitreich.org	70
i+        switch (key) {	Err	bitreich.org	70
i+        case EOF:	Err	bitreich.org	70
i+                return -1;	Err	bitreich.org	70
i+        case TERM_KEY_ALT('['):	Err	bitreich.org	70
i+                key = getc(fp);	Err	bitreich.org	70
i+                if (key == EOF)	Err	bitreich.org	70
i+                        return -1;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                for (num = 0; isdigit(key);) {	Err	bitreich.org	70
i+                        num *= 10;	Err	bitreich.org	70
i+                        num += key - '0';	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                        key = fgetc(fp);	Err	bitreich.org	70
i+                        if (key == EOF)	Err	bitreich.org	70
i+                                return -1;	Err	bitreich.org	70
i+                }	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                key = TERM_KEY_CSI(key, num);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                goto top;	Err	bitreich.org	70
i+        case TERM_KEY_ESC:	Err	bitreich.org	70
i+                key = getc(fp);	Err	bitreich.org	70
i+                if (key == EOF)	Err	bitreich.org	70
i+                        return -1;	Err	bitreich.org	70
i+                key = TERM_KEY_ALT(key);	Err	bitreich.org	70
i+                goto top;	Err	bitreich.org	70
i+        default:	Err	bitreich.org	70
i+                return key;	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+}	Err	bitreich.org	70
1diff --git a/term.h b/term.h	/scm/iomenu/file/term.h.gph	bitreich.org	70
i@@ -0,0 +1,38 @@	Err	bitreich.org	70
i+#ifndef TERM_H	Err	bitreich.org	70
i+#define TERM_H	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#include <stdint.h>	Err	bitreich.org	70
i+#include <stdio.h>	Err	bitreich.org	70
i+#include <sys/ioctl.h>	Err	bitreich.org	70
i+#include <termios.h>	Err	bitreich.org	70
i+#include <unistd.h>	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#define TERM_KEY_CTRL(c)    ((c) & ~0x40)	Err	bitreich.org	70
i+#define TERM_KEY_ALT(c)            (0x100 + (c))	Err	bitreich.org	70
i+#define TERM_KEY_CSI(c, i)  (0x100 + (c) * 0x100 + (i))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+enum term_key {	Err	bitreich.org	70
i+        TERM_KEY_ESC        = 0x1b,	Err	bitreich.org	70
i+        TERM_KEY_DELETE     = 127,	Err	bitreich.org	70
i+        TERM_KEY_BACKSPACE  = TERM_KEY_CTRL('H'),	Err	bitreich.org	70
i+        TERM_KEY_TAB        = TERM_KEY_CTRL('I'),	Err	bitreich.org	70
i+        TERM_KEY_ENTER      = TERM_KEY_CTRL('J'),	Err	bitreich.org	70
i+        TERM_KEY_ARROW_UP   = TERM_KEY_CSI('A', 0),	Err	bitreich.org	70
i+        TERM_KEY_ARROW_DOWN = TERM_KEY_CSI('B', 0),	Err	bitreich.org	70
i+        TERM_KEY_PAGE_UP    = TERM_KEY_CSI('~', 5),	Err	bitreich.org	70
i+        TERM_KEY_PAGE_DOWN  = TERM_KEY_CSI('~', 6),	Err	bitreich.org	70
i+};	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+struct term {	Err	bitreich.org	70
i+        struct winsize winsize;	Err	bitreich.org	70
i+        struct termios old_termios;	Err	bitreich.org	70
i+};	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+struct term term;	Err	bitreich.org	70
i+int term_width_at_pos(uint32_t codepoint, int pos);	Err	bitreich.org	70
i+int term_at_width(char const *s, int width, int pos);	Err	bitreich.org	70
i+int term_raw_on(int fd);	Err	bitreich.org	70
i+int term_raw_off(int fd);	Err	bitreich.org	70
i+int term_get_key(FILE *fp);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#endif	Err	bitreich.org	70
1diff --git a/src/utf8.c b/utf8.c	/scm/iomenu/file/utf8.c.gph	bitreich.org	70
1diff --git a/src/utf8.h b/utf8.h	/scm/iomenu/file/utf8.h.gph	bitreich.org	70
1diff --git a/src/compat/wcwidth.c b/wcwidth.c	/scm/iomenu/file/wcwidth.c.gph	bitreich.org	70
1diff --git a/wcwidth.h b/wcwidth.h	/scm/iomenu/file/wcwidth.h.gph	bitreich.org	70
i@@ -0,0 +1,13 @@	Err	bitreich.org	70
i+#ifndef WCWIDTH_H	Err	bitreich.org	70
i+#define WCWIDTH_H	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#include <wchar.h>	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#define wcwidth(c) mk_wcwidth_cjk(c)	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+int mk_wcwidth(wchar_t ucs);	Err	bitreich.org	70
i+int mk_wcswidth(const wchar_t *pwcs, size_t n);	Err	bitreich.org	70
i+int mk_wcwidth_cjk(wchar_t ucs);	Err	bitreich.org	70
i+int mk_wcswidth_cjk(const wchar_t *pwcs, size_t n);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#endif	Err	bitreich.org	70
.