diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-03 22:02:03 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-03 22:02:03 +0200 |
commit | 785f70a3d16e549e36b8ef17f081829fe492a193 (patch) | |
tree | f1142270470fc0cd483c3a227ef8b62c7a6a4bea /src | |
parent | Slowly going through and fixing everything. (diff) | |
download | calp-785f70a3d16e549e36b8ef17f081829fe492a193.tar.gz calp-785f70a3d16e549e36b8ef17f081829fe492a193.tar.xz |
Locate bug with DTEND.
Diffstat (limited to 'src')
-rw-r--r-- | src/parse.c | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/parse.c b/src/parse.c index 06d8707c..48b58b95 100644 --- a/src/parse.c +++ b/src/parse.c @@ -94,6 +94,16 @@ int parse_file(char* filename, FILE* f, SCM root) { INFO("Creating child"); SCM child = scm_make_vcomponent(scm_string_to_symbol(scm_from_strbuf(&str))); scm_add_child_x (component, child); + + /* TODO it should be possible to create this object once + at the top of this function + */ + SCM templine = scm_make_vline(); + scm_struct_set_x(templine, vline_value, + scm_from_utf8_stringn(filename, strlen(filename))); + scm_add_line_x(child, scm_from_utf8_string("X-HNH-FILENAME"), + templine); + component = child; } else if (string_eq(line_key, scm_from_utf8_string("END"))) { @@ -195,7 +205,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"); + ERR("Handling of missing trailing endline not reimplemented."); // TRANSFER(CLINE_CUR_VAL(&cline), &ctx.str); // TODO |