iworking prototype of libtext - 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 353e9eb3f5f4df50ed5802ee14c593c29eba706e	/scm/iomenu/commit/353e9eb3f5f4df50ed5802ee14c593c29eba706e.gph	bitreich.org	70
1parent 61b9b7eeca080291752b9813705c17208e83505a	/scm/iomenu/commit/61b9b7eeca080291752b9813705c17208e83505a.gph	bitreich.org	70
hAuthor: Josuah Demangeon⠠⠵ <mail@josuah.net>	URL:mailto:mail@josuah.net	bitreich.org	70
iDate:   Sun,  2 Apr 2017 14:56:16 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iworking prototype of libtext	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M text.c                              |     162 ++++++++++++++++---------------	Err	bitreich.org	70
i  M text.h                              |      15 ++++++++++-----	Err	bitreich.org	70
i	Err	bitreich.org	70
i2 files changed, 93 insertions(+), 84 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/text.c b/text.c	/scm/iomenu/file/text.c.gph	bitreich.org	70
i@@ -2,8 +2,8 @@	Err	bitreich.org	70
i  * Functions handling UTF-8 srings:	Err	bitreich.org	70
i  *	Err	bitreich.org	70
i  * stdin  -> buffer -> stdout	Err	bitreich.org	70
i- * char[] -> long[] -> char[]	Err	bitreich.org	70
i  * UTF-8  ->  rune  -> UTF-8	Err	bitreich.org	70
i+ * char[] -> long[] -> char[]	Err	bitreich.org	70
i  */	Err	bitreich.org	70
i 	Err	bitreich.org	70
i 	Err	bitreich.org	70
i@@ -15,15 +15,16 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i- * Return the number of bytes in rune for the `len` next char in `s`,	Err	bitreich.org	70
i- * or 0 if `utf` is misencoded.	Err	bitreich.org	70
i+ * Return the number of bytes in rune for the `n` next char in `s`,	Err	bitreich.org	70
i+ * or 0 if ti is misencoded.	Err	bitreich.org	70
i  *	Err	bitreich.org	70
i- * Thanks to Connor Lane Smith for some ideas.	Err	bitreich.org	70
i+ * Thanks to Connor Lane Smith for the idea of using 0x??.	Err	bitreich.org	70
i  */	Err	bitreich.org	70
i int	Err	bitreich.org	70
i-utflen(char *s, int n) {	Err	bitreich.org	70
i+utflen(char *s, int n)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i         int len = 1;	Err	bitreich.org	70
i-        int contiunation_bytes =	Err	bitreich.org	70
i+        int continuation_bytes =	Err	bitreich.org	70
i                 (s[0] & 0x80) == 0x00 ? 0 :  /* 0xxxxxxx */	Err	bitreich.org	70
i                 (s[0] & 0xc0) == 0x80 ? 1 :  /* 10xxxxxx */	Err	bitreich.org	70
i                 (s[0] & 0xe0) == 0xc0 ? 2 :  /* 110xxxxx */	Err	bitreich.org	70
i@@ -34,11 +35,12 @@ utflen(char *s, int n) {	Err	bitreich.org	70
i                 (s[0] & 0xff) == 0xfe ? 7 :  /* 11111110 */	Err	bitreich.org	70
i                                         8;   /* 11111111 */	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        if (contiunation_bytes > 6 || contiunation_bytes > n)	Err	bitreich.org	70
i+        if (continuation_bytes > 6 || continuation_bytes > n)	Err	bitreich.org	70
i                 return 0;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         /* check if continuation bytes are 10xxxxxx and increment `len` */	Err	bitreich.org	70
i-        switch (contiunation_bytes) {  /* FALLTHROUGH */	Err	bitreich.org	70
i+        switch (continuation_bytes) {  /* FALLTHROUGH */	Err	bitreich.org	70
i+        case 7:        if ((s[6] & 0xc0) != 0x80) return 0; else len++;	Err	bitreich.org	70
i         case 6:        if ((s[5] & 0xc0) != 0x80) return 0; else len++;	Err	bitreich.org	70
i         case 5:        if ((s[4] & 0xc0) != 0x80) return 0; else len++;	Err	bitreich.org	70
i         case 4:        if ((s[3] & 0xc0) != 0x80) return 0; else len++;	Err	bitreich.org	70
i@@ -51,10 +53,11 @@ utflen(char *s, int n) {	Err	bitreich.org	70
i 	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i- * return the number of bytes required to display `rune`	Err	bitreich.org	70
i+ * Return the number of bytes required to display `rune`	Err	bitreich.org	70
i  */	Err	bitreich.org	70
i int	Err	bitreich.org	70
i-runelen(long r) {	Err	bitreich.org	70
i+runelen(long r)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i         if (r <= 0x0000007f) return 1;	Err	bitreich.org	70
i         if (r <= 0x000007ff) return 2;	Err	bitreich.org	70
i         if (r <= 0x0000ffff) return 3;	Err	bitreich.org	70
i@@ -66,12 +69,13 @@ runelen(long r) {	Err	bitreich.org	70
i 	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i- * return the firsts `len` bytes in the sring poined by `utf` to a rune.	Err	bitreich.org	70
i- * if the `utf` is misencoded, the first char is returned as a	Err	bitreich.org	70
i- * negative value.	Err	bitreich.org	70
i+ * Sets `r` to a rune corresponding to the firsts `n` bytes of `s`	Err	bitreich.org	70
i+ * and return the number of bytes read.	Err	bitreich.org	70
i+ * if `s` is misencoded, the rune is stored as a negative value.	Err	bitreich.org	70
i  */	Err	bitreich.org	70
i int	Err	bitreich.org	70
i-utftorune(long *r, char *s, int n) {	Err	bitreich.org	70
i+utftorune(long *r, char *s, int n)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i         int len = utflen(s, n);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         /* first byte */	Err	bitreich.org	70
i@@ -100,36 +104,37 @@ utftorune(long *r, char *s, int n) {	Err	bitreich.org	70
i 	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i- * return the next rune in the `len` next `utf`, or 0 if	Err	bitreich.org	70
i- * `utf` is misencoded.	Err	bitreich.org	70
i+ * Encode the rune `r` in utf-8 in `s`, null-terminated, and return	Err	bitreich.org	70
i+ * the number of bytes written, 0 if `r` is invalid.	Err	bitreich.org	70
i  */	Err	bitreich.org	70
i int	Err	bitreich.org	70
i-runetoutf(char *s, long r) {	Err	bitreich.org	70
i+runetoutf(char *s, long r)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i         switch (runelen(r)) {	Err	bitreich.org	70
i         case 1:	Err	bitreich.org	70
i-                s[0] = r;                         /* 0xxxxxxx */	Err	bitreich.org	70
i+                s[0] = r;                          /* 0xxxxxxx */	Err	bitreich.org	70
i                 s[1] = '\0';	Err	bitreich.org	70
i                 return 1;	Err	bitreich.org	70
i         case 2:	Err	bitreich.org	70
i-                s[0] = 0xc0 | (0x3f & (r >> 6));  /* 110xxxxx */	Err	bitreich.org	70
i-                s[1] = 0x80 | (0x3f & (r));       /* 10xxxxxx */	Err	bitreich.org	70
i+                s[0] = 0xc0 | (0x1f & (r >> 6));   /* 110xxxxx */	Err	bitreich.org	70
i+                s[1] = 0x80 | (0x3f & (r));        /* 10xxxxxx */	Err	bitreich.org	70
i                 s[2] = '\0';	Err	bitreich.org	70
i                 return 2;	Err	bitreich.org	70
i         case 3:	Err	bitreich.org	70
i-                s[0] = 0xe0 | (0x3f & (r >> 12)); /* 1110xxxx */	Err	bitreich.org	70
i-                s[1] = 0x80 | (0x3f & (r >> 6));  /* 10xxxxxx */	Err	bitreich.org	70
i-                s[2] = 0x80 | (0x3f & (r));       /* 10xxxxxx */	Err	bitreich.org	70
i+                s[0] = 0xe0 | (0x0f & (r >> 12));  /* 1110xxxx */	Err	bitreich.org	70
i+                s[1] = 0x80 | (0x3f & (r >> 6));   /* 10xxxxxx */	Err	bitreich.org	70
i+                s[2] = 0x80 | (0x3f & (r));        /* 10xxxxxx */	Err	bitreich.org	70
i                 s[3] = '\0';	Err	bitreich.org	70
i                 return 3;	Err	bitreich.org	70
i         case 4:	Err	bitreich.org	70
i-                s[0] = 0xf0 | (0x3f & (r >> 6));  /* 11110xxx */	Err	bitreich.org	70
i-                s[1] = 0x80 | (0x3f & (r >> 6));  /* 10xxxxxx */	Err	bitreich.org	70
i-                s[2] = 0x80 | (0x3f & (r >> 6));  /* 10xxxxxx */	Err	bitreich.org	70
i-                s[3] = 0x80 | (0x3f & (r));       /* 10xxxxxx */	Err	bitreich.org	70
i+                s[0] = 0xf0 | (0x07 & (r >> 18));  /* 11110xxx */	Err	bitreich.org	70
i+                s[1] = 0x80 | (0x3f & (r >> 12));  /* 10xxxxxx */	Err	bitreich.org	70
i+                s[2] = 0x80 | (0x3f & (r >> 6));   /* 10xxxxxx */	Err	bitreich.org	70
i+                s[3] = 0x80 | (0x3f & (r));        /* 10xxxxxx */	Err	bitreich.org	70
i                 s[4] = '\0';	Err	bitreich.org	70
i                 return 4;	Err	bitreich.org	70
i         case 5:	Err	bitreich.org	70
i-                s[0] = 0xf8 | (0x3f & (r >> 24));  /* 111110xx */	Err	bitreich.org	70
i+                s[0] = 0xf8 | (0x03 & (r >> 24));  /* 111110xx */	Err	bitreich.org	70
i                 s[1] = 0x80 | (0x3f & (r >> 18));  /* 10xxxxxx */	Err	bitreich.org	70
i                 s[2] = 0x80 | (0x3f & (r >> 12));  /* 10xxxxxx */	Err	bitreich.org	70
i                 s[3] = 0x80 | (0x3f & (r >> 6));   /* 10xxxxxx */	Err	bitreich.org	70
i@@ -137,7 +142,7 @@ runetoutf(char *s, long r) {	Err	bitreich.org	70
i                 s[5] = '\0';	Err	bitreich.org	70
i                 return 5;	Err	bitreich.org	70
i         case 6:	Err	bitreich.org	70
i-                s[0] = 0xfc | (0x3f & (r >> 30));  /* 1111110x */	Err	bitreich.org	70
i+                s[0] = 0xfc | (0x01 & (r >> 30));  /* 1111110x */	Err	bitreich.org	70
i                 s[1] = 0x80 | (0x3f & (r >> 24));  /* 10xxxxxx */	Err	bitreich.org	70
i                 s[2] = 0x80 | (0x3f & (r >> 18));  /* 10xxxxxx */	Err	bitreich.org	70
i                 s[3] = 0x80 | (0x3f & (r >> 12));  /* 10xxxxxx */	Err	bitreich.org	70
i@@ -152,31 +157,56 @@ runetoutf(char *s, long r) {	Err	bitreich.org	70
i 	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i+ * Read a newly allocated string from `f` up to the first '\n'	Err	bitreich.org	70
i+ * character or the end of the fifle.  It is stored as a rune array,	Err	bitreich.org	70
i+ * and `r` is set to point to it.	Err	bitreich.org	70
i+ */	Err	bitreich.org	70
i+int	Err	bitreich.org	70
i+getutf(long **r, FILE *f)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        int slen, rlen = 0, c, size = BUFSIZ;	Err	bitreich.org	70
i+        char *s;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if (!(s = malloc(size))) return -1;	Err	bitreich.org	70
i+        for (slen = 0; (c = fgetc(f)) != EOF && (c != '\n'); slen++) {	Err	bitreich.org	70
i+                s[slen] = c;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                if (slen >= size)	Err	bitreich.org	70
i+                        if (!(s = realloc(s, ++size))) return -1;	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if (!(*r = malloc(size * sizeof (long)))) return -1;	Err	bitreich.org	70
i+        for (int i = 0; i < slen; rlen++)	Err	bitreich.org	70
i+                i += utftorune(*r + rlen, s + i, slen - i);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        free(s);	Err	bitreich.org	70
i+        return rlen;	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  * Fill `s` with a printable representation of `r` and return the	Err	bitreich.org	70
i- * width of the character	Err	bitreich.org	70
i+ * width of the character.  The tab characters are converted to	Err	bitreich.org	70
i+ * spaces as if it was at the column `col`.	Err	bitreich.org	70
i  */	Err	bitreich.org	70
i int	Err	bitreich.org	70
i runetoprint(char *s, long r, int col)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        /* ASCII control characters and invalid characters */	Err	bitreich.org	70
i-        if (r == '\t') {	Err	bitreich.org	70
i+        /* invalid */	Err	bitreich.org	70
i+        if (r < 0) {	Err	bitreich.org	70
i+                sprintf(s, "[%02x]", (unsigned char) -r);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        } else if (r == '\t') {	Err	bitreich.org	70
i                 int i;	Err	bitreich.org	70
i                 for (i = 0; i < (col + 1) % 8 - 1; i++)	Err	bitreich.org	70
i                         s[i] = ' ';	Err	bitreich.org	70
i-                s[i] = '\0';	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        } else if (r < ' ' || r == 0x7f) {	Err	bitreich.org	70
i-                sprintf(s, "[%02x]", (char) r);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        /* non-breaking space */	Err	bitreich.org	70
i-        } else if (r == 0xa0) {	Err	bitreich.org	70
i-                sprintf(s, "[ ]");	Err	bitreich.org	70
i+                s[i] = '\0'; s[0] = '|';	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        /* soft hyphen */	Err	bitreich.org	70
i-        } else if (r == 0xad) {	Err	bitreich.org	70
i-                sprintf(s, "[-]");	Err	bitreich.org	70
i+        /* ascii control */	Err	bitreich.org	70
i+        } else if (r == 0x7f || r < ' ') {	Err	bitreich.org	70
i+                sprintf(s, "[%02lx]", r);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        /* valid UTF-8 but not printable Unicode code points */	Err	bitreich.org	70
i+        /* utf-8 but not printable */	Err	bitreich.org	70
i         } else if (	Err	bitreich.org	70
i                 /* unicode control */	Err	bitreich.org	70
i                 (0x80 <= r && r < 0xa0)          ||	Err	bitreich.org	70
i@@ -209,47 +239,21 @@ runetoprint(char *s, long r, int col)	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- * Read a newly allocated string `s` from `file` up to the first '\n'	Err	bitreich.org	70
i- * character or the end of the file.	Err	bitreich.org	70
i- */	Err	bitreich.org	70
i-int	Err	bitreich.org	70
i-getutf(char **s, FILE *file)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        int i; int c;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        *s = malloc(BUFSIZ);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        for (i = 0; (c = fgetc(file)) != EOF && (c != '\n'); i++) {	Err	bitreich.org	70
i-                (*s)[i] = c;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-                if ((size_t) i + 16 >= sizeof(s))	Err	bitreich.org	70
i-                        *s = realloc(*s, sizeof(s) + BUFSIZ);	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        return i;	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-	Err	bitreich.org	70
i int	Err	bitreich.org	70
i main()	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        char s[7];	Err	bitreich.org	70
i-        long r;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        for (int i = 0; i < 9000; i++) {	Err	bitreich.org	70
i-                runetoutf(s, i);	Err	bitreich.org	70
i-                utftorune(&r, s, 7);	Err	bitreich.org	70
i-                runetoutf(s, r);	Err	bitreich.org	70
i-                utftorune(&r, s, 7);	Err	bitreich.org	70
i-                runetoprint(s, r, 0);	Err	bitreich.org	70
i+        char s[BUFSIZ];	Err	bitreich.org	70
i+        long *r;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-                printf("%5X: ", r);	Err	bitreich.org	70
i-                printf("'%s'\t", s);	Err	bitreich.org	70
i+        for (int len; (len = getutf(&r, stdin)) >= 0 && !feof(stdin); free(r)) {	Err	bitreich.org	70
i+                for (int i = 0; i < len; i++) {	Err	bitreich.org	70
i+                        runetoprint(s, r[i], 0);	Err	bitreich.org	70
i+                        fputs(s, stdout);	Err	bitreich.org	70
i+                }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-                if (i % 8 == 0)	Err	bitreich.org	70
i-                        puts("");	Err	bitreich.org	70
i+                putchar('\n');	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i+        free(r);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         return 0;	Err	bitreich.org	70
i }	Err	bitreich.org	70
1diff --git a/text.h b/text.h	/scm/iomenu/file/text.h.gph	bitreich.org	70
i@@ -1,6 +1,11 @@	Err	bitreich.org	70
i-typedef int Rune;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i+/* rune / utf length */	Err	bitreich.org	70
i int utflen(char *, int);	Err	bitreich.org	70
i-int runelen(Rune);	Err	bitreich.org	70
i-int utftorune(Rune *, char *, int);	Err	bitreich.org	70
i-int runetoutf(char *, Rune);	Err	bitreich.org	70
i+int runelen(long);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+/* decode / encode */	Err	bitreich.org	70
i+int utftorune(long *, char *, int);	Err	bitreich.org	70
i+int runetoutf(char *, long);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+/* stdin / stdout */	Err	bitreich.org	70
i+int getutf(long **, FILE *);	Err	bitreich.org	70
i+int runetoprint(char *, long, int);	Err	bitreich.org	70
.