aboutsummaryrefslogtreecommitdiff
path: root/src/parse.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/parse.c')
-rw-r--r--src/parse.c15
1 files changed, 9 insertions, 6 deletions
diff --git a/src/parse.c b/src/parse.c
index dd8066ed..06d8707c 100644
--- a/src/parse.c
+++ b/src/parse.c
@@ -91,14 +91,14 @@ int parse_file(char* filename, FILE* f, SCM root) {
*/
if (string_eq(line_key, scm_from_utf8_string("BEGIN"))) {
/* key \in { VCALENDAR, VEVENT, VALARM, VTODO, VTIMEZONE, ... } */
- // INFO("Creating child");
+ INFO("Creating child");
SCM child = scm_make_vcomponent(scm_string_to_symbol(scm_from_strbuf(&str)));
scm_add_child_x (component, child);
component = child;
} else if (string_eq(line_key, scm_from_utf8_string("END"))) {
// TODO make current component be parent of current component?
- // INFO("back to parent");
+ INFO("back to parent");
component = scm_component_parent(component);
/*
@@ -106,7 +106,8 @@ int parse_file(char* filename, FILE* f, SCM root) {
* component.
*/
} else {
- // INFO("Adding attribute");
+ strbuf_cap(&str); // TODO remove
+ INFO_F("Adding attribute [%s]", str.mem);
scm_struct_set_x(line, vline_value, scm_from_strbuf(&str));
scm_add_line_x(component, line_key, line);
line = scm_make_vline();
@@ -127,7 +128,7 @@ int parse_file(char* filename, FILE* f, SCM root) {
/* Save the current parameter key */
// TODO
// TRANSFER (&param_key, &ctx.str);
- // INFO("Param key");
+ INFO_F("Param key [%s]", str.mem);
attr_key = scm_from_strbuf(&str);
p_ctx = p_param_value;
strbuf_soft_reset (&str);
@@ -144,7 +145,7 @@ int parse_file(char* filename, FILE* f, SCM root) {
/* We got a parameter value, push the current string to
* the current parameter set. */
if (p_ctx == p_param_value) {
- // INFO("param value");
+ INFO_F("param value [%s]", str.mem);
/* save current parameter value. */
scm_add_attribute_x(line, attr_key, scm_from_strbuf(&str));
strbuf_soft_reset (&str);
@@ -158,7 +159,8 @@ int parse_file(char* filename, FILE* f, SCM root) {
*/
if (p_ctx == p_key) {
- // INFO("key");
+ strbuf_cap(&str); // TODO remove
+ INFO_F("key [%s]", str.mem);
// TRANSFER(&cline_key, &ctx.str);
// NEW(content_set, p);
@@ -193,6 +195,7 @@ int parse_file(char* filename, FILE* f, SCM root) {
* end with CRLF. My files however does not, so we also parse
* the end here.
*/
+ ERR("Not implemented");
// TRANSFER(CLINE_CUR_VAL(&cline), &ctx.str);
// TODO