Changeset 75 for trunk/Compiler/Modules/Delphi

Timestamp:

Jun 4, 2024, 12:22:49 AM (6 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

Location:

trunk/Compiler/Modules/Delphi

Files:

• ModuleDelphi.pas (moved) (moved from trunk/Compiler/Modules/Delphi/UModuleDelphi.pas ) (3 diffs)
• ProducerDelphi.pas (moved) (moved from trunk/Compiler/Modules/Delphi/UProducerDelphi.pas ) (11 diffs)

trunk/Compiler/Modules/Delphi/ModuleDelphi.pas

@@ -1 @@
-unit UModuleDelphi;
-
-{$mode Delphi}{$H+}
+unit ModuleDelphi;
 
 interface
 
 uses
-  Classes, SysUtils, UTarget, UExecutor, UModularSystem;
+  Classes, SysUtils, Target, Executor, ModularSystem;
 
 type
@@ -28 +26 @@
 
 uses
-  UProducerDelphi, UCompilerAPI;
+  ProducerDelphi, CompilerAPI;
 
 resourcestring
@@ -38 +36 @@
 begin
   inherited;
-  Name := 'Delphi';
+  Identification := 'Delphi';
   Title := SDelphi;
 end;

trunk/Compiler/Modules/Delphi/ProducerDelphi.pas

@@ -1 @@
-unit UProducerDelphi;
-
-{$MODE Delphi}
+unit ProducerDelphi;
 
 interface
@@ -7 +5 @@
 uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, USourceCodePascal, UProducer, StrUtils, USourceConvertor;
+  Dialogs, SourceCodePascal, Producer, StrUtils, SourceConvertor;
 
 type
@@ -16 +14 @@
   private
     Producer: TProducer;
-    procedure GenerateUses(UsedModules: TUsedModuleList);
+    procedure GenerateUses(UsedModules: TUsedModules);
     procedure GenerateModule(Module: TSourceModule);
     procedure GenerateUnit(Module: TSourceModule);
@@ -22 +20 @@
     procedure GeneratePackage(Module: TSourceModule);
     procedure GenerateType(AType: TType; AssignSymbol: Char = ':');
-    procedure GenerateTypes(Types: TTypeList);
+    procedure GenerateTypes(Types: TTypes);
     procedure GenerateCommonBlockInterface(CommonBlock: TCommonBlock;
       LabelPrefix: string);
     procedure GenerateCommonBlockImplementation(CommonBlock: TCommonBlock;
       LabelPrefix: string);
-    procedure GenerateFunctions(Functions: TFunctionList);
+    procedure GenerateFunctions(Functions: TFunctions);
     procedure GenerateFunction(AFunction: TFunction);
     procedure GenerateFunctionHead(AFunction: TFunction);
-    procedure GenerateConstants(Constants: TConstantList);
+    procedure GenerateConstants(Constants: TConstants);
     procedure GenerateConstant(Constant: TConstant);
     procedure GenerateBeginEnd(BeginEnd: TBeginEnd);
-    procedure GenerateVariableList(Variables: TVariableList);
+    procedure GenerateVariableList(Variables: TVariables);
     procedure GenerateVariable(Variable: TVariable);
     procedure GenerateCommand(Command: TCommand);
@@ -49 +47 @@
   end;
 
+
 implementation
 
@@ -72 +71 @@
 destructor TProducerPascal.Destroy;
 begin
-  Producer.Free;
+  FreeAndNil(Producer);
   inherited;
 end;
 
-procedure TProducerPascal.GenerateUses(UsedModules: TUsedModuleList);
+procedure TProducerPascal.GenerateUses(UsedModules: TUsedModules);
 var
   I: Integer;
@@ -142 +141 @@
 procedure TProducerPascal.GenerateLibrary(Module: TSourceModule);
 begin
-
 end;
 
 procedure TProducerPascal.GeneratePackage(Module: TSourceModule);
 begin
-
 end;
 
@@ -192 +189 @@
 end;
 
-procedure TProducerPascal.GenerateTypes(Types: TTypeList);
+procedure TProducerPascal.GenerateTypes(Types: TTypes);
 var
   I: Integer;
@@ -231 +228 @@
 end;
 
-procedure TProducerPascal.GenerateFunctions(Functions: TFunctionList);
+procedure TProducerPascal.GenerateFunctions(Functions: TFunctions);
 var
   I: Integer;
@@ -280 +277 @@
 end;
 
-procedure TProducerPascal.GenerateConstants(Constants: TConstantList);
+procedure TProducerPascal.GenerateConstants(Constants: TConstants);
 var
   I: Integer;
@@ -322 +319 @@
 end;
 
-procedure TProducerPascal.GenerateVariableList(Variables: TVariableList);
+procedure TProducerPascal.GenerateVariableList(Variables: TVariables);
 var
   I: Integer;