Changeset 11 for branches/Void/UOutputGenerator.pas

Timestamp:

Nov 9, 2009, 4:15:39 PM (15 years ago)

Author:

george

Message:

• Přidáno: Parsování pascalovského bloku var a begin-end.

File:

• branches/Void/UOutputGenerator.pas (modified) (7 diffs)

branches/Void/UOutputGenerator.pas

@@ -14 +14 @@
   TOutputGenerator = class
   private
+    Model: TModel;
   public
     Output: TStringList;
@@ -25 +26 @@
   TPascalGenerator = class(TOutputGenerator)
     procedure Generate(Model: TModel); override;
+    procedure GenerateModule(Module: TModule);
   end;
 
@@ -31 +33 @@
   TCGenerator = class(TOutputGenerator)
     procedure Generate(Model: TModel); override;
+    procedure GenerateModule(Module: TModule);
   end;
 
@@ -39 +42 @@
 procedure TOutputGenerator.Generate(Model: TModel);
 begin
-
+  Self.Model := Model;
 end;
 
@@ -56 +59 @@
 
 procedure TPascalGenerator.Generate(Model: TModel);
+begin
+  inherited;
+  GenerateModule(Model.Module);
+end;
+
+procedure TPascalGenerator.GenerateModule(Module: TModule);
 var
   I, P: Integer;
@@ -61 +70 @@
   Row: string;
 begin
-  inherited;
-
-  with Model do begin
+  with Module do begin
     // Prepare output
     Output.Clear;
@@ -98 +105 @@
 
 procedure TCGenerator.Generate(Model: TModel);
+begin
+  inherited;
+  GenerateModule(Model.Module);
+end;
+
+procedure TCGenerator.GenerateModule(Module: TModule);
 var
   I, P: Integer;
   Row: string;
   ParameterText: string;
-  begin
-  inherited;
-
-  with Model do begin
+begin
+  with Module do begin
     // Prepare output
     Output.Clear;