Changeset 52 for trunk/Target/UTargetDelphi.pas

Timestamp:

Jul 26, 2012, 3:11:08 PM (12 years ago)

Author:

chronos

Message:

• Modified: Optimization functions moved to shared place in TTarget.
• Modified: Text source is loaded to program source array of brainfuck commands for better processing.

File:

• trunk/Target/UTargetDelphi.pas (modified) (3 diffs)

trunk/Target/UTargetDelphi.pas

@@ -39 +39 @@
 procedure TTargetDelphi.Compile;
 var
-  I: Integer;
   Sum: Integer;
-
-function CheckOccurence(C: Char): Integer;
-begin
-  Result := 1;
-  if Optimization = coNormal then
-  while ((I + 1) <= Length(FSourceCode)) and (FSourceCode[I + 1] = C) do begin
-    Inc(Result);
-    Inc(I)
-  end;
-end;
-
-function CheckClear: Boolean;
-begin
-  Result := (FSourceCode[I] = '[') and (Length(FSourceCode) >= I + 2) and
-    (FSourceCode[I + 1] = '-') and (FSourceCode[I + 2] = ']');
-end;
-
 begin
   inherited;
@@ -74 +56 @@
   Inc(Indent);
   AddLine('Pos := 0;');
-  I := 1;
-  while (I <= Length(FSourceCode)) do begin
-    case FSourceCode[I] of
-      '>': begin
-        Sum := CheckOccurence('>');
+  FProgramIndex := 0;
+  while (FProgramIndex < Length(FProgram)) do begin
+    case FProgram[FProgramIndex] of
+      cmPointerInc: begin
+        Sum := CheckOccurence(cmPointerInc);
         AddLine('Inc(Pos, ' + IntToStr(Sum) + ');');
       end;
-      '<': begin
-        Sum := CheckOccurence('<');
+      cmPointerDec: begin
+        Sum := CheckOccurence(cmPointerDec);
         AddLine('Dec(Pos, ' + IntToStr(Sum) + ');');
       end;
-      '+': begin
-        Sum := CheckOccurence('+');
+      cmInc: begin
+        Sum := CheckOccurence(cmInc);
         AddLine('Memory[Pos] := Memory[Pos] + ' + IntToStr(Sum) + ';');
       end;
-      '-': begin
-        Sum := CheckOccurence('-');
+      cmDec: begin
+        Sum := CheckOccurence(cmDec);
         AddLine('Memory[Pos] := Memory[Pos] - ' + IntToStr(Sum) + ';');
       end;
-      '.': AddLine('Write(Chr(Memory[Pos]));');
-      ',': AddLine('Read(ReadChar); Memory[Pos] := Ord(ReadChar);');
-      '[': begin
+      cmOutput: AddLine('Write(Chr(Memory[Pos]));');
+      cmInput: AddLine('Read(ReadChar); Memory[Pos] := Ord(ReadChar);');
+      cmLoopStart: begin
         if CheckClear then begin
           AddLine('Memory[Pos] := 0;');
-          Inc(I, 2);
+          Inc(FProgramIndex, 2);
         end else begin
           AddLine('while Memory[Pos] <> 0 do begin');
@@ -104 +86 @@
         end;
       end;
-      ']': begin
+      cmLoopEnd: begin
         Dec(Indent);
         AddLine('end;');
       end;
     end;
-    Inc(I);
+    Inc(FProgramIndex);
   end;
   Dec(Indent);