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."
