aboutsummaryrefslogtreecommitdiff
path: root/scheme.c
diff options
context:
space:
mode:
Diffstat (limited to 'scheme.c')
-rw-r--r--scheme.c55
1 files changed, 55 insertions, 0 deletions
diff --git a/scheme.c b/scheme.c
new file mode 100644
index 00000000..05bc4b0d
--- /dev/null
+++ b/scheme.c
@@ -0,0 +1,55 @@
+#include "scheme.h"
+
+#include "macro.h"
+#include "calendar.h"
+#include "strbuf.h"
+
+static SCM calendar_type;
+
+void init_calendar_type (void) {
+ SCM name = scm_from_utf8_symbol("calendar");
+ SCM slots = scm_list_1(scm_from_utf8_symbol("data"));
+
+ calendar_type = scm_make_foreign_object_type(name, slots, NULL);
+}
+
+SCM make_calendar (SCM path) {
+
+ vcalendar* cal =
+ (vcalendar*) scm_gc_malloc (
+ sizeof(*cal), "calendar");
+ CONSTRUCT(vcalendar, cal);
+
+ char* p = scm_to_utf8_stringn(path, NULL);
+ read_vcalendar(cal, p);
+ free(p);
+
+ return scm_make_foreign_object_1
+ (calendar_type, cal);
+
+}
+
+static SCM scm_from_strbuf(strbuf* s) {
+ return scm_from_utf8_stringn (s->mem, s->len);
+}
+
+SCM calendar_get_attr(SCM calendar, SCM id, SCM attr) {
+ scm_assert_foreign_object_type (calendar_type, calendar);
+ vcalendar* cal = scm_foreign_object_ref (calendar, 0);
+
+ vevent* v = cal->events[scm_to_int(id)];
+ char* key = scm_to_utf8_stringn(scm_string_upcase(attr), NULL);
+ content_line* c = get_property (v, key);
+ free(key);
+
+ if (c == NULL) return SCM_BOOL_F;
+
+ return scm_from_strbuf(&c->val);
+}
+
+void init_calendar () {
+ init_calendar_type();
+
+ scm_c_define_gsubr ("make-calendar", 1, 0, 0, make_calendar);
+ scm_c_define_gsubr ("get-attr", 3, 0, 0, calendar_get_attr);
+}