Changeset 25 for trunk/Compiler/UCompilerDelphi.pas

Timestamp:

Feb 13, 2012, 9:47:18 AM (12 years ago)

Author:

chronos

Message:

• Added: List of supported compiler targets.
• Added: Action to compile and run project.

File:

• trunk/Compiler/UCompilerDelphi.pas (modified) (3 diffs)

trunk/Compiler/UCompilerDelphi.pas

@@ -25 +25 @@
   inherited Create;
   Name := 'Delphi';
+  SourceExtension := '.pas';
+  CompiledExtension := '.exe';
 end;
 
@@ -53 +55 @@
   AddLine('  Memory: array[0..30000] of Byte;');
   AddLine('  Pos: Integer;');
+  AddLine('  ReadChar: Char;');
   AddLine('begin');
   Inc(Indent);
+  AddLine('Pos := 0;');
   I := 1;
   while (I <= Length(Source)) do begin
@@ -75 +79 @@
       end;
       '.': AddLine('Write(Chr(Memory[Pos]));');
-      ',': AddLine('Read(Chr(Memory[Pos]));');
+      ',': AddLine('Read(ReadChar); Memory[Pos] := Ord(ReadChar);');
       '[': begin
         AddLine('while Memory[Pos] <> 0 do begin');