Changeset 52 for trunk/Target/UTargetPHP.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/UTargetPHP.pas (modified) (3 diffs)

trunk/Target/UTargetPHP.pas

@@ -44 +44 @@
 procedure TTargetPHP.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;
@@ -72 +54 @@
   AddLine('$Memory = str_repeat("\0", 30000);');
   AddLine('$Position = 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('$Position = $Position + ' + IntToStr(Sum) + ';');
       end;
-      '<': begin
-        Sum := CheckOccurence('<');
+      cmPointerDec: begin
+        Sum := CheckOccurence(cmPointerDec);
         AddLine('$Position = $Position - ' + IntToStr(Sum) + ';');
       end;
-      '+': begin
-        Sum := CheckOccurence('+');
+      cmInc: begin
+        Sum := CheckOccurence(cmInc);
         AddLine('$Memory[$Position] = chr(ord($Memory[$Position]) + ' + IntToStr(Sum) + ');');
       end;
-      '-': begin
-        Sum := CheckOccurence('-');
+      cmDec: begin
+        Sum := CheckOccurence(cmDec);
         AddLine('$Memory[$Position] = chr(ord($Memory[$Position]) - ' + IntToStr(Sum) + ');');
       end;
-      '.': AddLine('echo($Memory[$Position]);');
-      ',': AddLine('$Memory[$Position] = fgetc(STDIN);');
-      '[': begin
+      cmOutput: AddLine('echo($Memory[$Position]);');
+      cmInput: AddLine('$Memory[$Position] = fgetc(STDIN);');
+      cmLoopStart: begin
         if CheckClear then begin
           AddLine('$Memory[$Position] = "\0";');
-          Inc(I, 2);
+          Inc(FProgramIndex, 2);
         end else begin
           AddLine('while($Memory[$Position] != "\0") {');
@@ -102 +84 @@
         end;
       end;
-      ']': begin
+      cmLoopEnd: begin
         Dec(Indent);
         AddLine('}');
       end;
     end;
-    Inc(I);
+    Inc(FProgramIndex);
   end;
   AddLine('');