Changeset 206 for branches/interpreter2/UGenerator.pas

Timestamp:

Apr 20, 2020, 10:23:44 AM (4 years ago)

Author:

chronos

Message:

• Added: C# code generator.

File:

• branches/interpreter2/UGenerator.pas (modified) (2 diffs)

branches/interpreter2/UGenerator.pas

@@ -24 +24 @@
 
 procedure TGenerator.SetIndent(AValue: Integer);
+var
+  ToRemove: string;
+  RemoveIndex: Integer;
 begin
   if FIndent = AValue then Exit;
@@ -30 +33 @@
   end else
   if AValue < FIndent then begin
-    Output := Copy(Output, 1, Length(Output) - (FIndent - AValue) * 2);
+    RemoveIndex := Length(Output) - (FIndent - AValue) * 2;
+    ToRemove := Copy(Output, RemoveIndex + 1, MaxInt);
+    if ToRemove = DupeString('  ', FIndent - AValue) then
+      Output := Copy(Output, 1, RemoveIndex);
   end;
   FIndent := AValue;