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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
#include "guile_interface.h"
#include "vcal.h"
#include "calendar.h"
#include "guile_type_helpers.h"
static SCM vcomponent_type;
void init_vcomponent_type (void) {
SCM name = scm_from_utf8_symbol("vcomponent");
SCM slots = scm_list_1(scm_from_utf8_symbol("data"));
vcomponent_type = scm_make_foreign_object_type(name, slots, NULL);
}
SCM_DEFINE (make_vcomponent, "make-vcomponent", 1, 0, 0,
(SCM path),
"Loads a vdir iCalendar from the given path.")
{
vcomponent* cal =
(vcomponent*) scm_gc_malloc (
sizeof(*cal), "vcomponent");
INIT(vcomponent, cal, "ROOT");
char* p = scm_to_utf8_stringn(path, NULL);
read_vcalendar(cal, p);
free(p);
return scm_make_foreign_object_1
(vcomponent_type, cal);
}
/*
* Returns a line from a component.
*/
SCM_DEFINE (vcomponent_get_attribute, "vcomponent-get-attribute", 2, 0, 0,
(SCM calendar, SCM attr),
"Retuns the given attribute from the vevent object at index in calendar.")
{
scm_assert_foreign_object_type (vcomponent_type, calendar);
vcomponent* cal = scm_foreign_object_ref (calendar, 0);
char* key = scm_to_utf8_stringn(scm_string_upcase(attr), NULL);
content_line* c = get_property (cal, key);
free(key);
if (c == NULL) return SCM_BOOL_F;
SCM llist = SCM_EOL;
FOR (LLIST, content_set, v, &c->val) {
llist = scm_cons(scm_from_strbuf(&v->key), llist);
}
/* returns the car of list if list is one long. */
if (scm_to_int(scm_length(llist)) == 1) {
return SCM_CAR(llist);
} else {
return llist;
}
}
SCM_DEFINE (vcomponent_set_attr_x, "vcomponent-set-attribute!", 3, 0, 0,
(SCM component, SCM attr, SCM new_value),
"")
{
scm_assert_foreign_object_type (vcomponent_type, component);
vcomponent* com = scm_foreign_object_ref (component, 0);
char* key = scm_to_utf8_stringn(scm_string_upcase(attr), NULL);
content_line* c = get_property (com, key);
free(key);
scm_gc_unprotect_object(c->val.cur->value->key.scm);
c->val.cur->value->key.scm = new_value;
scm_gc_protect_object(c->val.cur->value->key.scm);
return SCM_UNSPECIFIED;
}
SCM_DEFINE (vcomponent_child_count, "vcomponent-child-count", 1, 0, 0,
(SCM component),
"Returns number of child components.")
{
scm_assert_foreign_object_type (vcomponent_type, component);
vcomponent* c = scm_foreign_object_ref (component, 0);
return scm_from_size_t (SIZE(VECT(vcomponent))(&c->components));
}
SCM_DEFINE(vcomponent_children, "vcomponent-children", 1, 0, 0,
(SCM component),
"")
{
scm_assert_foreign_object_type (vcomponent_type, component);
vcomponent* cal = scm_foreign_object_ref (component, 0);
return scm_from_vector(&cal->components, vcomponent_type);
}
SCM_DEFINE(vcomponent_typeof, "vcomponent-typeof", 1, 0, 0,
(SCM component),
"Returns type of vcomponent")
{
scm_assert_foreign_object_type (vcomponent_type, component);
vcomponent* comp = scm_foreign_object_ref (component, 0);
return scm_from_utf8_symbol(comp->type);
}
void init_vcomponent () {
init_vcomponent_type();
#ifndef SCM_MAGIC_SNARFER
#include "guile_interface.x"
#endif
}
|