Changeset 54 for branches/DelphiToC/Analyze/UParser.pas

Timestamp:

Aug 10, 2010, 11:54:18 AM (14 years ago)

Author:

george

Message:

Added support for multiple source files and compilations for multiple modules in Project.pas

File:

• branches/DelphiToC/Analyze/UParser.pas (modified) (4 diffs)

branches/DelphiToC/Analyze/UParser.pas

@@ -54 +54 @@
     procedure ParseUnit(SourceCode: TModule);
     procedure ParseProgram(SourceCode: TModule);
-    procedure ParseAll(SourceCode: TProgram);
     procedure ParseCommonBlock(SourceCode: TCommonBlock; EndSymbol: char = ';');
     function ParseCommand(SourceCode: TCommonBlock): TCommand;
@@ -651 +650 @@
       ModuleType := mdProgram;
       Expect(';');
-    end
-    else
-      Name := '';
+    end else Name := '';
 
     // Uses section
@@ -664 +661 @@
 
 procedure TPascalParser.ParseUnit(SourceCode: TModule);
+var
+  NewModule: TModule;
 begin
   Expect('unit');
-  with TModule(ProgramCode.Modules[0]) do
+  with Sourcecode do
   begin
     Name := ReadCode;
@@ -677 +676 @@
 
 { TParserProgram }
-
-procedure TPascalParser.ParseAll(SourceCode: TProgram);
-var
-  I: integer;
-begin
-  with SourceCode do
-  begin
-    for I := 0 to Modules.Count - 1 do
-      ParseModule(TModule(Modules[I]));
-  end;
-end;
 
 { TParserCommonBlock }