Fix: Add line/column numbers to include processing errors

- Updated ResolveIncludePath to accept source file and line number parameters
- Enhanced all include error exceptions to include proper source position
- Fixed compiler exception handler to extract line/column from ECPException
- Include errors now show exact file, line, and column where directive appears

Resolves missing line numbers in include processing error output.
Before: ERROR: Cannot resolve include path: math.e (no location)
After: ERROR: Cannot resolve include path: math.e
       File: test.cp
       Line: 5, Column: 1

Author: jarroddavis68

bin/math.e renamed to bin/math.cp

@@ -89,12 +89,6 @@ procedure CompileFile(const AFileName: string);
   CPPrintLn('=== CP-Lang Compiler Test ===');
   CPPrintLn('');
 
-  if not TFile.Exists(AFileName) then
-  begin
-    CPPrintLn('Error: File not found: %s', [AFileName]);
-    Exit;
-  end;
-
   LCompiler := TCPCompiler.Create();
   try
     try  // ← EXCEPTION HANDLING BLOCK
@@ -111,9 +105,12 @@ procedure CompileFile(const AFileName: string);
 
       LResult := LCompiler.CompileFile(AFileName);
       try  // ← RESOURCE CLEANUP FOR LResult
-        CPPrintLn('');
-        CPPrintLn('--- SOURCE ---');
-        CPPrintLn(LResult.MergedSource);
+        if not LResult.MergedSource.IsEmpty then
+        begin
+          CPPrintLn('');
+          CPPrintLn('--- SOURCE ---');
+          CPPrintLn(LResult.MergedSource);
+        end;
 
         CPPrintLn('');
         CPPrintLn('Phase reached: %s', [GetEnumName(TypeInfo(TCPCompilationPhase), Ord(LResult.Phase))]);
@@ -199,7 +196,7 @@ procedure CompileFile(const AFileName: string);
 procedure RunTests();
 begin
   try
-    CompileFile('test.e');
+    CompileFile('test.cp');
   except
     on E: ECPException do
     begin

bin/test.e renamed to bin/test.cp

@@ -25,6 +25,9 @@ interface
   System.SysUtils,
   CPLang.Platform;
 
+const
+  CPSourceFileExt = '.cp';
+
 { Console }
 procedure CPClearToEOL();
 function  CPPrint(const AText: string): string; overload;

examples/testbed/UELTestbed.pas

@@ -618,8 +618,9 @@ function TCPCompiler.ProcessIncludes(const AMainFileName: string): Boolean;
         TCPCompilerError.Create(
           E.Message,
           'Include',
-          AMainFileName,
-          0, 0,
+          E.SourceFileName,
+          E.LineNumber,
+          E.ColumnNumber,
           esError
         )
       );

src/CPLang.Common.pas

@@ -40,7 +40,7 @@   TCPIncludeManager = class
     FMergedSource: string;
 
     function ProcessFile(const AFileName: string; var ACurrentCharPos: Integer): string;
-    function ResolveIncludePath(const AIncludePath: string; const AIsAngleBracket: Boolean): string;
+    function ResolveIncludePath(const AIncludePath: string; const AIsAngleBracket: Boolean; const ASourceFile: string; const ALineNumber: Integer): string;
     function IsAlreadyIncluded(const AFileName: string): Boolean;
     function ValidateAngleBracketInclude(const AInclude: string): Boolean;
 
@@ -125,7 +125,7 @@ function TCPIncludeManager.ValidateAngleBracketInclude(const AInclude: string):
 
   // Must have .e extension
   LFileName := AInclude.ToLower();
-  if not LFileName.EndsWith('.e') then
+  if not LFileName.EndsWith(CPSourceFileExt) then
     Exit;
 
   // Must be a valid filename (not empty after removing extension)
@@ -166,7 +166,7 @@ function TCPIncludeManager.ProcessFile(const AFileName: string; var ACurrentChar
   Result := '';
 
   if not TFile.Exists(AFileName) then
-    raise ECPException.Create('Include file not found: %s', [AFileName]);
+    raise ECPException.Create('File not found: %s', [AFileName]);
 
   if IsAlreadyIncluded(AFileName) then
     Exit; // Prevent circular includes
@@ -207,7 +207,7 @@ function TCPIncludeManager.ProcessFile(const AFileName: string; var ACurrentChar
         AddIncludePath(LIncludePath);
       end
       else
-        raise ECPException.Create('Invalid #includepath directive: path must be enclosed in quotes');
+        raise ECPException.Create('Invalid #includepath directive: path must be enclosed in quotes', [], LFullPath, LLineIndex + 1, 1);
 
       // After includepath, prepare for next content block
       LContentStartPos := ACurrentCharPos;
@@ -233,7 +233,7 @@ function TCPIncludeManager.ProcessFile(const AFileName: string; var ACurrentChar
       begin
         // Quoted include - allows paths, relative resolution
         LIncludePath := LLine.Substring(1, LLine.Length - 2);
-        LIncludeFile := ResolveIncludePath(LIncludePath, False);
+        LIncludeFile := ResolveIncludePath(LIncludePath, False, LFullPath, LLineIndex + 1);
         LIncludeContent := ProcessFile(LIncludeFile, ACurrentCharPos);
         Result := Result + LIncludeContent;
       end
@@ -243,14 +243,14 @@ function TCPIncludeManager.ProcessFile(const AFileName: string; var ACurrentChar
         LIncludePath := LLine.Substring(1, LLine.Length - 2);
 
         if not ValidateAngleBracketInclude(LIncludePath) then
-          raise ECPException.Create('Invalid angle bracket include "%s": must be filename.e format only (no paths)', [LIncludePath]);
+          raise ECPException.Create('Invalid angle bracket include "%s": must be filename.e format only (no paths)', [LIncludePath], LFullPath, LLineIndex + 1, 1);
 
-        LIncludeFile := ResolveIncludePath(LIncludePath, True);
+        LIncludeFile := ResolveIncludePath(LIncludePath, True, LFullPath, LLineIndex + 1);
         LIncludeContent := ProcessFile(LIncludeFile, ACurrentCharPos);
         Result := Result + LIncludeContent;
       end
       else
-        raise ECPException.Create('Invalid #include directive: must be "filename" or <filename>');
+        raise ECPException.Create('Invalid #include directive: must be "filename" or <filename>', [], LFullPath, LLineIndex + 1, 1);
 
       // After include, prepare for next content block
       LContentStartPos := ACurrentCharPos;
@@ -280,7 +280,7 @@ function TCPIncludeManager.ProcessFile(const AFileName: string; var ACurrentChar
   end;
 end;
 
-function TCPIncludeManager.ResolveIncludePath(const AIncludePath: string; const AIsAngleBracket: Boolean): string;
+function TCPIncludeManager.ResolveIncludePath(const AIncludePath: string; const AIsAngleBracket: Boolean; const ASourceFile: string; const ALineNumber: Integer): string;
 var
   LSearchPaths: string;
   LIndex: Integer;
@@ -289,7 +289,7 @@ function TCPIncludeManager.ResolveIncludePath(const AIncludePath: string; const
   begin
     // Angle bracket include - search in include paths only
     if FIncludePaths.Count = 0 then
-      raise ECPException.Create('No include paths configured for angle bracket include: <%s>', [AIncludePath]);
+      raise ECPException.Create('No include paths configured for angle bracket include: <%s>', [AIncludePath], ASourceFile, ALineNumber, 1);
 
     // Build semicolon-separated search paths for FileSearch
     LSearchPaths := '';
@@ -302,7 +302,7 @@ function TCPIncludeManager.ResolveIncludePath(const AIncludePath: string; const
 
     Result := FileSearch(AIncludePath, LSearchPaths);
     if Result = '' then
-      raise ECPException.Create('Cannot find angle bracket include <%s> in configured include paths', [AIncludePath]);
+      raise ECPException.Create('Cannot find angle bracket include <%s> in configured include paths', [AIncludePath], ASourceFile, ALineNumber, 1);
   end
   else
   begin
@@ -319,7 +319,7 @@ function TCPIncludeManager.ResolveIncludePath(const AIncludePath: string; const
       Exit;
     end;
 
-    raise ECPException.Create('Cannot resolve include path: %s', [AIncludePath]);
+    raise ECPException.Create('Cannot resolve include path: %s', [AIncludePath], ASourceFile, ALineNumber, 1);
   end;
 end;