Changeset 143 for branches/easy compiler/USourceGenerator.pas

Timestamp:

Jan 16, 2018, 3:40:08 PM (7 years ago)

Author:

chronos

Message:

• Modified: Better line indentation in generator.

File:

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

branches/easy compiler/USourceGenerator.pas

@@ -13 +13 @@
   TSourceGenerator = class
   private
+    Indent: Integer;
     function GenerateBeginEnd(BeginEnd: TSourceBeginEnd): string;
+    function IndentStr: string;
   public
     function Generate(SourceCode: TSourceCode): string;
@@ -27 +29 @@
   I: Integer;
 begin
+  Indent := 0;
   Result := '';
   if SourceCode.Variables.Count > 0 then
-    Result := Result + 'var' + LineEnding;
+    Result := Result + IndentStr + 'var' + LineEnding;
+  Inc(Indent);
   with SourceCode do
   for I := 0 to Variables.Count - 1 do
   with TSourceVariable(Variables[I]) do begin
-    Result := Result + '  ' + Name + ': ';
+    Result := Result + IndentStr + Name + ': ';
     if ValueType.Name = 'String' then
       Result := Result + 'string'
@@ -41 +45 @@
     Result := Result + ';' + LineEnding;
   end;
+  Dec(Indent);
   Result := Result + GenerateBeginEnd(SourceCode.Main) + '.' + LineEnding;
 end;
@@ -46 +51 @@
 function TSourceGenerator.GenerateBeginEnd(BeginEnd: TSourceBeginEnd): string;
 var
-  Output: string;
   Instruction: TSourceInstruction;
   I: Integer;
@@ -68 +72 @@
 
 begin
-  Output := '';
-  Output := Output + 'begin' + LineEnding;
+  Result := '';
+  Result := Result + IndentStr + 'begin' + LineEnding;
+  Inc(Indent);
   with BeginEnd do
   for I := 0 to Instructions.Count - 1 do begin
@@ -76 +81 @@
     with TSourceFunctionCall(Instruction) do begin
       if Name = 'print' then begin
-        Output := Output + '  Write(' + GenerateRef(Parameters[0]) + ');' +
+        Result := Result + IndentStr + 'Write(' + GenerateRef(Parameters[0]) + ');' +
           LineEnding;
       end else
       if Name = 'println' then begin
-        Output := Output + '  WriteLn(' + GenerateRef(Parameters[0]) + ');' +
+        Result := Result + IndentStr + 'WriteLn(' + GenerateRef(Parameters[0]) + ');' +
           LineEnding;
       end else
       if Name = 'assign' then begin
-        Output := Output + '  ' + GenerateRef(Parameters[0]) + ' := ' +
+        Result := Result + IndentStr + GenerateRef(Parameters[0]) + ' := ' +
           GenerateRef(Parameters[1]) + ';' + LineEnding;
       end else
       if Name = 'inputln' then begin
-        Output := Output + '  ReadLn(' + GenerateRef(Parameters[0]) + ');' + LineEnding;
+        Result := Result + IndentStr + 'ReadLn(' + GenerateRef(Parameters[0]) + ');' + LineEnding;
       end else
       if Name = 'increment' then begin
-        Output := Output + '  Inc(' + GenerateRef(Parameters[0]) + ', ' +
+        Result := Result + IndentStr + 'Inc(' + GenerateRef(Parameters[0]) + ', ' +
           GenerateRef(Parameters[1]) + ');' + LineEnding;
       end else
@@ -97 +102 @@
     end else
     if Instruction is TSourceBeginEnd then begin
-      Output := Output + GenerateBeginEnd(TSourceBeginEnd(Instruction)) +
+      Result := Result + GenerateBeginEnd(TSourceBeginEnd(Instruction)) +
         ';' + LineEnding;
     end else
     raise Exception.Create('Unsupported instruction');
   end;
-  Output := Output + 'end';
-  Result := Output;
+  Dec(Indent);
+  Result := Result + IndentStr + 'end';
+end;
+
+function TSourceGenerator.IndentStr: string;
+begin
+  SetLength(Result, Indent * 2);
+  if Indent > 0 then
+    FillChar(Result[1], Indent * 2, ' ');
 end;