Changeset 75 for trunk/Compiler/Modules/Delphi/ProducerDelphi.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

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;