Changeset 8 for branches/Void/UOutputGenerator.pas

Timestamp:

Nov 9, 2009, 9:47:57 AM (15 years ago)

Author:

george

Message:

• Upraveno: Zobecněno uchování definic parametrických povelů v bloku BeginEnd pro potřeby generování do různých jazyků.

File:

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

branches/Void/UOutputGenerator.pas

@@ -54 +54 @@
 procedure TPascalGenerator.Generate(Model: TModel);
 var
-  I: Integer;
+  I, P: Integer;
+  ParameterText: string;
+  Row: string;
 begin
   inherited;
@@ -72 +74 @@
     // Code block
     Output.Add('begin');
-    for I := 0 to Commands.Count - 1 do
-      with TCommand(Commands[I]) do
-        Output.Add(Text);
+    for I := 0 to BeginEnd.Commands.Count - 1 do
+      with TCommand(BeginEnd.Commands[I]) do begin
+        if Name = 'Assignment' then Output.Add(Parameters[0] + ' := ' + Parameters[1] + ';')
+        else begin
+        Row := Name;
+        if Parameters.Count > 0 then begin
+          ParameterText := '';
+          for P := 0 to Parameters.Count - 1 do
+            ParameterText := ParameterText + Parameters[P] + ', ';
+          Row := Row + '(' + Copy(ParameterText, 1, Length(ParameterText) - 2) + ')';
+        end;
+        Output.Add(Row + ';');
+        end;
+      end;
     Output.Add('end.');
   end;
@@ -82 +95 @@
 
 procedure TCGenerator.Generate(Model: TModel);
-begin
+var
+  I, P: Integer;
+  Row: string;
+  ParameterText: string;
+  begin
   inherited;
+
+  with Model do begin
+    // Prepare output
+    Output.Clear;
+
+    Output.Add('int main()');
+    Output.Add('{');
+
+    // variable section
+    for I := 0 to Variables.Count - 1 do
+      with TVariable(Variables[I]) do
+        Output.Add('  ' + VarType + ' ' + Name + ';');
+
+    // Code block
+    for I := 0 to BeginEnd.Commands.Count - 1 do
+      with TCommand(BeginEnd.Commands[I]) do begin
+        if Name = 'Assignment' then Output.Add(Parameters[0] + ' = ' + Parameters[1] + ';')
+        else begin
+        Row := Name;
+        if Parameters.Count > 0 then begin
+          ParameterText := '';
+          for P := 0 to Parameters.Count - 1 do
+            ParameterText := ParameterText + Parameters[P] + ', ';
+          Row := Row + '(' + Copy(ParameterText, 1, Length(ParameterText) - 2) + ')';
+        end;
+        Output.Add(Row + ';');
+        end;
+      end;
+    Output.Add('}');
+  end;
 end;