Changeset 20 for trunk/Compiler/UCompilerPHP.pas

Timestamp:

Feb 11, 2012, 10:56:03 PM (13 years ago)

Author:

chronos

Message:

• Added: Action to shrink source code by remove all non printable characters.
• Added: Optimalization for generated code by Delphi and PHP compiler. All same language commands laying side by side will be converted to single generated operation.

File:

• trunk/Compiler/UCompilerPHP.pas (modified) (2 diffs)

trunk/Compiler/UCompilerPHP.pas

@@ -31 +31 @@
 var
   I: Integer;
+  Sum: Integer;
+
+function CheckOccurence(C: Char): Integer;
+begin
+  Result := 1;
+  if Optimization = coNormal then
+  while ((I + 1) <= Length(Source)) and (Source[I + 1] = C) do begin
+    Inc(Result);
+    Inc(I)
+  end;
+end;
+
 begin
   Indent := 0;
@@ -41 +53 @@
   for I := 1 to Length(Source) do begin
     case Source[I] of
-      '>': AddLine('$Position++;');
-      '<': AddLine('$Position--;');
-      '+': AddLine('$Memory[$Position] = chr(ord($Memory[$Position]) + 1);');
-      '-': AddLine('$Memory[$Position] = chr(ord($Memory[$Position]) - 1);');
+      '>': begin
+        Sum := CheckOccurence('>');
+        AddLine('$Position = $Position + ' + IntToStr(Sum) + ';');
+      end;
+      '<': begin
+        Sum := CheckOccurence('<');
+        AddLine('$Position = $Position - ' + IntToStr(Sum) + ';');
+      end;
+      '+': begin
+        Sum := CheckOccurence('+');
+        AddLine('$Memory[$Position] = chr(ord($Memory[$Position]) + ' + IntToStr(Sum) + ');');
+      end;
+      '-': begin
+        Sum := CheckOccurence('-');
+        AddLine('$Memory[$Position] = chr(ord($Memory[$Position]) - ' + IntToStr(Sum) + ');');
+      end;
       '.': AddLine('echo($Memory[$Position]);');
       ',': AddLine('$Memory[$Position] = fgetc(STDIN);');