Changeset 147 for branches/easy compiler/USourceGenerator.pas

Timestamp:

Jan 17, 2018, 3:34:13 PM (6 years ago)

Author:

chronos

Message:

• Added: Support for Repeat blocks and Break command.

File:

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

branches/easy compiler/USourceGenerator.pas

@@ -15 +15 @@
     Indent: Integer;
     function GenerateBeginEnd(BeginEnd: TCommandBeginEnd): string;
+    function GenerateCommand(Command: TSourceCommand): string;
+    function GenerateRef(Reference: TSourceReference): string;
     function IndentStr: string;
   public
@@ -49 +51 @@
 end;
 
-function TSourceGenerator.GenerateBeginEnd(BeginEnd: TCommandBeginEnd): string;
+function TSourceGenerator.GenerateRef(Reference: TSourceReference): string;
 var
-  Instruction: TSourceCommand;
-  I: Integer;
   Value: TSourceValue;
-
-function GenerateRef(Reference: TSourceReference): string;
 begin
   Result := '';
@@ -71 +69 @@
 end;
 
+function TSourceGenerator.GenerateCommand(Command: TSourceCommand): string;
+begin
+  Result := '';
+  if Command is TCommandFunctionCall then
+  with TCommandFunctionCall(Command) do begin
+    if Name = 'print' then begin
+      Result := Result + IndentStr + 'Write(' + GenerateRef(TSourceReference(Parameters[0])) + ');' +
+        LineEnding;
+    end else
+    if Name = 'println' then begin
+      Result := Result + IndentStr + 'WriteLn(' + GenerateRef(TSourceReference(Parameters[0])) + ');' +
+        LineEnding;
+    end else
+    if Name = 'assign' then begin
+      Result := Result + IndentStr + GenerateRef(TSourceReference(Parameters[0])) + ' := ' +
+        GenerateRef(TSourceReference(Parameters[1])) + ';' + LineEnding;
+    end else
+    if Name = 'inputln' then begin
+      Result := Result + IndentStr + 'ReadLn(' + GenerateRef(TSourceReference(Parameters[0])) + ');' + LineEnding;
+    end else
+    if Name = 'increment' then begin
+      Result := Result + IndentStr + 'Inc(' + GenerateRef(TSourceReference(Parameters[0])) + ', ' +
+        GenerateRef(TSourceReference(Parameters[1])) + ');' + LineEnding;
+    end else
+    if Name = 'decrement' then begin
+      Result := Result + IndentStr + 'Dec(' + GenerateRef(TSourceReference(Parameters[0])) + ', ' +
+        GenerateRef(TSourceReference(Parameters[1])) + ');' + LineEnding;
+    end else
+    raise Exception.Create('Unsupported instruction name.');
+  end else
+  if Command is TCommandBeginEnd then begin
+    Result := Result + GenerateBeginEnd(TCommandBeginEnd(Command)) +
+      ';' + LineEnding;
+  end else
+  if Command is TCommandBreak then begin
+    Result := Result + IndentStr + 'Break;' + LineEnding;
+  end else
+  if Command is TCommandContinue then begin
+    Result := Result + IndentStr + 'Continue;' + LineEnding;
+  end else
+  if Command is TCommandRepeat then begin
+    Result := Result + IndentStr + 'repeat' + LineEnding;
+    Inc(Indent);
+    Result := Result + IndentStr +  GenerateCommand(TCommandRepeat(Command).Command) + LineEnding;
+    Dec(Indent);
+    Result := Result + IndentStr + 'until False;' + LineEnding;
+  end else
+  if Command is TCommandIfZero then begin
+    Result := Result + IndentStr + 'if ' + TCommandIfZero(Command).Variable.Variable.Name + ' = 0 then ';
+  end else
+  raise Exception.Create('Unsupported instruction');
+end;
+
+function TSourceGenerator.GenerateBeginEnd(BeginEnd: TCommandBeginEnd): string;
+var
+  I: Integer;
 begin
   Result := '';
@@ -76 +130 @@
   Inc(Indent);
   with BeginEnd do
-  for I := 0 to Instructions.Count - 1 do begin
-    Instruction := TSourceCommand(Instructions[I]);
-    if Instruction is TCommandFunctionCall then
-    with TCommandFunctionCall(Instruction) do begin
-      if Name = 'print' then begin
-        Result := Result + IndentStr + 'Write(' + GenerateRef(TSourceReference(Parameters[0])) + ');' +
-          LineEnding;
-      end else
-      if Name = 'println' then begin
-        Result := Result + IndentStr + 'WriteLn(' + GenerateRef(TSourceReference(Parameters[0])) + ');' +
-          LineEnding;
-      end else
-      if Name = 'assign' then begin
-        Result := Result + IndentStr + GenerateRef(TSourceReference(Parameters[0])) + ' := ' +
-          GenerateRef(TSourceReference(Parameters[1])) + ';' + LineEnding;
-      end else
-      if Name = 'inputln' then begin
-        Result := Result + IndentStr + 'ReadLn(' + GenerateRef(TSourceReference(Parameters[0])) + ');' + LineEnding;
-      end else
-      if Name = 'increment' then begin
-        Result := Result + IndentStr + 'Inc(' + GenerateRef(TSourceReference(Parameters[0])) + ', ' +
-          GenerateRef(TSourceReference(Parameters[1])) + ');' + LineEnding;
-      end else
-      raise Exception.Create('Unsupported instruction name.');
-    end else
-    if Instruction is TCommandBeginEnd then begin
-      Result := Result + GenerateBeginEnd(TCommandBeginEnd(Instruction)) +
-        ';' + LineEnding;
-    end else
-    if Instruction is TCommandIfZero then begin
-      Result := Result + IndentStr + 'if ' + TCommandIfZero(Instruction).Variable.Name + ' = 0 then ';
-    end else
-    raise Exception.Create('Unsupported instruction');
+  for I := 0 to Commands.Count - 1 do begin
+    Result := Result + GenerateCommand(TSourceCommand(Commands[I]));
   end;
   Dec(Indent);