irefactor the code to avoid copying the whole ical file to memory - 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 917f5b056d0b1241f0816bfd41276a36b5727fb1 /scm/ics2txt/commit/917f5b056d0b1241f0816bfd41276a36b5727fb1.gph bitreich.org 70
1parent b81a0df00fa8f12b03fa371762b6bd4ee3db8422 /scm/ics2txt/commit/b81a0df00fa8f12b03fa371762b6bd4ee3db8422.gph bitreich.org 70
hAuthor: Josuah Demangeon <me@josuah.net> URL:mailto:me@josuah.net bitreich.org 70
iDate: Sat, 12 Jun 2021 22:50:29 +0200 Err bitreich.org 70
i Err bitreich.org 70
irefactor the code to avoid copying the whole ical file to memory Err bitreich.org 70
i Err bitreich.org 70
iThis is how Evil_Bob does it with xml.c, a sane and tiny XML parser. Err bitreich.org 70
i Err bitreich.org 70
iThe document structure gets parsed, and a struct parser passed to the Err bitreich.org 70
iparser contains function pointers. As parsed objects get encountered, Err bitreich.org 70
ithe matching function pointers gets called with the parsed text as Err bitreich.org 70
iparameter. Then the content can be processed as it is read, instead of Err bitreich.org 70
iparsed first and processed after. Err bitreich.org 70
i Err bitreich.org 70
iDiffstat: Err bitreich.org 70
i M Makefile | 4 ++-- Err bitreich.org 70
i M ical.c | 351 ++++++++++--------------------- Err bitreich.org 70
i M ical.h | 79 ++++++++----------------------- Err bitreich.org 70
i M ics2tree.c | 81 +++++++++++++------------------ Err bitreich.org 70
i D log.c | 89 ------------------------------- Err bitreich.org 70
i D log.h | 15 --------------- Err bitreich.org 70
i D map.c | 106 ------------------------------ Err bitreich.org 70
i D map.h | 24 ------------------------ Err bitreich.org 70
i M util.c | 88 +++++++++++++++++++++++++------ Err bitreich.org 70
i M util.h | 21 +++++++++++++++------ Err bitreich.org 70
i Err bitreich.org 70
i10 files changed, 253 insertions(+), 605 deletions(-) Err bitreich.org 70
i--- Err bitreich.org 70
1diff --git a/Makefile b/Makefile /scm/ics2txt/file/Makefile.gph bitreich.org 70
i@@ -7,8 +7,8 @@ CFLAGS = $D $W -g Err bitreich.org 70
i PREFIX = /usr/local Err bitreich.org 70
i MANPREFIX = ${PREFIX}/man Err bitreich.org 70
i Err bitreich.org 70
i-SRC = ical.c map.c util.c log.c Err bitreich.org 70
i-HDR = ical.h map.h util.h log.h Err bitreich.org 70
i+SRC = ical.c util.c Err bitreich.org 70
i+HDR = ical.h util.h Err bitreich.org 70
i OBJ = ${SRC:.c=.o} Err bitreich.org 70
i BIN = ics2tree Err bitreich.org 70
i MAN1 = ics2txt.1 Err bitreich.org 70
1diff --git a/ical.c b/ical.c /scm/ics2txt/file/ical.c.gph bitreich.org 70
i@@ -1,288 +1,157 @@ Err bitreich.org 70
i #include "ical.h" Err bitreich.org 70
i Err bitreich.org 70
i #include <assert.h> Err bitreich.org 70
i+#include <ctype.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-#include <strings.h> /* strcase* */ Err bitreich.org 70
i+#include <strings.h> Err bitreich.org 70
i Err bitreich.org 70
i #include "util.h" Err bitreich.org 70
i Err bitreich.org 70
i-enum ical_err ical_errno; Err bitreich.org 70
i- Err bitreich.org 70
i-int Err bitreich.org 70
i-ical_getline(char **line, char **ln, size_t *sz, FILE *fp) Err bitreich.org 70
i+static int Err bitreich.org 70
i+ical_error(IcalParser *p, char const *msg) Err bitreich.org 70
i { 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 ((v = realloc(*line, 1)) == NULL) Err bitreich.org 70
i- return -ICAL_ERR_SYSTEM; 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 { top: Err bitreich.org 70
i- if (getline(ln, sz, fp) <= 0) Err bitreich.org 70
i- return ferror(fp) ? -ICAL_ERR_SYSTEM : 0; Err bitreich.org 70
i- strchomp(*ln); Err bitreich.org 70
i- if (**ln == '\0') Err bitreich.org 70
i- goto top; Err bitreich.org 70
i- if (strappend(line, *ln) < 0) Err bitreich.org 70
i- return -ICAL_ERR_SYSTEM; Err bitreich.org 70
i- if ((c = fgetc(fp)) == EOF) Err bitreich.org 70
i- return ferror(fp) ? -ICAL_ERR_SYSTEM : 1; Err bitreich.org 70
i- } while (c == ' '); Err bitreich.org 70
i- Err bitreich.org 70
i- ungetc(c, fp); Err bitreich.org 70
i- assert(!ferror(fp)); Err bitreich.org 70
i- return 1; Err bitreich.org 70
i+ p->errmsg = msg; Err bitreich.org 70
i+ return -1; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i-char * Err bitreich.org 70
i-ical_strerror(int i) Err bitreich.org 70
i-{ Err bitreich.org 70
i- enum ical_err err = (i > 0) ? i : -i; Err bitreich.org 70
i+#define CALL(p, fn, ...) ((p)->fn ? (p)->fn((p), __VA_ARGS__) : 0) Err bitreich.org 70
i Err bitreich.org 70
i- switch (err) { Err bitreich.org 70
i- case ICAL_ERR_OK: Err bitreich.org 70
i- return "no error"; Err bitreich.org 70
i- case ICAL_ERR_SYSTEM: Err bitreich.org 70
i- return "system error"; Err bitreich.org 70
i- case ICAL_ERR_END_MISMATCH: Err bitreich.org 70
i- return "END: does not match its corresponding BEGIN:"; Err bitreich.org 70
i- case ICAL_ERR_MISSING_BEGIN: Err bitreich.org 70
i- return "unexpected content line before any BEGIN:"; Err bitreich.org 70
i- case ICAL_ERR_MISSING_COLUMN: Err bitreich.org 70
i- return "missing ':' character from line"; Err bitreich.org 70
i- case ICAL_ERR_MISSING_SEMICOLUMN: Err bitreich.org 70
i- return "missing ';' character before ':'"; Err bitreich.org 70
i- case ICAL_ERR_MISSING_EQUAL: Err bitreich.org 70
i- return "missing '=' character in parameter before ':'"; Err bitreich.org 70
i- case ICAL_ERR_MIN_NESTED: Err bitreich.org 70
i- return "too many END: for the number of BEGIN:"; Err bitreich.org 70
i- case ICAL_ERR_MAX_NESTED: Err bitreich.org 70
i- return "maximum nesting level reached"; Err bitreich.org 70
i- case ICAL_ERR_LENGTH: Err bitreich.org 70
i- assert(!"used internally, should not happen"); Err bitreich.org 70
i- } Err bitreich.org 70
i- assert(!"unknown error code"); Err bitreich.org 70
i- return "not a valid ical error code"; Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-struct ical_value * Err bitreich.org 70
i-ical_new_value(char const *line) Err bitreich.org 70
i+static int Err bitreich.org 70
i+ical_parse_value(IcalParser *p, char **sp, char *name) Err bitreich.org 70
i { Err bitreich.org 70
i- struct ical_value *new; Err bitreich.org 70
i- size_t len; Err bitreich.org 70
i+ int err; Err bitreich.org 70
i+ char *s, c, *val; Err bitreich.org 70
i Err bitreich.org 70
i- len = strlen(line); Err bitreich.org 70
i- if ((new = calloc(1, sizeof *new + len + 1)) == NULL) Err bitreich.org 70
i- return NULL; Err bitreich.org 70
i- memcpy(new->buf, line, len + 1); Err bitreich.org 70
i- return new; Err bitreich.org 70
i-} Err bitreich.org 70
i+ s = *sp; Err bitreich.org 70
i Err bitreich.org 70
i-void Err bitreich.org 70
i-ical_free_value(struct ical_value *value) Err bitreich.org 70
i-{ Err bitreich.org 70
i- map_free(&value->param, NULL); Err bitreich.org 70
i- free(value); Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-int Err bitreich.org 70
i-ical_parse_value(struct ical_value *value) Err bitreich.org 70
i-{ Err bitreich.org 70
i- char *column, *equal, *param, *cp; Err bitreich.org 70
i- int e = errno; Err bitreich.org 70
i- Err bitreich.org 70
i- value->name = value->buf; Err bitreich.org 70
i- Err bitreich.org 70
i- if ((column = strchr(value->buf, ':')) == NULL) Err bitreich.org 70
i- return -ICAL_ERR_MISSING_COLUMN; Err bitreich.org 70
i- *column = '\0'; Err bitreich.org 70
i- value->value = column + 1; Err bitreich.org 70
i- Err bitreich.org 70
i- if ((cp = strchr(value->buf, ';')) != NULL) Err bitreich.org 70
i- *cp++ = '\0'; 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 -ICAL_ERR_MISSING_EQUAL; Err bitreich.org 70
i- *equal = '\0'; Err bitreich.org 70
i- if (map_set(&value->param, param, equal + 1) < 0) Err bitreich.org 70
i- return -ICAL_ERR_SYSTEM; Err bitreich.org 70
i+ if (*s == '"') { Err bitreich.org 70
i+ ++s; Err bitreich.org 70
i+ for (val = s; !iscntrl(*s) && !strchr(",;:\"", *s); s++); Err bitreich.org 70
i+ if (*s != '"') Err bitreich.org 70
i+ return ical_error(p, "missing '\"'"); Err bitreich.org 70
i+ *s++ = '\0'; Err bitreich.org 70
i+ } else { Err bitreich.org 70
i+ for (val = s; !iscntrl(*s) && !strchr(",;:'\"", *s); s++); Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i- assert(errno == e); Err bitreich.org 70
i- return 0; Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-struct ical_vnode * Err bitreich.org 70
i-ical_new_vnode(char const *name) Err bitreich.org 70
i-{ Err bitreich.org 70
i- struct ical_vnode *new; Err bitreich.org 70
i- size_t sz; Err bitreich.org 70
i+ c = *s, *s = '\0'; Err bitreich.org 70
i+ if ((err = CALL(p, fn_param_value, name, val)) != 0) Err bitreich.org 70
i+ return err; Err bitreich.org 70
i+ *s = c; Err bitreich.org 70
i Err bitreich.org 70
i- if ((new = calloc(1, sizeof *new)) == NULL) Err bitreich.org 70
i- return NULL; Err bitreich.org 70
i- sz = sizeof new->name; Err bitreich.org 70
i- if (strlcpy(new->name, name, sz) >= sz) { Err bitreich.org 70
i- errno = EMSGSIZE; Err bitreich.org 70
i- goto err; Err bitreich.org 70
i- } Err bitreich.org 70
i- return new; Err bitreich.org 70
i-err: Err bitreich.org 70
i- ical_free_vnode(new); Err bitreich.org 70
i- return NULL; Err bitreich.org 70
i+ *sp = s; Err bitreich.org 70
i+ return 0; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i-static void Err bitreich.org 70
i-ical_free_value_void(void *v) Err bitreich.org 70
i+static int Err bitreich.org 70
i+ical_parse_param(IcalParser *p, char **sp) Err bitreich.org 70
i { Err bitreich.org 70
i- ical_free_value(v); Err bitreich.org 70
i-} Err bitreich.org 70
i+ int err; Err bitreich.org 70
i+ char *s, *name; Err bitreich.org 70
i Err bitreich.org 70
i-static void Err bitreich.org 70
i-ical_free_vnode_void(void *v) Err bitreich.org 70
i-{ Err bitreich.org 70
i- ical_free_vnode(v); Err bitreich.org 70
i-} Err bitreich.org 70
i+ s = *sp; Err bitreich.org 70
i Err bitreich.org 70
i-void Err bitreich.org 70
i-ical_free_vnode(struct ical_vnode *node) Err bitreich.org 70
i-{ Err bitreich.org 70
i- if (node == NULL) Err bitreich.org 70
i- return; Err bitreich.org 70
i- map_free(&node->values, ical_free_value_void); Err bitreich.org 70
i- map_free(&node->childs, ical_free_vnode_void); Err bitreich.org 70
i- ical_free_vnode(node->next); Err bitreich.org 70
i- free(node); Err bitreich.org 70
i-} Err bitreich.org 70
i+ do { Err bitreich.org 70
i+ for (name = s; isalnum(*s) || *s == '-'; s++); Err bitreich.org 70
i+ if (s == name || (*s != '=')) Err bitreich.org 70
i+ return ical_error(p, "invalid parameter name"); Err bitreich.org 70
i+ *s++ = '\0'; Err bitreich.org 70
i+ if ((err = CALL(p, fn_param_name, name)) != 0) Err bitreich.org 70
i+ return err; Err bitreich.org 70
i Err bitreich.org 70
i-int Err bitreich.org 70
i-ical_push_nested(struct ical_vcalendar *vcal, struct ical_vnode *new) Err bitreich.org 70
i-{ Err bitreich.org 70
i- struct ical_vnode **node; Err bitreich.org 70
i+ do { Err bitreich.org 70
i+ if ((err = ical_parse_value(p, &s, name)) != 0) Err bitreich.org 70
i+ return err; Err bitreich.org 70
i+ } while (*s == ',' && s++); Err bitreich.org 70
i+ } while (*s == ';' && s++); Err bitreich.org 70
i Err bitreich.org 70
i- node = vcal->nested; Err bitreich.org 70
i- for (int i = 0; *node != NULL; node++, i++) { Err bitreich.org 70
i- if (i >= ICAL_NESTED_MAX) Err bitreich.org 70
i- return -ICAL_ERR_MAX_NESTED; Err bitreich.org 70
i- } Err bitreich.org 70
i- node[0] = new; Err bitreich.org 70
i- node[1] = NULL; Err bitreich.org 70
i+ *sp = s; Err bitreich.org 70
i return 0; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i-struct ical_vnode * Err bitreich.org 70
i-ical_pop_nested(struct ical_vcalendar *vcal) Err bitreich.org 70
i+static int Err bitreich.org 70
i+ical_parse_contentline(IcalParser *p, char *line) Err bitreich.org 70
i { Err bitreich.org 70
i- struct ical_vnode **node, **prev = vcal->nested, *old; Err bitreich.org 70
i+ int err; Err bitreich.org 70
i+ char *s, c, *name, *end; Err bitreich.org 70
i Err bitreich.org 70
i- for (prev = node = vcal->nested; *node != NULL; node++) { Err bitreich.org 70
i- vcal->current = *prev; Err bitreich.org 70
i- prev = node; Err bitreich.org 70
i- old = *node; Err bitreich.org 70
i- } Err bitreich.org 70
i- *prev = NULL; Err bitreich.org 70
i- if (vcal->nested[0] == NULL) Err bitreich.org 70
i- vcal->current = NULL; Err bitreich.org 70
i- return old; Err bitreich.org 70
i-} Err bitreich.org 70
i+ s = line; Err bitreich.org 70
i Err bitreich.org 70
i-int Err bitreich.org 70
i-ical_begin_vnode(struct ical_vcalendar *vcal, char const *name) Err bitreich.org 70
i-{ Err bitreich.org 70
i- struct ical_vnode *new; Err bitreich.org 70
i- int e; Err bitreich.org 70
i+ for (name = s; isalnum(*s) || *s == '-'; s++); Err bitreich.org 70
i+ if (s == name || (*s != ';' && *s != ':')) Err bitreich.org 70
i+ return ical_error(p, "invalid entry name"); Err bitreich.org 70
i+ c = *s, *s = '\0'; Err bitreich.org 70
i+ if (strcasecmp(name, "BEGIN") != 0 && strcasecmp(name, "END") != 0) Err bitreich.org 70
i+ if ((err = CALL(p, fn_entry_name, name)) != 0) Err bitreich.org 70
i+ return err; Err bitreich.org 70
i+ *s = c; Err bitreich.org 70
i+ end = s; Err bitreich.org 70
i Err bitreich.org 70
i- if ((new = ical_new_vnode(name)) == NULL) Err bitreich.org 70
i- return -ICAL_ERR_SYSTEM; Err bitreich.org 70
i- if ((e = ical_push_nested(vcal, new)) < 0) Err bitreich.org 70
i- goto err; Err bitreich.org 70
i- if (vcal->root == NULL) { Err bitreich.org 70
i- vcal->root = new; Err bitreich.org 70
i- } else { Err bitreich.org 70
i- new->next = map_get(&vcal->current->childs, new->name); Err bitreich.org 70
i- if (map_set(&vcal->current->childs, new->name, new) < 0) { Err bitreich.org 70
i- e = -ICAL_ERR_SYSTEM; Err bitreich.org 70
i- goto err; Err bitreich.org 70
i- } Err bitreich.org 70
i+ while (*s == ';') { Err bitreich.org 70
i+ s++; Err bitreich.org 70
i+ if ((err = ical_parse_param(p, &s)) != 0) Err bitreich.org 70
i+ return err; Err bitreich.org 70
i } Err bitreich.org 70
i- vcal->current = new; Err bitreich.org 70
i- return 0; Err bitreich.org 70
i-err: Err bitreich.org 70
i- ical_free_vnode(new); Err bitreich.org 70
i- return e; Err bitreich.org 70
i-} Err bitreich.org 70
i Err bitreich.org 70
i-int Err bitreich.org 70
i-ical_end_vnode(struct ical_vcalendar *vcal, char const *name) Err bitreich.org 70
i-{ Err bitreich.org 70
i- struct ical_vnode *old; Err bitreich.org 70
i- Err bitreich.org 70
i- if ((old = ical_pop_nested(vcal)) == NULL) Err bitreich.org 70
i- return -ICAL_ERR_MIN_NESTED; Err bitreich.org 70
i- if (strcasecmp(name, old->name) != 0) Err bitreich.org 70
i- return -ICAL_ERR_END_MISMATCH; 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-ical_push_value(struct ical_vcalendar *vcal, struct ical_value *new) Err bitreich.org 70
i-{ Err bitreich.org 70
i- if (strcasecmp(new->name, "BEGIN") == 0) { Err bitreich.org 70
i- int e = ical_begin_vnode(vcal, new->value); Err bitreich.org 70
i- ical_free_value(new); Err bitreich.org 70
i- return e; Err bitreich.org 70
i- } Err bitreich.org 70
i- if (strcasecmp(new->name, "END") == 0) { Err bitreich.org 70
i- int e = ical_end_vnode(vcal, new->value); Err bitreich.org 70
i- ical_free_value(new); Err bitreich.org 70
i- return e; Err bitreich.org 70
i+ if (*s != ':') Err bitreich.org 70
i+ return ical_error(p, "expected ':' delimiter"); Err bitreich.org 70
i+ s++; Err bitreich.org 70
i+ Err bitreich.org 70
i+ *end = '\0'; Err bitreich.org 70
i+ if (strcasecmp(name, "BEGIN") == 0) { Err bitreich.org 70
i+ if ((err = CALL(p, fn_block_begin, s)) != 0) Err bitreich.org 70
i+ return err; Err bitreich.org 70
i+ p->level++; Err bitreich.org 70
i+ } else if (strcasecmp(name, "END") == 0) { Err bitreich.org 70
i+ if ((err = CALL(p, fn_block_end, s)) != 0) Err bitreich.org 70
i+ return err; Err bitreich.org 70
i+ p->level--; Err bitreich.org 70
i+ } else { Err bitreich.org 70
i+ if ((err = CALL(p, fn_entry_value, name, s)) != 0) Err bitreich.org 70
i+ return err; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i- if (vcal->current == NULL) Err bitreich.org 70
i- return -ICAL_ERR_MISSING_BEGIN; Err bitreich.org 70
i- Err bitreich.org 70
i- new->next = map_get(&vcal->current->values, new->name); Err bitreich.org 70
i- if (map_set(&vcal->current->values, new->name, new) < 0) Err bitreich.org 70
i- return -ICAL_ERR_SYSTEM; 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 int Err bitreich.org 70
i-ical_read_vcalendar(struct ical_vcalendar *vcal, FILE *fp) Err bitreich.org 70
i+ical_parse(IcalParser *p, FILE *fp) Err bitreich.org 70
i { Err bitreich.org 70
i- char *line = NULL, *ln = NULL; Err bitreich.org 70
i+ char *ln = NULL, *contentline = NULL; Err bitreich.org 70
i size_t sz = 0; Err bitreich.org 70
i- ssize_t r; Err bitreich.org 70
i- int e; Err bitreich.org 70
i- Err bitreich.org 70
i- memset(vcal, 0, sizeof *vcal); Err bitreich.org 70
i- Err bitreich.org 70
i- while ((r = ical_getline(&line, &ln, &sz, fp)) > 0) { Err bitreich.org 70
i- struct ical_value *new; Err bitreich.org 70
i- Err bitreich.org 70
i- if ((new = ical_new_value(line)) == NULL) { Err bitreich.org 70
i- e = -ICAL_ERR_SYSTEM; Err bitreich.org 70
i- goto err; Err bitreich.org 70
i- } Err bitreich.org 70
i- if ((e = ical_parse_value(new)) < 0) Err bitreich.org 70
i- goto err; Err bitreich.org 70
i- if ((e = ical_push_value(vcal, new)) < 0) Err bitreich.org 70
i- goto err; Err bitreich.org 70
i+ int err, c; Err bitreich.org 70
i+ Err bitreich.org 70
i+ while (!feof(fp)) { Err bitreich.org 70
i+ if ((contentline = realloc(contentline, 1)) == NULL) Err bitreich.org 70
i+ return -1; Err bitreich.org 70
i+ *contentline = '\0'; Err bitreich.org 70
i+ Err bitreich.org 70
i+ do { Err bitreich.org 70
i+ do { Err bitreich.org 70
i+ p->line++; Err bitreich.org 70
i+ if (getline(&ln, &sz, fp) <= 0) Err bitreich.org 70
i+ return -1; Err bitreich.org 70
i+ strchomp(ln); Err bitreich.org 70
i+ } while (*ln == '\0'); Err bitreich.org 70
i+ Err bitreich.org 70
i+ if (strappend(&contentline, ln) < 0) Err bitreich.org 70
i+ return -1; Err bitreich.org 70
i+ if ((c = fgetc(fp)) == EOF) { Err bitreich.org 70
i+ if (ferror(fp)) Err bitreich.org 70
i+ return -1; Err bitreich.org 70
i+ goto done; Err bitreich.org 70
i+ } Err bitreich.org 70
i+ } while (c == ' '); Err bitreich.org 70
i+ ungetc(c, fp); Err bitreich.org 70
i+done: Err bitreich.org 70
i+ assert(!ferror(fp)); Err bitreich.org 70
i+ if ((err = ical_parse_contentline(p, contentline)) != 0) Err bitreich.org 70
i+ break; Err bitreich.org 70
i } Err bitreich.org 70
i- e = (r == 0) ? 0 : -ICAL_ERR_SYSTEM; Err bitreich.org 70
i-err: Err bitreich.org 70
i- free(line); Err bitreich.org 70
i+ free(contentline); Err bitreich.org 70
i free(ln); Err bitreich.org 70
i- return e; Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-void Err bitreich.org 70
i-ical_free_vcalendar(struct ical_vcalendar *vcal) Err bitreich.org 70
i-{ Err bitreich.org 70
i- ical_free_vnode(vcal->root); Err bitreich.org 70
i+ return err; Err bitreich.org 70
i } Err bitreich.org 70
1diff --git a/ical.h b/ical.h /scm/ics2txt/file/ical.h.gph bitreich.org 70
i@@ -4,65 +4,28 @@ Err bitreich.org 70
i #include <stdio.h> Err bitreich.org 70
i #include <time.h> Err bitreich.org 70
i Err bitreich.org 70
i-#include "map.h" Err bitreich.org 70
i- Err bitreich.org 70
i-#define ICAL_NESTED_MAX 4 Err bitreich.org 70
i- Err bitreich.org 70
i-enum ical_err { Err bitreich.org 70
i- ICAL_ERR_OK, Err bitreich.org 70
i- ICAL_ERR_SYSTEM, Err bitreich.org 70
i- ICAL_ERR_END_MISMATCH, Err bitreich.org 70
i- ICAL_ERR_MISSING_BEGIN, Err bitreich.org 70
i- ICAL_ERR_MISSING_COLUMN, Err bitreich.org 70
i- ICAL_ERR_MISSING_SEMICOLUMN, Err bitreich.org 70
i- ICAL_ERR_MISSING_EQUAL, Err bitreich.org 70
i- ICAL_ERR_MIN_NESTED, Err bitreich.org 70
i- ICAL_ERR_MAX_NESTED, Err bitreich.org 70
i- Err bitreich.org 70
i- ICAL_ERR_LENGTH, Err bitreich.org 70
i-}; Err bitreich.org 70
i- Err bitreich.org 70
i-/* global propoerties for an iCalendar document as well as parsing state */ Err bitreich.org 70
i- Err bitreich.org 70
i-struct ical_vcalendar { Err bitreich.org 70
i- time_t tzid; Err bitreich.org 70
i- struct ical_vnode *root; Err bitreich.org 70
i- struct ical_vnode *nested[ICAL_NESTED_MAX + 1]; Err bitreich.org 70
i- struct ical_vnode *current; Err bitreich.org 70
i-}; Err bitreich.org 70
i- Err bitreich.org 70
i-/* element part of an iCalendar document with eventual nested childs */ Err bitreich.org 70
i- Err bitreich.org 70
i-struct ical_vnode { Err bitreich.org 70
i- char name[32]; Err bitreich.org 70
i- struct map values; /*(struct ical_value *)*/ Err bitreich.org 70
i- struct map childs; /*(struct ical_vnode *)*/ Err bitreich.org 70
i- struct ical_vnode *next; Err bitreich.org 70
i-}; Err bitreich.org 70
i- Err bitreich.org 70
i-/* one line whith the whole content unfolded */ Err bitreich.org 70
i- Err bitreich.org 70
i-struct ical_value { Err bitreich.org 70
i- char *name, *value; Err bitreich.org 70
i- struct map param; Err bitreich.org 70
i- struct ical_value *next; Err bitreich.org 70
i- char buf[]; Err bitreich.org 70
i+typedef struct IcalParser IcalParser; Err bitreich.org 70
i+struct IcalParser { Err bitreich.org 70
i+ /* function called on content */ Err bitreich.org 70
i+ int (*fn_entry_name)(IcalParser *, char *); Err bitreich.org 70
i+ int (*fn_param_name)(IcalParser *, char *); Err bitreich.org 70
i+ int (*fn_param_value)(IcalParser *, char *, char *); Err bitreich.org 70
i+ int (*fn_entry_value)(IcalParser *, char *, char *); Err bitreich.org 70
i+ int (*fn_block_begin)(IcalParser *, char *); Err bitreich.org 70
i+ int (*fn_block_end)(IcalParser *, char *); Err bitreich.org 70
i+ /* if returning non-zero then halt the parser */ Err bitreich.org 70
i+ Err bitreich.org 70
i+ int base64encoded; Err bitreich.org 70
i+ char const *errmsg; Err bitreich.org 70
i+ size_t line; Err bitreich.org 70
i+ Err bitreich.org 70
i+ /* stack of blocks names: "name1\0name2\0...nameN\0\0" */ Err bitreich.org 70
i+ int level; Err bitreich.org 70
i+ char stack[1024]; 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_getline(char **line, char **ln, size_t *sz, FILE *fp); Err bitreich.org 70
i-char * ical_strerror(int i); Err bitreich.org 70
i-struct ical_value * ical_new_value(char const *line); Err bitreich.org 70
i-void ical_free_value(struct ical_value *value); Err bitreich.org 70
i-int ical_parse_value(struct ical_value *value); Err bitreich.org 70
i-struct ical_vnode * ical_new_vnode(char const *name); Err bitreich.org 70
i-void ical_free_vnode(struct ical_vnode *node); Err bitreich.org 70
i-int ical_push_nested(struct ical_vcalendar *vcal, struct ical_vnode *new); Err bitreich.org 70
i-struct ical_vnode * ical_pop_nested(struct ical_vcalendar *vcal); Err bitreich.org 70
i-int ical_begin_vnode(struct ical_vcalendar *vcal, char const *name); Err bitreich.org 70
i-int ical_end_vnode(struct ical_vcalendar *vcal, char const *name); Err bitreich.org 70
i-int ical_push_value(struct ical_vcalendar *vcal, struct ical_value *new); Err bitreich.org 70
i-void ical_free_vcalendar(struct ical_vcalendar *vcal); Err bitreich.org 70
i-int ical_read_vcalendar(struct ical_vcalendar *vcal, FILE *fp); Err bitreich.org 70
i+int ical_parse(IcalParser *, FILE *); Err bitreich.org 70
i+//TODO: char *ical_get_time(char *); Err bitreich.org 70
i+//TODO: char *ical_get_value(IcalCtx *, char *); Err bitreich.org 70
i Err bitreich.org 70
i #endif Err bitreich.org 70
1diff --git a/ics2tree.c b/ics2tree.c /scm/ics2txt/file/ics2tree.c.gph bitreich.org 70
i@@ -3,76 +3,63 @@ Err bitreich.org 70
i #include <string.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 #include "util.h" Err bitreich.org 70
i Err bitreich.org 70
i-void Err bitreich.org 70
i+static void Err bitreich.org 70
i print_ruler(int level) Err bitreich.org 70
i { Err bitreich.org 70
i- for (int i = 0; i < level; i++) Err bitreich.org 70
i+ while (level-- > 0) Err bitreich.org 70
i fprintf(stdout, ": "); Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i-void Err bitreich.org 70
i-print_ical_tree_param(struct map_entry *entry, int level) Err bitreich.org 70
i+static int Err bitreich.org 70
i+fn_entry_name(IcalParser *p, char *name) Err bitreich.org 70
i { Err bitreich.org 70
i- if (entry == NULL) Err bitreich.org 70
i- return; Err bitreich.org 70
i- print_ruler(level); Err bitreich.org 70
i- fprintf(stdout, "param %s=%s\n", entry->key, (char *)entry->value); Err bitreich.org 70
i+ print_ruler(p->level); Err bitreich.org 70
i+ printf("name %s\n", name); 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-print_ical_tree_value(struct ical_value *value, int level) Err bitreich.org 70
i+static int Err bitreich.org 70
i+fn_block_begin(IcalParser *p, char *name) Err bitreich.org 70
i { Err bitreich.org 70
i- if (value == NULL) Err bitreich.org 70
i- return; Err bitreich.org 70
i- print_ruler(level); Err bitreich.org 70
i- fprintf(stdout, "value %s:%s\n", value->name, value->value); Err bitreich.org 70
i- for (size_t i = 0; i < value->param.len; i++) Err bitreich.org 70
i- print_ical_tree_param(value->param.entry + i, level + 1); Err bitreich.org 70
i- print_ical_tree_value(value->next, level); Err bitreich.org 70
i+ print_ruler(p->level); Err bitreich.org 70
i+ printf("begin %s\n", name); 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-print_ical_tree_vnode(struct ical_vnode *node, int level) Err bitreich.org 70
i+static int Err bitreich.org 70
i+fn_param_value(IcalParser *p, char *name, char *value) Err bitreich.org 70
i { Err bitreich.org 70
i- if (node == NULL) Err bitreich.org 70
i- return; Err bitreich.org 70
i- print_ruler(level); Err bitreich.org 70
i- fprintf(stdout, "node %s\n", node->name); Err bitreich.org 70
i- for (size_t i = 0; i < node->values.len; i++) Err bitreich.org 70
i- print_ical_tree_value(node->values.entry[i].value, level + 1); Err bitreich.org 70
i- for (size_t i = 0; i < node->childs.len; i++) Err bitreich.org 70
i- print_ical_tree_vnode(node->childs.entry[i].value, level + 1); Err bitreich.org 70
i- print_ical_tree_vnode(node->next, level); Err bitreich.org 70
i+ print_ruler(p->level + 1); Err bitreich.org 70
i+ printf("param %s=%s\n", name, value); 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-print_ical_tree(FILE *fp) Err bitreich.org 70
i+static int Err bitreich.org 70
i+fn_entry_value(IcalParser *p, char *name, char *value) Err bitreich.org 70
i { Err bitreich.org 70
i- struct ical_vcalendar vcal; Err bitreich.org 70
i- int e; Err bitreich.org 70
i+ (void)name; Err bitreich.org 70
i Err bitreich.org 70
i- if ((e = ical_read_vcalendar(&vcal, fp)) < 0) Err bitreich.org 70
i- die("reading ical file: %s", ical_strerror(e)); Err bitreich.org 70
i- Err bitreich.org 70
i- print_ical_tree_vnode(vcal.root, 0); Err bitreich.org 70
i- fprintf(stdout, "end\n"); Err bitreich.org 70
i- fflush(stdout); Err bitreich.org 70
i- Err bitreich.org 70
i- ical_free_vcalendar(&vcal); Err bitreich.org 70
i+ print_ruler(p->level + 1); Err bitreich.org 70
i+ printf("value %s\n", value); 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 main(int argc, char **argv) Err bitreich.org 70
i { Err bitreich.org 70
i- log_arg0 = *argv++; Err bitreich.org 70
i+ IcalParser p = {0}; Err bitreich.org 70
i+ arg0 = *argv++; Err bitreich.org 70
i+ Err bitreich.org 70
i+ p.fn_entry_name = fn_entry_name; Err bitreich.org 70
i+ p.fn_block_begin = fn_block_begin; Err bitreich.org 70
i+ p.fn_param_value = fn_param_value; Err bitreich.org 70
i+ p.fn_entry_value = fn_entry_value; Err bitreich.org 70
i Err bitreich.org 70
i if (*argv == NULL) { Err bitreich.org 70
i- if (print_ical_tree(stdin) < 0) Err bitreich.org 70
i- die("converting stdin"); Err bitreich.org 70
i+ if (ical_parse(&p, stdin) < 0) Err bitreich.org 70
i+ err("parsing stdin:%d %s", p.line, p.errmsg); Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i for (; *argv != NULL; argv++, argc--) { Err bitreich.org 70
i@@ -80,9 +67,9 @@ main(int argc, char **argv) Err bitreich.org 70
i Err bitreich.org 70
i debug("converting \"%s\"", *argv); Err bitreich.org 70
i if ((fp = fopen(*argv, "r")) == NULL) Err bitreich.org 70
i- die("opening %s", *argv); Err bitreich.org 70
i- if (print_ical_tree(fp) < 0) Err bitreich.org 70
i- die("converting %s", *argv); Err bitreich.org 70
i+ err("opening %s", *argv); Err bitreich.org 70
i+ if (ical_parse(&p, fp) < 0) Err bitreich.org 70
i+ err("parsing %s:%d: %s", *argv, p.line, p.errmsg); Err bitreich.org 70
i fclose(fp); Err bitreich.org 70
i } Err bitreich.org 70
i return 0; Err bitreich.org 70
1diff --git a/log.c b/log.c /scm/ics2txt/file/log.c.gph bitreich.org 70
i@@ -1,89 +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 <string.h> Err bitreich.org 70
i- Err bitreich.org 70
i-/* Err bitreich.org 70
i- * log.c - log to standard error according to the log level Err bitreich.org 70
i- * Err bitreich.org 70
i- * Instead of logging to syslog, delegate logging to a separate Err bitreich.org 70
i- * tool, such as FreeBSD's daemon(8), POSIX's logger(1). Err bitreich.org 70
i- */ Err bitreich.org 70
i- 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- Err bitreich.org 70
i-#define LOG_DEFAULT 3 /* info */ Err bitreich.org 70
i- Err bitreich.org 70
i-int log_level = -1; Err bitreich.org 70
i-char *log_arg0 = NULL; Err bitreich.org 70
i- Err bitreich.org 70
i-void Err bitreich.org 70
i-vlogf(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 e = 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- log_level = (log_level > 0 ? 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 (log_arg0 != NULL) Err bitreich.org 70
i- fprintf(stderr, "%s: ", log_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 (e != 0) Err bitreich.org 70
i- fprintf(stderr, ": %s", strerror(e)); 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- Err bitreich.org 70
i- va_start(va, fmt); Err bitreich.org 70
i- vlogf(1, "error", fmt, va); Err bitreich.org 70
i- 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- Err bitreich.org 70
i- va_start(va, fmt); Err bitreich.org 70
i- vlogf(2, "warn", fmt, va); Err bitreich.org 70
i- 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- Err bitreich.org 70
i- va_start(va, fmt); Err bitreich.org 70
i- vlogf(3, "info", fmt, va); Err bitreich.org 70
i- 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- Err bitreich.org 70
i- va_start(va, fmt); Err bitreich.org 70
i- vlogf(4, "debug", fmt, va); Err bitreich.org 70
i- va_end(va); Err bitreich.org 70
i-} Err bitreich.org 70
1diff --git a/log.h b/log.h /scm/ics2txt/file/log.h.gph bitreich.org 70
i@@ -1,15 +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-extern int log_level; Err bitreich.org 70
i-extern char *log_arg0; Err bitreich.org 70
i-void vlogf(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/map.c b/map.c /scm/ics2txt/file/map.c.gph bitreich.org 70
i@@ -1,106 +0,0 @@ Err bitreich.org 70
i-#include "map.h" Err bitreich.org 70
i- 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-#include "util.h" Err bitreich.org 70
i- Err bitreich.org 70
i-static int Err bitreich.org 70
i-map_cmp(void const *v1, void const *v2) Err bitreich.org 70
i-{ Err bitreich.org 70
i- struct map_entry const *e1 = v1, *e2 = v2; Err bitreich.org 70
i- Err bitreich.org 70
i- return strcmp(e1->key, e2->key); Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-void * Err bitreich.org 70
i-map_get(struct map *map, char *key) Err bitreich.org 70
i-{ Err bitreich.org 70
i- struct map_entry *entry, k = { .key = key }; Err bitreich.org 70
i- size_t sz; Err bitreich.org 70
i- Err bitreich.org 70
i- sz = sizeof(*map->entry); Err bitreich.org 70
i- if ((entry = bsearch(&k, map->entry, map->len, sz, map_cmp)) == NULL) Err bitreich.org 70
i- return NULL; Err bitreich.org 70
i- return entry->value; Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-int Err bitreich.org 70
i-map_set(struct map *map, char *key, void *value) Err bitreich.org 70
i-{ Err bitreich.org 70
i- struct map_entry *insert, *e; Err bitreich.org 70
i- size_t i, sz; Err bitreich.org 70
i- void *v; Err bitreich.org 70
i- Err bitreich.org 70
i- for (i = 0; i < map->len; i++) { Err bitreich.org 70
i- int cmp = strcmp(key, map->entry[i].key); Err bitreich.org 70
i- Err bitreich.org 70
i- if (cmp == 0) { Err bitreich.org 70
i- map->entry[i].value = value; Err bitreich.org 70
i- return 0; Err bitreich.org 70
i- } Err bitreich.org 70
i- if (cmp < 0) Err bitreich.org 70
i- break; Err bitreich.org 70
i- } Err bitreich.org 70
i- Err bitreich.org 70
i- sz = sizeof(*map->entry); Err bitreich.org 70
i- if ((v = reallocarray(map->entry, map->len + 1, sz)) == NULL) Err bitreich.org 70
i- return -1; Err bitreich.org 70
i- map->entry = v; Err bitreich.org 70
i- map->len++; Err bitreich.org 70
i- Err bitreich.org 70
i- insert = map->entry + i; Err bitreich.org 70
i- for (e = map->entry + map->len - 2; e >= insert; e--) Err bitreich.org 70
i- e[1] = e[0]; Err bitreich.org 70
i- Err bitreich.org 70
i- insert->key = key; Err bitreich.org 70
i- insert->value = value; 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-int Err bitreich.org 70
i-map_del(struct map *map, char *key) Err bitreich.org 70
i-{ Err bitreich.org 70
i- size_t i; Err bitreich.org 70
i- Err bitreich.org 70
i- for (i = 0; i < map->len; i++) { Err bitreich.org 70
i- int cmp = strcmp(key, map->entry[i].key); Err bitreich.org 70
i- Err bitreich.org 70
i- if (cmp == 0) Err bitreich.org 70
i- break; Err bitreich.org 70
i- if (cmp < 0) Err bitreich.org 70
i- return -1; Err bitreich.org 70
i- } Err bitreich.org 70
i- if (i == map->len) Err bitreich.org 70
i- return -1; Err bitreich.org 70
i- Err bitreich.org 70
i- map->len--; Err bitreich.org 70
i- for (; i < map->len; i++) Err bitreich.org 70
i- map->entry[i] = map->entry[i + 1]; 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-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_keys(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
i- free(map->entry[i].key); Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-void Err bitreich.org 70
i-map_free(struct map *map, void (*fn)(void *)) Err bitreich.org 70
i-{ Err bitreich.org 70
i- if (fn != NULL) { Err bitreich.org 70
i- for (size_t i = 0; i < map->len; i++) Err bitreich.org 70
i- fn(map->entry[i].value); Err bitreich.org 70
i- } Err bitreich.org 70
i- free(map->entry); Err bitreich.org 70
i- map->len = 0; Err bitreich.org 70
i-} Err bitreich.org 70
1diff --git a/map.h b/map.h /scm/ics2txt/file/map.h.gph bitreich.org 70
i@@ -1,24 +0,0 @@ Err bitreich.org 70
i-#ifndef MAP_H Err bitreich.org 70
i-#define MAP_H Err bitreich.org 70
i- Err bitreich.org 70
i-#include <stddef.h> Err bitreich.org 70
i- Err bitreich.org 70
i-struct map_entry { Err bitreich.org 70
i- char *key; Err bitreich.org 70
i- void *value; Err bitreich.org 70
i-}; Err bitreich.org 70
i- Err bitreich.org 70
i-struct map { Err bitreich.org 70
i- struct map_entry *entry; Err bitreich.org 70
i- size_t len; Err bitreich.org 70
i-}; Err bitreich.org 70
i- Err bitreich.org 70
i-/** src/map.c **/ 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_keys(struct map *map); Err bitreich.org 70
i-void map_free(struct map *map, void (*fn)(void *)); Err bitreich.org 70
i- Err bitreich.org 70
i-#endif Err bitreich.org 70
1diff --git a/util.c b/util.c /scm/ics2txt/file/util.c.gph bitreich.org 70
i@@ -4,6 +4,59 @@ 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 <stdio.h> Err bitreich.org 70
i+ Err bitreich.org 70
i+char *arg0; Err bitreich.org 70
i+ Err bitreich.org 70
i+/* logging */ Err bitreich.org 70
i+ Err bitreich.org 70
i+static void Err bitreich.org 70
i+_log(char const *tag, char const *fmt, va_list va) 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+ fprintf(stderr, "%s: ", tag); Err bitreich.org 70
i+ vfprintf(stderr, fmt, va); Err bitreich.org 70
i+ if (errno != 0) Err bitreich.org 70
i+ fprintf(stderr, ": %s", strerror(errno)); 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+err(char const *fmt, ...) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ va_list va; Err bitreich.org 70
i+ Err bitreich.org 70
i+ va_start(va, fmt); Err bitreich.org 70
i+ _log("error", fmt, 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+ Err bitreich.org 70
i+ va_start(va, fmt); Err bitreich.org 70
i+ _log("warning", fmt, 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+ static int verbose = -1; Err bitreich.org 70
i+ va_list va; Err bitreich.org 70
i+ Err bitreich.org 70
i+ if (verbose < 0) Err bitreich.org 70
i+ verbose = (getenv("DEBUG") == NULL); Err bitreich.org 70
i+ if (!verbose) Err bitreich.org 70
i+ return; Err bitreich.org 70
i+ va_start(va, fmt); Err bitreich.org 70
i+ _log("debug", fmt, va); Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i+/* strings */ 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@@ -18,21 +71,20 @@ strlcpy(char *buf, char const *str, size_t sz) 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+strsep(char **sp, 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+ if (*sp == 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+ prev = *sp; Err bitreich.org 70
i+ for (s = *sp; 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+ *sp = NULL; Err bitreich.org 70
i } else { Err bitreich.org 70
i+ *sp = s + 1; 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
i@@ -44,28 +96,30 @@ strchomp(char *line) Err bitreich.org 70
i Err bitreich.org 70
i len = strlen(line); Err bitreich.org 70
i if (len > 0 && line[len - 1] == '\n') Err bitreich.org 70
i- line[len-- - 1] = '\0'; Err bitreich.org 70
i+ line[--len] = '\0'; Err bitreich.org 70
i if (len > 0 && line[len - 1] == '\r') Err bitreich.org 70
i- line[len-- - 1] = '\0'; Err bitreich.org 70
i+ line[--len] = '\0'; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i int Err bitreich.org 70
i-strappend(char **base_p, char const *s) Err bitreich.org 70
i+strappend(char **dstp, char const *src) Err bitreich.org 70
i { Err bitreich.org 70
i- size_t base_len, s_len; Err bitreich.org 70
i- void *v; Err bitreich.org 70
i+ size_t dstlen, srclen; Err bitreich.org 70
i+ void *mem; Err bitreich.org 70
i 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+ dstlen = (*dstp == NULL) ? 0 : strlen(*dstp); Err bitreich.org 70
i+ srclen = strlen(src); 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
i+ if ((mem = realloc(*dstp, dstlen + srclen + 1)) == NULL) Err bitreich.org 70
i return -1; Err bitreich.org 70
i+ *dstp = mem; Err bitreich.org 70
i Err bitreich.org 70
i- *base_p = v; Err bitreich.org 70
i- memcpy(*base_p + base_len, s, s_len + 1); Err bitreich.org 70
i+ memcpy(*dstp + dstlen, src, srclen + 1); Err bitreich.org 70
i return 0; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i+/* memory */ Err bitreich.org 70
i+ Err bitreich.org 70
i void * Err bitreich.org 70
i reallocarray(void *buf, size_t len, size_t sz) Err bitreich.org 70
i { Err bitreich.org 70
1diff --git a/util.h b/util.h /scm/ics2txt/file/util.h.gph bitreich.org 70
i@@ -2,12 +2,21 @@ Err bitreich.org 70
i #define UTIL_H Err bitreich.org 70
i Err bitreich.org 70
i #include <stddef.h> Err bitreich.org 70
i+#include <stdarg.h> Err bitreich.org 70
i Err bitreich.org 70
i-/** src/util.c **/ Err bitreich.org 70
i-size_t strlcpy(char *buf, char const *str, size_t sz); Err bitreich.org 70
i-char * strsep(char **str_p, char const *sep); Err bitreich.org 70
i-void strchomp(char *line); Err bitreich.org 70
i-int strappend(char **base_p, char const *s); Err bitreich.org 70
i-void * reallocarray(void *buf, size_t len, size_t sz); Err bitreich.org 70
i+/* logging */ Err bitreich.org 70
i+extern char *arg0; Err bitreich.org 70
i+void err(char const *fmt, ...); Err bitreich.org 70
i+void warn(char const *fmt, ...); Err bitreich.org 70
i+void debug(char const *fmt, ...); Err bitreich.org 70
i+ Err bitreich.org 70
i+/* strings */ Err bitreich.org 70
i+size_t strlcpy(char *buf, char const *str, size_t sz); Err bitreich.org 70
i+char *strsep(char **str_p, char const *sep); Err bitreich.org 70
i+void strchomp(char *line); Err bitreich.org 70
i+int strappend(char **base_p, char const *s); Err bitreich.org 70
i+ Err bitreich.org 70
i+/* memory */ Err bitreich.org 70
i+void *reallocarray(void *buf, size_t len, size_t sz); Err bitreich.org 70
i Err bitreich.org 70
i #endif Err bitreich.org 70
.
Response:
text/plain