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
115
116
117
118
119
120
|
#ifndef VCAL_H
#define VCAL_H
#include <stdlib.h>
#include <libguile.h>
#define SCM_PUSH_X(parent, child) parent = scm_cons(child, parent)
#define SCM_POP_X(lst) lst = SCM_CDR(lst)
#include "strbuf.h"
/*
* content_line:
* (a mapping) between a top level key, and everything it contains.
* content_set:
* A top level value, along with a list of kv pairs for all its
* possible parameters.
* param_set:
* A parameter key, along with a list of all its values.
*/
// #define param_set LLIST(strbuf)
//
// #define TYPE param_set
// #include "trie.h"
// #undef TYPE
//
// #define T strbuf
// #define V TRIE(param_set)
// #include "pair.h"
// /* left := content | right := params */
// #define content_set PAIR(strbuf, TRIE(param_set))
// #undef V
// #undef T
//
// #define TYPE content_set
// #include "linked_list.h"
// #undef TYPE
//
// #define content_line LLIST(content_set)
/*
* Helper macros for accessing fields in
* content_line, content_set, and param_set
*/
/* content_set */
#define CLINE_CUR(c) ((c)->cval)
/* strbuf */
#define CLINE_CUR_VAL(c) (& CLINE_CUR(c)->key)
/* TRIE(param_set) */
#define CLINE_CUR_PARAMS(c) (& CLINE_CUR(c)->val)
// #define TYPE content_line
// #include "trie.h"
// #undef TYPE
typedef struct s_vcomponent vcomponent;
// #define TYPE vcomponent
// // #include "vector.h"
// #include "linked_list.h"
// #undef TYPE
struct s_vcomponent {
/* VCALENDAR, VEVENT, ... */
char* type;
vcomponent* parent;
// TRIE(content_line) clines;
// LLIST(vcomponent) components;
SCM clines;
SCM components;
/*
* Holds a Guile representation of this object. Used to always
* return the same foreign (for guile) object for the same
* vcomponent.
*/
SCM scm;
SCM scmtype;
};
#define FCHILD(v) FIRST_V(&(v)->components)
INIT_F(vcomponent);
INIT_F(vcomponent, const char* type);
INIT_F(vcomponent, const char* type, const char* filename);
FREE_F(vcomponent);
// content_line* get_attributes (vcomponent* ev, const char* key);
// int add_content_line (vcomponent* ev, SCM c);
int vcomponent_push_val (vcomponent* comp, strbuf* key, SCM val);
// char* vcomponent_get_val (vcomponent*, const char* key);
/*
* Appends ev to cal. Doesn't copy ev. So make sure that it wont go
* out of scope.
*/
int PUSH(vcomponent)(vcomponent*, vcomponent*);
/*
* Deep copy is currently not implemented for vcomponentes.
* The reason for this method being here is since some
* generic methods in other places complain otherwise.
*/
int DEEP_COPY(vcomponent)(vcomponent*, vcomponent*);
/*
* "Shallow" copy of vcomponent.
*/
int vcomponent_copy(vcomponent*, vcomponent*);
FMT_F(vcomponent);
#endif /* VCAL_H */
|
