Emit c-header pragmas as includes

Signed-off-by: Mel <mel@rnrd.eu>

1 files changed, 19 insertions, 7 deletions

diff --git a/boot/lower.c b/boot/lower.c
index 65eb18c..c72ad97 100644
--- a/boot/lower.c
+++ b/boot/lower.c
@@ -783,13 +783,25 @@ lower_pass_1_fill_bodies(struct Lower_Context* ctx, struct Tree* tree)
         }
 
         if (stmt->kind == TREE_STATEMENT_PRAGMA) {
-            lower_push_error(
-                ctx->unit,
-                (struct Lower_Error){
-                    .kind = LOWER_ERROR_UNIMPLEMENTED,
-                    .span = stmt->span,
-                    .detail = string_from_static_c_string("top-level pragmas"),
-                });
+            for (struct Tree_Pragma* pragma = stmt->value.pragma.inner; pragma;
+                 pragma = pragma->next) {
+                if (pragma->type == TREE_PRAGMA_C_HEADER && pragma->argument_count >= 1
+                    && pragma->arguments[0].type == TREE_PRAGMA_ARGUMENT_NAME_OR_STRING) {
+                    struct Import import = {
+                        .path = pragma->arguments[0].value.name_or_string,
+                        .span = pragma->span,
+                    };
+                    array_push(&ctx->unit->imports, &import);
+                } else {
+                    lower_push_error(
+                        ctx->unit,
+                        (struct Lower_Error){
+                            .kind = LOWER_ERROR_UNIMPLEMENTED,
+                            .span = pragma->span,
+                            .detail = string_from_static_c_string("this pragma kind"),
+                        });
+                }
+            }
             continue;
         }