Hi Eric, Eric S Fraga <e.fr...@ucl.ac.uk> writes:
> Guido Van Hoecke <gui...@gmail.com> writes: > >> Eric, >> >> Eric S Fraga <e.fr...@ucl.ac.uk> writes: > > [...] > >>> Suggestions on how to handle this case would be welcome, of course. >> >> I created a patch so that the date and time string is built directly >> from the iCal data for times before the epoch. This function produces >> valid date/time strings albeit without weekday info. >> >> Patch file is attached. > > Excellent. Thanks for this. Can you update the file on Worg directly? > If not, I will try to do it. > > One point, however. Should the first return statement in your > datetimestring(input) function (see last line in patch excerpt below) > refer to "input" instead of "datetmp"? What you have works because of > all variables being global but is less clear than using the argument, I > would suggest? It should be "timestamp" rather than "datetmp" :( I have attached the corrected patch. I don't know whether I have access to Worg. Would you mind updating it? > Thanks again, My pleasure,
--- ical2org.awk.orig 2013-05-09 14:15:14.000000000 +0200 +++ ical2org.awk 2013-05-09 19:52:37.000000000 +0200 @@ -27,7 +27,7 @@ # no further revision log after this as the file was moved into a git # repository... # -# Last change: 2011.01.28 16:08:03 +# Last change: 2013.05.09 19:52:37 #---------------------------------------------------------------------------------- # a function to take the iCal formatted date+time, convert it into an @@ -60,12 +60,31 @@ # print "adjusted : " timestamp # print "Time stamp : " strftime("%Y-%m-%d %H:%M", timestamp); + if(timestamp < 0) timestamp = 0; return timestamp; } +# a function to comvert the iCal date+time string into a date time string; +# it uses the datetimestamp subroutine to compute the value to feed to strftime; +# if the iCal date falls before time 0, the string is built from the iCal input; + +function datetimestring(input) +{ + # try to create datetimestring from the datetimestamp + timestamp = datetimestamp(input); + if (timestamp > 0) + return strftime("%Y-%m-%d %a %H:%M", datetimestamp(timestamp)); + + # this is a date before the start of the epoch + # create the yyyy-mm-dd hh:mm string from the input (without day of week) + datespec = gensub("([0-9][0-9][0-9][0-9])([0-9][0-9])([0-9][0-9])T([0-9][0-9])([0-9][0-9])([0-9][0-9]).*[\r]*", "\\1-\\2-\\3 \\4:\\5", "g", input); + # print "==> datespec:" datespec; + return datespec; +} + BEGIN { ### config section - max_age = 7; # in days + max_age = -1; #7; # in days # set this to -1 to get all entries or to N>0 to only get # that start or end less than N days ago ### end config section @@ -90,6 +109,7 @@ indescription = 0; lasttimestamp=-1; + print "#+TITLE: Main Google calendar entries" print "#+AUTHOR: Eric S Fraga" print "#+EMAIL: e.fr...@ucl.ac.uk" @@ -140,12 +160,12 @@ /^DTSTART;VALUE=DATE/ { datetmp = gensub("([0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9])(.*[\r])", "\\1T000000\\2", "g", $2) - date = strftime("%Y-%m-%d %a %H:%M", datetimestamp(datetmp)); + date = datetimestring(datetmp); if(max_age>0) lasttimestamp = datetimestamp(datetmp); } /^DTEND;VALUE=DATE/ { datetmp = gensub("([0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9])(.*[\r])", "\\1T000000\\2", "g", $2) - time2 = strftime("%Y-%m-%d %a %H:%M", datetimestamp(datetmp)); + time2 = datetimestring(datetmp); date = date ">--<" time2; if(max_age>0) lasttimestamp = datetimestamp(datetmp); } @@ -154,7 +174,7 @@ # we ignore the seconds /^DTSTART[:;][^V]/ { - date = strftime("%Y-%m-%d %a %H:%M", datetimestamp($2)); + date = datetimestring($2); if(max_age>0) lasttimestamp = datetimestamp($2); # print date; } @@ -165,7 +185,7 @@ /^DTEND[:;][^V]/ { # print $0 - time2 = strftime("%Y-%m-%d %a %H:%M", datetimestamp($2)); + time2 = datetimestring($2); date = date ">--<" time2; if(max_age>0) lasttimestamp = datetimestamp($2); }
Guido -- "Life is like a buffet; it's not good but there's plenty of it."