iadd tests and cleanup I/O function - ics2txt - convert icalendar .ics file to plain text	Err	bitreich.org	70
hgit clone git://bitreich.org/ics2txt git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/ics2txt	URL:git://bitreich.org/ics2txt git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/ics2txt	bitreich.org	70
1Log	/scm/ics2txt/log.gph	bitreich.org	70
1Files	/scm/ics2txt/files.gph	bitreich.org	70
1Refs	/scm/ics2txt/refs.gph	bitreich.org	70
1Tags	/scm/ics2txt/tag	bitreich.org	70
1README	/scm/ics2txt/file/README.md.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit a7b4ceeaf4a57476c0952e0da2def5f92bdfdb9f	/scm/ics2txt/commit/a7b4ceeaf4a57476c0952e0da2def5f92bdfdb9f.gph	bitreich.org	70
1parent 94bccd0b9ea7049ebeec4fcf2416f6f0b7d221b5	/scm/ics2txt/commit/94bccd0b9ea7049ebeec4fcf2416f6f0b7d221b5.gph	bitreich.org	70
hAuthor: Josuah Demangeon <me@josuah.net>	URL:mailto:me@josuah.net	bitreich.org	70
iDate:   Sun, 28 Jun 2020 10:34:46 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iadd tests and cleanup I/O function	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M ics2tsv.c                           |       7 +++++--	Err	bitreich.org	70
i  M src/ical.c                          |      72 +++++++++----------------------	Err	bitreich.org	70
i  M src/ical.h                          |       2 +-	Err	bitreich.org	70
i  M src/map.c                           |       6 ++++++	Err	bitreich.org	70
i  M src/map.h                           |       1 +	Err	bitreich.org	70
i  M src/util.c                          |       5 +++--	Err	bitreich.org	70
i  A test/map.c                          |      18 ++++++++++++++++++	Err	bitreich.org	70
i  A test/random-ics.awk                 |      40 +++++++++++++++++++++++++++++++	Err	bitreich.org	70
i	Err	bitreich.org	70
i8 files changed, 94 insertions(+), 57 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/ics2tsv.c b/ics2tsv.c	/scm/ics2txt/file/ics2tsv.c.gph	bitreich.org	70
i@@ -1,4 +1,5 @@	Err	bitreich.org	70
i #include <stdio.h>	Err	bitreich.org	70
i+#include <stdlib.h>	Err	bitreich.org	70
i 	Err	bitreich.org	70
i #include "ical.h"	Err	bitreich.org	70
i #include "log.h"	Err	bitreich.org	70
i@@ -8,17 +9,19 @@ int	Err	bitreich.org	70
i print_ical_to_tsv(FILE *fp)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         struct ical_contentline contentline;	Err	bitreich.org	70
i-        char *line = NULL;	Err	bitreich.org	70
i+        char *line = NULL, *ln = NULL;	Err	bitreich.org	70
i         size_t sz = 0;	Err	bitreich.org	70
i         ssize_t r;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ical_init_contentline(&contentline);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        while ((r = ical_read_line(&line, &sz, fp)) > 0) {	Err	bitreich.org	70
i+        while ((r = ical_read_line(&line, &ln, &sz, fp)) > 0) {	Err	bitreich.org	70
i                 debug("readling line \"%s\"", line);	Err	bitreich.org	70
i                 if (ical_parse_contentline(&contentline, line) < 0)	Err	bitreich.org	70
i                         die("parsing line \"%s\"", line);	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i+        free(line);	Err	bitreich.org	70
i+        free(ln);	Err	bitreich.org	70
i         return r;	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
1diff --git a/src/ical.c b/src/ical.c	/scm/ics2txt/file/src/ical.c.gph	bitreich.org	70
i@@ -8,38 +8,28 @@	Err	bitreich.org	70
i #include "util.h"	Err	bitreich.org	70
i 	Err	bitreich.org	70
i int	Err	bitreich.org	70
i-ical_read_line(char **line, size_t *sz, FILE *fp)	Err	bitreich.org	70
i+ical_read_line(char **line, char **ln, size_t *sz, FILE *fp)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        ssize_t r;	Err	bitreich.org	70
i-        char *tail = NULL;	Err	bitreich.org	70
i-        size_t tail_sz = 0;	Err	bitreich.org	70
i-        int c, ret = -1;	Err	bitreich.org	70
i+        int c;	Err	bitreich.org	70
i+        void *v;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        if ((r = getline(line, sz, fp)) <= 0)	Err	bitreich.org	70
i-                return r;	Err	bitreich.org	70
i-        strchomp(*line);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        for (;;) {	Err	bitreich.org	70
i-                if ((c = fgetc(fp)) == EOF) {	Err	bitreich.org	70
i-                        ret = ferror(fp) ? -1 : 0;	Err	bitreich.org	70
i-                        goto end;	Err	bitreich.org	70
i-                }	Err	bitreich.org	70
i-                if (c != ' ')	Err	bitreich.org	70
i-                        break;	Err	bitreich.org	70
i-                if ((r = getline(&tail, &tail_sz, fp)) <= 0) {	Err	bitreich.org	70
i-                        ret = r;	Err	bitreich.org	70
i-                        goto end;	Err	bitreich.org	70
i-                }	Err	bitreich.org	70
i-                strchomp(tail);	Err	bitreich.org	70
i-                if (strappend(line, tail) < 0)	Err	bitreich.org	70
i-                        goto end;	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i+        if ((v = realloc(*line, 1)) == NULL)	Err	bitreich.org	70
i+                return -1;	Err	bitreich.org	70
i+        *line = v;	Err	bitreich.org	70
i+        (*line)[0] = '\0';	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        do {	Err	bitreich.org	70
i+                if (getline(ln, sz, fp) <= 0)	Err	bitreich.org	70
i+                        return ferror(fp) ? -1 : 0;	Err	bitreich.org	70
i+                strchomp(*ln);	Err	bitreich.org	70
i+                if (strappend(line, *ln) < 0)	Err	bitreich.org	70
i+                        return -1;	Err	bitreich.org	70
i+                if ((c = fgetc(fp)) == EOF)	Err	bitreich.org	70
i+                        return ferror(fp) ? -1 : 1;	Err	bitreich.org	70
i+        } while (c == ' ');	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        ret = 1;	Err	bitreich.org	70
i-end:	Err	bitreich.org	70
i-        free(tail);	Err	bitreich.org	70
i         ungetc(c, fp);	Err	bitreich.org	70
i-        return ret;	Err	bitreich.org	70
i+        return 1;	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i int	Err	bitreich.org	70
i@@ -48,48 +38,26 @@ ical_parse_contentline(struct ical_contentline *contentline, char *line)	Err	bitreich.org	70
i         char *column, *equal, *param, *cp;	Err	bitreich.org	70
i         size_t sz;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        debug("0");	Err	bitreich.org	70
i-	Err	bitreich.org	70
i         if ((column = strchr(line, ':')) == NULL)	Err	bitreich.org	70
i                 return -1;	Err	bitreich.org	70
i         *column = '\0';	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        {	Err	bitreich.org	70
i-                size_t len;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-                debug("1.1");	Err	bitreich.org	70
i-                len = strlen(column + 1);	Err	bitreich.org	70
i-                debug("1.2");	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-        	Err	bitreich.org	70
i-	Err	bitreich.org	70
i         if ((contentline->value = strdup(column + 1)) == NULL)	Err	bitreich.org	70
i                 return -1;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        debug("2");	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        cp = strchr(line, ';');	Err	bitreich.org	70
i-        cp = (cp == NULL) ? (NULL) : (cp + 1);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        debug("3");	Err	bitreich.org	70
i-	Err	bitreich.org	70
i+        if ((cp = strchr(line, ';')) != NULL)	Err	bitreich.org	70
i+                cp++;	Err	bitreich.org	70
i         while ((param = strsep(&cp, ";")) != NULL) {	Err	bitreich.org	70
i                 if ((equal = strchr(param, '=')) == NULL)	Err	bitreich.org	70
i                         return -1;	Err	bitreich.org	70
i                 *equal = '\0';	Err	bitreich.org	70
i-	Err	bitreich.org	70
i                 if (map_set(&contentline->param, param, equal + 1) < 0)	Err	bitreich.org	70
i                         return -1;	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        debug("4");	Err	bitreich.org	70
i-	Err	bitreich.org	70
i         sz = sizeof(contentline->name);	Err	bitreich.org	70
i         if (strlcpy(contentline->name, line, sz) >= sz)	Err	bitreich.org	70
i                 return errno=EMSGSIZE, -1;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        debug("5");	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
1diff --git a/src/ical.h b/src/ical.h	/scm/ics2txt/file/src/ical.h.gph	bitreich.org	70
i@@ -17,7 +17,7 @@ struct ical_contentline {	Err	bitreich.org	70
i };	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /** src/ical.c **/	Err	bitreich.org	70
i-int ical_read_line(char **line, size_t *sz, FILE *fp);	Err	bitreich.org	70
i+int ical_read_line(char **line, char **ln, size_t *sz, FILE *fp);	Err	bitreich.org	70
i int ical_parse_contentline(struct ical_contentline *contentline, char *line);	Err	bitreich.org	70
i void ical_init_contentline(struct ical_contentline *contentline);	Err	bitreich.org	70
i void ical_free_contentline(struct ical_contentline *contentline);	Err	bitreich.org	70
1diff --git a/src/map.c b/src/map.c	/scm/ics2txt/file/src/map.c.gph	bitreich.org	70
i@@ -87,6 +87,12 @@ map_del(struct map *map, char *key)	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i+map_init(struct map *map)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        memset(map, 0, sizeof(*map));	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+void	Err	bitreich.org	70
i map_free_values(struct map *map)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         for (size_t i = 0; i < map->len; i++)	Err	bitreich.org	70
1diff --git a/src/map.h b/src/map.h	/scm/ics2txt/file/src/map.h.gph	bitreich.org	70
i@@ -17,6 +17,7 @@ struct map {	Err	bitreich.org	70
i void * map_get(struct map *map, char *key);	Err	bitreich.org	70
i int map_set(struct map *map, char *key, void *value);	Err	bitreich.org	70
i int map_del(struct map *map, char *key);	Err	bitreich.org	70
i+void map_init(struct map *map);	Err	bitreich.org	70
i void map_free_values(struct map *map);	Err	bitreich.org	70
i void map_free(struct map *map);	Err	bitreich.org	70
i 	Err	bitreich.org	70
1diff --git a/src/util.c b/src/util.c	/scm/ics2txt/file/src/util.c.gph	bitreich.org	70
i@@ -10,7 +10,8 @@ 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-        cpy = ((len = strlen(str)) > sz) ? (sz) : (len);	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@@ -54,7 +55,7 @@ strappend(char **base_p, char const *s)	Err	bitreich.org	70
i         size_t base_len, s_len;	Err	bitreich.org	70
i         void *v;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        base_len = strlen(*base_p);	Err	bitreich.org	70
i+        base_len = (*base_p == NULL) ? (0) : (strlen(*base_p));	Err	bitreich.org	70
i         s_len = strlen(s);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         if ((v = realloc(*base_p, base_len + s_len + 1)) == NULL)	Err	bitreich.org	70
1diff --git a/test/map.c b/test/map.c	/scm/ics2txt/file/test/map.c.gph	bitreich.org	70
i@@ -0,0 +1,18 @@	Err	bitreich.org	70
i+#include <string.h>	Err	bitreich.org	70
i+#include <stdio.h>	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#include "map.h"	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+int main(int argc, char **argv) {	Err	bitreich.org	70
i+        struct map map;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        memset(&map, 0, sizeof(map));	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        for (argv++; *argv != NULL; argv++)	Err	bitreich.org	70
i+                if (map_set(&map, *argv, "abra") < 0)	Err	bitreich.org	70
i+                        return 1;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        fprintf(stdout, ".");	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        return 0;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
1diff --git a/test/random-ics.awk b/test/random-ics.awk	/scm/ics2txt/file/test/random-ics.awk.gph	bitreich.org	70
i@@ -0,0 +1,40 @@	Err	bitreich.org	70
i+#!/usr/bin/awk -f	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+function random(n) {	Err	bitreich.org	70
i+        "exec od -An </dev/urandom" | getline num	Err	bitreich.org	70
i+        return num % n	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+BEGIN {	Err	bitreich.org	70
i+        data = "exec tr -cd -- '-a-zA-Z0-9\n' </dev/urandom"	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        first = 1	Err	bitreich.org	70
i+        while (data | getline) {	Err	bitreich.org	70
i+                if (random(2) && !first) {	Err	bitreich.org	70
i+                        print(" " $0)	Err	bitreich.org	70
i+                        continue	Err	bitreich.org	70
i+                }	Err	bitreich.org	70
i+                first = 0	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                col = random(26) + 1	Err	bitreich.org	70
i+                out = substr($0, 1, col)	Err	bitreich.org	70
i+                $0 = substr($0, col + 1)	Err	bitreich.org	70
i+                n = random(30)	Err	bitreich.org	70
i+                for (i = 0; i <= n; i++) {	Err	bitreich.org	70
i+                        col = random(30) + 5	Err	bitreich.org	70
i+                        if (length($0) < col)	Err	bitreich.org	70
i+                                continue	Err	bitreich.org	70
i+                        eq = random(int(col / 2)) + 1	Err	bitreich.org	70
i+                        out = out substr($0, 1, eq) "=" substr($1, eq + 1, col) ";"	Err	bitreich.org	70
i+                        $0 = substr($0, col + 1)	Err	bitreich.org	70
i+                }	Err	bitreich.org	70
i+                out = out $0 ":"	Err	bitreich.org	70
i+                data | getline	Err	bitreich.org	70
i+                out = out $0	Err	bitreich.org	70
i+                if (out ~ "\n" || out !~ ":")	Err	bitreich.org	70
i+                        exit(1)	Err	bitreich.org	70
i+                print(out)	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        close(cmd)	Err	bitreich.org	70
i+}	Err	bitreich.org	70
.