iinitial C implementation - 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 94bccd0b9ea7049ebeec4fcf2416f6f0b7d221b5	/scm/ics2txt/commit/94bccd0b9ea7049ebeec4fcf2416f6f0b7d221b5.gph	bitreich.org	70
1parent 78e0184b4deb29669bfde9a66fc945968845ced8	/scm/ics2txt/commit/78e0184b4deb29669bfde9a66fc945968845ced8.gph	bitreich.org	70
hAuthor: Josuah Demangeon <me@josuah.net>	URL:mailto:me@josuah.net	bitreich.org	70
iDate:   Sat, 27 Jun 2020 20:31:09 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iinitial C implementation	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  A .gitignore                          |       2 ++	Err	bitreich.org	70
i  M Makefile                            |      24 +++++++++++++++++++-----	Err	bitreich.org	70
i  A bin/ics2tsv                         |     141 +++++++++++++++++++++++++++++++	Err	bitreich.org	70
i  R ics2txt -> bin/ics2txt              |       0 	Err	bitreich.org	70
i  R tcal2tsv -> bin/tcal2tsv            |       0 	Err	bitreich.org	70
i  R tsv2ics -> bin/tsv2ics              |       0 	Err	bitreich.org	70
i  A bin/tsv2tcal                        |      91 +++++++++++++++++++++++++++++++	Err	bitreich.org	70
i  A doc/index.md                        |      11 +++++++++++	Err	bitreich.org	70
i  D ics2tsv                             |     138 ------------------------------	Err	bitreich.org	70
i  A ics2tsv.c                           |      62 +++++++++++++++++++++++++++++++	Err	bitreich.org	70
i  A src/ical.c                          |     108 +++++++++++++++++++++++++++++++	Err	bitreich.org	70
i  A src/ical.h                          |      25 +++++++++++++++++++++++++	Err	bitreich.org	70
i  A src/log.c                           |      89 +++++++++++++++++++++++++++++++	Err	bitreich.org	70
i  A src/log.h                           |      15 +++++++++++++++	Err	bitreich.org	70
i  A src/map.c                           |     102 +++++++++++++++++++++++++++++++	Err	bitreich.org	70
i  A src/map.h                           |      23 +++++++++++++++++++++++	Err	bitreich.org	70
i  A src/util.c                          |      74 +++++++++++++++++++++++++++++++	Err	bitreich.org	70
i  A src/util.h                          |      13 +++++++++++++	Err	bitreich.org	70
i  D tsv2tcal                            |      91 -------------------------------	Err	bitreich.org	70
i	Err	bitreich.org	70
i19 files changed, 775 insertions(+), 234 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@@ -0,0 +1,2 @@	Err	bitreich.org	70
i+*.o	Err	bitreich.org	70
i+ics2tsv	Err	bitreich.org	70
1diff --git a/Makefile b/Makefile	/scm/ics2txt/file/Makefile.gph	bitreich.org	70
i@@ -1,23 +1,37 @@	Err	bitreich.org	70
i NAME = ics2txt	Err	bitreich.org	70
i VERSION = 0.1	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-BIN = ics2tsv tsv2tcal tcal2tsv tsv2ics ics2txt	Err	bitreich.org	70
i-	Err	bitreich.org	70
i+W = -Wall -Wextra -std=c99 --pedantic	Err	bitreich.org	70
i+I = -Isrc	Err	bitreich.org	70
i+D = -D_POSIX_C_SOURCE=200811L -DVERSION='"${VERSION}"'	Err	bitreich.org	70
i+CFLAGS = $I $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 = src/ical.c src/map.c src/util.c src/log.c	Err	bitreich.org	70
i+HDR = src/ical.h src/map.h src/util.h src/log.h	Err	bitreich.org	70
i+OBJ = ${SRC:.c=.o}	Err	bitreich.org	70
i+BIN = ics2tsv	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+${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 ${NAME}-${VERSION} *.gz	Err	bitreich.org	70
i+        rm -rf *.o */*.o ${BIN} ${NAME}-${VERSION} *.gz	Err	bitreich.org	70
i 	Err	bitreich.org	70
i install:	Err	bitreich.org	70
i         mkdir -p ${DESTDIR}$(PREFIX)/bin	Err	bitreich.org	70
i-        cp $(BIN) ${DESTDIR}$(PREFIX)/bin	Err	bitreich.org	70
i+        cp bin/* $(BIN) ${DESTDIR}$(PREFIX)/bin	Err	bitreich.org	70
i         mkdir -p ${DESTDIR}$(MANPREFIX)/man1	Err	bitreich.org	70
i         cp doc/*.1 ${DESTDIR}$(MANPREFIX)/man1	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 doc ${BIN} ${NAME}-${VERSION}	Err	bitreich.org	70
i+        cp -r README Makefile doc bin ${SRC} ${NAME}-${VERSION}	Err	bitreich.org	70
i         tar -cf - ${NAME}-${VERSION} | gzip -c >${NAME}-${VERSION}.tar.gz	Err	bitreich.org	70
1diff --git a/bin/ics2tsv b/bin/ics2tsv	/scm/ics2txt/file/bin/ics2tsv.gph	bitreich.org	70
i@@ -0,0 +1,141 @@	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_tzid(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/ics2txt b/bin/ics2txt	/scm/ics2txt/file/bin/ics2txt.gph	bitreich.org	70
1diff --git a/tcal2tsv b/bin/tcal2tsv	/scm/ics2txt/file/bin/tcal2tsv.gph	bitreich.org	70
1diff --git a/tsv2ics b/bin/tsv2ics	/scm/ics2txt/file/bin/tsv2ics.gph	bitreich.org	70
1diff --git a/bin/tsv2tcal b/bin/tsv2tcal	/scm/ics2txt/file/bin/tsv2tcal.gph	bitreich.org	70
i@@ -0,0 +1,91 @@	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 gmtime(sec, tm)	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+function localtime(sec, tm,	Err	bitreich.org	70
i+        tz, h, m)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        return gmtime(sec + TZ, tm)	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+BEGIN {	Err	bitreich.org	70
i+        "exec date +%z" | getline tz	Err	bitreich.org	70
i+        close("exec date +%z")	Err	bitreich.org	70
i+        TZ = substr(tz, 1, 1) substr(tz, 2, 2)*3600 + substr(tz, 4, 2)*60	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        print("TZ" tz)	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        FS = "\t"	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+	Err	bitreich.org	70
i+        localtime(ev["beg"] + offset, tm)	Err	bitreich.org	70
i+        printf("%04d-%02d-%02d %02d:%02d\n",	Err	bitreich.org	70
i+          tm["year"], tm["mon"], tm["mday"], tm["hour"], tm["min"])	Err	bitreich.org	70
i+        delete ev["beg"]	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        localtime(ev["end"] + offset, tm)	Err	bitreich.org	70
i+        printf("%04d-%02d-%02d %02d:%02d\n",	Err	bitreich.org	70
i+          tm["year"], tm["mon"], tm["mday"], tm["hour"], tm["min"])	Err	bitreich.org	70
i+        delete ev["end"]	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        for (i = 1; i <= NF; i++) {	Err	bitreich.org	70
i+                if (name[i] in ev && ev[name[i]])	Err	bitreich.org	70
i+                        printf(" %s: %s\n", name[i], ev[name[i]])	Err	bitreich.org	70
i+        }	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+}	Err	bitreich.org	70
1diff --git a/doc/index.md b/doc/index.md	/scm/ics2txt/file/doc/index.md.gph	bitreich.org	70
i@@ -0,0 +1,11 @@	Err	bitreich.org	70
i+ics2txt	Err	bitreich.org	70
i+=======	Err	bitreich.org	70
i+Set of tools to work with the popular iCalendar format and converting to even	Err	bitreich.org	70
i+simpler TSV and text forms.	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+Parsing have been tested with the following input formats (sample account	Err	bitreich.org	70
i+created for testing):	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+* Zoom meetings generated events	Err	bitreich.org	70
i+* FOSDEM events, like <https://fosdem.org/2020/schedule/ical>	Err	bitreich.org	70
i+* Google Calendar	Err	bitreich.org	70
1diff --git a/ics2tsv b/ics2tsv	/scm/ics2txt/file/ics2tsv.gph	bitreich.org	70
i@@ -1,138 +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_to_epoch(content, param,	Err	bitreich.org	70
i-        tz, cmd)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        tz = (param["TZID"] ? param["TZID"] : vcalendar["TZID"])	Err	bitreich.org	70
i-        gsub("'", "", tz)	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        cmd = "TZ='"tz"' date +%z" 	Err	bitreich.org	70
i-        cmd | getline tz	Err	bitreich.org	70
i-        close(cmd)	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        tz = substr(tz, 1, 1) substr(tz, 2, 2)*3600 + substr(tz, 4, 2)*60	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"], 8, 2)	Err	bitreich.org	70
i-        tm["hour"] = substr(content["value"], 12, 2)	Err	bitreich.org	70
i-        tm["min"] = substr(content["value"], 15, 2)	Err	bitreich.org	70
i-        tm["sec"] = substr(content["value"], 18, 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",	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-                vcalendar[content["name"]] = 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/ics2tsv.c b/ics2tsv.c	/scm/ics2txt/file/ics2tsv.c.gph	bitreich.org	70
i@@ -0,0 +1,62 @@	Err	bitreich.org	70
i+#include <stdio.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+int	Err	bitreich.org	70
i+print_ical_to_tsv(FILE *fp)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        struct ical_contentline contentline;	Err	bitreich.org	70
i+        char *line = NULL;	Err	bitreich.org	70
i+        size_t sz = 0;	Err	bitreich.org	70
i+        ssize_t r;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        ical_init_contentline(&contentline);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        while ((r = ical_read_line(&line, &sz, fp)) > 0) {	Err	bitreich.org	70
i+                debug("readling line \"%s\"", line);	Err	bitreich.org	70
i+                if (ical_parse_contentline(&contentline, line) < 0)	Err	bitreich.org	70
i+                        die("parsing line \"%s\"", line);	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        return r;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+void	Err	bitreich.org	70
i+print_header(void)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        char *fields[] = { "", NULL };	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        printf("%s\t%s", "beg", "end");	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        for (char **f = fields; *f != NULL; f++) {	Err	bitreich.org	70
i+                fprintf(stdout, "\t%s", *f);	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        fprintf(stdout, "\n");	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+        print_header();	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        log_arg0 = *argv++;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if (*argv == NULL) {	Err	bitreich.org	70
i+                if (print_ical_to_tsv(stdin) < 0)	Err	bitreich.org	70
i+                        die("converting stdin");	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+                FILE *fp;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                info("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_to_tsv(fp) < 0)	Err	bitreich.org	70
i+                        die("converting %s", *argv);	Err	bitreich.org	70
i+                fclose(fp);	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        return 0;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
1diff --git a/src/ical.c b/src/ical.c	/scm/ics2txt/file/src/ical.c.gph	bitreich.org	70
i@@ -0,0 +1,108 @@	Err	bitreich.org	70
i+#include "ical.h"	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+#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+int	Err	bitreich.org	70
i+ical_read_line(char **line, size_t *sz, FILE *fp)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        ssize_t r;	Err	bitreich.org	70
i+        char *tail = NULL;	Err	bitreich.org	70
i+        size_t tail_sz = 0;	Err	bitreich.org	70
i+        int c, ret = -1;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if ((r = getline(line, sz, fp)) <= 0)	Err	bitreich.org	70
i+                return r;	Err	bitreich.org	70
i+        strchomp(*line);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        for (;;) {	Err	bitreich.org	70
i+                if ((c = fgetc(fp)) == EOF) {	Err	bitreich.org	70
i+                        ret = ferror(fp) ? -1 : 0;	Err	bitreich.org	70
i+                        goto end;	Err	bitreich.org	70
i+                }	Err	bitreich.org	70
i+                if (c != ' ')	Err	bitreich.org	70
i+                        break;	Err	bitreich.org	70
i+                if ((r = getline(&tail, &tail_sz, fp)) <= 0) {	Err	bitreich.org	70
i+                        ret = r;	Err	bitreich.org	70
i+                        goto end;	Err	bitreich.org	70
i+                }	Err	bitreich.org	70
i+                strchomp(tail);	Err	bitreich.org	70
i+                if (strappend(line, tail) < 0)	Err	bitreich.org	70
i+                        goto end;	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        ret = 1;	Err	bitreich.org	70
i+end:	Err	bitreich.org	70
i+        free(tail);	Err	bitreich.org	70
i+        ungetc(c, fp);	Err	bitreich.org	70
i+        return ret;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+int	Err	bitreich.org	70
i+ical_parse_contentline(struct ical_contentline *contentline, char *line)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        char *column, *equal, *param, *cp;	Err	bitreich.org	70
i+        size_t sz;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        debug("0");	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if ((column = strchr(line, ':')) == NULL)	Err	bitreich.org	70
i+                return -1;	Err	bitreich.org	70
i+        *column = '\0';	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        {	Err	bitreich.org	70
i+                size_t len;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                debug("1.1");	Err	bitreich.org	70
i+                len = strlen(column + 1);	Err	bitreich.org	70
i+                debug("1.2");	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if ((contentline->value = strdup(column + 1)) == NULL)	Err	bitreich.org	70
i+                return -1;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        debug("2");	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        cp = strchr(line, ';');	Err	bitreich.org	70
i+        cp = (cp == NULL) ? (NULL) : (cp + 1);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        debug("3");	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        while ((param = strsep(&cp, ";")) != NULL) {	Err	bitreich.org	70
i+                if ((equal = strchr(param, '=')) == NULL)	Err	bitreich.org	70
i+                        return -1;	Err	bitreich.org	70
i+                *equal = '\0';	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                if (map_set(&contentline->param, param, equal + 1) < 0)	Err	bitreich.org	70
i+                        return -1;	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        debug("4");	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        sz = sizeof(contentline->name);	Err	bitreich.org	70
i+        if (strlcpy(contentline->name, line, sz) >= sz)	Err	bitreich.org	70
i+                return errno=EMSGSIZE, -1;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        debug("5");	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        return 0;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+void	Err	bitreich.org	70
i+ical_init_contentline(struct ical_contentline *contentline)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        memset(contentline, 0, sizeof(*contentline));	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+ical_free_contentline(struct ical_contentline *contentline)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        map_free(&contentline->param);	Err	bitreich.org	70
i+        free(contentline->value);	Err	bitreich.org	70
i+}	Err	bitreich.org	70
1diff --git a/src/ical.h b/src/ical.h	/scm/ics2txt/file/src/ical.h.gph	bitreich.org	70
i@@ -0,0 +1,25 @@	Err	bitreich.org	70
i+#ifndef ICAL_H	Err	bitreich.org	70
i+#define ICAL_H	Err	bitreich.org	70
i+	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+struct ical_vevent {	Err	bitreich.org	70
i+        time_t beg, end;	Err	bitreich.org	70
i+        struct map map;	Err	bitreich.org	70
i+};	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+struct ical_contentline {	Err	bitreich.org	70
i+        char name[32], *value;	Err	bitreich.org	70
i+        struct map param;	Err	bitreich.org	70
i+};	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+/** src/ical.c **/	Err	bitreich.org	70
i+int ical_read_line(char **line, size_t *sz, FILE *fp);	Err	bitreich.org	70
i+int ical_parse_contentline(struct ical_contentline *contentline, char *line);	Err	bitreich.org	70
i+void ical_init_contentline(struct ical_contentline *contentline);	Err	bitreich.org	70
i+void ical_free_contentline(struct ical_contentline *contentline);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#endif	Err	bitreich.org	70
1diff --git a/src/log.c b/src/log.c	/scm/ics2txt/file/src/log.c.gph	bitreich.org	70
i@@ -0,0 +1,89 @@	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/src/log.h b/src/log.h	/scm/ics2txt/file/src/log.h.gph	bitreich.org	70
i@@ -0,0 +1,15 @@	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+int log_level;	Err	bitreich.org	70
i+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/src/map.c b/src/map.c	/scm/ics2txt/file/src/map.c.gph	bitreich.org	70
i@@ -0,0 +1,102 @@	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+        debug("%s: key=%s len=%zd", __func__, key, map->len);	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+                debug("cmp(%s,%s)=%d", key, map->entry[i].key, cmp);	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+        e = map->entry + map->len - 1 - 1;	Err	bitreich.org	70
i+        for (; e >= insert; e--)	Err	bitreich.org	70
i+                e[1].key = e[0].key;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if ((insert->key = strdup(key)) == NULL)	Err	bitreich.org	70
i+                return -1;	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_free_values(struct map *map)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        for (size_t i = 0; i < map->len; i++)	Err	bitreich.org	70
i+                free(map->entry[map->len - 1].value);	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)	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[map->len - 1].key);	Err	bitreich.org	70
i+        free(map->entry);	Err	bitreich.org	70
i+}	Err	bitreich.org	70
1diff --git a/src/map.h b/src/map.h	/scm/ics2txt/file/src/map.h.gph	bitreich.org	70
i@@ -0,0 +1,23 @@	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_free_values(struct map *map);	Err	bitreich.org	70
i+void map_free(struct map *map);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#endif	Err	bitreich.org	70
1diff --git a/src/util.c b/src/util.c	/scm/ics2txt/file/src/util.c.gph	bitreich.org	70
i@@ -0,0 +1,74 @@	Err	bitreich.org	70
i+#include "util.h"	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#include <errno.h>	Err	bitreich.org	70
i+#include <stdint.h>	Err	bitreich.org	70
i+#include <stdlib.h>	Err	bitreich.org	70
i+#include <string.h>	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+size_t	Err	bitreich.org	70
i+strlcpy(char *buf, char const *str, size_t sz)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        size_t len, cpy;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        cpy = ((len = strlen(str)) > sz) ? (sz) : (len);	Err	bitreich.org	70
i+        memcpy(buf, str, cpy + 1);	Err	bitreich.org	70
i+        buf[sz - 1] = '\0';	Err	bitreich.org	70
i+        return len;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+char *	Err	bitreich.org	70
i+strsep(char **str_p, char const *sep)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        char *s, *prev;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if (*str_p == NULL)	Err	bitreich.org	70
i+                return NULL;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        for (s = prev = *str_p; strchr(sep, *s) == NULL; s++)	Err	bitreich.org	70
i+                continue;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if (*s == '\0') {	Err	bitreich.org	70
i+                *str_p = NULL;	Err	bitreich.org	70
i+        } else {	Err	bitreich.org	70
i+                *s = '\0';	Err	bitreich.org	70
i+                *str_p = s + 1;	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+        return prev;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+void	Err	bitreich.org	70
i+strchomp(char *line)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        size_t len;	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+        if (len > 0 && line[len - 1] == '\r')	Err	bitreich.org	70
i+                line[len-- - 1] = '\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+{	Err	bitreich.org	70
i+        size_t base_len, s_len;	Err	bitreich.org	70
i+        void *v;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        base_len = strlen(*base_p);	Err	bitreich.org	70
i+        s_len = strlen(s);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if ((v = realloc(*base_p, base_len + s_len + 1)) == NULL)	Err	bitreich.org	70
i+                return -1;	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+        return 0;	Err	bitreich.org	70
i+}	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
i+        if (SIZE_MAX / len < sz)	Err	bitreich.org	70
i+                return errno=ERANGE, NULL;	Err	bitreich.org	70
i+        return realloc(buf, len * sz);	Err	bitreich.org	70
i+}	Err	bitreich.org	70
1diff --git a/src/util.h b/src/util.h	/scm/ics2txt/file/src/util.h.gph	bitreich.org	70
i@@ -0,0 +1,13 @@	Err	bitreich.org	70
i+#ifndef UTIL_H	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+	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+	Err	bitreich.org	70
i+#endif	Err	bitreich.org	70
1diff --git a/tsv2tcal b/tsv2tcal	/scm/ics2txt/file/tsv2tcal.gph	bitreich.org	70
i@@ -1,91 +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 gmtime(sec, tm)	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-function localtime(sec, tm,	Err	bitreich.org	70
i-        tz, h, m)	Err	bitreich.org	70
i-{	Err	bitreich.org	70
i-        return gmtime(sec + TZ, tm)	Err	bitreich.org	70
i-}	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-BEGIN {	Err	bitreich.org	70
i-        "date +%z" | getline tz	Err	bitreich.org	70
i-        close("date +%z")	Err	bitreich.org	70
i-        TZ = substr(tz, 1, 1) substr(tz, 2, 2)*3600 + substr(tz, 4, 2)*60	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        print("TZ" tz)	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        FS = "\t"	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-	Err	bitreich.org	70
i-        localtime(ev["beg"] + offset, tm)	Err	bitreich.org	70
i-        printf("%04d-%02d-%02d %02d:%02d\n",	Err	bitreich.org	70
i-          tm["year"], tm["mon"], tm["mday"], tm["hour"], tm["min"])	Err	bitreich.org	70
i-        delete ev["beg"]	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        localtime(ev["end"] + offset, tm)	Err	bitreich.org	70
i-        printf("%04d-%02d-%02d %02d:%02d\n",	Err	bitreich.org	70
i-          tm["year"], tm["mon"], tm["mday"], tm["hour"], tm["min"])	Err	bitreich.org	70
i-        delete ev["end"]	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        for (i = 1; i <= NF; i++) {	Err	bitreich.org	70
i-                if (name[i] in ev && ev[name[i]])	Err	bitreich.org	70
i-                        printf(" %s: %s\n", name[i], ev[name[i]])	Err	bitreich.org	70
i-        }	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-}	Err	bitreich.org	70
.