Change Scheme interop in C to use guile-snarf.

1 files changed, 0 insertions, 62 deletions

diff --git a/scheme.c b/scheme.c
deleted file mode 100644
index cacd502e..00000000
--- a/scheme.c
+++ /dev/null
@@ -1,62 +0,0 @@
-#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);
-}
-
-SCM number_events(SCM calendar) {
-	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();
-
-	scm_c_define_gsubr ("make-calendar", 1, 0, 0, make_calendar);
-	scm_c_define_gsubr ("get-attr", 3, 0, 0, calendar_get_attr);
-	scm_c_define_gsubr ("calendar-size", 1, 0, 0, number_events);
-}