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
|
#include "struct.h"
#include <libguile.h>
#include "parse.h"
SCM vcomponent_vtable;
SCM vline_vtable;
SCM_DEFINE(scm_make_vcomponent, "make-vcomponent", 0, 1, 0,
(SCM type),
"")
{
if (SCM_UNBNDP (type))
type = scm_from_utf8_symbol("VIRTUAL");
/* This segfaults */
return scm_make_struct_no_tail
(vcomponent_vtable,
scm_list_4(type, SCM_EOL, SCM_BOOL_F,
scm_make_hash_table(scm_from_int(0x10))));
}
SCM_DEFINE(scm_parse_cal_path, "parse-cal-path", 1, 0, 0,
(SCM path),
"")
{
SCM root = scm_make_vcomponent(SCM_UNSPECIFIED);
char* p = scm_to_utf8_stringn(path, NULL);
// scm_read_vcalendar(root, p);
/* TODO check that path is good? */
printf("Parsing [%s]\n", p);
FILE* f = fopen(p, "r");
printf("FILE = %p\n", f);
parse_file (p, f, root);
/* TODO free file */
free(p);
return root;
}
SCM_DEFINE(scm_add_line_x, "add-line!", 3, 0, 0,
(SCM vcomponent, SCM key, SCM line),
"")
{
scm_hash_set_x (scm_struct_ref(vcomponent, vcomponent_lines), key, line);
return SCM_UNSPECIFIED;
}
SCM_DEFINE(scm_add_child_x, "add-child!", 2, 0, 0,
(SCM vcomponent, SCM child),
"")
{
scm_struct_set_x (child, vcomponent_parent, vcomponent);
scm_struct_set_x (vcomponent, vcomponent_children,
scm_cons (child, scm_struct_ref (vcomponent, vcomponent_children)));
return SCM_UNSPECIFIED;
}
SCM_DEFINE(scm_make_vline, "make-vline", 0, 0, 0,
(), "")
{
return scm_make_struct_no_tail
(vline_vtable,
scm_list_2(SCM_BOOL_F, scm_make_hash_table(scm_from_int(0x10))));
}
SCM_DEFINE(scm_add_attribute_x, "add-attribute!", 3, 0, 0,
(SCM vline, SCM key, SCM value),
"")
{
SCM table = scm_struct_ref (vline, vline_attributes);
scm_hash_set_x (table, key,
scm_cons(value, scm_hash_ref(table, key, SCM_EOL)));
return SCM_UNSPECIFIED;
}
void init_lib (void) {
// init_vcomponent_type();
// content_set_lists = scm_make_weak_key_hash_table (scm_from_uint(0x100));
SCM str = scm_from_utf8_string("pr" "pw" "pw" "pr");
vcomponent_vtable = scm_make_vtable(str, SCM_BOOL_F);
scm_set_struct_vtable_name_x (vcomponent_vtable, scm_from_utf8_symbol("vcomponent"));
vline_vtable =
scm_make_vtable(scm_from_utf8_string("pw" "pw"),
SCM_BOOL_F);
scm_set_struct_vtable_name_x (vline_vtable, scm_from_utf8_symbol("vline"));
#ifndef SCM_MAGIC_SNARFER
#include "struct.x"
#endif
}
|
