From 21ef1d9c0db916ed867db46376cce1a0343e2b3f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 3 Feb 2019 00:00:47 +0100 Subject: Change Scheme interop in C to use guile-snarf. --- scheme.scm.c | 71 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 71 insertions(+) create mode 100644 scheme.scm.c (limited to 'scheme.scm.c') diff --git a/scheme.scm.c b/scheme.scm.c new file mode 100644 index 00000000..0d987ffa --- /dev/null +++ b/scheme.scm.c @@ -0,0 +1,71 @@ +#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_DEFINE (make_calendar, "make-calendar", 1, 0, 0, + (SCM path), + "Loads a vdir iCalendar from the given 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_DEFINE (calendar_get_attr, "calendar-get-attr", 3, 0, 0, + (SCM calendar, SCM id, SCM attr), + "Retuns the given attribute from the vevent object at index in calendar.") +{ + 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); +} + +SCM_DEFINE (calendar_size, "calendar-size", 1, 0, 0, + (SCM calendar), + "Returns number of events in a vcalendar.") +{ + scm_assert_foreign_object_type (calendar_type, calendar); + vcalendar* cal = scm_foreign_object_ref (calendar, 0); + return scm_from_size_t (cal->n_events); +} + +void init_calendar () { + init_calendar_type(); + +#ifndef SCM_MAGIC_SNARFER +#include "scheme.x" +#endif + +} -- cgit v1.2.3