1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
#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);
}
|
