Changeset 55 for branches/DelphiToC/USourceCode.pas

Timestamp:

Aug 10, 2010, 1:48:38 PM (14 years ago)

Author:

george

Message:

Fix: View proper source file after click to error message.
Made partial changes to support unit interface and implementation sections.

File:

• branches/DelphiToC/USourceCode.pas (modified) (3 diffs)

branches/DelphiToC/USourceCode.pas

@@ -270 +270 @@
   end;
 
-  TModule = class(TCommonBlock)
+  TModule = class
   public
-    ModuleType: TModuleType;
+    Name: string;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { TModuleProgram }
+
+  TModuleProgram = class(TModule)
     UsedModules: TUsedModuleList;
-    constructor Create; override;
-    procedure Clear;
-    destructor Destroy; override;
+    Body: TCommonBlock;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { TUnitInterface }
+
+  TUnitInterface = class
+    UsedModules: TUsedModuleList;
+    Body: TCommonBlock;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { TUnitImplementation }
+
+  TUnitImplementation = class
+    UsedModules: TUsedModuleList;
+    Body: TCommonBlock;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { TModuleUnit }
+
+  TModuleUnit = class(TModule)
+    InterfaceSection: TUnitInterface;
+    ImplementationSection: TUnitImplementation;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  TModulePackage = class(TModule)
+
+  end;
+
+  TModuleLibrary = class(TModule)
   end;
 
@@ -362 +403 @@
 { TModule }
 
-procedure TModule.Clear;
-begin
-  Variables.Clear;
-  Constants.Clear;
-  Functions.Clear;
-  Code.Clear;
-end;
-
 constructor TModule.Create;
 begin
   inherited;
-  UsedModules := TUsedModuleList.Create;
 end;
 
 destructor TModule.Destroy;
 begin
-  UsedModules.Destroy;
   inherited;
 end;
@@ -694 +725 @@
 end;
 
+{ TModuleProgram }
+
+constructor TModuleProgram.Create;
+begin
+  inherited;
+  UsedModules := TUsedModuleList.Create;
+  Body := TCommonBlock.Create;
+end;
+
+destructor TModuleProgram.Destroy;
+begin
+  UsedModules.Free;
+  Body.Free;
+  inherited Destroy;
+end;
+
+{ TModuleUnit }
+
+constructor TModuleUnit.Create;
+begin
+  ImplementationSection := TUnitImplementation.Create;
+  InterfaceSection := TUnitInterface.Create;
+end;
+
+destructor TModuleUnit.Destroy;
+begin
+  ImplementationSection.Free;
+  InterfaceSection.Free;
+  inherited Destroy;
+end;
+
+{ TUnitImplementation }
+
+constructor TUnitImplementation.Create;
+begin
+  UsedModules := TUsedModuleList.Create;
+  Body := TCommonBlock.Create;
+end;
+
+destructor TUnitImplementation.Destroy;
+begin
+  UsedModules.Free;
+  Body.Free;
+  inherited Destroy;
+end;
+
+{ TUnitInterface }
+
+constructor TUnitInterface.Create;
+begin
+  UsedModules := TUsedModuleList.Create;
+  Body := TCommonBlock.Create;
+end;
+
+destructor TUnitInterface.Destroy;
+begin
+  UsedModules.Free;
+  Body.Free;
+  inherited Destroy;
+end;
+
 end.