Changeset 146 for branches/easy compiler/USourceGenerator.pas

Timestamp:

Jan 17, 2018, 2:25:45 PM (7 years ago)

Author:

chronos

Message:

• Modified: ParseBeginEnd method split to several other items for parsing each specific command.

File:

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

branches/easy compiler/USourceGenerator.pas

@@ -14 +14 @@
   private
     Indent: Integer;
-    function GenerateBeginEnd(BeginEnd: TSourceBeginEnd): string;
+    function GenerateBeginEnd(BeginEnd: TCommandBeginEnd): string;
     function IndentStr: string;
   public
@@ -49 +49 @@
 end;
 
-function TSourceGenerator.GenerateBeginEnd(BeginEnd: TSourceBeginEnd): string;
+function TSourceGenerator.GenerateBeginEnd(BeginEnd: TCommandBeginEnd): string;
 var
-  Instruction: TSourceInstruction;
+  Instruction: TSourceCommand;
   I: Integer;
   Value: TSourceValue;
@@ -77 +77 @@
   with BeginEnd do
   for I := 0 to Instructions.Count - 1 do begin
-    Instruction := TSourceInstruction(Instructions[I]);
-    if Instruction is TSourceFunctionCall then
-    with TSourceFunctionCall(Instruction) 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])) + ');' +
@@ -101 +101 @@
       raise Exception.Create('Unsupported instruction name.');
     end else
-    if Instruction is TSourceBeginEnd then begin
-      Result := Result + GenerateBeginEnd(TSourceBeginEnd(Instruction)) +
+    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');