iremove unused utilities and flatten the source some more - 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 24ae7d2759496b7907cce29f0c26697950453ff5	/scm/ics2txt/commit/24ae7d2759496b7907cce29f0c26697950453ff5.gph	bitreich.org	70
1parent 742516775b1d9b12e4c8893114b7cc5a363884ad	/scm/ics2txt/commit/742516775b1d9b12e4c8893114b7cc5a363884ad.gph	bitreich.org	70
hAuthor: Josuah Demangeon <me@josuah.net>	URL:mailto:me@josuah.net	bitreich.org	70
iDate:   Sun, 20 Jun 2021 18:37:15 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iremove unused utilities and flatten the source some more	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M .gitignore                          |       1 +	Err	bitreich.org	70
i  M Makefile                            |      19 ++++++++++++-------	Err	bitreich.org	70
i  D bin/ics2tsv                         |     141 -------------------------------	Err	bitreich.org	70
i  D bin/ics2txt                         |       2 --	Err	bitreich.org	70
i  D bin/tsv2ics                         |     104 -------------------------------	Err	bitreich.org	70
i  M ics2tsv.c                           |      57 ++++++++++++++++---------------	Err	bitreich.org	70
i  M tsv2agenda.c                        |     249 ++++++++++++++++++-------------	Err	bitreich.org	70
i  A tsv2ics.awk                         |     106 ++++++++++++++++++++++++++++++	Err	bitreich.org	70
i  M util.c                              |      14 ++++++++++++++	Err	bitreich.org	70
i  M util.h                              |       4 ++++	Err	bitreich.org	70
i	Err	bitreich.org	70
i10 files changed, 310 insertions(+), 387 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/.gitignore b/.gitignore	/scm/ics2txt/file/.gitignore.gph	bitreich.org	70
i@@ -1,5 +1,6 @@	Err	bitreich.org	70
i *.o	Err	bitreich.org	70
i /ics2tsv	Err	bitreich.org	70
i /ics2tree	Err	bitreich.org	70
i+/tsv2ics	Err	bitreich.org	70
i /tsv2agenda	Err	bitreich.org	70
i /ics2txt-[0-9]*	Err	bitreich.org	70
1diff --git a/Makefile b/Makefile	/scm/ics2txt/file/Makefile.gph	bitreich.org	70
i@@ -10,31 +10,36 @@ MANPREFIX = ${PREFIX}/man	Err	bitreich.org	70
i SRC = ical.c base64.c util.c	Err	bitreich.org	70
i HDR = ical.h base64.h util.h	Err	bitreich.org	70
i OBJ = ${SRC:.c=.o}	Err	bitreich.org	70
i+AWK = tsv2ics.awk	Err	bitreich.org	70
i BIN = ics2tree ics2tsv tsv2agenda	Err	bitreich.org	70
i MAN1 = ics2txt.1 ics2tsv.1	Err	bitreich.org	70
i-MAN5 = tcal.5	Err	bitreich.org	70
i 	Err	bitreich.org	70
i all: ${BIN}	Err	bitreich.org	70
i 	Err	bitreich.org	70
i .c.o:	Err	bitreich.org	70
i         ${CC} -c ${CFLAGS} -o $@ $<	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+${AWK:.awk=}:	Err	bitreich.org	70
i+        cp $@.awk $@	Err	bitreich.org	70
i+        chmod +x $@	Err	bitreich.org	70
i+	Err	bitreich.org	70
i ${OBJ}: ${HDR}	Err	bitreich.org	70
i ${BIN}: ${OBJ} ${BIN:=.o}	Err	bitreich.org	70
i         ${CC} ${LDFLAGS} -o $@ $@.o ${OBJ}	Err	bitreich.org	70
i 	Err	bitreich.org	70
i clean:	Err	bitreich.org	70
i-        rm -rf *.o ${BIN} ${NAME}-${VERSION} *.gz	Err	bitreich.org	70
i+        rm -rf *.o ${BIN} ${AWK:.awk} ${NAME}-${VERSION} *.gz	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-install:	Err	bitreich.org	70
i+install: ${BIN} ${AWK:.awk=}	Err	bitreich.org	70
i         mkdir -p ${DESTDIR}$(PREFIX)/bin	Err	bitreich.org	70
i-        cp bin/* $(BIN) ${DESTDIR}$(PREFIX)/bin	Err	bitreich.org	70
i+        cp $(BIN) ${AWK:.awk=} ${DESTDIR}$(PREFIX)/bin	Err	bitreich.org	70
i         mkdir -p ${DESTDIR}$(MANPREFIX)/man1	Err	bitreich.org	70
i         cp ${MAN1} ${DESTDIR}$(MANPREFIX)/man1	Err	bitreich.org	70
i-        mkdir -p ${DESTDIR}$(MANPREFIX)/man5	Err	bitreich.org	70
i-        cp ${MAN5} ${DESTDIR}$(MANPREFIX)/man5	Err	bitreich.org	70
i 	Err	bitreich.org	70
i dist: clean	Err	bitreich.org	70
i         mkdir -p ${NAME}-${VERSION}	Err	bitreich.org	70
i-        cp -r README Makefile bin ${MAN1} ${MAN5} ${SRC} ${NAME}-${VERSION}	Err	bitreich.org	70
i+        cp -r README Makefile ${AWK} ${MAN1} ${SRC} ${NAME}-${VERSION}	Err	bitreich.org	70
i         tar -cf - ${NAME}-${VERSION} | gzip -c >${NAME}-${VERSION}.tar.gz	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+.SUFFIXES: .awk	Err	bitreich.org	70
i+.PHONY: ${AWK}	Err	bitreich.org	70
1diff --git a/bin/ics2tsv b/bin/ics2tsv	/scm/ics2txt/file/bin/ics2tsv.gph	bitreich.org	70
i@@ -1,141 +0,0 @@	Err	bitreich.org	70
i-#!/usr/bin/awk -f	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-function isleap(year)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        return (year % 4 == 0) && (year % 100 != 0) || (year % 400 == 0)	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-function mdays(mon, year)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        return (mon == 2) ? (28 + isleap(year)) : (30 + (mon + (mon > 7)) % 2)	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-function timegm(tm,	Err	bitreich.org	70
i-        sec, mon, day)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        sec = tm["sec"] + tm["min"] * 60 + tm["hour"] * 3600	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        day = tm["mday"] - 1	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        for (mon = tm["mon"] - 1; mon > 0; mon--)	Err	bitreich.org	70
i-                day = day + mdays(mon, tm["year"])	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        # constants: x * 365 + x / 400 - x / 100 + x / 4	Err	bitreich.org	70
i-        day = day + int(tm["year"] / 400) * 146097	Err	bitreich.org	70
i-        day = day + int(tm["year"] % 400 / 100) * 36524	Err	bitreich.org	70
i-        day = day + int(tm["year"] % 100 / 4) * 1461	Err	bitreich.org	70
i-        day = day + int(tm["year"] % 4 / 1) * 365	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        return sec + (day - 719527) * 86400	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-function print_vevent(ev, fields,	Err	bitreich.org	70
i-        i)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        for (i = 1; i in fields; i++)	Err	bitreich.org	70
i-                printf("%s%s", (i > 1 ? "\t" : ""), ev[fields[i]])	Err	bitreich.org	70
i-        printf("\n")	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-function ical_parse_line(str, content, params,	Err	bitreich.org	70
i-        i, eq)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        if ((i = index(str, ":")) == 0)	Err	bitreich.org	70
i-                return -1	Err	bitreich.org	70
i-        content["value"] = substr(str, i + 1)	Err	bitreich.org	70
i-        str = substr(str, 1, i - 1)	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if ((i = index(str, ";")) == 0) {	Err	bitreich.org	70
i-                content["name"] = str	Err	bitreich.org	70
i-                return 0	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-        content["name"] = substr(str, 1, i - 1)	Err	bitreich.org	70
i-        str = substr(str, i + 1)	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        while ((i = index(str, ";")) > 0) {	Err	bitreich.org	70
i-                if ((eq = index(str, "=")) == 0)	Err	bitreich.org	70
i-                        return -1	Err	bitreich.org	70
i-                param[substr(str, 1, eq - 1)] = substr(str, eq + 1, i - 1)	Err	bitreich.org	70
i-                str = substr(str, eq + 1)	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-        if ((eq = index(str, "=")) == 0)	Err	bitreich.org	70
i-                return -1	Err	bitreich.org	70
i-        params[substr(str, 1, eq - 1)] = substr(str, eq + 1)	Err	bitreich.org	70
i-        return 0	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-function ical_set_tz(tzid)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        gsub("'", "", tzid)	Err	bitreich.org	70
i-        cmd = "TZ='" tzid "' exec date +%z" 	Err	bitreich.org	70
i-        cmd | getline tzid	Err	bitreich.org	70
i-        close(cmd)	Err	bitreich.org	70
i-        TZ = substr(tzid, 1, 1) substr(tzid, 2, 2)*3600 + substr(tzid, 4, 2)*60	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-function ical_to_epoch(content, param,	Err	bitreich.org	70
i-        tz, cmd)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        if (param["TZID"])	Err	bitreich.org	70
i-                ical_set_tz(param["TZID"])	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        tm["year"] = substr(content["value"], 1, 4)	Err	bitreich.org	70
i-        tm["mon"] = substr(content["value"], 5, 2)	Err	bitreich.org	70
i-        tm["mday"] = substr(content["value"], 7, 2)	Err	bitreich.org	70
i-        tm["hour"] = substr(content["value"], 10, 2)	Err	bitreich.org	70
i-        tm["min"] = substr(content["value"], 12, 2)	Err	bitreich.org	70
i-        tm["sec"] = substr(content["value"], 14, 2)	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        return timegm(tm) + TZ	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-BEGIN {	Err	bitreich.org	70
i-        split("DTSTART DTEND CATEGORIES LOCATION SUMMARY DESCRIPTION URL",	Err	bitreich.org	70
i-          FIELDS, " ")	Err	bitreich.org	70
i-        DT["DTSTART"] = DT["DTEND"] = DT["DUE"] = 1	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        # by default: "CATEGORIES" -> "cat", "LOCATION" -> "loc"...	Err	bitreich.org	70
i-        translate["DTSTART"] = "beg"	Err	bitreich.org	70
i-        translate["DTEND"] = "end"	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        for (i = 1; i in FIELDS; i++) {	Err	bitreich.org	70
i-                if (!(s = translate[FIELDS[i]]))	Err	bitreich.org	70
i-                        s = tolower(substr(FIELDS[i], 1, 3))	Err	bitreich.org	70
i-                printf("%s%s", (i > 1 ? "\t" : ""), s)	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-        printf("\n")	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        FS = "[:;]"	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        gsub("\r", "")	Err	bitreich.org	70
i-        gsub("\t", "\\\\t")	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-sub("^ ", "") {	Err	bitreich.org	70
i-        content["value"] = content["value"] $0	Err	bitreich.org	70
i-        next	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        delete content	Err	bitreich.org	70
i-        delete param	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (ical_parse_line($0, content, params) < 0)	Err	bitreich.org	70
i-                next	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (content["name"] == "TZID") {	Err	bitreich.org	70
i-                ical_set_tz(content["value"])	Err	bitreich.org	70
i-        } else if (DT[content["name"]]) {	Err	bitreich.org	70
i-                vevent[content["name"]] = ical_to_epoch(content, params)	Err	bitreich.org	70
i-        } else {	Err	bitreich.org	70
i-                vevent[content["name"]] = content["value"]	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-/^END:VEVENT/ {	Err	bitreich.org	70
i-        print_vevent(vevent, FIELDS)	Err	bitreich.org	70
i-        delete vevent	Err	bitreich.org	70
i-        next	Err	bitreich.org	70
i-}	Err	bitreich.org	70
1diff --git a/bin/ics2txt b/bin/ics2txt	/scm/ics2txt/file/bin/ics2txt.gph	bitreich.org	70
i@@ -1,2 +0,0 @@	Err	bitreich.org	70
i-#!/bin/sh -e	Err	bitreich.org	70
i-exec ics2tsv "$@" | exec tsv2tcal	Err	bitreich.org	70
1diff --git a/bin/tsv2ics b/bin/tsv2ics	/scm/ics2txt/file/bin/tsv2ics.gph	bitreich.org	70
i@@ -1,104 +0,0 @@	Err	bitreich.org	70
i-#!/usr/bin/awk -f	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-function isleap(year)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        return (year % 4 == 0) && (year % 100 != 0) || (year % 400 == 0)	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-function mdays(mon, year)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        return (mon == 2) ? (28 + isleap(year)) : (30 + (mon + (mon > 7)) % 2)	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-# Split the time in seconds since epoch into a table, with fields	Err	bitreich.org	70
i-# named as with gmtime(3): tm["year"], tm["mon"], tm["mday"],	Err	bitreich.org	70
i-# tm["hour"], tm["min"], tm["sec"]	Err	bitreich.org	70
i-function gmtime(sec, tm,	Err	bitreich.org	70
i-        s)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        tm["year"] = 1970	Err	bitreich.org	70
i-        while (sec >= (s = 86400 * (365 + isleap(tm["year"])))) {	Err	bitreich.org	70
i-                tm["year"]++	Err	bitreich.org	70
i-                sec -= s	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        tm["mon"] = 1	Err	bitreich.org	70
i-        while (sec >= (s = 86400 * mdays(tm["mon"], tm["year"]))) {	Err	bitreich.org	70
i-                tm["mon"]++	Err	bitreich.org	70
i-                sec -= s	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        tm["mday"] = 1	Err	bitreich.org	70
i-        while (sec >= (s = 86400)) {	Err	bitreich.org	70
i-                tm["mday"]++	Err	bitreich.org	70
i-                sec -= s	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        tm["hour"] = 0	Err	bitreich.org	70
i-        while (sec >= 3600) {	Err	bitreich.org	70
i-                tm["hour"]++	Err	bitreich.org	70
i-                sec -= 3600	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        tm["min"] = 0	Err	bitreich.org	70
i-        while (sec >= 60) {	Err	bitreich.org	70
i-                tm["min"]++	Err	bitreich.org	70
i-                sec -= 60	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        tm["sec"] = sec	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-function print_fold(prefix, s, n)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        while (s != "") {	Err	bitreich.org	70
i-                line = substr(s, 1, n)	Err	bitreich.org	70
i-                if (length(s) > n) sub(" +[^ \t\r\n]*$", "", line)	Err	bitreich.org	70
i-                print prefix line	Err	bitreich.org	70
i-                s = substr(s, length(line) + 2)	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-BEGIN {	Err	bitreich.org	70
i-        FS = "\t"	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        print "BEGIN:VCALENDAR"	Err	bitreich.org	70
i-        print "VERSION:2.0"	Err	bitreich.org	70
i-        print "CALSCALE:GREGORIAN"	Err	bitreich.org	70
i-        print "METHOD:PUBLISH"	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-NR == 1 {	Err	bitreich.org	70
i-        for (i = 1; i <= NF; i++)	Err	bitreich.org	70
i-                name[i] = $i	Err	bitreich.org	70
i-        next	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        for (i = 1; i <= NF; i++)	Err	bitreich.org	70
i-                ev[name[i]] = $i	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        print ""	Err	bitreich.org	70
i-        print "BEGIN:VEVENT"	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        gmtime(ev["beg"] + offset, ev)	Err	bitreich.org	70
i-        printf "DTSTART:%04d%02d%02dT%02d%02d00Z\n",	Err	bitreich.org	70
i-          ev["year"], ev["mon"], ev["mday"], ev["hour"], ev["min"]	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        gmtime(ev["end"] + offset, ev)	Err	bitreich.org	70
i-        printf "DTEND:%04d%02d%02dT%02d%02d00Z\n",	Err	bitreich.org	70
i-          ev["year"], ev["mon"], ev["mday"], ev["hour"], ev["min"]	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        print "SUMMARY:" ev["sum"]	Err	bitreich.org	70
i-        print "DESCRIPTION:" ev["des"]	Err	bitreich.org	70
i-        print "CATEGORIES:" ev["cat"]	Err	bitreich.org	70
i-        print "LOCATION:" ev["loc"]	Err	bitreich.org	70
i-        print "END:VEVENT"	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        delete ev	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-END {	Err	bitreich.org	70
i-        print ""	Err	bitreich.org	70
i-        print "END:VCALENDAR"	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@@ -27,11 +27,11 @@ struct Block {	Err	bitreich.org	70
i         char *fields[FIELDS_MAX];	Err	bitreich.org	70
i };	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-static int flag_1 = 0;	Err	bitreich.org	70
i-static char default_fields[] = "CATEGORIES,LOCATION,SUMMARY,DESCRIPTION";	Err	bitreich.org	70
i-static char *flag_s = ",";	Err	bitreich.org	70
i-static char *flag_t = NULL;	Err	bitreich.org	70
i-static char *flag_f = default_fields;	Err	bitreich.org	70
i+static int flag_header = 1;	Err	bitreich.org	70
i+static char default_fields[] = "SUMMARY,DESCRIPTION,CATEGORIES,LOCATION";	Err	bitreich.org	70
i+static char *flag_sep = ",";	Err	bitreich.org	70
i+static char *flag_timefmt = NULL;	Err	bitreich.org	70
i+static char *flag_fields = default_fields;	Err	bitreich.org	70
i static char *fields[FIELDS_MAX];	Err	bitreich.org	70
i static Block block;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i@@ -60,9 +60,6 @@ fn_block_begin(IcalParser *p, char *name)	Err	bitreich.org	70
i static int	Err	bitreich.org	70
i fn_block_end(IcalParser *p, char *name)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        char buf[128];	Err	bitreich.org	70
i-        struct tm tm = {0};	Err	bitreich.org	70
i-	Err	bitreich.org	70
i         (void)name;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         if (p->blocktype == ICAL_BLOCK_OTHER)	Err	bitreich.org	70
i@@ -70,12 +67,18 @@ fn_block_end(IcalParser *p, char *name)	Err	bitreich.org	70
i         fputs(p->current->name, stdout);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         /* printing dates with %s is much much slower than %lld */	Err	bitreich.org	70
i-        if (flag_t == NULL) {	Err	bitreich.org	70
i+        if (flag_timefmt == NULL) {	Err	bitreich.org	70
i                 printf("\t%lld\t%lld", block.beg, block.end);	Err	bitreich.org	70
i         } else {	Err	bitreich.org	70
i-                strftime(buf, sizeof buf, flag_t, localtime_r(&block.beg, &tm));	Err	bitreich.org	70
i+                char buf[128];	Err	bitreich.org	70
i+                struct tm tm = {0};	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                localtime_r(&block.beg, &tm);	Err	bitreich.org	70
i+                strftime(buf, sizeof buf, flag_timefmt, &tm);	Err	bitreich.org	70
i                 printf("\t%s", buf);	Err	bitreich.org	70
i-                strftime(buf, sizeof buf, flag_t, localtime_r(&block.end, &tm));	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                localtime_r(&block.end, &tm);	Err	bitreich.org	70
i+                strftime(buf, sizeof buf, flag_timefmt, &tm);	Err	bitreich.org	70
i                 printf("\t%s", buf);	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i@@ -131,7 +134,7 @@ fn_field_value(IcalParser *p, char *name, char *value)	Err	bitreich.org	70
i                                 if ((block.fields[i] = strdup(value)) == NULL)	Err	bitreich.org	70
i                                         return ical_err(p, strerror(errno));	Err	bitreich.org	70
i                         } else {	Err	bitreich.org	70
i-                                if (strappend(&block.fields[i], flag_s) == NULL ||	Err	bitreich.org	70
i+                                if (strappend(&block.fields[i], flag_sep) == NULL ||	Err	bitreich.org	70
i                                     strappend(&block.fields[i], value) == NULL)	Err	bitreich.org	70
i                                         return ical_err(p, strerror(errno));	Err	bitreich.org	70
i                         }	Err	bitreich.org	70
i@@ -144,7 +147,7 @@ fn_field_value(IcalParser *p, char *name, char *value)	Err	bitreich.org	70
i static void	Err	bitreich.org	70
i usage(void)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        fprintf(stderr,"usage: %s [-1] [-f fields] [-s subsep] [-t timefmt]"	Err	bitreich.org	70
i+        fprintf(stderr,"usage: %s [-1] [-f fields] [-s separator] [-t timefmt]"	Err	bitreich.org	70
i             " [file...]\n", arg0);	Err	bitreich.org	70
i         exit(1);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i@@ -153,7 +156,6 @@ int	Err	bitreich.org	70
i main(int argc, char **argv)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         IcalParser p = {0};	Err	bitreich.org	70
i-        size_t i;	Err	bitreich.org	70
i         int c;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         arg0 = *argv;	Err	bitreich.org	70
i@@ -167,19 +169,22 @@ main(int argc, char **argv)	Err	bitreich.org	70
i         p.fn_param_value = fn_param_value;	Err	bitreich.org	70
i         p.fn_field_value = fn_field_value;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        while ((c = getopt(argc, argv, "1f:s:t:")) != -1) {	Err	bitreich.org	70
i+        while ((c = getopt(argc, argv, "01f:s:t:")) != -1) {	Err	bitreich.org	70
i                 switch (c) {	Err	bitreich.org	70
i+                case '0':	Err	bitreich.org	70
i+                        flag_header = 0;	Err	bitreich.org	70
i+                        break;	Err	bitreich.org	70
i                 case '1':	Err	bitreich.org	70
i-                        flag_1 = 1;	Err	bitreich.org	70
i+                        flag_header = 1;	Err	bitreich.org	70
i                         break;	Err	bitreich.org	70
i                 case 'f':	Err	bitreich.org	70
i-                        flag_f = optarg;	Err	bitreich.org	70
i+                        flag_fields = optarg;	Err	bitreich.org	70
i                         break;	Err	bitreich.org	70
i                 case 's':	Err	bitreich.org	70
i-                        flag_s = optarg;	Err	bitreich.org	70
i+                        flag_sep = optarg;	Err	bitreich.org	70
i                         break;	Err	bitreich.org	70
i                 case 't':	Err	bitreich.org	70
i-                        flag_t = optarg;	Err	bitreich.org	70
i+                        flag_timefmt = optarg;	Err	bitreich.org	70
i                         break;	Err	bitreich.org	70
i                 case '?':	Err	bitreich.org	70
i                         usage();	Err	bitreich.org	70
i@@ -189,16 +194,12 @@ main(int argc, char **argv)	Err	bitreich.org	70
i         argv += optind;	Err	bitreich.org	70
i         argc -= optind;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        i = 0;	Err	bitreich.org	70
i-        do {	Err	bitreich.org	70
i-                if (i >= sizeof fields / sizeof *fields - 1)	Err	bitreich.org	70
i-                        err(1, "too many fields specified with -o flag");	Err	bitreich.org	70
i-        } while ((fields[i++] = strsep(&flag_f, ",")) != NULL);	Err	bitreich.org	70
i-        fields[i] = NULL;	Err	bitreich.org	70
i+        if (strsplit(flag_fields, fields, LEN(fields), ",") < 0)	Err	bitreich.org	70
i+                err(1, "too many fields specified with -f flag");	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        if (flag_1) {	Err	bitreich.org	70
i-                printf("%s\t%s\t%s\t%s", "TYPE", "BEG", "END", "RECUR");	Err	bitreich.org	70
i-                for (i = 0; fields[i] != NULL; i++)	Err	bitreich.org	70
i+        if (flag_header) {	Err	bitreich.org	70
i+                printf("%s\t%s\t%s\t%s", "TYPE", "START", "END", "RECUR");	Err	bitreich.org	70
i+                for (size_t i = 0; fields[i] != NULL; i++)	Err	bitreich.org	70
i                         printf("\t%s", fields[i]);	Err	bitreich.org	70
i                 fputc('\n', stdout);	Err	bitreich.org	70
i         }	Err	bitreich.org	70
1diff --git a/tsv2agenda.c b/tsv2agenda.c	/scm/ics2txt/file/tsv2agenda.c.gph	bitreich.org	70
i@@ -1,35 +1,38 @@	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 <stdint.h>	Err	bitreich.org	70
i #include <string.h>	Err	bitreich.org	70
i #include <unistd.h>	Err	bitreich.org	70
i+#include <time.h>	Err	bitreich.org	70
i #include "util.h"	Err	bitreich.org	70
i 	Err	bitreich.org	70
i #ifndef __OpenBSD__	Err	bitreich.org	70
i #define pledge(...) 0	Err	bitreich.org	70
i #endif	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-#define FIELDS_MAX 128	Err	bitreich.org	70
i-	Err	bitreich.org	70
i enum {	Err	bitreich.org	70
i         FIELD_TYPE,	Err	bitreich.org	70
i         FIELD_BEG,	Err	bitreich.org	70
i         FIELD_END,	Err	bitreich.org	70
i         FIELD_RECUR,	Err	bitreich.org	70
i         FIELD_OTHER,	Err	bitreich.org	70
i+        FIELD_MAX = 128,	Err	bitreich.org	70
i };	Err	bitreich.org	70
i 	Err	bitreich.org	70
i typedef struct {	Err	bitreich.org	70
i         struct tm beg, end;	Err	bitreich.org	70
i+        char *fieldnames[FIELD_MAX];	Err	bitreich.org	70
i+        size_t fieldnum;	Err	bitreich.org	70
i+        size_t linenum;	Err	bitreich.org	70
i } AgendaCtx;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-static size_t field_categories = 0;	Err	bitreich.org	70
i-static size_t field_location = 0;	Err	bitreich.org	70
i-static size_t field_summary = 0;	Err	bitreich.org	70
i+static time_t flag_from = INT64_MIN;	Err	bitreich.org	70
i+static time_t flag_to = INT64_MAX;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i+static void	Err	bitreich.org	70
i print_date(struct tm *tm)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i          if (tm == NULL) {	Err	bitreich.org	70
i@@ -42,7 +45,7 @@ print_date(struct tm *tm)	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i+static void	Err	bitreich.org	70
i print_time(struct tm *tm)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         if (tm == NULL) {	Err	bitreich.org	70
i@@ -55,139 +58,175 @@ print_time(struct tm *tm)	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i-print(AgendaCtx *ctx, char **fields, size_t n)	Err	bitreich.org	70
i+static void	Err	bitreich.org	70
i+print_header1(struct tm *old, struct tm *new)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        int same;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        same = (old->tm_year == new->tm_year && old->tm_mon == new->tm_mon &&	Err	bitreich.org	70
i+            old->tm_mday == new->tm_mday);	Err	bitreich.org	70
i+        print_date(same ? NULL : new);	Err	bitreich.org	70
i+        print_time(new);	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+static void	Err	bitreich.org	70
i+print_header2(struct tm *beg, struct tm *end)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        int same;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        same = (beg->tm_year == end->tm_year && beg->tm_mon == end->tm_mon &&	Err	bitreich.org	70
i+            beg->tm_mday == end->tm_mday);	Err	bitreich.org	70
i+        print_date(same ? NULL : end);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        same = (beg->tm_hour == end->tm_hour && beg->tm_min == end->tm_min);	Err	bitreich.org	70
i+        print_time(same ? NULL : end);	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+static void	Err	bitreich.org	70
i+print_header3(void)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        print_date(NULL);	Err	bitreich.org	70
i+        print_time(NULL);	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+static void	Err	bitreich.org	70
i+print_row(AgendaCtx *ctx, char **fields, size_t i)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        if (i > ctx->fieldnum || *fields[i] == '\0')	Err	bitreich.org	70
i+                return;	Err	bitreich.org	70
i+        fprintf(stdout, "%s\n", fields[i]);	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+static void	Err	bitreich.org	70
i+print(AgendaCtx *ctx, char **fields)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         struct tm beg = {0}, end = {0};	Err	bitreich.org	70
i         time_t t;	Err	bitreich.org	70
i+        size_t i = FIELD_OTHER;	Err	bitreich.org	70
i         char const *e;	Err	bitreich.org	70
i-        int rows, samedate;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        t = strtonum(fields[FIELD_BEG], 0, UINT32_MAX, &e);	Err	bitreich.org	70
i+        t = strtonum(fields[FIELD_BEG], INT64_MIN, INT64_MAX, &e);	Err	bitreich.org	70
i         if (e != NULL)	Err	bitreich.org	70
i                 err(1, "start time %s is %s", fields[FIELD_BEG], e);	Err	bitreich.org	70
i+        if (t > flag_to)	Err	bitreich.org	70
i+                return;	Err	bitreich.org	70
i         localtime_r(&t, &beg);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        t = strtonum(fields[FIELD_END], 0, UINT32_MAX, &e);	Err	bitreich.org	70
i+        t = strtonum(fields[FIELD_END], INT64_MIN, INT64_MAX, &e);	Err	bitreich.org	70
i         if (e != NULL)	Err	bitreich.org	70
i                 err(1, "end time %s is %s", fields[FIELD_END], e);	Err	bitreich.org	70
i+        if (t < flag_from)	Err	bitreich.org	70
i+                return;	Err	bitreich.org	70
i         localtime_r(&t, &end);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        fputc('\n', stdout);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        samedate = (ctx->beg.tm_year != beg.tm_year || ctx->beg.tm_mon != beg.tm_mon ||	Err	bitreich.org	70
i-            ctx->beg.tm_mday != beg.tm_mday);	Err	bitreich.org	70
i-        print_date(samedate ? &beg : NULL);	Err	bitreich.org	70
i-        print_time(&beg);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        assert(field_summary < n);	Err	bitreich.org	70
i-        assert(field_summary > FIELD_OTHER);	Err	bitreich.org	70
i-        fprintf(stdout, "%s\n", fields[field_summary]);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        samedate = (beg.tm_year != end.tm_year || beg.tm_mon != end.tm_mon ||	Err	bitreich.org	70
i-            beg.tm_mday != end.tm_mday);	Err	bitreich.org	70
i-        print_date(samedate ? &end : NULL);	Err	bitreich.org	70
i-        print_time(&end);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        rows = 0;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        assert(field_location < n);	Err	bitreich.org	70
i-        if (field_location > 0 && fields[field_location][0] != '\0') {	Err	bitreich.org	70
i-                assert(field_summary > FIELD_OTHER);	Err	bitreich.org	70
i-                fprintf(stdout, "%s\n", fields[field_location]);	Err	bitreich.org	70
i-                rows++;	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        assert(field_categories < n);	Err	bitreich.org	70
i-        if (field_categories > 0 && fields[field_categories][0] != '\0') {	Err	bitreich.org	70
i-                assert(field_summary > FIELD_OTHER);	Err	bitreich.org	70
i-                if (rows > 0) {	Err	bitreich.org	70
i-                        print_date(NULL);	Err	bitreich.org	70
i-                        print_time(NULL);	Err	bitreich.org	70
i-                }	Err	bitreich.org	70
i-                fprintf(stdout, "%s\n", fields[field_categories]);	Err	bitreich.org	70
i+        print_header1(&ctx->beg, &beg);	Err	bitreich.org	70
i+        print_row(ctx, fields, i++);	Err	bitreich.org	70
i+        print_header2(&beg, &end);	Err	bitreich.org	70
i+        print_row(ctx, fields, i++);	Err	bitreich.org	70
i+        while (i < ctx->fieldnum) {	Err	bitreich.org	70
i+                print_header3();	Err	bitreich.org	70
i+                print_row(ctx, fields, i++);	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         ctx->beg = beg;	Err	bitreich.org	70
i         ctx->end = end;	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-void	Err	bitreich.org	70
i-set_fields_num(char **fields, size_t n)	Err	bitreich.org	70
i+static void	Err	bitreich.org	70
i+tsv_to_agenda(AgendaCtx *ctx, FILE *fp)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        struct { char *name; size_t *var; } map[] = {	Err	bitreich.org	70
i-                { "CATEGORIES", &field_categories },	Err	bitreich.org	70
i-                { "LOCATION", &field_location },	Err	bitreich.org	70
i-                { "SUMMARY", &field_summary },	Err	bitreich.org	70
i-                { NULL, NULL }	Err	bitreich.org	70
i-        };	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        debug("n=%zd", n);	Err	bitreich.org	70
i-        for (size_t i1 = FIELD_OTHER; i1 < n; i1++)	Err	bitreich.org	70
i-                for (size_t i2 = 0; map[i2].name != NULL; i2++)	Err	bitreich.org	70
i-                        if (strcasecmp(fields[i1], map[i2].name) == 0)	Err	bitreich.org	70
i-                                *map[i2].var = i1;	Err	bitreich.org	70
i-        if (field_summary < FIELD_OTHER)	Err	bitreich.org	70
i-                err(1, "missing column SUMMARY");	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i+        char *ln1 = NULL, *ln2 = NULL;	Err	bitreich.org	70
i+        size_t sz1 = 0, sz2 = 0;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if (ctx->linenum == 0) {	Err	bitreich.org	70
i+                char *fields[FIELD_MAX];	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                ctx->linenum++;	Err	bitreich.org	70
i+                if (getline(&ln1, &sz1, fp) < 0)	Err	bitreich.org	70
i+                        err(1, "reading stdin: %s", strerror(errno));	Err	bitreich.org	70
i+                if (feof(fp))	Err	bitreich.org	70
i+                        err(1, "empty input");	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                strchomp(ln1);	Err	bitreich.org	70
i+                ctx->fieldnum = strsplit(ln1, fields, FIELD_MAX, "\t");	Err	bitreich.org	70
i+                if (ctx->fieldnum == FIELD_MAX)	Err	bitreich.org	70
i+                        err(1, "line 1: too many fields");	Err	bitreich.org	70
i+                if (ctx->fieldnum < FIELD_OTHER)	Err	bitreich.org	70
i+                        err(1, "line 1: not enough input columns");	Err	bitreich.org	70
i+                if (strcasecmp(fields[0], "TYPE") != 0)	Err	bitreich.org	70
i+                        err(1, "line 1: 1st column is not \"TYPE\"");	Err	bitreich.org	70
i+                if (strcasecmp(fields[1], "START") != 0)	Err	bitreich.org	70
i+                        err(1, "line 1: 2nd column is not \"START\"");	Err	bitreich.org	70
i+                if (strcasecmp(fields[2], "END") != 0)	Err	bitreich.org	70
i+                        err(1, "line 1: 3rd column is not \"END\"");	Err	bitreich.org	70
i+                if (strcasecmp(fields[3], "RECUR") != 0)	Err	bitreich.org	70
i+                        err(1, "line 1: 4th column is not \"RECUR\"");	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-ssize_t	Err	bitreich.org	70
i-tsv_getline(char **fields, size_t max, char **line, size_t *sz, FILE *fp)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        char *s;	Err	bitreich.org	70
i-        size_t n = 0;	Err	bitreich.org	70
i+        for (;;) {	Err	bitreich.org	70
i+                char *fields[FIELD_MAX];	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                ctx->linenum++;	Err	bitreich.org	70
i+                if (getline(&ln2, &sz2, fp) < 0)	Err	bitreich.org	70
i+                        err(1, "reading stdin: %s", strerror(errno));	Err	bitreich.org	70
i+                if (feof(fp))	Err	bitreich.org	70
i+                        break;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                strchomp(ln2);	Err	bitreich.org	70
i+                if (strsplit(ln2, fields, FIELD_MAX, "\t") != ctx->fieldnum)	Err	bitreich.org	70
i+                        err(1, "line %zd: bad number of columns",	Err	bitreich.org	70
i+                            ctx->linenum, strerror(errno));	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        if (getline(line, sz, fp) <= 0)	Err	bitreich.org	70
i-                return ferror(fp) ? -1 : 0;	Err	bitreich.org	70
i-        s = *line;	Err	bitreich.org	70
i-        strchomp(s);	Err	bitreich.org	70
i+                fputc('\n', stdout);	Err	bitreich.org	70
i+                print(ctx, fields);	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        fputc('\n', stdout);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        do {	Err	bitreich.org	70
i-                if (n >= max)	Err	bitreich.org	70
i-                        return errno=E2BIG, -1;	Err	bitreich.org	70
i-        } while ((fields[n++] = strsep(&s, "\t")) != NULL);	Err	bitreich.org	70
i+        free(ln1);	Err	bitreich.org	70
i+        free(ln2);	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        return n - 1;	Err	bitreich.org	70
i+static void	Err	bitreich.org	70
i+usage(void)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        fprintf(stderr, "usage: %s [-f fromdate] [-t todate]\n", arg0);	Err	bitreich.org	70
i+        exit(1);	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         AgendaCtx ctx = {0};	Err	bitreich.org	70
i-        ssize_t nfield, n;	Err	bitreich.org	70
i-        size_t sz = 0;	Err	bitreich.org	70
i-        char *line = NULL, *fields[FIELDS_MAX];	Err	bitreich.org	70
i+        char c;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        arg0 = *argv;	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        if (pledge("stdio", "") < 0)	Err	bitreich.org	70
i-                err(1, "pledge: %s", strerror(errno));	Err	bitreich.org	70
i+        if ((flag_from = time(NULL)) == (time_t)-1)	Err	bitreich.org	70
i+                err(1, "time: %s", strerror(errno));	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        nfield = tsv_getline(fields, FIELDS_MAX, &line, &sz, stdin);	Err	bitreich.org	70
i-        if (nfield == -1)	Err	bitreich.org	70
i-                err(1, "reading stdin: %s", strerror(errno));	Err	bitreich.org	70
i-        if (nfield == 0)	Err	bitreich.org	70
i-                err(1, "empty input");	Err	bitreich.org	70
i-        if (nfield < FIELD_OTHER)	Err	bitreich.org	70
i-                err(1, "not enough input columns");	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        set_fields_num(fields, nfield);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        for (size_t num = 1;; num++) {	Err	bitreich.org	70
i-                n = tsv_getline(fields, FIELDS_MAX, &line, &sz, stdin);	Err	bitreich.org	70
i-                if (n < 0)	Err	bitreich.org	70
i-                        err(1, "line %zd: reading stdin: %s", num, strerror(errno));	Err	bitreich.org	70
i-                if (n == 0)	Err	bitreich.org	70
i+        arg0 = *argv;	Err	bitreich.org	70
i+        while ((c = getopt(argc, argv, "f:t:")) > 0) {	Err	bitreich.org	70
i+                char const *e;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                switch (c) {	Err	bitreich.org	70
i+                case 'f':	Err	bitreich.org	70
i+                        flag_from = strtonum(optarg, INT64_MIN, INT64_MAX, &e);	Err	bitreich.org	70
i+                        if (e != NULL)	Err	bitreich.org	70
i+                                err(1, "fromdate value %s is %s", optarg, e);	Err	bitreich.org	70
i                         break;	Err	bitreich.org	70
i-                if (n != nfield)	Err	bitreich.org	70
i-                        err(1, "line %zd: had %lld columns, wanted %lld",	Err	bitreich.org	70
i-                            num, n, nfield);	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-                print(&ctx, fields, n);	Err	bitreich.org	70
i+                case 't':	Err	bitreich.org	70
i+                        flag_to = strtonum(optarg, INT64_MIN, INT64_MAX, &e);	Err	bitreich.org	70
i+                        if (e != NULL)	Err	bitreich.org	70
i+                                err(1, "todate value %s is %s", optarg, e);	Err	bitreich.org	70
i+                        break;	Err	bitreich.org	70
i+                default:	Err	bitreich.org	70
i+                        usage();	Err	bitreich.org	70
i+                }	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i-        fputc('\n', stdout);	Err	bitreich.org	70
i+        argc -= optind;	Err	bitreich.org	70
i+        argv += optind;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        free(line);	Err	bitreich.org	70
i+        if (pledge("stdio", "") < 0)	Err	bitreich.org	70
i+                err(1, "pledge: %s", strerror(errno));	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+        tsv_to_agenda(&ctx, stdin);	Err	bitreich.org	70
i         return 0;	Err	bitreich.org	70
i }	Err	bitreich.org	70
1diff --git a/tsv2ics.awk b/tsv2ics.awk	/scm/ics2txt/file/tsv2ics.awk.gph	bitreich.org	70
i@@ -0,0 +1,106 @@	Err	bitreich.org	70
i+#!/usr/bin/awk -f	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+function isleap(year)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        return (year % 4 == 0) && (year % 100 != 0) || (year % 400 == 0)	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+function mdays(mon, year)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        return (mon == 2) ? (28 + isleap(year)) : (30 + (mon + (mon > 7)) % 2)	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+# Split the time in seconds since epoch into a table, with fields	Err	bitreich.org	70
i+# named as with gmtime(3): tm["year"], tm["mon"], tm["mday"],	Err	bitreich.org	70
i+# tm["hour"], tm["min"], tm["sec"]	Err	bitreich.org	70
i+function gmtime(sec, tm,	Err	bitreich.org	70
i+        s)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        tm["year"] = 1970	Err	bitreich.org	70
i+        while (sec >= (s = 86400 * (365 + isleap(tm["year"])))) {	Err	bitreich.org	70
i+                tm["year"]++	Err	bitreich.org	70
i+                sec -= s	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        tm["mon"] = 1	Err	bitreich.org	70
i+        while (sec >= (s = 86400 * mdays(tm["mon"], tm["year"]))) {	Err	bitreich.org	70
i+                tm["mon"]++	Err	bitreich.org	70
i+                sec -= s	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        tm["mday"] = 1	Err	bitreich.org	70
i+        while (sec >= (s = 86400)) {	Err	bitreich.org	70
i+                tm["mday"]++	Err	bitreich.org	70
i+                sec -= s	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        tm["hour"] = 0	Err	bitreich.org	70
i+        while (sec >= 3600) {	Err	bitreich.org	70
i+                tm["hour"]++	Err	bitreich.org	70
i+                sec -= 3600	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        tm["min"] = 0	Err	bitreich.org	70
i+        while (sec >= 60) {	Err	bitreich.org	70
i+                tm["min"]++	Err	bitreich.org	70
i+                sec -= 60	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        tm["sec"] = sec	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+BEGIN {	Err	bitreich.org	70
i+        FS = "\t"	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        DTSTART["VEVENT"] = "DTSTART"	Err	bitreich.org	70
i+        DTEND["VEVENT"] = "DTEND"	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        DTEND["VTODO"] = "DUE"	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        DTSTART["VJOURNAL"] = "DTSTAMP"	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        DTSTART["VFREEBUSY"] = "DTSTART"	Err	bitreich.org	70
i+        DTEND["VFREEBUSY"] = "DTEND"	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        DTSTART["VALARM"] = "DTSTART"	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        print "BEGIN:VCALENDAR"	Err	bitreich.org	70
i+        print "VERSION:2.0"	Err	bitreich.org	70
i+        print "CALSCALE:GREGORIAN"	Err	bitreich.org	70
i+        print "METHOD:PUBLISH"	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+NR == 1 {	Err	bitreich.org	70
i+        if ($1 != "TYPE" || $2 != "START" || $3 != "END" || $4 != "RECUR") {	Err	bitreich.org	70
i+                print "tsv2ics: invalid column names on first line" >/dev/stderr	Err	bitreich.org	70
i+                exit(EXIT = 1)	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        for (i = 1; i <= NF; i++) {	Err	bitreich.org	70
i+                FIELD[$i] = i	Err	bitreich.org	70
i+                NAME[i] = $i	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        next	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        type = $FIELD["TYPE"]	Err	bitreich.org	70
i+        print "BEGIN:"type	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if (type in DTSTART) {	Err	bitreich.org	70
i+                gmtime($FIELD["START"] + offset, tm)	Err	bitreich.org	70
i+                printf "%s:%04d%02d%02dT%02d%02d00Z\n", DTSTART[type],	Err	bitreich.org	70
i+                  tm["year"], tm["mon"], tm["mday"], tm["hour"], tm["min"]	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if (type in DTEND) {	Err	bitreich.org	70
i+                gmtime($FIELD["END"] + offset, tm)	Err	bitreich.org	70
i+                printf "%s:%04d%02d%02dT%02d%02d00Z\n", DTEND[type],	Err	bitreich.org	70
i+                  tm["year"], tm["mon"], tm["mday"], tm["hour"], tm["min"]	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        for (i = 5; i in NAME; i++)	Err	bitreich.org	70
i+                print$NAME[i]":"$i	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        print "END:"type	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+END {	Err	bitreich.org	70
i+        if (EXIT) exit(EXIT)	Err	bitreich.org	70
i+        print ""	Err	bitreich.org	70
i+        print "END:VCALENDAR"	Err	bitreich.org	70
i+}	Err	bitreich.org	70
1diff --git a/util.c b/util.c	/scm/ics2txt/file/util.c.gph	bitreich.org	70
i@@ -1,4 +1,5 @@	Err	bitreich.org	70
i #include "util.h"	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@@ -123,6 +124,19 @@ strappend(char **dp, char const *s)	Err	bitreich.org	70
i         return *dp;	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+size_t	Err	bitreich.org	70
i+strsplit(char *s, char **array, size_t len, char const *sep)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        size_t i;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        assert(len > 0);	Err	bitreich.org	70
i+        for (i = 0; i < len; i++)	Err	bitreich.org	70
i+                if ((array[i] = strsep(&s, sep)) == NULL)	Err	bitreich.org	70
i+                        break;	Err	bitreich.org	70
i+        array[len - 1] = NULL;	Err	bitreich.org	70
i+        return i;	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
1diff --git a/util.h b/util.h	/scm/ics2txt/file/util.h.gph	bitreich.org	70
i@@ -2,9 +2,12 @@	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 <stdio.h>	Err	bitreich.org	70
i #include <stdarg.h>	Err	bitreich.org	70
i #include <time.h>	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+#define LEN(x) (sizeof (x) / sizeof *(x))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i /** logging **/	Err	bitreich.org	70
i extern char *arg0;	Err	bitreich.org	70
i void         err(int, char const *fmt, ...);	Err	bitreich.org	70
i@@ -18,6 +21,7 @@ void         strchomp(char *);	Err	bitreich.org	70
i char        *strappend(char **, char const *);	Err	bitreich.org	70
i size_t         strlcat(char *, char const *, size_t);	Err	bitreich.org	70
i long long strtonum(const char *, long long, long long, const char **);	Err	bitreich.org	70
i+size_t         strsplit(char *, char **, size_t, char const *);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /** memory **/	Err	bitreich.org	70
i void        *reallocarray(void *, size_t, size_t);	Err	bitreich.org	70
.