Changeset 20 for trunk/Compiler

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.

Location:

trunk/Compiler

Files:

• UCompiler.pas (modified) (1 diff)
• UCompilerDelphi.pas (modified) (3 diffs)
• UCompilerPHP.pas (modified) (2 diffs)

trunk/Compiler/UCompiler.pas

@@ -40 +40 @@
 constructor TBrainFuckCompiler.Create;
 begin
-
+  Optimization := coNormal;
 end;
 

trunk/Compiler/UCompilerDelphi.pas

@@ -30 +30 @@
 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;
@@ -39 +51 @@
   AddLine('');
   AddLine('var');
-  AddLine('  Memory: array[0..30000] of Char;');
-  AddLine('  Position: Integer;');
+  AddLine('  Memory: array[0..30000] of Byte;');
+  AddLine('  Pos: Integer;');
   AddLine('begin');
   Inc(Indent);
-  for I := 1 to Length(Source) do begin
+  I := 1;
+  while (I <= Length(Source)) do begin
     case Source[I] of
-      '>': AddLine('Inc(Position);');
-      '<': AddLine('Dec(Position);');
-      '+': AddLine('Memory[Position] := Succ(Memory[Position]);');
-      '-': AddLine('Memory[Position] := Pred(Memory[Position]);');
-      '.': AddLine('Write(Memory[Position]);');
-      ',': AddLine('Read(Memory[Position]);');
+      '>': begin
+        Sum := CheckOccurence('>');
+        AddLine('Inc(Pos, ' + IntToStr(Sum) + ');');
+      end;
+      '<': begin
+        Sum := CheckOccurence('<');
+        AddLine('Dec(Pos, ' + IntToStr(Sum) + ');');
+      end;
+      '+': begin
+        Sum := CheckOccurence('+');
+        AddLine('Memory[Pos] := Memory[Pos] + ' + IntToStr(Sum) + ';');
+      end;
+      '-': begin
+        Sum := CheckOccurence('-');
+        AddLine('Memory[Pos] := Memory[Pos] - ' + IntToStr(Sum) + ';');
+      end;
+      '.': AddLine('Write(Chr(Memory[Pos]));');
+      ',': AddLine('Read(Chr(Memory[Pos]));');
       '[': begin
-        AddLine('while Memory[Position] <> #0 do begin');
+        AddLine('while Memory[Pos] <> 0 do begin');
         Inc(Indent);
       end;
@@ -60 +85 @@
       end;
     end;
+    Inc(I);
   end;
   Dec(Indent);

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);');