aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Makefile3
-rw-r--r--src/mds-kbdc/mds-kbdc.c16
-rw-r--r--src/mds-kbdc/process-includes.c57
-rw-r--r--src/mds-kbdc/process-includes.h35
-rw-r--r--src/mds-kbdc/tree.c13
-rw-r--r--src/mds-kbdc/tree.h7
-rw-r--r--test-files/mds-kbdc/make-tree/valid/include4
7 files changed, 122 insertions, 13 deletions
diff --git a/Makefile b/Makefile
index 76bf89f..9f9b71a 100644
--- a/Makefile
+++ b/Makefile
@@ -31,7 +31,8 @@ OBJ_mds-registry_ = mds-registry util globals reexec registry signals \
slave
OBJ_mds-kbdc_ = mds-kbdc globals raw-data functions string tree \
- make-tree parse-error simplify-tree parsed
+ make-tree parse-error simplify-tree parsed \
+ process-includes
OBJ_mds-server = $(foreach O,$(OBJ_mds-server_),obj/mds-server/$(O).o)
OBJ_mds-registry = $(foreach O,$(OBJ_mds-registry_),obj/mds-registry/$(O).o)
diff --git a/src/mds-kbdc/mds-kbdc.c b/src/mds-kbdc/mds-kbdc.c
index 55e3587..a2b5b70 100644
--- a/src/mds-kbdc/mds-kbdc.c
+++ b/src/mds-kbdc/mds-kbdc.c
@@ -39,6 +39,11 @@
*/
int main(int argc_, char** argv_)
{
+#define process(expr) \
+ fail_if ((expr) < 0); \
+ if (fatal = mds_kbdc_parsed_is_fatal(&result), fatal) \
+ goto stop;
+
mds_kbdc_parsed_t result;
int fatal;
@@ -46,10 +51,12 @@ int main(int argc_, char** argv_)
argv = argv_;
mds_kbdc_parsed_initialise(&result);
- fail_if (parse_to_tree(argv[1], &result) < 0);
- if (fatal = mds_kbdc_parsed_is_fatal(&result), fatal)
- goto stop;
- fail_if (simplify_tree(&result) < 0);
+ process (parse_to_tree(argv[1], &result));
+ //process (simplify_tree(&result));
+ //process (process_includes(&result));
+ /* TODO process (validate_tree(&result)); */
+ /* TODO process (eliminate_dead_code(&result)); */
+ /* TODO process (compile_layout(&result)); */
stop:
mds_kbdc_tree_print(result.tree, stderr);
mds_kbdc_parsed_print_errors(&result, stderr);
@@ -60,5 +67,6 @@ int main(int argc_, char** argv_)
xperror(*argv);
mds_kbdc_parsed_destroy(&result);
return 1;
+#undef process
}
diff --git a/src/mds-kbdc/process-includes.c b/src/mds-kbdc/process-includes.c
new file mode 100644
index 0000000..0b068f1
--- /dev/null
+++ b/src/mds-kbdc/process-includes.c
@@ -0,0 +1,57 @@
+/**
+ * mds — A micro-display server
+ * Copyright © 2014 Mattias Andrée (maandree@member.fsf.org)
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ */
+#include "process-includes.h"
+
+
+
+/**
+ * Add an error the to error list
+ *
+ * @param NODE:const mds_kbdc_tree_t* The node the triggered the error
+ * @param SEVERITY:identifier * in `MDS_KBDC_PARSE_ERROR_*` to indicate severity
+ * @param ...:const char*, ... Error description format string and arguments
+ * @scope error:mds_kbdc_parse_error_t* Variable where the new error will be stored
+ */
+#define NEW_ERROR(NODE, SEVERITY, ...) \
+ NEW_ERROR_(result, SEVERITY, 1, (NODE)->loc_line, \
+ (NODE)->loc_start, (NODE)->loc_end, 1, __VA_ARGS__)
+
+
+
+/**
+ * Variable whether the latest created error is stored
+ */
+static mds_kbdc_parse_error_t* error;
+
+
+
+/**
+ * Include included files and process them upto this level
+ *
+ * @param result `result` from `simplify_tree`, will be updated
+ * @return -1 if an error occursed that cannot be stored in `result`, zero otherwise
+ */
+int process_includes(mds_kbdc_parsed_t* restrict result)
+{
+ return 0;
+}
+
+
+
+#undef NEW_ERROR
+
diff --git a/src/mds-kbdc/process-includes.h b/src/mds-kbdc/process-includes.h
new file mode 100644
index 0000000..f9817c6
--- /dev/null
+++ b/src/mds-kbdc/process-includes.h
@@ -0,0 +1,35 @@
+/**
+ * mds — A micro-display server
+ * Copyright © 2014 Mattias Andrée (maandree@member.fsf.org)
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ */
+#ifndef MDS_MDS_KBDC_PROCESS_INCLUDES_H
+#define MDS_MDS_KBDC_PROCESS_INCLUDES_H
+
+
+#include "parsed.h"
+
+
+/**
+ * Include included files and process them upto this level
+ *
+ * @param result `result` from `simplify_tree`, will be updated
+ * @return -1 if an error occursed that cannot be stored in `result`, zero otherwise
+ */
+int process_includes(mds_kbdc_parsed_t* restrict result);
+
+
+#endif
+
diff --git a/src/mds-kbdc/tree.c b/src/mds-kbdc/tree.c
index df94a97..695a8a7 100644
--- a/src/mds-kbdc/tree.c
+++ b/src/mds-kbdc/tree.c
@@ -94,23 +94,24 @@ static void mds_kbdc_tree_destroy_(mds_kbdc_tree_t* restrict this, int recursive
case C(ALTERNATION):
case C(UNORDERED):
case C(ORDERED):
- xdestroy(struct mds_kbdc_tree_nesting*, inner);
+ xdestroy(mds_kbdc_tree_nesting_t*, inner);
break;
case C(INFORMATION_LANGUAGE):
case C(INFORMATION_COUNTRY):
case C(INFORMATION_VARIANT):
- xfree(struct mds_kbdc_tree_information_data*, data);
+ xfree(mds_kbdc_tree_information_data_t*, data);
break;
case C(FUNCTION):
case C(MACRO):
- xfree(struct mds_kbdc_tree_callable*, name);
- xdestroy(struct mds_kbdc_tree_callable*, inner);
+ xfree(mds_kbdc_tree_callable_t*, name);
+ xdestroy(mds_kbdc_tree_callable_t*, inner);
break;
case C(INCLUDE):
xfree(mds_kbdc_tree_include_t*, filename);
+ xdestroy(mds_kbdc_tree_include_t*, inner);
break;
case C(ASSUMPTION_HAVE):
@@ -303,7 +304,7 @@ mds_kbdc_tree_t* mds_kbdc_tree_dup(mds_kbdc_tree_t* restrict this)
case C(INFORMATION_LANGUAGE):
case C(INFORMATION_COUNTRY):
case C(INFORMATION_VARIANT): { NODE(information_data); S(data); } break;
- case C(INCLUDE): { NODE(include); S(filename); } break;
+ case C(INCLUDE): { NODE(include); S(filename);T(inner); } break;
case C(ASSUMPTION_HAVE_CHARS): { NODE(assumption_have_chars); S(chars); } break;
case C(KEYS): { NODE(keys); S(keys); } break;
case C(STRING): { NODE(string); S(string); } break;
@@ -495,7 +496,7 @@ static void mds_kbdc_tree_print_indented(mds_kbdc_tree_t* restrict this, FILE* o
case C(INFORMATION_LANGUAGE): SIMPLEX(information_language, "language", data);
case C(INFORMATION_COUNTRY): SIMPLEX(information_country, "country", data);
case C(INFORMATION_VARIANT): SIMPLEX(information_variant, "variant", data);
- case C(INCLUDE): SIMPLEX(include, "include", filename);
+ case C(INCLUDE): NAMED_NESTING(include, "include", filename, inner);
case C(FUNCTION): NAMED_NESTING(function, "function", name, inner);
case C(MACRO): NAMED_NESTING(macro, "macro", name, inner);
case C(ASSUMPTION): NESTING(assumption, "assumption", inner);
diff --git a/src/mds-kbdc/tree.h b/src/mds-kbdc/tree.h
index 6fd5bca..64a703d 100644
--- a/src/mds-kbdc/tree.h
+++ b/src/mds-kbdc/tree.h
@@ -285,7 +285,12 @@ typedef struct mds_kbdc_tree_include
*/
char* filename;
- MDS_KBDC_TREE_PADDING(1);
+ /**
+ * The included layout code tree
+ */
+ mds_kbdc_tree_t* inner;
+
+ MDS_KBDC_TREE_PADDING(2);
} mds_kbdc_tree_include_t;
diff --git a/test-files/mds-kbdc/make-tree/valid/include b/test-files/mds-kbdc/make-tree/valid/include
index 32dcdf2..fb302b1 100644
--- a/test-files/mds-kbdc/make-tree/valid/include
+++ b/test-files/mds-kbdc/make-tree/valid/include
@@ -1,4 +1,6 @@
include "assumption-filled"
-# (include (@ 1 0-7) ‘"assumption-filled"’)
+# (include (@ 1 0-7) ‘"assumption-filled"’
+# (.inner nil)
+# )