From a29cb23c5517fd4f8f5524fdf38b67ff5fe4a902 Mon Sep 17 00:00:00 2001
From: _ov4 <ov4@ov4.org>
Date: Sat, 17 Oct 2026 15:02:01 +0000
Subject: feat(parser): parse EXTERN "C" declarations and INCLUDE_OBJ

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
---
 lib/Parser/Parser.cc | 24 ++++++++++++++++++------
 1 file changed, 18 insertions(+), 6 deletions(-)

(limited to 'lib/Parser/Parser.cc')

diff --git a/lib/Parser/Parser.cc b/lib/Parser/Parser.cc
index f7817ec..f22e3c6 100644
--- a/lib/Parser/Parser.cc
+++ b/lib/Parser/Parser.cc
@@ -47,6 +47,7 @@ void Parser::syncToStatementStart() {
     while (CurTok != tok_eof) {
         switch (CurTok) {
         case tok_include: case tok_global: case tok_endglobal:
+        case tok_include_obj: case tok_extern:
         case tok_delete: case tok_constant: case tok_declare: case tok_identifier: case tok_input: case tok_output:
         case tok_case: case tok_endcase: case tok_otherwise:
         case tok_if: case tok_while: case tok_repeat: case tok_for:
@@ -96,21 +97,32 @@ std::unique_ptr<StmtAST> Parser::ParseStatement() {
 }
 
 std::unique_ptr<StmtAST> Parser::ParseStatementImpl() {
-    if (CurTok == tok_include || CurTok == tok_global) {
-        bool Include = CurTok == tok_include;
+    if (CurTok == tok_extern) {
+        if (BlockDepth != 1) {
+            sourceDiagnostic(Lex.getLine(), "error: EXTERN is only allowed at top level at line %d\n", Lex.getLine());
+            getNextToken();
+            return nullptr;
+        }
+        return ParseExternDecl();
+    }
+    if (CurTok == tok_include || CurTok == tok_include_obj || CurTok == tok_global) {
+        const char *Keyword = CurTok == tok_include ? "INCLUDE" : CurTok == tok_include_obj ? "INCLUDE_OBJ" : "GLOBAL";
+        bool Object = CurTok == tok_include_obj;
+        bool Include = Object || CurTok == tok_include;
         int Line = Lex.getLine();
         getNextToken();
         if (BlockDepth != 1) {
-            sourceDiagnostic(Line, "error: %s is only allowed at top level at line %d\n",
-                             Include ? "INCLUDE" : "GLOBAL", Line);
+            sourceDiagnostic(Line, "error: %s is only allowed at top level at line %d\n", Keyword, Line);
             return nullptr;
         }
         if (Include) {
             if (CurTok != tok_string_literal) {
-                sourceDiagnostic(Line, "error: INCLUDE requires a string literal at line %d\n", Line);
+                sourceDiagnostic(Line, "error: %s requires a string literal at line %d\n", Keyword, Line);
                 return nullptr;
             }
-            auto Stmt = std::make_unique<IncludeStmtAST>(Lex.StringVal);
+            std::unique_ptr<StmtAST> Stmt;
+            if (Object) Stmt = std::make_unique<IncludeObjStmtAST>(Lex.StringVal);
+            else Stmt = std::make_unique<IncludeStmtAST>(Lex.StringVal);
             getNextToken();
             return Stmt;
         }
-- 
cgit v1.3.1-4-g156e