Changeset 142 for branches/easy compiler/USourceGenerator.pas

Timestamp:

Jan 16, 2018, 3:19:23 PM (6 years ago)

Author:

chronos

Message:

• Added: Support for begin end block.

File:

• branches/easy compiler/USourceGenerator.pas (modified) (4 diffs)

branches/easy compiler/USourceGenerator.pas

@@ -12 +12 @@
 
   TSourceGenerator = class
+  private
+    function GenerateBeginEnd(BeginEnd: TSourceBeginEnd): string;
+  public
     function Generate(SourceCode: TSourceCode): string;
   end;
@@ -21 +24 @@
 
 function TSourceGenerator.Generate(SourceCode: TSourceCode): string;
+var
+  I: Integer;
+begin
+  Result := '';
+  if SourceCode.Variables.Count > 0 then
+    Result := Result + 'var' + LineEnding;
+  with SourceCode do
+  for I := 0 to Variables.Count - 1 do
+  with TSourceVariable(Variables[I]) do begin
+    Result := Result + '  ' + Name + ': ';
+    if ValueType.Name = 'String' then
+      Result := Result + 'string'
+    else if ValueType.Name = 'Integer' then
+      Result := Result + 'Integer'
+    else raise Exception.Create('Unsupported type');
+    Result := Result + ';' + LineEnding;
+  end;
+  Result := Result + GenerateBeginEnd(SourceCode.Main) + '.' + LineEnding;
+end;
+
+function TSourceGenerator.GenerateBeginEnd(BeginEnd: TSourceBeginEnd): string;
 var
   Output: string;
@@ -45 +69 @@
 begin
   Output := '';
-  if SourceCode.Variables.Count > 0 then
-    Output := Output + 'var' + LineEnding;
-  with SourceCode do
-  for I := 0 to Variables.Count - 1 do
-  with TSourceVariable(Variables[I]) do begin
-    Output := Output + '  ' + Name + ': ';
-    if ValueType.Name = 'String' then
-      Output := Output + 'string'
-    else if ValueType.Name = 'Integer' then
-      Output := Output + 'Integer'
-    else raise Exception.Create('Unsupported type');
-    Output := Output + ';' + LineEnding;
-  end;
   Output := Output + 'begin' + LineEnding;
-  with SourceCode do
+  with BeginEnd do
   for I := 0 to Instructions.Count - 1 do begin
     Instruction := TSourceInstruction(Instructions[I]);
-    if Instruction is TSourceInstructionFunction then
-    with TSourceInstructionFunction(Instruction) do begin
+    if Instruction is TSourceFunctionCall then
+    with TSourceFunctionCall(Instruction) do begin
       if Name = 'print' then begin
         Output := Output + '  Write(' + GenerateRef(Parameters[0]) + ');' +
@@ -84 +95 @@
       end else
       raise Exception.Create('Unsupported instruction name.');
-    end else raise Exception.Create('Unsupported instruction');
+    end else
+    if Instruction is TSourceBeginEnd then begin
+      Output := Output + GenerateBeginEnd(TSourceBeginEnd(Instruction)) +
+        ';' + LineEnding;
+    end else
+    raise Exception.Create('Unsupported instruction');
   end;
-  Output := Output + 'end.' + LineEnding;
+  Output := Output + 'end';
   Result := Output;
 end;