__dEfInEdInThEFilE__* = \"C:/ob/A2OS/Source/PET.Mod"\;

 source/FoxParser.Mod | 28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

diff --git a/source/FoxParser.Mod b/source/FoxParser.Mod
index b4302bc7c..78c7a1862 100644
--- a/source/FoxParser.Mod
+++ b/source/FoxParser.Mod
@@ -2273,6 +2273,22 @@ TYPE
          IF Trace THEN E( "TypeDeclaration" ) END;
       END TypeDeclaration;
 
+      (** Compiler-generated constant *)
+      PROCEDURE GenerateStringConstantDeclaration*(parentScope: SyntaxTree.Scope
+        ; name: SyntaxTree.Identifier
+        ; position: Position
+        ; value: Scanner.StringType );
+      VAR constant: SyntaxTree.Constant;
+      BEGIN
+      IF Trace THEN S( "GenerateStringConstantDeclaration" ) END;
+      constant := SyntaxTree.NewConstant( position, name );
+      constant.SetAccess(SyntaxTree.Public + SyntaxTree.Protected + SyntaxTree.Internal);
+      constant.SetValue(SyntaxTree.NewStringValue( position, value ));
+      parentScope.AddConstant( constant );
+            
+      IF Trace THEN E( "GenerateStringConstantDeclaration" ) END;
+      END GenerateStringConstantDeclaration;
+
       (** ConstDeclaration = IdentifierDefinition '=' Expression. **)
       PROCEDURE ConstDeclaration(parentScope: SyntaxTree.Scope );
       VAR name: SyntaxTree.Identifier;  position: Position; constant: SyntaxTree.Constant;  expression: SyntaxTree.Expression;  access: SET;
@@ -2387,8 +2403,11 @@ TYPE
       **)
 
       PROCEDURE Module*(): SyntaxTree.Module;
-      VAR moduleName, context: SyntaxTree.Identifier;  module: SyntaxTree.Module;  position: Position; isCellNet: BOOLEAN;
+      VAR moduleName, context: SyntaxTree.Identifier; 
+        sourceFileNameConstName: SyntaxTree.Identifier;
+         module: SyntaxTree.Module;  position: Position; isCellNet: BOOLEAN;
          scannerDiagnostics: Diagnostics.Diagnostics; modifiers: SyntaxTree.Modifier; (* c: SyntaxTree.Comment; *)
+         
       BEGIN
          IF Trace THEN S( "Module" ) END;
          position := token.position;
@@ -2425,6 +2444,13 @@ TYPE
 
             WHILE Optional(Scanner.Import) DO ImportList(moduleScope) END;
             DeclarationSequence( moduleScope);
+
+            StringPool.GetIndex("__dEfInEdInThEFilE__", sourceFileNameConstName);
+            GenerateStringConstantDeclaration(currentScope
+               , sourceFileNameConstName   
+               , position
+               , scanner.source);
+            
             IF Peek(Scanner.Begin) OR Peek(Scanner.Code) THEN
                moduleScope.SetBodyProcedure(BodyProcedure(moduleScope)); (* insert empty body procedure if necessary *)
             END;

<Section name="DefaultFont">
   <Setting name="Name" value="Vera"/>
   <Setting name="Size" value="14"/>
</Section>